! Document name: oct_frame

!oct_frame
!internal macro: -

addy b/2

k=1"
z=a/2
w=b/2

g=1-2*c/a

h=a/2-c
i=b/2-c

j=1-k/h

l=z*g/h
m=w*g/i

if h<=0 then 20
!if i<=0 then 20

!if g<=0 then 20

mulx z
muly w

prism_ 20,d,
1,0,0,
g,0,13,
g,0.414*g,15,
0.414*g,g,15,
-0.414*g,g,15,
-g,0.414*g,15,
-g,-0.414*g,15,
-0.414*g,-g,15,
0.414*g,-g,15,
g,-0.414*g,15,
g,0,0,
1,0,13,
1,-0.414,15,
0.414,-1,15,
-0.414,-1,15,
-1,-0.414,15,
-1,0.414,15,
-0.414,1,15,
0.414,1,15,
1,0.414,15

del 2

addz d/3

mulx h
muly i

poly_ 20,
l,0,0,
j,0,1,
j,0.414*j,1,
0.414*j,j,1,
-0.414*j,j,1,
-j,0.414*j,1,
-j,-0.414*j,1,
-0.414*j,-j,1,
0.414*j,-j,1,
j,-0.414*j,1,
j,0,0,
l,0,1,
l,-0.414*m,1,
0.414*l,-m,1,
-0.414*l,-m,1,
-l,-0.414*m,1,
-l,0.414*m,1,
-0.414*l,m,1,
0.414*l,m,1,
l,0.414*m,1

if e=0 then 20
material f
poly_ 9,
j,0,1,
j,-0.414*j,1,
0.414*j,-j,1,
-0.414*j,-j,1,
-j,-0.414*j,1,
-j,0.414*j,1,
-0.414*j,j,1,
0.414*j,j,1,
j,0.414*j,1

20:end