Télécharger @vis3d.procedur

Retour à la liste

Numérotation des lignes :

  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';
  32.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales