(ns my.core
(:require [quil.core :as q :include-macros true]
[quil.middleware :as m]))
(defn setup []
(q/frame-rate 30)
{:graphic (q/create-graphics 500 500)})
(defn draw-state [state]
(q/with-graphics (:graphic state)
(q/background 240)
;; With the 0.5 the shape has no fill. Remove the 0.5 and it is a solid color
(q/fill 100 140 255 0.5)
(q/ellipse 100 100 100 100))
(q/image (:graphic state) 0 0))
(q/defsketch my
:host "host"
:size [500 500]
:setup setup
:draw draw-state
:middleware [m/fun-mode])