       (let [x (* step dx)]
         (draw g (rounded-rect x 0 dx h) current-step-style)))
     (dotimes [r rows]
-      (let [y (* r dy)
-            p (get-param-info state r)]
+      (let [y (* r dy)]
         (draw g (line 0 y w y) grid-line-style)
         (dotimes [c cols]
           (let [x (* c dx)]
             (draw g (line x 0 x h) grid-line-style)
-            (when-let [val (get-entry state r c)]
-              (let [paint-cell
-                    #(draw g
-                           (rounded-rect (+ x 2) (+ y 2) (- dx 3) (- dy 3) 3 3)
-                           %)]
-                (if (:on val)
-                  (let [p-fact (get-param-factor p val)]
-                    (paint-cell (scaled-entry-style p-fact)))
-                  (paint-cell muted-entry-style))))))))))
-
-(defn- scaled-param-map
-  [state row val]
-  (let [{:keys [max min name]} (get-param-info state row)
-        p-name (keyword name)
-        p-val (-> val
-                (* (- max min))
-                (+ min))]
-    {p-name p-val}))
+            (when (get-entry state r c)
+              (draw g
+                    (rounded-rect (+ x 2) (+ y 2) (- dx 4) (- dy 4) 8 8)
+                    enabled-entry-style))))))
+    (draw g (rect 0 0 (dec w) (dec h)) grid-line-style)))
 
 (defn- parse-grid-click
   [state e]

      (use 'overtone.gui.control)
      (use 'overtone.inst.drum)
      (def m (metronome 128))
      (step-sequencer m 8 [kick closed-hat snare]))
  )

(defn- inst-button
  [inst]
  (button :text (:name inst)
          :listen [:action (fn [_] (synth-controller inst))]))

(defn- inst-panel
  [state-atom inst]
  (inst-button inst))

(defn step-sequencer
  [metro steps instruments & [init-vals]]
  (invoke-now
    (let [state-atom   (atom (make-initial-state metro steps instruments init-vals))
          play-btn     (button :text "Play")
          bpm-spinner  (spinner :model (spinner-model (metro :bpm) :from 1 :to 10000 :by 1)
                                :maximum-size [60 :by 100])
          controls-btn (button :text "Controls" :tip "Show controls for all insts")
          plus-btn     (button :text "+" :tip "Add a column")
          minus-btn    (button :text "-" :tip "Remove a column")
          control-pane (toolbar :floatable? false
                                :items [play-btn    [:fill-h 5]
                                        bpm-spinner [:fill-h 5] "bpm"])
          grid         (step-grid state-atom)
          inst-panels  (map (partial inst-panel state-atom)
                            instruments)
