TTYとLispで再帰図形

Easy-ISLispの簡易グラフィクスを改良しました。ttyモードでフォントが小さい問題は再設定で見やすくすることができました。懐かしいCカーブも表示されています。ご紹介します。

フォントサイズ

ttyモードに入ったら次によりフォントの再設定ができます。

sudo pdkg-reconfigure console-setup

ここでUTF8、Terminus、１６＊３２を選択します。
すると見やすい文字表示になります。

c-curve

有名な再帰図形です。初めて知ったのはウインストンのLisp本でした。

コードは下記のとおりです。

;; C-Curve recursive drawing
;; Uses gr-line to draw on /dev/fb0

(defun c-curve (x0 y0 x1 y1 depth)
  (if (= depth 0)
      (gr-line x0 y0 x1 y1 'red)
      (let* ((mx (div (+ x0 x1) 2))
             (my (div (+ y0 y1) 2))
             (dx (- x1 x0))
             (dy (- y1 y0))
             (nx (+ mx (div (- dy) 2)))
             (ny (+ my (div dx 2))))
        (c-curve x0 y0 nx ny (- depth 1))
        (c-curve nx ny x1 y1 (- depth 1)))))

;; Example usage
(defun draw ()
  (gr-open)
  (gr-cls 'black)
  (c-curve 1200 300 1500 600 10))

学習目的

実用ということになるとOPEN-GLということになろうかと思います。しかし、再帰図形の不思議を味わうにはこちらの方が優れています。付属エディタのEdlisももともとCUIエディタなので問題なく使えます。初期のパソコンで動作したテキサスインスツルメントのPC-Schemeを思い出します。どうぞお試しください。