************************************************************************
*    Petit test de l'opérateur CONG avec des éléments SEG2 et SEG3     *
*                                                                      *
*            Il convient de vérifier "à l'oeil" la qualité             *
*                 des congés de raccordement produits                  *
************************************************************************

OPTI 'DENS' 0.1 ;
OPTI 'TRAC' 'PSC';




************************************************************************
*                     E N   D I M E N S I O N   2                      *
************************************************************************

OPTI 'DIME' 2 ;
p1 = 0. 0. ;
p2 = 1. 0. ;
p3 = 1. 1. ;
p4 = 1. 0.5 ;
p5 = 2. 0.5 ;

* Éléments de maillage SEG2
OPTI 'ELEM' 'SEG2' ;
l1 = DROI p1 p2 ;
l2 = DROI p2 p3 ;
l3 = DROI p4 p5 ;
* congé simple
TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
l1b lcong l2b = CONG l1 l2 0.3 ;
TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
* congé double
TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;

* Éléments de maillage SEG3
OPTI 'ELEM' 'SEG3' ;
l1 = DROI p1 p2 ;
l2 = DROI p2 p3 ;
l3 = DROI p4 p5 ;
* congé simple
TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
l1b lcong l2b = CONG l1 l2 0.3 ;
TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
* congé double
TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;






************************************************************************
*                     E N   D I M E N S I O N   3                      *
************************************************************************

OPTI 'DIME' 3 ;
p1 = 0. 0. 0. ;
p2 = 0. 0. 1. ;
p3 = 0. 1. 1. ;
p4 = 0.5 0. 1. ;
p5 = 0.5 0. 2. ;

* Éléments de maillage SEG2
OPTI 'ELEM' 'SEG2' ;
l1 = DROI p1 p2 ;
l2 = DROI p2 p3 ;
l3 = DROI p4 p5 ;
* congé simple
TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
l1b lcong l2b = CONG l1 l2 0.3 ;
TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
* congé double
TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;

* Éléments de maillage SEG3
OPTI 'ELEM' 'SEG3' ;
l1 = DROI p1 p2 ;
l2 = DROI p2 p3 ;
l3 = DROI p4 p5 ;
* congé simple
TRAC 'QUAL' (l1 ET l2) 'TITR' 'Lignes avant conge' ;
l1b lcong l2b = CONG l1 l2 0.3 ;
TRAC 'QUAL' (l1b ET lcong ET l2b) 'TITR' 'Lignes apres conge' ;
* congé double
TRAC 'QUAL' (l1 ET l3) 'TITR' 'Lignes avant conge' ;
l1b lcong l3b = CONG l1 l3 0.3 'DOUBLE' ;
TRAC 'QUAL' (l1b ET lcong ET l3b) 'TITR' 'Lignes apres conge' ;




FIN ;