star

gistfile1.txt

(define-image "/tmp/push.png" (500 500)
  (steps
   (move 0 0)
   (rectangle 0 0 500 500)
   (color 0.2 0.2 0.2 1.0)
   (fill)

   (push)

   (translate 250 250)
   (color 0.9 0.0 0.0 0.7)
   (rectangle 0 0 100 100)
   (fill)

   (push)

   (rotate 5)
   (color 0.9 0.9 0.0 0.7)
   (rectangle 0 0 100 100)
   (fill)

   (push)

   (rotate 5)
   (color 0.0 0.9 0.9 0.7)
   (rectangle 0 0 100 100)
   (fill)

   (push)

   (rotate 5)
   (color 0.0 0.7 0.0 0.7)
   (rectangle 0 0 100 100)
   (fill)

   (push)

   (rotate 5)
   (color 0.7 0.0 0.7 0.7)
   (rectangle 0 0 100 100)
   (fill)))