+PROG SOFIMSHC urs:1
HEAD Most
UNIT 3
SYST INIT
SYST 3D GDIV 10000 GDIR POSZ
CTRL MESH 2 ; CTRL topo gaxp +3; CTRL deln 0
ECHO FULL EXTR

GAX  'OS' TYPC AXIS
GAXA S   0.0 X  0.0  0.0 SX   1.0 0
GAXA L   100 R 0

$variable po sekundarni osi X
GAXV S          V       TYPE    ID=OS.A NAME=Ha
20              -25     poly
50              -25     poly
65              -10     poly
80              -10     poly

$definiranje točk po osi mostu
GAXP S          IDP     TYPE    SPT     NCS ID='OS' IDS='*' ALFZ=45
20              '0'      'A'     101     -
40              '1'      -      102     -
60              '2'      -      103     -
80              '3'      'E'    104     -

GAXS 'OS' 'A' Y  Ha      TITL 'LEFT 1'       SPT 100
GAXS 'OS' 'B' Y  -5      TITL 'LEFT 2'       SPT 200

GAXS 'OS' 'C' Y  5       TITL 'RIGHT 2'      SPT 300
GAXS 'OS' 'D' Y  10      TITL 'RIGHT 1'      SPT 400

$$def str. linij za ploščo
SLN 200 201 204 REF 'OS.A'
SLN 300 301 304 REF 'OS.B'
SLN 400 401 404 REF 'OS.C'
SLN 500 501 504 REF 'OS.D'

SLN (801 804 1) (201 1) (501 1)
END