   (set! (.-lineWidth ctx) 0)
   (.beginPath ctx)
   (.arc ctx x y size 0 (* 2 Math/PI))
-  (.fill ctx)
-  )
+  (.fill ctx))
 
 (defn fill-rect [x y w h color]
   (set! (.-fillStyle ctx) color)

(fill-rect 1440 420 40 100 "#B1D8FA")
(fill-rect 1440 520 40 100 "#3874A8")
(fill-rect 1440 620 40 100 "#7D4BBF")


(write-text-s1-black "DE" 1450 74)
(write-text-s1-black "LT" 1450 174)

  (dotimes [n vertical-lines] (.log js/console "Index: " n)
           (draw-line (+ x1 (* n 100)) y1 (+ x2 (* n 100)) y2)))

(fill-rect 1440 20 40 100 "red")
(fill-rect 1440 120 40 100 "orange")
(fill-rect 1440 220 40 100 "#F5D282")
