Télécharger @cartoon.procedur

Retour à la liste

Numérotation des lignes :

  1. * @CARTOON PROCEDUR KK2000 98/01/19 21:19:34 3057
  2. 'DEBPROC' @CARTOON TAB1*TABLE MAILL1*MAILLAGE
  3. BL1/RIGIDITE OEIL/POINT AMPLI/FLOTTANT OSCILLE/MOT;
  4. IDIM='VALE' DIME;
  5. 'SI' (IDIM 'EGA' 3);
  6. 'SI' ('NON' ('EXISTE' OEIL));
  7. 'ERREUR' 'IL FAUT DONNER UN OEIL EN 3D';
  8. 'FINSI';
  9. 'FINSI';
  10. 'SI' ('EXISTE' BL1);
  11. LVEC=VRAI;
  12. 'SINON';
  13. LVEC=FAUX;
  14. 'FINSI';
  15. 'SI' ('EXISTE' OSCILLE);
  16. 'SI' ('NON' (EGA OSCILLE 'NOSCIL'));
  17. 'ERREUR' 'ON ATTEND NOSCIL COMME MOT';
  18. 'FINSI';
  19. 'FINSI';
  20. LP1='EXISTE' TAB1 'DEPLACEMENTS';
  21. 'SI' LP1;
  22. MODEPL= 'CHAINE' 'DEPLACEMENTS';
  23. 'SINON';
  24. MODEPL= 'CHAINE' 'RESUDEPL';
  25. 'FINSI';
  26. IND='INDEX' (TAB1.MODEPL);
  27. NBINCR='DIME' IND;
  28. 'SI' LP1 ;
  29. IINCR0=1;
  30. NBINCR=NBINCR - 1;
  31. 'SINON';
  32. IINCR0=0;
  33. 'FINSI';
  34. IINCR=IINCR0;
  35. MINAMPL=1.E+50;
  36. FMAX=1.;
  37. 'SI' LVEC;
  38. XLONG=('MAXI' ( 'COOR' 1 MAILL1)) - ('MINI' ( 'COOR' 1 MAILL1));
  39. YLONG=('MAXI' ( 'COOR' 2 MAILL1)) - ('MINI' ( 'COOR' 2 MAILL1));
  40. 'SI' (YLONG > XLONG);
  41. XLONG=YLONG;
  42. 'FINSI';
  43. 'SI' (IDIM 'EGA' 3);
  44. ZLONG=('MAXI' ( 'COOR' 3 MAILL1)) - ('MINI' ( 'COOR' 3 MAILL1));
  45. 'SI' (ZLONG > XLONG);
  46. XLONG=ZLONG;
  47. 'FINSI';
  48. 'FINSI';
  49. 'FINSI';
  50. 'REPETER' BOU1 NBINCR;
  51. IINCR=IINCR+1;
  52. AMP1='EXTR'('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR)) 'AMPL';
  53. 'SI' (AMP1 '<' MINAMPL);
  54. MINAMPL=AMP1;
  55. 'FINSI';
  56. 'SI' LVEC;
  57. FFMAX='MAXI' ('REAC' TAB1.MODEPL.(IND.IINCR) BL1) 'ABS';
  58. 'SI' (FFMAX > FMAX);
  59. FMAX=FFMAX;
  60. 'FINSI';
  61. 'FINSI';
  62. 'FIN' BOU1;
  63. 'SI' ('EXISTE' AMPLI);
  64. MINAMPL=AMPLI;
  65. 'FINSI';
  66. DEF1='DEFO' MAILL1 TAB1.MODEPL.(IND.1) 0 VERT;
  67. 'SI' LVEC;
  68. AMPVEC=XLONG/(5.*FMAX);
  69. IINCR=IINCR0;
  70. 'REPETER' BOU2 (NBINCR-1);
  71. IINCR=IINCR+1;
  72. REA1='REAC' BL1 TAB1.MODEPL.(IND.IINCR);
  73. 'SI' (IDIM 'EGA' 3);
  74. VEC1='VECTEUR' REA1 FX FY FZ AMPVEC ROUG;
  75. 'SINON';
  76. 'SI' ('EGA' ('VALE' MODE) 'AXIS');
  77. VEC1='VECTEUR' REA1 FR FZ AMPVEC ROUG;
  78. 'SINON';
  79. 'SI' ('EGA' ('VALE' MODE) 'FOUR');
  80. VEC1='VECTEUR' REA1 FR FZ FT AMPVEC ROUG;
  81. 'SINON';
  82. VEC1='VECTEUR' REA1 FX FY AMPVEC ROUG;
  83. 'FINSI';
  84. 'FINSI';
  85. 'FINSI';
  86. DEF1=DEF1 ET
  87. ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) MINAMPL VEC1 BLEU);
  88. * ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) AMP1 VEC1 BLEU);
  89. 'FIN' BOU2;
  90. 'SINON';
  91. IINCR=IINCR0;
  92. 'REPETER' BOU2 (NBINCR-1);
  93. IINCR=IINCR+1;
  94. DEF1=DEF1 ET
  95. ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) MINAMPL BLEU);
  96. * ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) AMP1 BLEU);
  97. 'FIN' BOU2;
  98. 'FINSI';
  99. 'SI' ('EXISTE' OSCILLE);
  100. 'SI' (IDIM 'EGA' 3);
  101. 'TRAC' OEIL DEF1 ANIME;
  102. 'SINON';
  103. 'TRAC' DEF1 ANIME;
  104. 'FINSI';
  105. 'SINON';
  106. 'SI' (IDIM 'EGA' 3);
  107. 'TRAC' OEIL DEF1 OSCIL;
  108. 'SINON';
  109. 'TRAC' DEF1 OSCIL;
  110. 'FINSI';
  111. 'FINSI';
  112. 'FINPROC' DEF1;
  113.  
  114.  

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