scheme - スキームで再帰的な六角形アートを描く方法は?

Question

上記のようなスキームで再帰的なアートを描きたい場合、どのようにアプローチすればよいでしょうか?

これは、スキームのシェルピンスキー三角形から編集した（今のところ完全には機能していません）ラフドラフトです。

ありがとう！

(define (hax fn)
    (repeat 6 (lambda () (fn) (lt 60))))

(define (haxa d k)
    (hax (lambda ()
            (if (= k 1) (fd d) (haxaleg d k)))))

(define (haxaleg d k)
    (haxa (/ d 2) (- k 1))
    (penup)
    (fd (* d 1.72))
    (lt 120)
    (pendown))