! Document name: qrtr_window

!qrtr_window   10.07.1989.
!internal macro:-

muly b
mulx a

cprism_ G_,H_,I_,
8,C_,
1,0,15,
0.966,0.259,13,
0.866,0.5,13,
0.707,0.707,13,
0.5,0.866,13,
0.259,0.966,13,
0,1,10,
1,1,8

Set material  I_
rotx 90
rect 1,C_
roty 90
rect 1,C_

end