Fix underlines in paths
This commit is contained in:
parent
fa90185e31
commit
cece06ba7f
4 changed files with 41 additions and 0 deletions
|
|
@ -1,40 +0,0 @@
|
|||
(ns aphorisms.twenty-three
|
||||
(:require [quil.core :as q]
|
||||
[quil.middleware :as qm]
|
||||
[thi.ng.geom.rect :as r]
|
||||
[thi.ng.geom.core :as g]
|
||||
[thi.ng.math.core :as m]))
|
||||
|
||||
;; I'm in bed. It is 9th of October, the temperatures are mild, the sund is
|
||||
;; shining and my girlfriend is reading me texts about the physical appearance
|
||||
;; of angels.
|
||||
|
||||
(def bounds (r/rect 500 500))
|
||||
|
||||
(defn setup []
|
||||
(q/frame-rate 30)
|
||||
(q/ellipse-mode :center)
|
||||
(q/color-mode :hsb 360 100 100)
|
||||
{:n 1})
|
||||
|
||||
(defn update-state [_]
|
||||
{:n (inc (q/seconds))})
|
||||
|
||||
(defn draw-state [{n :n}]
|
||||
(q/with-translation (g/centroid bounds)
|
||||
(q/background 0 0 95)
|
||||
(q/no-fill)
|
||||
(dotimes [i n]
|
||||
(q/with-rotation [(m/radians (* i 6))]
|
||||
(q/stroke (mod (+ 170 (* i 3)) 360) 80 100 90)
|
||||
(q/ellipse 0 (* i 2) 16 (+ (* i 10) 100))))))
|
||||
|
||||
#_:clj-kondo/ignore
|
||||
(q/defsketch twenty-three
|
||||
:title "Twenty-Three"
|
||||
:size (:size bounds)
|
||||
:settings #(q/pixel-density (q/display-density))
|
||||
:setup setup
|
||||
:update update-state
|
||||
:draw draw-state
|
||||
:middleware [qm/pause-on-error qm/fun-mode])
|
||||
Loading…
Add table
Add a link
Reference in a new issue