(ns quil-exp.core (:require [quil.core :as q] [quil.middleware :as m]))
(defn setup [] (q/frame-rate 30) (q/color-mode :hsb) (q/rect-mode :radius))
(defn update-state [state] state)
(defn rectangles [] (q/rect 100 100 40 40) (q/rect 250 100 40 40) (q/rect 400 100 40 40))
(defn lines [] (q/curve 100 100 100 100 400 100 400 100))
(defn draw-state [state] (q/background 240) (lines) (rectangles))
(q/defsketch quil-exp :size [500 500] :setup setup :update update-state :draw draw-state :features [:keep-on-top] :middleware [m/fun-mode] :renderer :p3d)
--
You received this message because you are subscribed to the Google Groups "clj-processing" group.
To unsubscribe from this group and stop receiving emails from it, send an email to clj-processin...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.