! Document name: coque.

!coque contrepoint mai 87

addx -a/2
addy -b/2
let u=15
let d=b*sin (u/2)
addy b
rotx 82.5

For i=1 to 12
rotx u
rect a,d
addy d
next i

del top
end