trunk/freesc/build-l.scm

; 通常のビル with light (Normal building macro)
;  build.scm Lat Lon Rot Height Width1 Width2 Type Altitude wallflag
;             1   2   3    4      5      6      7      8        9

; 注意: %5 と %6 は偶数値でなければならない

;       Type の説明
;               value from each group.
;                 00    beige with vertical stripes
;                 01    white with vertical stripes
;                 02    dark gray with vertical stripes
;                 03    gray with vertical stripes
;                 04    white with dark vertical stripes
;                 05    white with horizontal stripes
;                 06    beige with horizontal stripes
;                 07    light gray with vertical stripes
;
;               bits 3 と 4 はビルの形を定義する
;                 00    通常のビル
;                 08    屋根つき，屋根は北を向いているh)
;                 10    斜めの壁．ピラミッド状．
;                 18    ８角ビル -> additional wallflags needed.
;
;               8000    あらかじめ定義された SIDE#.R8 ビットマップの代わりに
;                       ユーザ定義のビットマップを使用する．->bitmap()
;                       Bitmap() コマンドを Building() コマンドの直前で使う．
;                       Note, ビットマップは特別のデザインを持っていなければ
;                       ならない．

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

:Sub
        Perspective
:Shadow
        mif( %8 )
                Refpoint( 2 :No_object 1 %1 %2 E= %8 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
        Building( 0 0 0 %4 %5 %6 %7 %9 )

        IfVarRange( :no_light 28C 2 4 )
        IfVarAnd( :no_light 282 3333 )

        LineColor( 0F F0 )
        ;;; DotPt ではなく Dot を使用する
        ;;; FS2K では、DotPt では光らない
        Dot( [%5 / 2] [%4 * 4 + 1] [%6 / 2] )
        Dot( [%5 / 2] [%4 * 4 + 1] [0 - %6 / 2] )
        Dot( [0 - %5 / 2] [%4 * 4 + 1] [%6 / 2] )
        Dot( [0 - %5 / 2] [%4 * 4 + 1] [0 - %6 / 2] )

:no_light
        Return

EndA