ClojureのグラフィカルツールseesawとQuilを用いた実装

> git clone https://github.com/clj-commons/seesaw

> lein examples

(defproject hello-seesaw "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"
            :url "https://www.eclipse.org/legal/epl-2.0/"}
  :dependencies [[org.clojure/clojure "1.11.1"]
                 [seesaw "1.5.0"]]
  :repl-options {:init-ns hello-seesaw.core})*

(ns hello-seesaw.core
  (:use seesaw.core))

(native!)

(def f (frame :title "Get to know Seesaw"))

(-> f pack! show!)

(config f :title)

(config! f :title "No RLY, get to know Seesaw!")

(config! f :content "This is some content")

(def lbl (label "I'm another label"))

(config! f :content lbl)

(defn display [content]
  (config! f :content content)
  content)

(display lbl)

(config! lbl :background :pink :foreground "#00f")

(config! lbl :font "ARIAL-BOLD-21")

(def window (seesaw/frame
   :title "First Example"
   :content "hello world"
   :width 200
   :height 50))

(seesaw/show! window)

(ns hello-seesaw.core
  (:require 
    [seesaw
     [core :refer :all]
     [graphics :refer :all]]))

(defprotocol Shape
  (painter [this]))

(def h 500)

(def w 500)

(defn view
"Shapeの集合を描画する。"
  [coll]
  (let [draw (fn [c g]
               ;; flip y-axis
               (scale g 1 -1)
               (translate g 0 (- (height c)))
               (doseq [x coll] ((painter x) c g)))
        cvs (canvas :paint draw)
        f (frame :width w :height h :content cvs)]
    (show! f)))

(defrecord Triangle [a b c color]
  Shape
  (painter [_]
    (fn [_ g] (draw g
                    (polygon  a b c)
                    (style :foreground :black :background color)))))

;; constructor

(defn triangle [a b c &{:keys [color]}]
  (->Triangle a b c color))

(defn mid
  "x,yの中点を返す"
  [x y]
  (mapv (fn [x y] (/ (+ x y) 2)) x y))

(defn parts
  "三角形を４つの部分に分割する。中央の三角形を緑にする。"
  [^Triangle {:keys [a b c]}]
  (list (triangle a (mid a b) (mid a c))
        (triangle b (mid b c) (mid b a))
        (triangle c (mid c a) (mid c b))
        (triangle (mid a b) (mid b c) (mid c a) :color :green)))

(defn parts-n
  　"partsをn回適用する事で、三角形を分割する"
  [n ^Triangle x ]
  (nth (iterate #(mapcat parts %) [x]) n))

(view (parts-n 3 (triangle [100 100] [250 400] [400 100])))

(ns example
  (:require [quil.core :as q]))

(defn setup []
  (q/frame-rate 60))

(defn draw []
  (q/background 255)
  (q/ellipse (q/mouse-x) (q/mouse-y) 50 50))

(q/defsketch example
  :title "Example Sketch"
  :setup setup
  :draw draw)