! Document name: ddoor

! name         : ddoor
! written by  : Akos
! internal macro : leaf
let a=a/2
addx -a
roty 30
CALL "leaf" a,b,c
del 2
mulx -1
addx -a
roty 30
CALL "leaf" a,b,c
del top
end