2006-08-22 08:40:58

tree svg

Thanks to PAIP and the svg library I have been working on. I now have a bastardized version of logo that can create svg files.Here is an example:

(svg-logo #p"/tmp/bar.svg"
   (to (rtree size)
      (if (greater? size 5)
           (fd size)
           (lt 30) (rtree (product size (quotient (sum (random 5) 5) 10)))
           (rt 60) (rtree (product size (quotient (sum (random 5) 5) 10)))
           (lt 30) (bk size))))
        (rtree 100))