here a solution but I don't like it and it's not really clean
MATERIAL mat_coup ! material section plan
IF coupe THEN ! boolean
ADDZ h_coupe ! high of the cut plan section
CUTPLANE a_coupe
DEL 1
else
ADDy -10*A ! we put the cut plane away from the objet
CUTPLANE 90
DEL 1
ENDIF
MATERIAL mat_box !vecto hatch material
BLOCK A, B, ZZYZX !Box 1
ADDX A+A*.5 !transfo 1
rotz 10 !transfo 2
BLOCK B, A*1.5, ZZYZX !Box 2
del 1 !del transfo 2
ADDX A+A*.5 !transfo 3
rotz -10 !transfo 4
BLOCK A, B, ZZYZX !Box 3
del 1 !del transfo 4
ADDX A+A*.5 !transfo 5
roty 30 !transfo 6
BLOCK A, B, ZZYZX !Box 4
CUTEND
DEL TOP