(with-sound(:srate 44100
        :channels 2
        :reverb nrev
        :decay-time 1
            :reverb-data (:lp-coeff 0.6 :volume 0.5))
  (setf cells (make-cells 20 :base 440 :limit 2))
  (sine-cells 0 1 cells (pan-cells 20 :left 0 :right 90))
  (loop for start from 1 to 10 by 0.5 do
    (setf cells (step-cells cells 2))
    (sine-cells start 0.5 cells (pan-cells 20 :left 0 :right 90))))
 

; FROM CONSONANCE TO DISSONANCE

(with-sound(:srate 44100
        :channels 2
        :reverb nrev
        :decay-time 1
            :reverb-data (:lp-coeff 0.6 :volume 0.5))
  (setf cells (make-cells 20 :base 440 :limit 1))
  (sine-cells 0 1 cells (pan-cells 20 :left 0 :right 90))
  (setf pat (new pattern 1 2 3 4 5 6 7 8 9 10 11 in line))
  (loop for start from 1 to 15 by 1 do
    (setf cells (step-cells cells (next pat)))
    (sine-cells start 1 cells (pan-cells 20 :left 0 :right 90))))