! Document name: CUB

!CUB.GDL
!1991
!	CUB
LET P=A*COS(D)-A+B
LET Q=A*SIN(D)
LET R=(A-B)*(COS(D)-1)
LET S=(A-B)*SIN(D)
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