Procedures | Cast3M

   1 : * @REMPCOU  PROCEDUR  BAZE      98/11/20    21:23:56     3365           
   2 : 'DEBPROC' @REMPCOU TABCOUP*TABLE P1*POINT      P2*POINT  NC*ENTIER
   3 :               MODELT*MMODEL EPAI*FLOTTANT GRAP*MOT ECR*MOT  NOM/MOT 
   4 :               VTRA/POINT ;
   5 :              
   6 : * ----------------------------------------------------------------------
   7 : ******                     PROCEDURE @REMPCOU                     ******
   8 : * ----------------------------------------------------------------------
   9 : *
  10 : *   CETTE PROCEDURE PERMET DE REMPLIR LA TABLE POUR FORMATION DES COUPES
  11 : *
  12 : * ----------------------------------------------------------------------
  13 : *
  14 : *   LES DONNEES SONT :
  15 : *    ----> la table a remplir
  16 : *    ----> les 2 points extremes de la coupe
  17 : *    ----> le nombre de sous-divisions de la coupe
  18 : *    ----> le modele contenant strictement la piece ou passe la coupe
  19 : *    ----> l'epaisseur du trait de la coupe lors du trace
  20 : *    ----> le logique GRAPH permettant ou non les traces ( VRAI ou FAUX)
  21 : *    ----> le logique ECRI  permettant ou non les ecritures  ( idem)
  22 : *    ----> le mot NOM (optionnel) permettant ou non la sortie d'un
  23 : *          fichier pour NOCLIB
  24 : *    ----> VTRA direction perpendiculaire a P1 P1 pour axe des Y
  25 : *      si absente et 3D on la met a (1 1 1)  
  26 : *
  27 : * ----------------------------------------------------------------------
  28 : *   PAR Joseph MANNINO
  29 : * ----------------------------------------------------------------------
  30 : N = DIME TABCOUP ;
  31 : N = N + 1 ;
  32 : UY=TABLE;
  33 : TABCOUP.N = UY ;
  34 : UY . 1 = P1 ;
  35 : UY . 2 = P2 ;
  36 : UY . 3  = NC ;
  37 : UY . 4  = MODELT ;
  38 : UY . 5 = EPAI ;
  39 : SI ((EGA GRAP 'N') OU ( EGA GRAP 'n') ); 
  40 : UY . 6 = FAUX;
  41 : SINON ;
  42 : UY . 6 = VRAI ;
  43 : FINSI ;
  44 : 'SI' (('EGA' ECR 'N' )  'OU' ( 'EGA' ECR 'n' ));
  45 : UY . 7  = FAUX  ;
  46 : SINON ;
  47 : UY . 7  = VRAI ;
  48 : FINSI ;
  49 : SI ( EXISTE NOM) ;
  50 : UY . 8 = NOM ;
  51 : SINON ;
  52 : UY . 8 = 'BLANC' ;
  53 : FINSI ;
  54 : 'SI' (NON  ('EXISTE' VTRA));
  55 :   'SI' ( 'EGA' ('VALE' DIME) 2 ) ;
  56 :   UY . 9 = 0. 0. ;
  57 :   'SINON' ;
  58 :  MESS  ' VOUS DEVEZ DONNER UNE DIRECTION  POUR ETABLIR 
  59 :        LE REPERE D ANALYSE'; 
  60 :    QUITTER REMPCOU ;     
  61 :   'FINSI' ;
  62 : 'SINON' ;     
  63 : UY . 9 = VTRA  ;
  64 : FINSI ;  
  65 : FINPROC ;
  66 :