trunk/freesc/mybuild.scm

//
// mybuild.scm
//     FS2K building command for FreeSC
//

defun CommonBuilding
        local($type)

        $type = %1
        shift(1)

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

        :Sub
                Perspective
        :Shadow
                if( %4 )
                        Refpoint( 2 :No_object 1 %1 %2 E= %4 V1= 8000 )
                else
                        Refpoint( 7 :No_object 1 %1 %2 V1= 8000 )
                endif

                if( %3 )
                        RotatedCall( :Object 0 0 %3 )
                else
                        Call( :Object )
                endif
        :No_object
                Return

        :Object
                shift(4)
                AdvBldg($type %a)
                Return
        EndA
endfun


// NormalBuilding : FS2K square building
// usage
//  %1 : Lat
//  %2 : Lon
//  %3 : Rotation
//  %4 : Alt
//    following arguments are same as AdvBldg

defun NormalBuilding
        CommonBuilding(NORMAL %a)
endfun

defun PolyBuilding
        CommonBuilding(POLY %a)
endfun

//
// Commonly used building
//
// %1 : Lat
// %2 : Lon
// %3 : Rotateion
// %4 : Alt
// %5 : Height (m)
// %6 : x width
// %7 : y width

// NOT YET!!!
defun WhiteVertBuilding
        Local( $midh )
        $midh = %5 - 8
        CommonBuilding(NORMAL %1 %2 %3 %4 %6 %7 // lat lon rot alt x y
                LEVEL1 0x00 4 0x100 0x80
                LEVEL2 0x00 $midh 0x100 ($midh / 4 * 0x100) (%6)
                LEVEL3 0x00 4 0x100 0x80
                ROOF   0x00 0x100 0x100
        )
endfun