$$$$ @VIS3D * @VIS3D PROCEDUR AM 94/10/04 21:15:08 1279 DEBPROC @VIS3D MAIL1*MAILLAGE POIN1*POINT POIN2*POINT OEIL*POINT NROT*ENTIER ROTOT/FLOTTANT; IDIM='VALE' DIME; 'SI' (IDIM 'NEG' 3); 'ERREUR' 'CETTE PROCEDURE EST PREVUE POUR UN MAILLAGE 3D'; 'FINSI'; MAIL1='ENVE' MAIL1; 'SI' (NROT '>' 20); NROT=20; 'FINSI'; 'SI' ('NON' ('EXISTE' ROTOT)); ROTOT=180.; 'SINON'; ROTOT=ROTOT/2.; 'FINSI'; DEF = MANU CHPO MAIL1 1 'UX' 0.; IROT=0; 'REPETER' BOU1 NROT; IROT=IROT+1; XROT=-1*ROTOT+IROT*2.*(ROTOT/NROT); MAILT=MAIL1 'TOURNER' XROT POIN1 POIN2; DEF = MANU CHPO MAILT 1 'UX' 0.; 'SI' ( IROT 'EGA' 1) ; DEFT = 'DEFO' MAILT DEF 0.; 'SINON' ; DEFT = DEFT 'ET' (DEFO MAILT DEF 0.); 'FINSI'; 'FIN' BOU1; 'TRAC' DEFT OEIL OSCIL; 'FINPROC';