trunk/freesc/portbrg.scm

; 名古屋港ポートブリッジ
;  portbrg.scm Lat Lon Rot
;              1   2   3

Area( 5 %1 %2 10 )
        PerspectiveCall( :Sub )
        ShadowCall( :Shadow )
        Jump( : )

:Sub
        Perspective
:Shadow
        Refpoint( 7 :No_object 1 %1 %2 V1= 8000 )
        RotatedCall( :Object 0 0 %3 )
:No_object
        Return

:Object
        ;; 橋
        Points( 0
                -90 0 -5
                -80 2 -5
                 80 2 -5
                 90 0 -5
                 90 0  5
                 80 2  5
                -80 2  5
                -90 0  5
        )
        SurfaceColor( 04 F0 )
        Poly( a 0 1 2 3 )
        Poly( a 4 5 6 7 )
        Poly( a 0 1 6 7 )
        Poly( a 1 2 5 6 )
        Poly( a 2 3 4 5 )

        ;; アーチ
        TransformCall( :arch -37 -5 0  0 0  0 0   25 0 )
        TransformCall( :arch   0  0 0  0 0  0 0  -25 0 )
        TransformCall( :arch  37 -5 0  0 0  0 0   25 0 )
        Return

:arch
        Points( 0
                -20  0 -1       ; 0
                -17 10 -1
                -10 17 -1
                  0 20 -1
                 10 17 -1
                 17 10 -1
                 20  0 -1

                -19  0 -1       ; 7
                -16 10 -1
                 -9 16 -1
                  0 19 -1
                  9 16 -1
                 16 10 -1
                 19  0 -1

                -20  0 1        ; 14
                -17 10 1
                -10 17 1
                  0 20 1
                 10 17 1
                 17 10 1
                 20  0 1

                -19  0 1        ; 21
                -16 10 1
                 -9 16 1
                  0 19 1
                  9 16 1
                 16 10 1
                 19  0 1

        )
        SurfaceColor( 07 F0 )
        Poly( a 0 1 15 14 )
        Poly( a 1 2 16 15 )
        Poly( a 2 3 17 16 )
        Poly( a 3 4 18 17 )
        Poly( a 4 5 19 18 )
        Poly( a 5 6 20 19 )
        ConcavePoly
        Poly( a 0 1 2 3 4 5 6 13 12 11 10 9 8 7 )
        ConcavePoly
        Poly( a 14 15 16 17 18 19 20 27 26 25 24 23 22 21 )
        Return
EndA