near/heyarne.aphorisms
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

git commit --all

Browse source
This commit is contained in:
arne 2021-12-22 22:15:54 +01:00
commit fa90185e31
4 changed files with 79 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/aphorisms/twenty-one.clj
View file

@ -20,10 +20,10 @@
state)
(def canvas
(as-> (g/scale bounds 0.92) b
(as-> (g/scale bounds 0.8) b
(g/translate b (m/* (m/- (:size bounds) (:size b)) 0.5))))
(def tile-size 10)
(def tile-size 20)
(defn draw-tile [[x y] tile-type]
(let [start (case tile-type
@ -46,15 +46,11 @@
(* 0.0000033 y (q/millis)))]]
(draw-tile [x y] (pick-at [:a :b] n))))
(g/scale bounds 0.92)
(g/scale (:size bounds) 0.92)
#_:clj-kondo/ignore
(q/defsketch twenty-one
:title "Twenty-One"
:size (:size bounds)
:Settings #(q/pixel-density (q/display-density))
:settings #(q/pixel-density (q/display-density))
:setup setup
:update update-state
:draw draw-state