! Document name: bifdoor_panel_E2

!name: bifdoor_panel_E   29.06.1989.
!internel macro: pattern_

pars width, height,spacing

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