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

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

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

  ;(newt/update-particles width height)
  {
                                        ;:fm @(:left fmtonestaps)
   :beat @bbeat
   :bd @bd
   :sd @sd
   :ch @ch
   :oh @oh
   :pc1 @pc1
   :pc2 @pc2
   :ld1 @ld1
   :ld2 @ld2
   :chords @chords
   :keys @keys

   ;:drumbus @(audio-bus-monitor 0)
   ;:contrabus @(audio-bus-monitor 2)
   ;:fmtonesbus @(audio-bus-monitor 4)
