! Document name: opening_dashed_line

! name: opening dashed line 24.04.1989.
! intrenal macro: -

pars width, height

let t=sqr(a*a+b*b/4)
let k=int(t/0.15)
let n=t/(3*k-1)
if n<=0 then 10
let p=atn(b/2/a)
rotz p
for i=0 to 3*k-3 step 3

lin_ i*n,0,0,(2+i)*n,0,0
next i

addx t
rotz 2*(90-p)

for i=0 to 3*k-3 step 3

lin_ i*n,0,0,(2+i)*n,0,0
next i
del top
10: end