! Document name: CUB

!CUB.GDL
!MACRO APPELEE PAR ESCALIEROND
!MACRO REALISEE PAR :
!																				Jean-Pierre TREMBLET
!																			-- AS Informatique --
!																					1 rue St JACQUES
!																					72000 LE MANS
!																					43-24-01-25

!SI L'INDEX=1 LA MARCHE N'A PAS DE PENTE
LET P=A*COS(D)-A+B  			!COTE EN X DE L'EXTERIEUR DE LA MARCHE
LET Q=A*SIN(D) 			   		  !   "     "  Y  "       "             "    "   "
LET R=(A-B)*(COS(D)-1)   !   "     "  X  "   INTERIEUR  "    "    "
LET S=(A-B)*SIN(D)          !   "     "  Y  "            "        "    "    "
IF E=1 THEN 10
BASE
NODE 0,0,0
NODE R,S,C
NODE P,Q,C
NODE B,0,0
NODE 0,0,2*C
NODE R,S,2*C
NODE P,Q,2*C
NODE B,0,2*C
NODE 0,0,C
NODE B,0,C
LINE 1,2
LINE 3,4
LINE 5,6
LINE 6,7
LINE 7,8
LINE 8,5
LINE 9,5
LINE 10,8
GOTO 20
10: BASE
NODE 0,0,0
NODE R,S,0
NODE P,Q,0
NODE B,0,0
NODE 0,0,C
NODE R,S,C
NODE P,Q,C
NODE B,0,C
LINE 1,2
LINE 2,3
LINE 3,4
LINE 4,1
LINE 5,6
LINE 6,7
LINE 7,8
LINE 8,5
LINE 1,5
LINE 4,8
20:TRI 1,2,3
TRI 1,3,4
TRI 5,6,7
TRI 5,7,8
TRI 1,2,6
TRI 1,5,6
TRI 2,3,7
TRI 2,6,7
TRI 3,4,8
TRI 3,7,8
TRI 4,1,5
TRI 4,8,5
TETRA 1,3,4,5
TETRA 3,4,5,8
TETRA 3,5,7,8
TETRA 1,2,3,5
TETRA 2,3,5,6
TETRA 3,5,6,7
DEL TOP
end