From 45ac8423005e42202a49cee5c8e14f9192da37b2 Mon Sep 17 00:00:00 2001 From: arne Date: Sat, 28 Apr 2018 09:23:41 +0200 Subject: [PATCH] Aphorism three --- src/aphorisms/three.clj | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 src/aphorisms/three.clj diff --git a/src/aphorisms/three.clj b/src/aphorisms/three.clj new file mode 100644 index 0000000..3225a46 --- /dev/null +++ b/src/aphorisms/three.clj @@ -0,0 +1,37 @@ +(ns aphorisms.three + (:require [quil.core :as q] + [quil.middleware :as m])) + +(def golden-ratio 1.61803) + +(defn settings [] + (q/pixel-density (q/display-density))) + +(defn setup [] + (q/frame-rate 30) + (q/color-mode :hsb) + {}) + +(def update-state identity) + +(defn draw-state [_] + (q/background 240) + (q/rect-mode :center) + (q/with-translation [(/ (q/width) 2) + (/ (q/height) 2)] + (doseq [i (range 1 7)] + (let [side (/ 100 (* i golden-ratio)) + color (mod (+ 240 (/ 255 (* i golden-ratio))) 255)] + (q/no-stroke) + (q/fill color 255 255) + (q/rect side side side side))))) + +(q/defsketch aphorism-thrre + :title "Three" + :size [500 500] + :settings settings + :setup setup + :update update-state + :draw draw-state + :features [:keep-on-top] + :middleware [m/fun-mode m/pause-on-error])