Navigation:  Macro > Exemples >

EXEMPLE MACRO19

 AiM Services
Previous pageReturn to chapter overviewNext page

Dessin 3D

Cette macro génère une figure géométrique 3D en filaire. Il est nécessaire d'exécuter cette macro avec l'option 3D voulumique ou surfacique pour qu'elle fonctionne.
 

Exemple

 MACRO "drawing3d.mac"
 !
 ! Initialisation

   Pas=0.5
   Hauteur=20
 ! Génération des lignes le long de l'axe X
   FOR X=-10 TO 10 STEP Pas
     Draw=0
     FOR Y=-10 TO 10 STEP Pas
       N=SQRT(X*X+Y*Y)
       Z=Hauteur
       IF N THEN Z=SIN(N)/N*Hauteur
       IF Draw THEN LINE3D X1,Y1,Z1,X,Y,Z
       Draw=1
       X1=X
       Y1=Y
       Z1=Z
     NEXT Y
   NEXT X
 ! Génération des lignes le long de l'axe Y
   FOR Y=-10 TO 10 STEP Pas
     Draw=0
     FOR X=-10 TO 10 STEP Pas
       N=SQRT(X*X+Y*Y)
       Z=Hauteur
       IF N THEN Z=SIN(N)/N*Hauteur
       IF Draw THEN LINE3D X1,Y1,Z1,X,Y,Z
       Draw=1
       X1=X
       Y1=Y
       Z1=Z
     NEXT X
   NEXT Y
   END
   END MACRO