                                         ;(q/text  0 0 10 10 )
 
   (q/background 25 25 255)
-  (q/with-translation [ (* (get  @bd :velocity ) 10) 1 1]
-    (q/rect 15 (* ( mod16) 25) 300 300)
+  (q/fill 0 (get @sd :velocity ) 2)
+  (q/with-translation [(* ( get @ch :pan) 10  )  (* (get  @bd :velocity ) 10) 1 ]
+    (q/rect 15 (* ( mod16) 0) 300 300)
     (println (mod16))
     )
 

              (if (and (= channel 15) (and (= note 60) (= vel 64)))
                (swap! bbeat inc)
                ;(concat (print "note =") (println  note ))

                (if (= channel 0)
                  (swap! bd assoc :note note :velocity vel)
                  ;(println (concat (print "stuff = ") (print note)))

                  (if (= channel 1)
                    (swap! sd assoc :note note)
                    )))

              ))
          ::keyboard-handler)




            ;(print " ")
            ;(print (:note e) )
            ;(print " ")


            (let [note (:note e)
                  vel  (:velocity e)
