! Document name: bifdoor_panel_C1

!name: bifdoor_panel_C1  29.06.1989.
!internal macro: opening_dashed_line, pattern

pars width, height,spacing

rect a,b
addx a
roty 180
call opening_dashed_line a,b
del 2
model wire
addx 2"
addy 3*(b-12")/7+7"
rect a-4",4*(b-12")/7+2"
addx 1"
addy 1"
rect a-6",4*(b-12")/7
call pattern_ a-6",4*(b-12")/7,c
del 4
end