Procedures | Cast3M

   1 : * @P_BOIT2  PROCEDUR  PASCAL    12/10/18    21:15:02     7532           
   2 : *---------------------------------------------------------------------*
   3 : *                                                                     *
   4 : * NOM         : @P_BOIT2                                              *
   5 : *                                                                     *
   6 : * DESCRIPTION : Procedure determinant l'intersection d'un maillage de *
   7 : *               polyedres de Voronoi construit par la procedure       *
   8 : *               @P_VORO avec le cube de cote 1. @P_BOIT2 utilise la   *
   9 : *               PROCEDURE @COUPLAN pour realiser les coupes avec les  *
  10 : *               faces du CUBE, contairement a @P_BOIT.                *
  11 : *                                                                     *
  12 : * SYNTAXE     : TAB2  = @P_BOIT TAB1 (IVISU1) ;                       *
  13 : *                                                                     *
  14 : *    - TAB1   = TABLE, resultat de la procedure @P_VORO ;             *
  15 : *    - TAB2   = TABLE, sa structure est similaire a celle de TAB1     *
  16 : *               (voir notice @P_VORO) ;                               *
  17 : *    - IVISU1 = LOGIQUE, active des traces (pour DeBogage).           *
  18 : *                                                                     *
  19 : * REMARQUE    : Fait appel a la procedure @COUPLAN.                   *
  20 : *                                                                     *
  21 : * LANGAGE     : GIBIANE-CAST3M                                        *
  22 : * AUTEUR      : S. PASCAL (CEA/DEN/DM2S/SEMT/LM2S)                    *
  23 : * COURRIEL    : serge.pascal@cea.fr                                   *
  24 : *---------------------------------------------------------------------*
  25 : 'DEBP' @P_BOIT2 ;
  26 : *                                                                     *
  27 : 'ARGU' THO7U*'TABLE' ;
  28 : *                                                                     *
  29 : 'ARGU' ITRAC1/'LOGIQUE' ;
  30 : 'SI' ('NON' ('EXIS' ITRAC1)) ;
  31 :   ITRAC1   = FAUX ;
  32 : 'FINS' ;
  33 : *                                                                     *
  34 : * Decoupage :                                                         *
  35 : TG1 TD1  = @COUPLAN THO7U (0. 0. 0.) (0. 1. 0.) (0. 0. 1.) ;
  36 : TG1 TD1  = @COUPLAN TD1   (1. 0. 0.) (1. 1. 0.) (1. 0. 1.) ;
  37 : TG1 TD1  = @COUPLAN TG1   (0. 0. 0.) (0. 0. 1.) (1. 0. 0.) ;
  38 : TG1 TD1  = @COUPLAN TD1   (0. 1. 0.) (0. 1. 1.) (1. 1. 0.) ;
  39 : TG1 TD1  = @COUPLAN TG1   (0. 0. 0.) (1. 0. 0.) (0. 1. 0.) ;
  40 : TG1 TD1  = @COUPLAN TD1   (0. 0. 1.) (1. 0. 1.) (0. 1. 1.) ;
  41 : *                                                                     *
  42 : * Recuperation des faces :                                            *
  43 : MAIL1    = TG1 . 'MAV' ;
  44 : TOL1     = 1.E-6 ;
  45 : TG1.FACE1 = MAIL1 'POIN' 'PLAN' (0. 0. 0.) (1. 0. 0.) (0. 1. 0.) TOL1 ;
  46 : TG1.FACE2 = MAIL1 'POIN' 'PLAN' (0. 0. 0.) (0. 0. 1.) (1. 0. 0.) TOL1 ;
  47 : TG1.FACE3 = MAIL1 'POIN' 'PLAN' (0. 0. 0.) (0. 1. 0.) (0. 0. 1.) TOL1 ;
  48 : TG1.FACE4 = MAIL1 'POIN' 'PLAN' (1. 0. 0.) (1. 1. 0.) (1. 0. 1.) TOL1 ;
  49 : TG1.FACE5 = MAIL1 'POIN' 'PLAN' (0. 1. 0.) (0. 1. 1.) (1. 1. 0.) TOL1 ;
  50 : TG1.FACE6 = MAIL1 'POIN' 'PLAN' (0. 0. 1.) (1. 0. 1.) (0. 1. 1.) TOL1 ;
  51 : *                                                                     *
  52 : * Trace resultat :                                                    *
  53 : 'SI' ITRAC1 ;
  54 :   NBC1     = 'NBNO' TG1 . 'MPT' ;
  55 :   'TITR' ('CHAI' ' Polyedre a ' NBC1 ' cellules') ;
  56 :   'TRAC' TG1 . 'MAV' ;
  57 : 'FINS' ;
  58 : *                                                                     *
  59 : * Sortie :                                                            *
  60 : 'RESP' TG1 ;
  61 : *                                                                     *
  62 : 'FINP' ;
  63 : *---------------------------------------------------------------------*
  64 : * FIN DE LA PROCEDURE @P_BOIT2                                        *
  65 :