<![CDATA[
;; Nathan Hjelm
(define hexfield
'((to hexfield (n c)
(if (= n 1)
(repeat 6
(forward 20)
(left 60)
(color (* c 60))
(make c (+ c 1))
)
(repeat 6
(forward 20)
(push)
(right 180)
(hexfield (- n 1) 0)
(pop)
(left 60)
)
)
)
(penup)
(forward 100)
(pendown)
(right 90)
(hexfield 3 0)
))
]]>
