Procédures | Cast3M

* @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';