! Document name: round_frame

!round_frame 07.07.1989.
!internal macro: -

pars dx,dy,frame width,frame thickness

addy b/2
let e=a/2-c
let f=b/2-c
let g=a/2
let h=b/2
let i=e-1"
let j=f-1"

prism_ 51,d,
a,0,0,
e,0,13,
0.966*e,0.259*f,13,
0.866*e,0.5*f,13,
0.707*e,0.707*f,13,
0.5*e,0.866*f,13,
0.259*e,0.966*f,13,
0,f,13,
-0.259*e,0.966*f,13,
-0.5*e,0.866*f,13,
-0.707*e,0.707*f,13,
-0.866*e,0.5*f,13,
-0.966*e,0.259*f,13,
-e,0,13,
-0.966*e,-0.259*f,13,
-0.866*e,-0.5*f,13,
-0.707*e,-0.707*f,13,
-0.5*e,-0.866*f,13,
-0.259*e,-0.966*f,13,
0,-f,13,
0.259*e,-0.966*f,13,
0.5*e,-0.866*f,13,
0.707*e,-0.707*f,13,
0.866*e,-0.5*f,13,
0.966*e,-0.259*f,13,
e,0,0,
g,0,13,
0.966*g,-0.259*h,13,
0.866*g,-0.5*h,13,
0.707*g,-0.707*h,13,
0.5*g,-0.866*h,13,
0.259*g,-0.966*h,13,
0,-h,13,
-0.259*g,-0.966*h,13,
-0.5*g,-0.866*h,13,
-0.707*g,-0.707*h,13,
-0.866*g,-0.5*h,13,
-0.966*g,-0.259*h,13,
-g,0,13,
-0.966*g,0.259*h,13,
-0.866*g,0.5*h,13,
-0.707*g,0.707*h,13,
-0.5*g,0.866*h,13,
-0.259*g,0.966*h,13,
0,h,13,
0.259*g,0.966*h,13,
0.5*g,0.866*h,13,
0.707*g,0.707*h,13,
0.866*g,0.5*h,13,
0.966*g,0.259*h,13,
g,0,0

addz d/3

poly_ 51,
e,0,0,
i,0,1,
0.966*i,0.259*j,1,
0.866*i,0.5*j,1,
0.707*i,0.707*j,1,
0.5*i,0.866*j,1,
0.259*i,0.966*j,1,
0,j,1,
-0.259*i,0.966*j,1,
-0.5*i,0.866*j,1,
-0.707*i,0.707*j,1,
-0.866*i,0.5*j,1,
-0.966*i,0.259*j,1,
-i,0,1,
-0.966*i,-0.259*j,1,
-0.866*i,-0.5*j,1,
-0.707*i,-0.707*j,1,
-0.5*i,-0.866*j,1,
-0.259*i,-0.966*j,1,
0,-j,1,
0.259*i,-0.966*j,1,
0.5*i,-0.866*j,1,
0.707*i,-0.707*j,1,
0.866*i,-0.5*j,1,
0.966*i,-0.259*j,1,
i,0,0,
e,0,1,
0.966*e,-0.259*f,1,
0.866*e,-0.5*f,1,
0.707*e,-0.707*f,1,
0.5*e,-0.866*f,1,
0.259*e,-0.966*f,1,
0,-f,1,
-0.259*e,-0.966*f,1,
-0.5*e,-0.866*f,1,
-0.707*e,-0.707*f,1,
-0.866*e,-0.5*f,1,
-0.966*e,-0.259*f,1,
-e,0,1,
-0.966*e,0.259*f,1,
-0.866*e,0.5*f,1,
-0.707*e,0.707*f,1,
-0.5*e,0.866*f,1,
-0.259*e,0.966*f,1,
0,f,1,
0.259*e,0.966*f,1,
0.5*e,0.866*f,1,
0.707*e,0.707*f,1,
0.866*e,0.5*f,1,
0.966*e,0.259*f,1,
e,0,0

del top
end