/CLEAR,NOSTART

!----------------!
! PYLONE SURFACE !
!----------------!

!KEYW,PR_SET,1  

! GEOMETRIE !
/PREP7

! GEOMETRIE D UN PIED
!--------------------
H=5

K,1,0,0,0,  
K,2,0,0,H, 

LSTR,1,2

CYL4,0,0,0.1, ,0.2  

LSEL,S,,,6,9,1
ADRAG,ALL,,,,,,1

LSEL,S,,,ALL

AGEN,2,1,,,0,0,H,,1

! PARTITIONS HORIZONTALES
!------------------------

BLC4,-1,-1,2,2  
AGEN,,7,,,,,2.2,,,1

ASBA,2,7, ,DELETE,KEEP
ASBA,3,7, ,DELETE,KEEP
ASBA,4,7, ,DELETE,KEEP
ASBA,5,7, ,DELETE,KEEP

AGEN,,7,,,,,2.5,,,1
ASBA,9,7, ,DELETE,KEEP
ASBA,10,7, ,DELETE,KEEP
ASBA,11,7, ,DELETE,KEEP
ASBA,12,7, ,DELETE,DELETE

NUMCMP,AREA 

! PARTITIONS VERTICALES
!----------------------

K,100,-0.3,0,-0.1,
K,101,0.3,0,-0.1,
K,102,0.3,0,H+0.1,
K,103,-0.3,0,H+0.1,
A,100,101,102,103

ASBA,1,15, ,DELETE,KEEP
ASBA,6,15, ,DELETE,DELETE

NUMCMP,AREA 

K,100,0,-0.3,-0.1,
K,101,0,0.3,-0.1,
K,102,0,0.3,H+0.1,
K,103,0,-0.3,H+0.1,
A,100,101,102,103

ASBA,1,17, ,DELETE,KEEP
ASBA,16,17, ,DELETE,KEEP
ASBA,14,17, ,DELETE,KEEP
ASBA,15,17, ,DELETE,DELETE

NUMCMP,AREA 

K,100,-0.3*0.5,-0.3*sqrt(3)/2,-0.1,
K,101,0.3*0.5,0.3*sqrt(3)/2,-0.1,
K,102,0.3*0.5,0.3*sqrt(3)/2,H+0.1,
K,103,-0.3*0.5,-0.3*sqrt(3)/2,H+0.1,
A,100,101,102,103

ASBA,1,21, ,DELETE,KEEP
ASBA,2,21, ,DELETE,KEEP
ASBA,4,21, ,DELETE,KEEP
ASBA,7,21, ,DELETE,KEEP
ASBA,9,21, ,DELETE,KEEP
ASBA,11,21, ,DELETE,KEEP
ASBA,13,21, ,DELETE,KEEP
ASBA,14,21, ,DELETE,KEEP
ASBA,15,21, ,DELETE,KEEP
ASBA,16,21, ,DELETE,DELETE

AGLUE,ALL


! Percage
!--------
! CYL4,0.15,0,0.03
! VEXT,15, , ,0,0,5,,,,