Next: TOP language Up: User's Guide Previous: Using ASGL Contents Index

Subsections

ASGL examples

Scatter plots -- `scatter.top`

#EPSF .ps

READ_TABLE FILE 'scatter.dat'

SET POSITION 12 0
WORLD

AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'SCATTER PLOT'
CAPTION CAPTION_POSITION 2, CAPTION_FONT 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_FONT 2, CAPTION_TEXT 'Y'

SET PLOT2D_SYMBOL_TYPE 4, PLOT2D_LINE_TYPE = 0
PLOT2D

$\epsffile{../examples/scatter.ps}$

Labelled scatter plots -- `labls.top`

#EPSF .ps

READ_TABLE FILE 'labls.dat'

SET POSITION 1 0
WORLD

AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'LABELLED SCATTER PLOT'
CAPTION CAPTION_POSITION 2, CAPTION_FONT 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_FONT 2, CAPTION_TEXT 'Y'

SET PLOT2D_SYMBOL_TYPE 4, PLOT2D_LINE_TYPE = 0
PLOT2D LABEL_LOCATION = 2, LABEL_COLUMN = 3, LABEL_FONT = 5


SET POSITION 5 0
WORLD

AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'LABELLED SCATTER PLOT'
CAPTION CAPTION_POSITION 2, CAPTION_FONT 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_FONT 2, CAPTION_TEXT 'Y'

SET PLOT2D_SYMBOL_TYPE 0, PLOT2D_LINE_TYPE = 0
PLOT2D LABEL_LOCATION = 1, LABEL_COLUMN = 3, LABEL_FONT = 5

$\epsffile{../examples/labls.ps}$

Error bars -- `error.top`

#EPSF .ps

READ_TABLE FILE 'error.dat'
SET POSITION 12 0
WORLD

AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'TITLE'
CAPTION CAPTION_POSITION 2, CAPTION_FONT 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_FONT 2, CAPTION_TEXT 'Y'

RESET_LEGEND

SET PLOT2D_SYMBOL_TYPE 4, PLOT2D_LINE_TYPE = 2
LEGEND SYMBOL = LINE,  DESCRIPTION = 'line 1'
LEGEND SYMBOL = POINT, DESCRIPTION = 'point 1'
PLOT2D
PLOT_ERROR_BARS ERROR_COLUMN = 3, PLOT2D_LINE_TYPE = 3, ;
                PLOT2D_SYMBOL_TYPE = 3

$\epsffile{../examples/error.ps}$

Mixed style plots -- `mixed.top`

#EPSF .ps

READ_TABLE FILE 'hist1.dat'
SET XY_COLUMNS 1 2
SET POSITION 12 0
WORLD WORLD_WINDOW -999 0 -999 90

AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_TEXT 'TITLE'
CAPTION CAPTION_POSITION 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_TEXT 'Y'

RESET_LEGEND

SET PLOT2D_SYMBOL_TYPE 4, PLOT2D_LINE_TYPE = 2
LEGEND SYMBOL = LINE,  DESCRIPTION = 'line 1'
LEGEND SYMBOL = POINT, DESCRIPTION = 'point 1'
PLOT2D

READ_TABLE FILE 'hist2.dat'
SET PLOT2D_SYMBOL_TYPE 3, PLOT2D_LINE_TYPE = 5
LEGEND SYMBOL = LINE,  DESCRIPTION = 'line 2'
LEGEND SYMBOL = POINT, DESCRIPTION = 'point 2'
PLOT2D

READ_TABLE FILE 'hist3.dat'
SET BAR_GRAYNESS = 0.6, BAR_LINE_TYPE = 2
LEGEND SYMBOL = BAR,  DESCRIPTION = 'data set 3'
HIST2D

$\epsffile{../examples/mixed.ps}$

Histograms from raw data -- `bars.top`

#EPSF .ps

READ_TABLE FILE 'bars.dat'
SET XY_COLUMNS 1 2
GET_BARS BAR_DX = 1.0

WORLD POSITION 12 0, WORLD_WINDOW = -999 -999 -999 -999
AXES2D
HIST2D BAR_WIDTH 0.7

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_TEXT 'Testing GET-BARS'
CAPTION CAPTION_POSITION 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_TEXT 'N'

$\epsffile{../examples/bars.ps}$

Multiple histograms -- `mhist.top`

#EPSF .ps

READ_TABLE FILE 'mhist1.dat'
SET XY_COLUMNS 2 1
SET POSITION 12 0
SET WORLD_WINDOW -999 0 7 60
WORLD
SET X_TICK        1.2  1.0
SET Y_TICK_DECIMALS  -1
SET X_TICK_LABEL 1 1
SET Y_TICK_LABEL 1 2
SET BAR_WIDTH = 0.2

SET X_LABELS 'G1' 'G2' 'G3' 'G4' 'G5' 'G6', X_LABEL_STYLE = 1
AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT ;
        'MULTIPLE HISTOGRAM'
CAPTION CAPTION_POSITION 2, CAPTION_FONT 2, CAPTION_TEXT 'GROUP'
CAPTION CAPTION_POSITION 3, CAPTION_FONT 2, CAPTION_TEXT 'FREQUENCY'

RESET_LEGEND
HIST2D BAR_GRAYNESS = 0.0
LEGEND SYMBOL = BAR,  DESCRIPTION = 'data 1'

READ_TABLE FILE 'mhist2.dat'
HIST2D BAR_GRAYNESS = 0.5, BAR_XSHIFT = 0.2
LEGEND SYMBOL = BAR,  DESCRIPTION = 'data 2'

READ_TABLE FILE 'mhist3.dat'
HIST2D BAR_GRAYNESS = 1.0, BAR_XSHIFT = 0.4
LEGEND SYMBOL = BAR,  DESCRIPTION = 'data 3'

$\epsffile{../examples/mhist.ps}$

Y axis on the right -- `alty.top`

#EPSF .ps

READ_TABLE FILE 'hist1.dat'
SET XY_COLUMNS 1 2
SET POSITION 12 0
WORLD WORLD_WINDOW -999 0 -999 -999

AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_TEXT 'TITLE'
CAPTION CAPTION_POSITION 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_TEXT 'Y'

SET PLOT2D_SYMBOL_TYPE 4, PLOT2D_LINE_TYPE = 2
PLOT2D

READ_TABLE FILE 'hist4.dat'
SET Y_TICK  -999 -999 -999
SET Y_TICK_DECIMALS  -999
SET Y_TICK_LABEL -999 -999
WORLD WORLD_WINDOW -999 0 -999 -999
SET PLOT2D_SYMBOL_TYPE 3, PLOT2D_LINE_TYPE = 5
PLOT2D

SET Y_TICK  -999 -999 -999
SET Y_TICK_DECIMALS  -999
SET Y_TICK_LABEL -999 -999
AXES2D Y_SCALE = 'RIGHT'
RESET_CAPTIONS
CAPTION CAPTION_POSITION 6, CAPTION_TEXT 'ALTERNATIVE Y'

$\epsffile{../examples/alty.ps}$

Stacked histograms -- `stkhist.top`

#EPSF .ps

READ_TABLE FILE 'stkhist.dat'
SET NO_XY_SCOLUMNS = 1 3, XY_SCOLUMNS = 1   4   3   2
SET BAR_GRAYNESS =                        0.0 0.4 0.8
SET BAR_WIDTH = 0.6
SET POSITION 12 0
SET WORLD_WINDOW -999 -20 -999 100
WORLD
AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_TEXT 'STACKED HISTOGRAM'
CAPTION CAPTION_POSITION 2, CAPTION_TEXT 'X'
CAPTION CAPTION_POSITION 3, CAPTION_TEXT 'Y'

HIST2D

$\epsffile{../examples/stkhist.ps}$

Spectra plots -- `spectrum.top`

#EPSF .ps

SET WORLD_WINDOW = 0 -76 1 -68
SET PAPER_WINDOW = 8 2 14.5 23.0 0.0
SET X_LABEL_STYLE = 3
SET X_TICK           9 9
SET X_TICK_LABEL     9 9
SET Y_TICK       -76 0.5
SET Y_TICK_LABEL     5 4
SET Y_TICK_DECIMALS   -1
SET XY_COLUMNS 2 1
SET TICK_FONT = 2

WORLD
AXES2D

RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT = 2, CAPTION_TEXT ' '
CAPTION CAPTION_POSITION 1, CAPTION_FONT = 2, CAPTION_TEXT ' '
CAPTION CAPTION_POSITION 1, CAPTION_FONT = 2, ;
        CAPTION_TEXT 'A RANDOM SEQUENCE'
CAPTION CAPTION_POSITION 1, CAPTION_FONT = 2, ;
        CAPTION_TEXT 'ENERGY SPECTRUM OF'
CAPTION CAPTION_POSITION 3, CAPTION_FONT = 1, CAPTION_TEXT 'E'

SET BAR_WIDTH  = 0.70
SET BAR_XSHIFT = 0.15
READ_TABLE FILE = 'spectrum.dat'
SPECTRUM PLOT2D_LINE_TYPE = 2

$\epsffile{../examples/spectrum.ps}$

Density plots -- `dplot.top`

#EPSF .ps

READ_DPLOT FILE = 'dplot.dat'
SET POSITION 12 1
SET X_TICK         1.  1.
SET Y_TICK         1.  1.
SET X_TICK_DECIMALS   -1
SET Y_TICK_DECIMALS   -1
SET X_TICK_LABEL 1 1
SET Y_TICK_LABEL 1 1
SET DPLOT_STYLE GRAY
SET DPLOT_GRAYNESS  1.0  0.0
SET DPLOT_PART FULL
SET DPLOT_LINE_TYPE 3
SET DPLOT_BOUNDS 0.0 8.0
SET BAR_LEGEND_PLACES 3 2

SET WORLD_WINDOW  -999 -999 -999 -999
WORLD
AXES2D

RESET_CAPTIONS
CAPTION CAPTION_FONT 2, CAPTION_POSITION 1, CAPTION_TEXT 'DENSITY PLOT'
CAPTION CAPTION_FONT 2, CAPTION_POSITION 2, CAPTION_FONT = 1, CAPTION_TEXT 'i'
CAPTION CAPTION_FONT 2, CAPTION_POSITION 3, CAPTION_FONT = 1, CAPTION_TEXT 'j'

DPLOT

RESET

READ_DPLOT FILE = 'dplot.dat'
SET POSITION 13 1

SET X_TICK         1.  1.
SET Y_TICK         1.  1.
SET X_TICK_DECIMALS   -1
SET Y_TICK_DECIMALS   -1
SET X_TICK_LABEL 1 1
SET Y_TICK_LABEL 1 1
SET DPLOT_STYLE BLACK
SET DPLOT_GRAYNESS  1.0  0.0
SET DPLOT_PART FULL
SET DPLOT_LINE_TYPE 3
SET DPLOT_BOUNDS 0.0 3.0

SET WORLD_WINDOW  -999 -999 -999 -999
WORLD
AXES2D

RESET_CAPTIONS
CAPTION CAPTION_FONT 2, CAPTION_POSITION 1, CAPTION_TEXT 'DENSITY PLOT'
CAPTION CAPTION_FONT 2, CAPTION_POSITION 2, CAPTION_FONT = 1, CAPTION_TEXT 'i'
CAPTION CAPTION_FONT 2, CAPTION_POSITION 3, CAPTION_FONT = 1, CAPTION_TEXT 'j'

DPLOT BAR_LEGEND = OFF

$\epsffile{../examples/dplot.ps}$

Least-squares fitting -- `dplot.top`

#EPSF

SET XY_COLUMNS = 3 5
SET X_TICK = 0 2 -999
SET X_TICK_LABEL = 1 10
SET Y_TICK = -2.0 0.5 -999
SET Y_TICK_LABEL = 2 2
SET WORLD_WINDOW = 0 -2.0 75 0
SET PRINT_DXY = 2 0, PRINT_FONT = 4, PRINT_VERT = 2, PRINT_HORIZ = 1
SET PRINT_MODE = 'POINT'


READ_TABLE FILE = 'fit.dat'
SELECT_DATA SELECT_COLUMN = 2, SELECT_RANGE = 1.09 1.11
TRANSFORM TRF_TYPE = LINEAR, TRF_PARAMETERS = 0 0.000001, ;
          NO_XY_SCOLUMNS = 1 0, XY_SCOLUMNS = 3
SET POSITION 14 0
WORLD
AXES2D
PLOT2D PLOT2D_LINE_TYPE = 0, PLOT2D_SYMBOL_TYPE = 4
FIT FIT_MODEL = 'POLYNOMIAL', ERROR_COLUMN = 0, ;
    FIT_PARAM_INITIAL = 1 -1 0 0 0 0 0, FIT_PARAM_INDICES = 1 2
PLOT2D PLOT2D_LINE_TYPE = 3, PLOT2D_SYMBOL_TYPE = 0
RESET_CAPTIONS
PRINT PRINT_POINT = 0, PRINT_TEXT = 'T=1.1'
CAPTION CAPTION_POSITION 2, CAPTION_TEXT = 'MC STEP'
CAPTION CAPTION_POSITION 3, CAPTION_TEXT = 'ln(1 - c_N_)'
CAPTION CAPTION_POSITION 4, CAPTION_TEXT = '10^6^'


READ_TABLE FILE = 'fit.dat'
SELECT_DATA SELECT_COLUMN = 2, SELECT_RANGE = 1.2 1.2
TRANSFORM TRF_TYPE = LINEAR, TRF_PARAMETERS = 0 0.000001, ;
          NO_XY_SCOLUMNS = 1 0, XY_SCOLUMNS = 3
PLOT2D PLOT2D_LINE_TYPE = 0, PLOT2D_SYMBOL_TYPE = 7
FIT FIT_MODEL = 'POLYNOMIAL', ERROR_COLUMN = 0, ;
    FIT_PARAM_INITIAL = 0 -1 0 0 0 0 0, FIT_PARAM_INDICES = 1 2
PLOT2D PLOT2D_LINE_TYPE = 3, PLOT2D_SYMBOL_TYPE = 0
PRINT PRINT_POINT = 0, PRINT_TEXT = 'T=1.2'

# CAPTION CAPTION_POSITION 1, CAPTION_TEXT ='SEQ 43; CR MC; 70E6, B_o_=-2'

$\epsffile{../examples/fit.ps}$

Protein C $_{\alpha }$ plot -- `3rp2.top`

#EPSF .ps

# Set some general plot variables:
SET PERSPECTIVE   = 'ON', EYE_TO_SCREEN = 90.0, SCREEN_TO_TOP = 0.0
SET RADIUS_FACTOR = 0.12
# SET BOND_WIDTH_FACTOR = 0.2
SET ATOM_TYPE = 'CA'
SET FROM = 'ALL'
SET SELECTION_MODE = 'ATOM'
SET SELECTION_SEARCH = 'SEGMENT'

# Read and orient the PDB structure
READ_PDB FILE '3rp2.ca'

ROTATE_MOL ROTATION_MATRIX = -0.17317 -0.900  0.3992 ;
                             -0.5579   0.4237 0.7136 ;
                             -0.8116  -0.099 -0.5757

SET ATOM_LINE = 3, BOND_LINE = 3
SET SELECTION_SEGMENT = 'X' 'X'

# Label active site residues:
SELECT_ATOMS SELECTION_SEGMENT =  '57'  '57', RES_TYPE 'ALL', FOR = 'LABELLING',;
             SELECTION_STATUS = 'INITIALIZE'
SELECT_ATOMS SELECTION_SEGMENT = '102' '102', RES_TYPE 'ALL', FOR = 'LABELLING',;
             SELECTION_STATUS = 'ADD'
SELECT_ATOMS SELECTION_SEGMENT = '195' '195', RES_TYPE 'ALL', FOR = 'LABELLING',;
             SELECTION_STATUS = 'ADD'

# select the atoms for displaying and bonding; make virtual bonds
SET RADIUS = 1.5, ATOM_COLOR = 0.0
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL',;
             FOR = 'DISPLAYING BONDING', SELECTION_STATUS = 'ADD'

# Colour positive charges black, label them, large spheres
SET RADIUS  = 3.5, ATOM_COLOR = 0.0
SELECT_ATOMS RES_TYPE 'ARG LYS', FOR = 'DISPLAYING LABELLING', ;
             SELECTION_STATUS = 'ADD'

# Colour negative charges gray, large spheres
SET RADIUS = 3.5, ATOM_COLOR = 0.6
SELECT_ATOMS RES_TYPE 'ASP GLU', FOR = 'DISPLAYING', ;
             SELECTION_STATUS = 'ADD'


MAKE_BONDS BOND_TYPE = 'SEQUENTIAL', ADD_BONDS = 'OFF'

# Draw a full page mono plot, with selected labels
SET PAPER_WINDOW  = 1.5 17 10.5 26 0
ROTATE_MOL_AXIS AXIS = 0 1 0, DEGREES = +3
WORLD
BALL_STICK
LABEL_ATOMS
# Title
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 3, CAPTION_TEXT ;
        'K&R=black. D&E=gray'
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT ;
        '3RP2'
CAPTION CAPTION_POSITION 2, CAPTION_FONT 3, CAPTION_TEXT 'left view'

# STOP

# Produce the right image on a new page for a stereo pair
SET PAPER_WINDOW  = 11 17 20 26 0
ROTATE_MOL_AXIS AXIS = 0 1 0, DEGREES = -6
WORLD
BALL_STICK
LABEL_ATOMS
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 3, CAPTION_TEXT ;
        'K&R=black. D&E=gray'
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT ;
        '3RP2'
CAPTION CAPTION_POSITION 2, CAPTION_FONT 3, CAPTION_TEXT 'right view'

$\epsffile{../examples/3rp2.ps}$

Protein heavy atom plot -- `1fdx.top`

#EPSF .ps

# Set some general plot variables:
SET PERSPECTIVE = 'ON', EYE_TO_SCREEN = 90.0, SCREEN_TO_TOP = 0.0

# Read and orient the PDB structure
READ_PDB FILE '1fdx.atm'

# select the atoms for displaying and bonding; make bonds
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL', ATOM_TYPE 'ALL', ;
             SELECTION_STATUS = 'INITIALIZE', FOR = 'DISPLAYING BONDING'
DEFAULT_ATOM_COLOR
MAKE_BONDS BOND_TYPE = 'COVALENT', ADD_BONDS = 'OFF'

# Draw a full page mono plot
SET PAPER_WINDOW  = 1.5 17 10.5 24 0
WORLD
BALL_STICK
LABEL_ATOMS
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT '1FDX'

SET PAPER_WINDOW  = 11 17 20 24 0
ROTATE_MOL_AXIS AXIS = 0 1 0, DEGREES = -6
WORLD
BALL_STICK
LABEL_ATOMS
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT '1FDX'

$\epsffile{../examples/1fdx.ps}$

Protein H atom plot -- `hydr.top`

#EPSF .ps

# Set some general plot variables:
SET PERSPECTIVE = 'ON', EYE_TO_SCREEN = 90.0, SCREEN_TO_TOP = 0.0

# Read and orient the PDB structure
READ_PDB FILE 'hydr.pdb'

# select the atoms for displaying and bonding; make bonds
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL', ATOM_TYPE 'ALL', ;
             SELECTION_STATUS = 'INITIALIZE', FOR = 'DISPLAYING BONDING'
DEFAULT_ATOM_COLOR
MAKE_BONDS BOND_TYPE = 'COVALENT', ADD_BONDS = 'OFF'

# Draw a full page mono plot
SET PAPER_WINDOW  = 1.5 17 10.5 24 0
WORLD
BALL_STICK
LABEL_ATOMS
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'HYDROGENS'

SET PAPER_WINDOW  = 11 17 20 24 0
ROTATE_MOL_AXIS AXIS = 0 1 0, DEGREES = -6
WORLD
BALL_STICK
LABEL_ATOMS
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'HYDROGENS'

$\epsffile{../examples/hydr.ps}$

Protein CB-CB contacts -- `cbeta.top`

#EPSF .ps

# Set some general plot variables:
# SET PERSPECTIVE = 'ON', EYE_TO_SCREEN = 90.0, SCREEN_TO_TOP = 0.0

# Read and orient the PDB structure
READ_PDB FILE '1fdx.atm'

# select CA atoms
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL', ATOM_TYPE 'CA', ;
             SELECTION_STATUS = 'INITIALIZE', FOR = 'DISPLAYING'
DEFAULT_ATOM_COLOR

# select CB atoms:
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL', ATOM_TYPE 'CB', ;
             SELECTION_STATUS = 'ADD', FOR = 'DISPLAYING', ATOM_COLOR = 0.6

# make CA-CA bonds:
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL', ATOM_TYPE 'CA', ;
             SELECTION_STATUS = 'INITIALIZE', FOR = 'BONDING'
MAKE_BONDS BOND_TYPE = 'SEQUENTIAL', ADD_BONDS = 'OFF'

# make CA-CB bonds:
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL', ATOM_TYPE 'CA CB', ;
             SELECTION_STATUS = 'INITIALIZE', FOR = 'BONDING'
MAKE_BONDS BOND_TYPE = 'COVALENT', ADD_BONDS = 'ON'


# make CB-CB `bonds'
SELECT_ATOMS SELECTION_SEGMENT = 'X' 'X', RES_TYPE 'ALL', ATOM_TYPE 'CB', ;
             SELECTION_STATUS = 'INITIALIZE', FOR = 'BONDING'
MAKE_BONDS BOND_TYPE = 'COVALENT', ADD_BONDS = 'ON', ;
           COVALENT_BOND = 5.5 7.5, BOND_LINE = -5

# Draw a full page mono plot
SET PAPER_WINDOW  = 1.5 17 10.5 24 0
WORLD
BALL_STICK
LABEL_ATOMS
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'C_@b@_-C_@b@_'

SET PAPER_WINDOW  = 11 17 20 24 0
ROTATE_MOL_AXIS AXIS = 0 1 0, DEGREES = -6
WORLD
BALL_STICK
LABEL_ATOMS
RESET_CAPTIONS
CAPTION CAPTION_POSITION 1, CAPTION_FONT 2, CAPTION_TEXT 'C_@b@_-C_@b@_'

$\epsffile{../examples/cbeta.ps}$

Lattice model plot -- `lattice.top`

#EPSF .ps

# Set some general plot variables:
SET ATOM_TYPE = 'ALL'
SET FROM = 'ALL'
SET SELECTION_MODE = 'ATOM'
SET SELECTION_SEARCH = 'SEGMENT'
SET SELECTION_SEGMENT = 'X' 'X'
SET LABEL_LOCATION = 1
SET LABEL_STYLE = 'ATOM_INDEX'
SET LABEL_FONT = 12

# Read and orient the PDB structure
READ_PDB PDB_FORMAT = 'XYZ', FILE 'lattice.dat'
# READ_PDB FILE 'lattice.atm'

ROTATE_MOL_AXIS AXIS = 1 0 0, DEGREES = -90
ROTATE_MOL_AXIS AXIS = 0 1 0, DEGREES = -15
ROTATE_MOL_AXIS AXIS = 1 0 0, DEGREES =  15

SELECT_ATOMS SELECTION_STATUS='INITIALIZE', FOR = 'BONDING'
SET BOND_WIDTH_FACTOR = 0.10, BOND_COLOR = 0.00, BOND_LINE = -3
SET COVALENT_BOND = 0.9 1.1
MAKE_BONDS BOND_TYPE = 'COVALENT', ADD_BONDS = 'OFF'

SET RADIUS_FACTOR = 0.08, ATOM_COLOR = 0.8, ATOM_LINE = 2
SELECT_ATOMS SELECTION_STATUS='INITIALIZE', FOR = 'DISPLAYING BONDING LABELLING'

SET BOND_WIDTH_FACTOR = 0.320, BOND_COLOR = 0.9, BOND_LINE = 2
MAKE_BONDS BOND_TYPE = 'SEQUENTIAL', ADD_BONDS = 'ON'

SET POSITION = 14 1
WORLD
BALL_STICK
LABEL_ATOMS

POSTSCRIPT POSTSCRIPT_TEXT = ;
           '/font11 {/Helvetica-Bold findfont 0.125 scalefont setfont} def'

RESET_CAPTIONS
CAPTION CAPTION_POSITION = 5, CAPTION_FONT = 11, CAPTION_TEXT = '(a)'

$\epsffile{../examples/lattice.ps}$

ASGL fonts, symbols, line types and standard plot positions

$\epsffile{../examples/types.ps}$

$\epsffile{../examples/pos0.ps}$

$\epsffile{../examples/pos1.ps}$

$\epsffile{../examples/pos2.ps}$

$\epsffile{../examples/pos3.ps}$

Next: TOP language Up: User's Guide Previous: Using ASGL Contents Index

Ben Webb 2003-10-09