         num-rings (- (* num-flowers 2) 1)
         flower-sizes (take num-flowers sizes)
         ring-sizes (take num-rings sizes)]
-
     (q/stroke-weight 1)
     (doseq [size flower-sizes] (flower size))
     (q/stroke-weight 2)

  (q/stroke 255)
  (q/stroke-weight 1)
  (render)
  ; (q/save "flower.png")
  )

(defn step [state] state)

    :draw draw
    :size [width height]
    ))
; (run)
