       (quil/text "HSL Spectrum" 0 0)
       (let [width 480, height 100]
         (quil/fill 0)
-        (quil/stroke (color/gray 0.5))
-        (quil/rect 0 10 width height)
+        (quil/stroke (color/gray 0.75))
+        (quil/rect -1 9 (inc width) (inc height))
         (doseq [x (range 0 width)
                 y (range 0 height)]
           (quil/stroke (color/hsl (/ x width) 1 (- 1 (/ y height))))

  []
  (quil/frame-rate 5)
  (quil/text-font (quil/create-font "Courier" 18 true))
  (quil/background 0)
  (quil/stroke 0))


      (quil/text "HSV Spectrum" 0 0)
      (let [width 480, height 100]
        (quil/fill 0)
        (quil/stroke (color/gray 0.75))
        (quil/rect -1 9 (inc width) (inc height))
        (doseq [x (range 0 width)
                y (range 0 height)]
          (quil/stroke (color/hsv (/ x width) 1 (- 1 (/ y height))))
