trunk/freesc/fuji.scm

;
; fuji (south pole observation ship)
;
Area( 5 %1 %2 25 )
        PerspectiveCall( :T1 )  
        ShadowCall( :Shadow )
        Jump( : )

:T1
        Perspective
:Shadow
        RefPoint( 7 :T11 1 %1 %2 )
        RotatedCall( :T12 0 0 10 )
:T11
        Return

:T12
        Points( 0 
                ; base
                0 0 -45         ; 0
                -5 0 -40
                -5 0 35
                0 0 45
                5 0 35
                5 0 -40

                ; edge
                0 10 -50                ;6
                -8 10 -42
                -8 10 38
                0 10 50
                8 10 38
                8 10 -42

                ; tower
                -4 10 -30       ; 12
                -4 10 30
                4 10 30
                4 10 -30
                -4 15 -27       ; 16
                -4 15 27
                4 15 27
                4 15 -27

                ; entotu
                -3 15 -6        ; 20
                -3 15 6
                3 15 6
                3 15 -6
                -2 19 -5        ; 24
                -2 19 5
                2 19 5
                2 19 -5
        )
        
        SurfaceColor( 05 F0 )
        Poly( a 0 1 7 6 )
        Poly( a 1 2 8 7 )
        Poly( a 2 3 9 8 )
        Poly( a 3 4 10 9 )
        Poly( a 4 5 11 10 )
        Poly( a 5 0 6 11 )
        
        SurfaceColor( 03 F0 )
        Poly( a 6 7 8 9 10 11 )

        Poly( a 12 13 17 16 )
        Poly( a 13 14 18 17 )
        Poly( a 14 15 19 18 )
        Poly( a 15 12 16 19 )
        Poly( a 16 17 18 19 )

        SurfaceColor( 05 F0 )
        Poly( a 20 21 25 24 )
        Poly( a 21 22 26 25 )
        Poly( a 22 23 27 26 )
        Poly( a 23 20 24 27 )
        SurfaceColor( 00 F0 )
        Poly( a 24 25 26 27 )

        Return
EndA