; shapes
(clear)
(stroke 
  (rect 0 0 300 300) "red")
(stroke 
  (circle 150 150 150) "white")
(stroke 
  (ellipse 150 150 75 150) "red")
(stroke 
  (line 0 150 300 150) "red")
(stroke 
  (text 600 300 60 "hell") "white")
(stroke 
  (arc 600 298 296 
    (rad 180) 
    (rad -90)) "white")
(stroke 
  (poly 
    (pos 300 300) 
    (pos 600 0) 
    (pos 600 300)) "red")
(transform:move 0 300)
(fill 
  (rect 0 0 300 300) "red")
(fill 
  (circle 150 150 150) "white")
(fill 
  (ellipse 150 150 75 150) "red")
(fill 
  (line 0 150 300 150) "red")
(fill 
  (text 600 300 60 "hell") "white")
(fill 
  (arc 600 298 296 
    (rad 180) 
    (rad -90)) "white")
(fill 
  (poly 
    (pos 300 300) 
    (pos 600 0) 
    (pos 600 300)) "red")
(transform:reset)