Procedures | Cast3M

   1 : * @VIS3D    PROCEDUR  AM        94/10/04    21:15:08     1279           
   2 : DEBPROC @VIS3D MAIL1*MAILLAGE POIN1*POINT POIN2*POINT
   3 :    OEIL*POINT  NROT*ENTIER ROTOT/FLOTTANT;
   4 : IDIM='VALE' DIME;
   5 : 'SI' (IDIM 'NEG' 3);
   6 :    'ERREUR' 'CETTE PROCEDURE EST PREVUE POUR UN MAILLAGE 3D';
   7 : 'FINSI';
   8 : MAIL1='ENVE' MAIL1;
   9 : 'SI' (NROT '>' 20);
  10 :    NROT=20;
  11 : 'FINSI';
  12 : 'SI' ('NON' ('EXISTE' ROTOT));
  13 :    ROTOT=180.;
  14 : 'SINON';
  15 :    ROTOT=ROTOT/2.;
  16 : 'FINSI';
  17 : DEF = MANU CHPO MAIL1  1 'UX' 0.;
  18 : IROT=0;
  19 : 'REPETER' BOU1 NROT;
  20 :    IROT=IROT+1;
  21 :    XROT=-1*ROTOT+IROT*2.*(ROTOT/NROT);
  22 :    MAILT=MAIL1 'TOURNER' XROT POIN1 POIN2;
  23 :    DEF = MANU CHPO MAILT 1 'UX' 0.;
  24 :    'SI' ( IROT 'EGA' 1) ;
  25 :       DEFT = 'DEFO' MAILT DEF 0.;
  26 :    'SINON' ;
  27 :       DEFT = DEFT 'ET' (DEFO MAILT DEF 0.); 
  28 :    'FINSI';  
  29 : 'FIN' BOU1;
  30 : 'TRAC'  DEFT OEIL OSCIL;
  31 : 'FINPROC';