trunk/freesc/porttow.scm

;
;       Nagoya Port Tower
;
Area( 5 %1 %2 10 )
    PerspectiveCall( :T1 )
;    ShadowCall( :Shadow )
    Jump( : )

:T1
    Perspective
:Shadow
    RefPoint( 7  :No_object 1  %1 %2 )
    RotatedCall( :T11 0 0 280 )
:No_object
    Return

:T11
    Points( 0
        ; x[X
        -23     0       -5      ;0
         23     0       -5
         23     0        5
        -23     0        5
        -23     22      -5
         23     22      -5
         23     22       5
        -23     22       5

        ; ĺ
         1      0       -8      ;8
         9      0       -8
         9      0        8
         1      0        8
         1      63      -8
         9      63      -8
         9      63       8
         1      63       8
        
        ; QwÚ
        -23     30      -4      ;16
         23     30      -4
         23     30       4
        -23     30       4
        -23     35      -4
         23     35      -4
         23     35       4
        -23     35       4
        
        ; Ĺăw
        -23     53      -5      ;24
         23     53      -5
         23     53       5
        -23     53       5
        -23     58      -5
         23     58      -5
         23     58       5
        -23     58       5
        )

        SurfaceColor( 04 F0 )

        ;; x[X
        Poly( a 0 1 5 4 )
        Poly( a 1 2 6 5 )
        Poly( a 2 3 7 6 )
        Poly( a 3 0 4 7 )
        Poly( a 4 5 6 7 )

        ;; ĺ
        Poly( a  8  9 13 12 )
        Poly( a  9 10 14 13 )
        Poly( a 10 11 15 14 )
        Poly( ai 11  8 12 15 )
        Poly( a 12 13 14 15 )

        ;; QwÚ
        Poly( a 16 17 21 20 ) 
        Poly( a 17 18 22 21 )
        Poly( a 18 19 23 22 )
        Poly( a 19 16 20 23 )
        Poly( a 20 21 22 23 )

        ;; Ĺăw
        Poly( a 24 25 29 28 )
        Poly( a 25 26 30 29 )
        Poly( a 26 27 31 30 )
        Poly( a 27 24 28 31 )
        Poly( a 28 29 30 31 )

        ;;; x[X~
        Points( 0
                -23 0  -5       ; 0
                -21 0 -11
                -18 0 -14
                -12 0 -16 
                 -6 0 -14
                 -3 0 -11
                 -1 0  -5

                -23 20  -5      ; 7
                -21 20 -11
                -18 20 -14
                -12 20 -16 
                 -6 20 -14
                 -3 20 -11
                 -1 20  -5 )
        
        Poly(  a 0 1  8  7 )
        Poly(  a 1 2  9  8 )
        Poly(  a 2 3 10  9 )
        Poly(  a 3 4 11 10 )
        Poly(  a 4 5 12 11 )
        Poly(  a 5 6 13 12 )
        Poly( a 7 8 9 10 11 12 13 )

        ;;; â
        TransformCall( :poll -19 0 0  0 0 0  0 0 0 )
        TransformCall( :poll -12 0 0  0 0 0  0 0 0 )
        TransformCall( :poll  -5 0 0  0 0 0  0 0 0 )
        TransformCall( :poll  13 0 0  0 0 0  0 0 0 )
        TransformCall( :poll  20 0 0  0 0 0  0 0 0 )
        Return

:poll
        ; â
        Points( 0
        -1      22      -4
        1       22      -4
        1       22       4
        -1      22       4
        -1      53      -2
        1       53      -2
        1       53       2
        -1      53       2
        )

        Poly( a 0 1 5 4 )
        Poly( a 1 2 6 5 )
        Poly( a 2 3 7 6 )
        Poly( a 3 0 4 7 )
        Return
EndA