 (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)

  (set! (.-lineWidth ctx) 0)
  (.beginPath ctx)
  (.arc ctx x y size 0 (* 2 Math/PI))
  (.fill ctx)
  )

(defn fill-rect [x y w h color]
  (set! (.-fillStyle ctx) color)

  (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")
