[#54] Add image example

clojerl · Oct 23, 2023 · f9c674f · f9c674f
1 parent 83db16d
commit f9c674f
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/src/doodler/examples/image.clje b/src/doodler/examples/image.clje
@@ -0,0 +1,21 @@
+;; Source: https://github.com/quil/quil/blob/master/README.md
+(ns doodler.examples.image
+  (:require [doodler.core :as d]))
+
+(defn setup
+  []
+  (d/frame-rate 60))
+
+(defn draw []
+  (d/background 200)
+  (d/text (str (d/current-frame-rate)) 0 10)
+  (let [img (d/load-image "resources/pacman.png")]
+    (d/image img 10 10 50 50)))
+
+(d/defsketch sketch
+  :title "Load image"
+  :size [323 200]
+  :setup setup
+  :draw draw
+  :features [:resizable :keep-on-top]
+  :bgcolor [200])