       (q/ellipse x y 50 50)
       (q/fill (:color state) 255 255)
       (q/ellipse x y 25 25)
-      (q/ellipse x y 1 1)))
-  )
+      (q/ellipse x y 1 1))))
 
-;; LifeInLights sketch
-;; Artist: Galen Arnett
-;; Date Created: 2016-01-19
+(defn draw-state [state]
+
+  ; Clear the sketch by filling it with light-grey color.
+  (q/background 0)
+  ; Set circle color.
+  (q/fill (:color state) 255 255)
+
+  (draw-all state (/ (q/width) 4) (* 2 (/ (q/height) 3)))
+ 
+  (draw-all state (* 3 (/ (q/width) 4)) (* 2 (/ (q/height) 3))))
+
+;; ;; LifeInLights sketch
+;; ;; Artist: Galen Arnett
+;; ;; Date Created: 2016-01-19
 
 ;; (q/defsketch bet-you-miss
 ;;   :title "Bet You Miss - Galen Arnett"

        x (* -175 (q/sin angle))
        y (* 175 (q/sin angle))]
    ; Move origin point to the center of the sketch.
    (q/with-translation [(/ (q/width) 2)
                         (/ (q/height) 2)]
      ; Draw the circle.
      (q/ellipse x y 100 100)
      (q/fill 255 (:color state) 255)

        x (* 175 (q/cos angle))
        y (* 175 (q/sin angle))]
    ; Move origin point to the center of the sketch.
    (q/with-translation [translation-x translation-y]
      ; Draw the circle.
      (q/ellipse x y 100 100)
      (q/fill 255 (:color state) 255)
