! Document name: casement_wind

! name casement window
! internal macro: ext_rect_frame,int_rect_frame,
! opening_dashed_line, double_grille

if a-(2*c+2*e)<=0 then 60
if b-(2*c+2*e)<=0 then 60
addx		-a/2
call ext_rect_frame a,b,c,d
addx c
addy c
addz d/3
call int_rect_frame a-2*c,b-2*c,e
addx e
addy e
call double_grille a-2*c-2*e,b-2*c-2*e,f,g
if i=0 then 30
material h
rect a-2*c-2*e,b-2*c-2*e
30: addx a-2*c-2*e
if j=0 then 60
addx -(a-2*c-2*e)/f
for n=1 to f
call opening_dashed_line (a-2*c-2*e)/f,b-2*c-2*e
addx -(a-2*c-2*e)/f

next n
60: del top
end