Proce55ing S-expression

Preferences.java を眺めたりしている。とりあえず多少遅いとはいえ emacs で作業できているからまあいいかなぁ。
目標としては以下のような感じでS式ベースでP5 を記述したい。S式にこだわっている、というより、Proce55ing の PApplet クラスと各種プラットフォームで動くようにつくってある Proce55ing の良さ、を CL から使いたいだけ。まあ実装が Java なので、Java でスケッチを書くのが自然でベターなのは分かっているのだけれど。

;; sketch
(defsketch foo 
  (:setup
     (progn
       (size 200 200)
       (color-mode  HSB 16)))
  (:draw
     #'(lambda ()
          (no-stroke)
          (text "a" (random width) (random height))))

(defkeypressed ()
   (case key
     (#\q (exit))))