trunk/freesc/track.scm

;  track
;  track.scm Lat Lon scale rot  Altitude
;             1   2   3     4      5

Area( 5 %1 %2 10 )
PerspectiveCall( :L1 )
Jump( :END )

:L1
Perspective
mif ( %5 )
        RefPoint( 2 :L3 %3 %1 %2 E= %5 )
melse
        RefPoint( 7 :L3 %3 %1 %2 )
mifend
mif( %4 )
        RotatedCall( :L2 0 0 %4 )
        Return
mifend

:L2
;; wall
VecPoints( p 0
        120 0 0         0 90    ; 0
        110 0 -40       0 120
        80 0 -70        0 150
        40 0 -80        0 180
        -40 0 -80       0 180
        -80 0 -70       0 210
        -110 0 -40      0 240
        -120 0 0        0 270
        -110 0 40       0 300
        -80 0 70        0 330
        -40 0 80        0 0
        40 0 80         0 0
        80 0 70         0 30
        110 0 40        0 60

        120 13 0        0 90    ; 14
        110 13 -40      0 120
        80 13 -70       0 150
        40 13 -80       0 180
        -40 13 -80      0 180
        -80 13 -70      0 210
        -110 13 -40     0 240
        -120 13 0       0 270
        -110 13 40      0 300
        -80 13 70       0 330
        -40 13 80       0 0
        40 13 80        0 0
        80 13 70        0 30
        110 13 40       0 60

        120 13 0        0 270   ; 28
        110 13 -40      0 300
        80 13 -70       0 330
        40 13 -80       0 0
        -40 13 -80      0 0
        -80 13 -70      0 30
        -110 13 -40     0 60
        -120 13 0       0 90
        -110 13 40      0 120
        -80 13 70       0 150
        -40 13 80       0 180
        40 13 80        0 180
        80 13 70        0 210
        110 13 40       0 240

        100 0 0         0 270   ; 42
        92 0 -30        0 300
        70 0 -52        0 330
        40 0 -60        0 0
        -40 0 -60       0 0
        -70 0 -52       0 30
        -92 0 -30       0 60
        -100 0 0        0 90
        -92 0 30        0 120
        -70 0 52        0 150
        -40 0 60        0 180
        40 0 60         0 180
        70 0 52         0 210
        92 0 30         0 240
        
        80 0 0          0 0 ; 56
        75 0 -20        0 0
        60 0 -35        0 0
        40 0 -40        0 0
        -40 0 -40       0 0
        -60 0 -35       0 0
        -75 0 -20       0 0
        -80 0 0         0 0
        -75 0 20        0 0
        -60 0 35        0 0
        -40 0 40        0 0
        40 0 40         0 0
        60 0 35         0 0
        75 0 20         0 0
        80 0 0          0 0
)

SurfaceColor( 0A F0 )
Poly( m 0 32767 0 0
        42 43 44 45 46 47 48 49 50 51 52 53 54 55 )

SurfaceColor( 06 F0 )
Poly( m 0 32767 0 0
        56 57 58 59 60 61 62 63 64 65 66 67 68 69 )

LineColor( 04 F0 )
MoveToPt( 56 )
DrawToPt( 57 58 59 60 61 62 63 64 65 66 67 68 69 56 )

ShadedColor( 04 F0 )
ShadedPoly( au 28 29 43 42 )
ShadedPoly( au 29 30 44 43 )
ShadedPoly( au 30 31 45 44 )
ShadedPoly( au 31 32 46 45 )
ShadedPoly( au 32 33 47 46 )
ShadedPoly( au 33 34 48 47 )
ShadedPoly( au 34 35 49 48 )
ShadedPoly( au 35 36 50 49 )
ShadedPoly( au 36 37 51 50 )
ShadedPoly( au 37 38 52 51 )
ShadedPoly( au 38 39 53 52 )
ShadedPoly( au 39 40 54 53 )
ShadedPoly( au 40 41 55 54 )
ShadedPoly( au 41 28 42 55 )

ShadedPoly( a 0 1   15 14 )
ShadedPoly( a 1 2   16 15 )
ShadedPoly( a 2 3   17 16 )
ShadedPoly( a 3 4   18 17 )
ShadedPoly( a 4 5   19 18 )
ShadedPoly( a 5 6   20 19 )
ShadedPoly( a 6 7   21 20 )
ShadedPoly( a 7 8   22 21 )
ShadedPoly( a 8 9   23 22 )
ShadedPoly( a 9 10  24 23 )
ShadedPoly( a 10 11 25 24 )
ShadedPoly( a 11 12 26 25 )
ShadedPoly( a 12 13 27 26 )
ShadedPoly( a 13 0  14 27 )

:L3
Return

:END
EndA