aUCBLogo Demos and Tests / rbox

to rbox [:s 200] [:f 2]
   pu rt 45 fd :s*(1-1/:f)/sqrt 2 lt 45 pd
   repeat 4
   [   arc 90 :s/(2*:f)
      pu rt 90 fd :s/(2*:f) rt 90 pd
      fd :s*(1-1/:f)
      pu rt 90 fd :s/(2*:f) pd
      lt 180
   ]
   pu lt 90+45 fd :s*(1-1/:f)/sqrt 2 rt 45+90 pd
end