; Fichier include SCASM pour POLY3D TYPE = &VOR1 ; Include SCASM FILE for POLY3D TYPE = &VOR1 ; 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 VecPoints( 0 25 40 25 15344 24551 15344 25 40 -25 15344 24551 -15344 -25 40 -25 -15344 24551 -15344 ) VectorJump( :T01 0 32767 0 -40 ) Call( :T03 ) Call( :T04 ) Call( :T05 ) Return :T01 Call( :T05 ) Call( :T04 ) Call( :T03 ) Return :T03 Call( :T06 ) RotatedCall( :T06 0 0 60 ) RotatedCall( :T06 0 0 120 ) RotatedCall( :T06 0 0 180 ) RotatedCall( :T06 0 0 240 ) RotatedCall( :T06 0 0 300 ) Return :T04 Call( :T07 ) RotatedCall( :T07 0 0 60 ) RotatedCall( :T07 0 0 120 ) RotatedCall( :T07 0 0 180 ) RotatedCall( :T07 0 0 240 ) RotatedCall( :T07 0 0 300 ) Return :T06 Call( :T08 ) Call( :T09 ) RotatedCall( :T09 0 0 7 ) RotatedCall( :T09 0 0 15 ) RotatedCall( :T09 0 0 22 ) RotatedCall( :T09 0 0 30 ) RotatedCall( :T09 0 0 37 ) RotatedCall( :T09 0 0 45 ) RotatedCall( :T09 0 0 52 ) Return :T08 Points( 0 0 40 0 -10 40 18 0 40 20 10 40 18 -20 40 34 0 40 40 20 40 34 -30 40 52 0 40 60 30 40 52 -30 40 72 30 40 72 47 40 62 -30 40 92 30 40 92 64 40 72 -30 40 112 30 40 112 82 40 82 0 53 0 -30 40 52 0 40 60 -30 40 92 30 40 92 0 0 0 -30 0 52 0 0 60 -30 0 92 30 0 92 ) SurfaceColor( 03 68 ) ; plateforme LineColor( 05 f0 ) MoveToPt( 19 ) DrawToPt( 24 ) MoveToPt( 20 ) DrawToPt( 25 ) MoveToPt( 21 ) DrawToPt( 26 ) MoveToPt( 22 ) DrawToPt( 27 ) MoveToPt( 23 ) DrawToPt( 28 ) MoveToPt( 0 ) DrawToPt( 1 ) DrawToPt( 7 ) DrawToPt( 16 ) DrawToPt( 17 ) DrawToPt( 18 ) DrawToPt( 9 ) DrawToPt( 0 ) DrawToPt( 8 ) MoveToPt( 1 ) DrawToPt( 2 ) DrawToPt( 3 ) MoveToPt( 4 ) DrawToPt( 5 ) DrawToPt( 6 ) MoveToPt( 7 ) DrawToPt( 8 ) DrawToPt( 9 ) MoveToPt( 10 ) DrawToPt( 11 ) DrawToPt( 12 ) MoveToPt( 13 ) DrawToPt( 14 ) DrawToPt( 15 ) MoveToPt( 9 ) DrawToPt( 17 ) Poly( 0 -32767 0 30 0 7 9 ) Poly( 0 -32767 0 30 7 9 17 16 ) Poly( 0 -32767 0 30 9 17 18 ) Poly( 0 32767 0 -30 0 7 9 ) Poly( 0 32767 0 -30 7 9 17 16 ) Poly( 0 32767 0 -30 9 17 18 ) Return :T09 Points( 0 0 40 60 ; 0 0 50 60 ; 1 ) LineColor( 05 f0 ) ; supports antennes VOR MoveToPt( 0 ) DrawToPt( 1 ) Return :T07 Call( :T10 ) RotatedCall( :T10 0 0 7 ) RotatedCall( :T10 0 0 15 ) RotatedCall( :T10 0 0 22 ) RotatedCall( :T10 0 0 30 ) RotatedCall( :T10 0 0 337 ) RotatedCall( :T10 0 0 345 ) RotatedCall( :T10 0 0 352 ) Return :T10 Points( 0 0 55 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 :T05 Points( 0 0 73 0 0 70 1 0 70 -1 0 53 1 0 53 -1 0 51 3 0 51 -3 0 50 3 0 50 -3 -1 70 0 1 70 0 -1 53 0 1 53 0 -3 51 0 3 51 0 -3 50 0 3 50 0 -1 70 1 1 70 -1 -1 53 1 1 53 -1 -2 51 2 2 51 -2 -2 50 2 2 50 -2 1 70 1 -1 70 -1 1 53 1 -1 53 -1 2 51 2 -2 51 -2 2 50 2 -2 50 -2 0 70 0 0 74 0 ) 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 ) LineColor( 15 f0 ) MoveToPt( 0 ) DrawToPt( 34 ) Return :VEC01 Return VectorJump( :T11 12337 13122 12354 14384 ) :T11 Return EndA