trunk/freesc/mitukosi.scm

; ŽO‰z‰h–{“X
;  mitukosi.scm Lat Lon Rot Altitude
;                1   2   3     4

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

:Sub
        Perspective
:Shadow
        mif( %4 )
                Refpoint( 2 :No_object 1 %1 %2 E= %4 V1= 8000 )
        melse
                Refpoint( 7 :No_object 1 %1 %2 V1= 8000 )
        mifend

        mif( %3 )
                RotatedCall( :Object 0 0 %3 )
        melse
                Call( :Object )
        mifend
:No_object
        Return

:Object

        Points( 0
                -40  0 -30      ; 0
                -20  0 -50
                 20  0 -50
                 40  0 -30
                 40  0 46
                -40  0 46

                -40 40 -30      ; 6
                -20 40 -50
                 20 40 -50
                 40 40 -30
                 40 40 46
                -40 40 46

                -20 40 -40      ; 12
                 -6 40 -40
                 -6 40 -6
                -20 40 -6

                -20 55 -40      ; 16
                 -6 55 -40
                 -6 55 -6
                -20 55 -6

                -20 70 -40      ; 20
                 -6 70 -40
                 -6 70 -6
                -20 70 -6
                )

;       LoadBitmap( 0 6 ef 0 0 0 nagside.bmp )
        LFNBitmapDayNight("sky_w_ltgray1.bmp" "sky_w_ltgray1_lm.bmp"  )
        ShadedTexPoly( a
                0 0 0
                1 255 0
                7 255 255
                6 0 255
                )
;       TexPolyShading( p 0 225 )

        ShadedTexPoly( a
                1 0 0
                2 255 0
                8 255 255
                7 0 255
                )
;       TexPolyShading( p 0 180 )

        ShadedTexPoly( a
                2 0 0
                3 255 0
                9 255 255
                8 0 255
                )
;       TexPolyShading( p 0 135 )

        ShadedTexPoly( a
                3 0 0
                4 512 0
                10 512 255
                9 0 255
                )
;       TexPolyShading( p 0 90 )

        ShadedTexPoly( a
                4 0 0
                5 512 0
                11 512 255
                10 0 255
                )
;       TexPolyShading( p 0 0 )

        ShadedTexPoly( a
                5 0 0
                0 512 0
                6 512 255
                11 0 255
                )
;       TexPolyShading( p 0 270 )

        SurfaceColor( 03 F0 )
        Poly( a 6 7 8 9 10 11 )

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

        IfVarRange( :in_day 28C 2 4 )
        LoadBitmap( 0 6 ef 0 0 0 nagtex2n.bmp )
        Jump( :start_draw )
:in_day
        Bitmap( nagtex2.bmp 0 0 0 0 )

:start_draw
        ShadedTexPoly( a
                16 192 135
                17 250 135
                21 250 195
                20 192 195 )
        ShadedTexPoly( ai
                18 192 135
                19 250 135
                23 250 195
                22 192 195 )
        ShadedTexPoly( ai
                17 0 95
                18 208 95
                22 208 131
                21 0 131 )
        ShadedTexPoly( a
                19 0 95
                16 208 95
                20 208 131
                23 0 131 )

        SurfaceColor( 03 F0 )
        Poly( a 20 21 22 23 )

        Return

EndA