;macrodesc helipad2k2_1 (EOD)
;defaultscale  1
;textures heliprt1x.bmp,
;designshape -10,-10,-10,10,10,10,10,-10
;--------------------------------------------
; Filename: hpadmark_b2k2.api
; Project:  
; Designer: Danny Levin
; Date:     02-07-30
; Update:   02-08-03
; Credits:  Danny Levin dannyl@adep.co.za
; Macro generated using EOD 2.0.59
; Any commercial distribution or use of this file is prohibited
;--------------------------------------------
; %1 = Latitude
; %2 = Longtitude
; %4 = Not used [RefpointScale=1, ObjectScale=0.03125]
; %5 = Rotation
; %6 = Not Used
; %7 = Not Used
; %8 = Not Used
; %9 = Not Used
; %10 = Visibility range
; %11 = Altitude
; %12 = Detail level
; 906 = Radial visibility range (*2)
; %15 = User defined


Area( B %1 %2 22 )
  mif( %12  )
    IfVarRange(  :  0346  %12  5  )
  mifend
  PerspectiveCall( :Pos )
  ShadowCall( :Pos )
  Jump( : )

 :Pos
  mif( %11  )
    RefPoint(  3  :End     %1 %2 E= %11 V1= %10 V2= 906 )
  melse
    RefPoint(  7  :End  1  %1 %2 V1= %10 V2= 906 ) 
  mifend
  SetScaleX( :End 0 0 11 ) ; Scale=0.03125
  mif( %5 )
    RotatedCall( :Begin 0 0 %5 )
  melse
    Call( :Begin )
  mifend
 :End
  Return
 :Begin

  Call( :Lamps )
  TransformCall( :part000    0    1    0 0 0 0 0 0 0 ) ;Base  1
Return
:Lamps
;Lamp: Object 2
  IfVarAnd( :EndofLamp1 28c 6 )
  RGBLcolor( EF  0 0 255 ) 
  Dot( -297 4 293 )
:EndofLamp1
;Lamp: Object 3
  IfVarAnd( :EndofLamp2 28c 6 )
  RGBLcolor( EF  0 0 255 ) 
  Dot( 293 4 293 )
:EndofLamp2
;Lamp: Object 4
  IfVarAnd( :EndofLamp3 28c 6 )
  RGBLcolor( EF  0 0 255 ) 
  Dot( 301 4 -297 )
:EndofLamp3
;Lamp: Object 5
  IfVarAnd( :EndofLamp4 28c 6 )
  RGBLcolor( EF  0 0 255 ) 
  Dot( -289 4 -297 )
:EndofLamp4
;Lamp: Object 6
  IfVarAnd( :EndofLamp5 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 0 2 0 )
:EndofLamp5
;Lamp: Object 7
  IfVarAnd( :EndofLamp6 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 35 2 0 )
:EndofLamp6
;Lamp: Object 8
  IfVarAnd( :EndofLamp7 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 65 2 0 )
:EndofLamp7
;Lamp: Object 9
  IfVarAnd( :EndofLamp8 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 100 2 0 )
:EndofLamp8
;Lamp: Object 10
  IfVarAnd( :EndofLamp9 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -35 2 0 )
:EndofLamp9
;Lamp: Object 11
  IfVarAnd( :EndofLamp10 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -65 2 0 )
:EndofLamp10
;Lamp: Object 12
  IfVarAnd( :EndofLamp11 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -100 2 0 )
:EndofLamp11
;Lamp: Object 13
  IfVarAnd( :EndofLamp12 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -100 2 25 )
:EndofLamp12
;Lamp: Object 14
  IfVarAnd( :EndofLamp13 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -100 2 50 )
:EndofLamp13
;Lamp: Object 15
  IfVarAnd( :EndofLamp14 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -100 2 75 )
:EndofLamp14
;Lamp: Object 16
  IfVarAnd( :EndofLamp15 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -100 2 -75 )
:EndofLamp15
;Lamp: Object 17
  IfVarAnd( :EndofLamp16 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -100 2 -50 )
:EndofLamp16
;Lamp: Object 18
  IfVarAnd( :EndofLamp17 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( -100 2 -25 )
:EndofLamp17
;Lamp: Object 19
  IfVarAnd( :EndofLamp18 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 100 2 -75 )
:EndofLamp18
;Lamp: Object 20
  IfVarAnd( :EndofLamp19 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 100 2 -50 )
:EndofLamp19
;Lamp: Object 21
  IfVarAnd( :EndofLamp20 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 100 2 -25 )
:EndofLamp20
;Lamp: Object 22
  IfVarAnd( :EndofLamp21 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 100 2 25 )
:EndofLamp21
;Lamp: Object 23
  IfVarAnd( :EndofLamp22 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 100 2 50 )
:EndofLamp22
;Lamp: Object 24
  IfVarAnd( :EndofLamp23 28c 6 )
  RGBLcolor( EF  255 238 255 ) 
  Dot( 100 2 75 )
:EndofLamp23
 Return

;-------
:part000
; base - Base  1
Points( 0
  -320   0 -320 ; 0
  320   0 -320 ; 1
  320   0 320 ; 2
  -320   0 320 ; 3
)
LoadBitmap( 0 6 EF 0 0 0 heliprt1x.bmp )
TexPoly(  a   0   0   0   3   0 255   2 254 255   1 254   0 ) ;Top
Return
























EndA


