C!T ROM 2/ctrom_ii_b.zip/ctrom_ii_b/FLIGHTSI/ATP_SEE/S4_BRIDG/CREATOR.DAT

Text File | 1993-04-16 | 5KB | 381 lines

'Name:  C:\SEE4\CREATOR.DAT
'Desc: SEE Creator Bridges
'----------------------------------------------------------------------
INPUT, BRIDGES.SC1 , OUTPUT, BRIDGES$.SC1

'old fashioned bridge with arc

DATA,OFFSET,19300,19200,MT
DATA, LINE    'inner arc
 0,-50
10,-40
18,-30
22,-20
24,-10
25, -1
25,  0
25,  1
24, 10
22, 20
18, 30
10, 40
 0, 50
DATA,SKIP
 0,-55                  'outer arc
19,-40
25,-30
29,-20
31,-10
32, -2
32,  0
32,  2
31, 10
29, 20
25, 30
19, 40
 0, 55
DATA,SKIP               '"grid"
 0,-40
19,-40
DATA,SKIP
 0,-30
25,-30
DATA,SKIP
 0,-20
29,-20
DATA,SKIP
 0,-10
31,-10
DATA,SKIP
 0, 0
32, 0

DATA,SKIP
 0,40
19,40
DATA,SKIP
 0,30
25,30
DATA,SKIP
 0,20
29,20
DATA,SKIP
 0,10
31,10
DATA,SKIP
18,-30
19,-40
DATA,SKIP
18,30
19,40
DATA,SKIP
22,-20
25,-30
DATA,SKIP
22, 20
25, 30
DATA,SKIP
24,-10
29,-20
DATA,SKIP
24,10
29,20
DATA,SKIP
31,-10
25,0
31, 10
DATA,END
EXACT,5,LAST
MSG, "BOGENBRUECKE 110m Seitenteil"
MAkESC0,ABR-1
EXACT,5,LAST
DELETE
DATA,OFFSET,19300,16200,MT
DATA,LINE
0,-8
0,8
DATA,END
EXACT,5,LAST
MSG, "BOGENBRUECKE 110m Verstrebung "
MAKESC0,ABR-1_1
EXACT,5,LAST
DELETE
DATA,OFFSET,19300,16200,MT
DATA,POLY
-55,-8
 55,-8
 55, 8
-55,8
DATA,END
EXACT,2,LAST
MSG, "Brueckenboden fuer 110m Bruecke"
MAKESC0,ABR-1_2
EXACT,2,LAST
DELETE

' old fashioned bridge

DATA,OFFSET,19300,19200,MT
DATA,LINE         'side
 0,-55
10,-50
10,50
 0,55
DATA,SKIP
 0,-50
10,-50
 0,-40
10,-40
 0,-30
10,-30
 0,-20
10,-20
 0,-10
10,-10
 0,  0
10,  0
DATA,SKIP
 0,  0
10, 10
 0, 10
10, 20
 0, 20
10, 30
 0, 30
10, 40
 0, 40
10, 50
 0, 50
DATA,END
EXACT,5,LAST
MSG,"110m KASTENBRUECKE, Seitenteil"
MAKESC0,BBR-1
EXACT,5,LAST
DELETE
DATA,OFFSET,19300,16200,MT
DATA,LINE           'roof
-5,-50
 5,-40
-5,-30
 5,-20
-5,-10
 5,  0
-5, 10
 5, 20
-5, 30
 5, 40
-5, 50
DATA,END
EXACT,5,LAST
MSG,"110m KASTENBRUECKE, Verstrebung"
MAKESC0,BBR-1_1
EXACT,5,LAST
DELETE
DATA,OFFSET,19300,19200,MT
DATA,POLY
-55,-5
-55, 5
 55, 5
 55,-5
DATA,END
EXACT,2,LAST
MSG,"110m KASTENBRUECKE, Boden"
MAKESC0,BBR-1_2

DATA,OFFSET,19300,19200,MT
DATA,POLY
-55,-8
-55, 8
 55, 8
 55,-8
DATA,END
EXACT,2,LAST
MSG,"110m KASTENBRUECKE, Boden (breit)"
MAKESC0,BBR-1_3
EXACT,2,LAST
DELETE
'200 to 210m Valleybridge
DATA,OFFSET,19300,16200,MT       'concrete arch
DATA,POLY
    0,-70
   10,-69
   20,-67
   30,-63
   40,-58
   50,-49
   60,-38
   65,-25
   69,-10
   70,  0
   69, 10
   65, 25
   60, 38
   50, 49
   40, 58
   30, 63
   20, 67
   10, 69
    0, 70
    0, 60
   10, 59
   20, 56
   30, 53
   40, 44
   50, 33
   55, 23
   59, 10
   60,  0
   59,-10
   55,-23
   50,-33
   40,-44
   30,-53
   20,-56
   10,-59
    0,-60
DATA,END
EXACT,2,LAST
MSG,"160m Hochbruecke, gemischte Bauart, Stuetzbogen"
MAKESC0,MBR-1
EXACT,2,LAST
DELETE
DATA,OFFSET,19300,19200,MT      'cast iron horizontal construction
DATA,LINE
     0, -90
     0,  90
    10, 100
    10,-100
     0, -90
    10, -80
     0, -70
    10, -60
     0, -50
    10, -40
     0, -30
    10, -20
     0, -10
    10,   0
     0,  10
    10,  20
     0,  30
    10,  40
     0,  50
    10,  60
     0,  70
    10,  80
     0,  90
    10,  90
DATA,SKIP
     0,  80
    10,  80
DATA,SKIP
     0,  70
    10,  70

DATA,SKIP
     0,  60
    10,  60
DATA,SKIP
     0,  50
    10,  50
DATA,SKIP
     0,  40
    10,  40
DATA,SKIP
     0,  30
    10,  30
DATA,SKIP
     0,  20
    10,  20
DATA,SKIP
     0,  10
    10,  10
DATA,SKIP
     0,   0
    10,   0
DATA,SKIP
     0, -10
    10, -10
DATA,SKIP
     0, -20
    10, -20
DATA,SKIP
     0, -30
    10, -30
DATA,SKIP
     0, -40
    10, -40
DATA,SKIP
     0, -50
    10, -50
DATA,SKIP
     0, -60
    10, -60
DATA,SKIP
     0, -70
    10, -70
DATA,SKIP
     0, -80
    10, -80
DATA,SKIP
     0, -90
    10, -90
DATA,END
EXACT,5,last
MSG,"200m Hochbruecke, Fachwerktraeger"
MAKESC0,HBR-1
EXACT,5,LAST
DELETE
DATA,OFFSET,19300,16200,MT          'cast iron vertical construction
DATA,LINE
  10,-69
  70,-69
  70,-63
  30,-63
  40,-69
  50,-63
  60,-69
  70,-63
DATA,SKIP
  70,-69
  60,-63
  50,-69
  40,-63
  30,-69
DATA,SKIP
  30, 69
  40, 63
  50, 69
  60, 63
  70, 60
DATA,SKIP
  70, 63
  60, 69
  50, 63
  40, 69
  30, 63
  70, 63
  70, 69
  10, 69
DATA,END
EXACT,5,LAST
MSG,"200m Hochbruecke, Pfeiler"
MAKESC0,HBR-1_1
EXACT,5,LAST
DELETE
DATA,OFFSET,19300,16200,MT        'roof (road)
DATA,POLY
   -110,-8
   -110, 8
    110, 8
    110,-8
DATA,END
EXACT,2,LAST
MSG,"200m Hochbruecke, Brueckenboden"
MAKESC0,HBR-1_2
EXACT,2,LAST
DELETE

MACRO,1KM_BACK
SAVE