! Document name: qrtr_frame

!qrtr_frame  10.07.1989.
!internal macros: -

let z=a-c
let w=b-c

prism_ 19,d,
z,c,15,
0.966*z,0.259*w,13,
0.866*z,0.5*w,13,
0.707*z,0.707*w,13,
0.5*z,0.866*w,13,
0.259*z,0.966*w,13,
c,w,15,
c,c,15,
z,c,0,
z,0,13,
0,0,15,
0,b,15,
0.259*a,0.966*b,13,
0.5*a,0.866*b,13,
0.707*a,0.707*b,13,
0.866*a,0.5*b,13,
0.966*a,0.259*b,13,
a,0,15,
z,0,0

addz d/3

lin_  z,c,0,0.966*z,0.259*w,0
lin_  0.966*z,0.259*w,0,0.866*z,0.5*w,0
lin_  0.866*z,0.5*w,0,0.707*z,0.707*w,0
lin_  0.707*z,0.707*w,0,0.5*z,0.866*w,0
lin_  0.5*z,0.866*w,0,0.259*z,0.966*w,0
lin_  0.259*z,0.966*w,0,c,w,0
lin_  c,w,0,c,c,0
lin_  c,c,0,z,c,0

if e=0 then 20
material f
poly_ 8,
z,c,1,
0.966*z,0.259*w,1,
0.866*z,0.5*w,1,
0.707*z,0.707*w,1,
0.5*z,0.866*w,1,
0.259*z,0.966*w,1,
c,w,1,
c,c,1

20:end