; Fichier include SCASM pour POLY3D TYPE = &VOR2 ; Include SCASM FILE for POLY3D TYPE = &VOR2 ; auteur / author : Serge Baye (CIS 101334,1366) ; radar ; fixed colors ; standard size / scale 0.50: length : 25 m ; width : 25 m ; height : 5 m Area( b %1 %2 %3 ) mif( %12 ) IfVarRange( : 0346 %12 4 ) mifend PerspectiveCall( :D0 ) ShadowCall( :D1 ) Jump( : ) :D0 Perspective :D1 mif( %11 ) RefPoint( 2 :D2 0.15 %1 %2 v1= %10 E= %11 %13 %14 ) melse RefPoint( 7 :D2 0.15 %1 %2 v1= %10 %13 %14 ) mifend RotatedCall( :D3 0 0 %5 ) :D2 Return :D3 Call( :LB03 ) Call( :LB04 ) Call( :LB05 ) Return :LB01 Call( :LB05 ) Call( :LB04 ) Call( :LB03 ) Return :LB03 Call( :LB06 ) RotatedCall( :LB06 0 0 60 ) RotatedCall( :LB06 0 0 120 ) RotatedCall( :LB06 0 0 180 ) RotatedCall( :LB06 0 0 240 ) RotatedCall( :LB06 0 0 300 ) Return :LB04 Call( :LB07 ) RotatedCall( :LB07 0 0 60 ) RotatedCall( :LB07 0 0 120 ) RotatedCall( :LB07 0 0 180 ) RotatedCall( :LB07 0 0 240 ) RotatedCall( :LB07 0 0 300 ) Return :LB06 Call( :LB08 ) Call( :LB09 ) RotatedCall( :LB09 0 0 7 ) RotatedCall( :LB09 0 0 15 ) RotatedCall( :LB09 0 0 22 ) RotatedCall( :LB09 0 0 30 ) RotatedCall( :LB09 0 0 37 ) RotatedCall( :LB09 0 0 45 ) RotatedCall( :LB09 0 0 52 ) Return :LB08 Points( 0 0 20 0 ;0 0 40 0 ;1 -11 40 19 ;2 0 40 21 ;3 11 40 19 ;4 -21 40 35 ;5 0 40 41 ;6 21 40 35 ;7 -31 40 53 ;8 0 40 61 ;9 31 40 53 ;10 -31 40 73 ;11 31 40 73 ;12 48 40 63 ;13 -31 40 93 ;14 31 40 93 ;15 65 40 73 ;16 -34 40 116 ;17 34 40 116 ;18 86 40 86 ;19 0 53 0 ;20 -31 40 53 ;21 0 40 61 ;22 -31 40 93 ;23 31 40 93 ;24 0 0 0 ;25 -31 0 53 ;26 0 0 61 ;27 -31 0 93 ;28 31 0 93 ;29 0 20 0 ;30 -31 20 53 ;31 0 20 61 ;32 -31 20 93 ;33 31 20 93 ;34 ) SurfaceColor( 05 68 ) ; plateforme LineColor( 05 f0 ) MoveToPt( 1 ) DrawToPt( 2 ) DrawToPt( 8 ) DrawToPt( 17 ) DrawToPt( 18 ) DrawToPt( 19 ) DrawToPt( 10 ) DrawToPt( 1 ) DrawToPt( 9 ) MoveToPt( 2 ) DrawToPt( 3 ) DrawToPt( 4 ) MoveToPt( 5 ) DrawToPt( 6 ) DrawToPt( 7 ) MoveToPt( 8 ) DrawToPt( 9 ) DrawToPt( 10 ) MoveToPt( 11 ) DrawToPt( 12 ) DrawToPt( 13 ) MoveToPt( 14 ) DrawToPt( 15 ) DrawToPt( 16 ) MoveToPt( 20 ) DrawToPt( 30 ) MoveToPt( 21 ) DrawToPt( 31 ) MoveToPt( 22 ) DrawToPt( 32 ) MoveToPt( 23 ) DrawToPt( 33 ) MoveToPt( 24 ) DrawToPt( 34 ) MoveToPt( 10 ) DrawToPt( 18 ) LineColor( 04 f0 ) MoveToPt( 30 ) DrawToPt( 25 ) MoveToPt( 31 ) DrawToPt( 26 ) MoveToPt( 32 ) DrawToPt( 27 ) MoveToPt( 33 ) DrawToPt( 28 ) MoveToPt( 34 ) DrawToPt( 29 ) Poly( a 1 8 10 ) Poly( a 8 10 18 17 ) Poly( a 10 18 19 ) Poly( a 1 8 10 ) Poly( a 8 10 18 17 ) Poly( a 10 18 19 ) Poly( ai 1 8 10 ) Poly( ai 8 10 18 17 ) Poly( ai 10 18 19 ) Poly( ai 1 8 10 ) Poly( ai 8 10 18 17 ) Poly( ai 10 18 19 ) Return :LB09 Points( 0 0 40 60 ; 0 0 45 60 ; 1 0 50 60 ; 2 ) LineColor( 05 f0 ) ; supports antennes VOR MoveToPt( 0 ) DrawToPt( 1 ) LineColor( 02 f0 ) MoveToPt( 1 ) DrawToPt( 2 ) Return :LB07 Call( :LB10 ) RotatedCall( :LB10 0 0 7 ) RotatedCall( :LB10 0 0 15 ) RotatedCall( :LB10 0 0 22 ) RotatedCall( :LB10 0 0 30 ) RotatedCall( :LB10 0 0 337 ) RotatedCall( :LB10 0 0 345 ) RotatedCall( :LB10 0 0 352 ) Return :LB10 Points( 0 0 54 60 0 53 62 0 53 58 0 51 63 0 51 57 0 50 63 0 50 57 -2 53 60 2 53 60 -3 51 60 3 51 60 -3 50 60 3 50 60 -1 53 61 1 53 59 -2 51 62 2 51 58 -2 50 62 2 50 58 1 53 61 -1 53 59 2 51 62 -2 51 58 2 50 62 -2 50 58 ) SurfaceColor( 16 f0 ) ; antennes VOR StartSurface MoveToPt( 0 ) DrawToPt( 1 ) DrawToPt( 3 ) DrawToPt( 5 ) DrawToPt( 6 ) DrawToPt( 4 ) DrawToPt( 2 ) EndSurface StartSurface MoveToPt( 0 ) DrawToPt( 7 ) DrawToPt( 9 ) DrawToPt( 11 ) DrawToPt( 12 ) DrawToPt( 10 ) DrawToPt( 8 ) EndSurface StartSurface MoveToPt( 0 ) DrawToPt( 13 ) DrawToPt( 15 ) DrawToPt( 17 ) DrawToPt( 18 ) DrawToPt( 16 ) DrawToPt( 14 ) EndSurface StartSurface MoveToPt( 0 ) DrawToPt( 19 ) DrawToPt( 21 ) DrawToPt( 23 ) DrawToPt( 24 ) DrawToPt( 22 ) DrawToPt( 20 ) EndSurface StartSurface MoveToPt( 5 ) DrawToPt( 17 ) DrawToPt( 11 ) DrawToPt( 24 ) DrawToPt( 6 ) DrawToPt( 18 ) DrawToPt( 12 ) DrawToPt( 23 ) EndSurface Return :LB05 Points( 0 0 73 0 ;0 0 70 1 ;1 0 70 -1 ;2 0 53 1 ;3 0 53 -1 ;4 0 51 3 ;5 0 51 -3 ;6 0 50 3 ;7 0 50 -3 ;8 -1 70 0 ;9 1 70 0 ;10 -1 53 0 ;11 1 53 0 ;12 -3 51 0 ;13 3 51 0 ;14 -3 50 0 ;15 3 50 0 ;16 -1 70 1 ;17 1 70 -1 ;18 -1 53 1 ;19 1 53 -1 ;20 -2 51 2 ;21 2 51 -2 ;22 -2 50 2 ;23 2 50 -2 ;24 1 70 1 ;25 -1 70 -1 ;26 1 53 1 ;27 -1 53 -1 ;28 2 51 2 ;29 -2 51 -2 ;30 2 50 2 ;31 -2 50 -2 ;32 0 70 0 ;33 0 74 0 ;34 ) SurfaceColor( 16 f0 ) ; antenne centrale LineColor( 05 f0 ) StartSurface MoveToPt( 1 ) DrawToPt( 3 ) DrawToPt( 5 ) DrawToPt( 7 ) DrawToPt( 8 ) DrawToPt( 6 ) DrawToPt( 4 ) DrawToPt( 2 ) EndSurface StartSurface MoveToPt( 9 ) DrawToPt( 11 ) DrawToPt( 13 ) DrawToPt( 15 ) DrawToPt( 16 ) DrawToPt( 14 ) DrawToPt( 12 ) DrawToPt( 10 ) EndSurface StartSurface MoveToPt( 17 ) DrawToPt( 19 ) DrawToPt( 21 ) DrawToPt( 23 ) DrawToPt( 24 ) DrawToPt( 22 ) DrawToPt( 20 ) DrawToPt( 18 ) EndSurface StartSurface MoveToPt( 25 ) DrawToPt( 27 ) DrawToPt( 29 ) DrawToPt( 31 ) DrawToPt( 32 ) DrawToPt( 30 ) DrawToPt( 28 ) DrawToPt( 26 ) EndSurface StartSurface MoveToPt( 7 ) DrawToPt( 23 ) DrawToPt( 15 ) DrawToPt( 32 ) DrawToPt( 8 ) DrawToPt( 24 ) DrawToPt( 16 ) DrawToPt( 31 ) EndSurface StartSurface MoveToPt( 25 ) DrawToPt( 17 ) DrawToPt( 26 ) DrawToPt( 18 ) EndSurface MoveToPt( 0 ) DrawToPt( 33 ) SurfaceColor( 00 f0 ) Poly( a 0 26 17 ) Poly( a 0 17 25 ) Poly( a 0 25 18 ) Poly( a 0 18 26 ) LineColor( 0f f0 ) MoveToPt( 0 ) DrawToPt( 34 ) Return :J01 Return :LB11 Return EndA