anchor.diff:      (rts))
   
   
  -  (flet ((emit-frame (frame)
  -           (setf frame (pad-frame frame))
  -           (unless (gethash frame regs-table)
  -             (setf (gethash frame regs-table) *origin*)
  -             ;; Reverse order, because player scans backward!
  -             (dolist (pair (reverse frame)) (apply 'db pair)))
  -           (push (gethash frame regs-table) music-sequence)))
  +  (labels
  +      ((emit-frame (frame)
  +         (setf frame (pad-frame frame))
  +         (unless (gethash frame regs-table)
  +           (setf (gethash frame regs-table) *origin*)
  +           ;; Reverse order, because player scans backward!
  +           (dolist (pair (reverse frame)) (apply 'db pair)))
  +         (push (gethash frame regs-table) music-sequence))
  +
  +       ;; Song elements:
  +
  +       (phase-aaab (a b) (seq a a a b))
  +
  +       (four-on-the-floor () (repeat 4 (thump 32 (et -24))))
  +
  +       (rhythm (fn notes &optional (transpose 0))
  +         (seq
  +          (funcall fn 32 (et transpose (nth 0 notes)))
  +          (funcall fn 24 (et transpose (nth 1 notes)))
  +          (funcall fn 16 (et transpose (nth 2 notes)))
  +          (funcall fn 24 (et transpose (nth 3 notes)))
  +          (funcall fn 32 (et transpose (nth 4 notes)))))
  +
  +       (swagger ()
  +         (seq
  +          (kick 16)
  +          (hat 8)
  +          (hat 8)
  +          (snare 16)
  +          (hat 8)
  +          (hat 8 4)))
  +
  +       (stagger ()
  +         (seq
  +          (hat 8)
  +          (kick 8)
  +          (hat 8)
  +          (hat 8)
  +          (snare 16)
  +          (rst 16)))
  +
  +       (jagger ()
  +         (seq
  +          (shaker 8 15)
  +          (shaker 8 4)
  +          (shaker 8 8)
  +          (shaker 8 12)
  +          (shaker 8 15)
  +          (shaker 8 5)
  +          (shaker 8 11)
  +          (shaker 8 14)))
  +
  +       (intro-beat ()
  +         (measure
  +          (four-on-the-floor)
  +          (seq
  +           (swagger)
  +           (swagger))))
  +
  +       (intro-fill-1 ()
  +         (measure
  +          (four-on-the-floor)
  +          (seq (swagger)
  +               (stagger))))
  +
  +       (intro-fill-2 ()
  +         (measure
  +          (four-on-the-floor)
  +          (seq (jagger)
  +               (jagger))))
  +       )
   
       (align 16)
       (mapcar
        #'emit-frame
  -     (segment
  -      128
  -      (para
  -       (seq
  -        (thump 32 (et -12))
  -        (thump 24 (et -12 2))
  -        (thump 16 (et -12 2))
  -        (thump 24 (et -12 3))
  -        (thump 32 (et -12 5)))
  -       (seq
  -        (kick 16)
  -        (hat 8)
  -        (hat 8)
  -        (snare 16)
  -        (hat 8)
  -        (hat 8 4)
  -        (hat 8)
  -        (kick 8)
  -        (hat 8)
  -        (hat 8)
  -        (snare 16)
  -        (rst 16)))
  +
  +     (seq
  +
  +      (seq
  +       (para
  +        (phase-aaab
  +         (measure
  +          (rhythm #'thump '(0 0 0 0 7) -12)
  +          (seq (swagger) (stagger)))
  +         (measure
  +          (seq (stagger) (stagger))
  +          (four-on-the-floor)))
  +        (seq
  +         (repeat 2 (note 0 32 (et 0) :cfg '(:env t :vol 2 :loop nil)))
  +         (repeat 1 (arpeggio 0 128 (chord 0.0 0 12 0 3 11 14 7 17 0 17 12 19 15 17 10 15) :d 15 :rate 8 :env t :loop nil :volume (constantly 3) :mute t))
  +         (repeat 2 (note 0 32 (et 0) :cfg '(:env t :vol 2 :loop nil)))
  +         ;;(fat-arp 128 '(0.0 0 12 0 3 11 14 7 17 0 17 12 19 15 17 20 19) :d 6 :rate 8 :env t :loop nil :volume (constantly 8) :mute nil)
  +         ))
  +       (phase-aaab
  +        (measure
  +         (seq (swagger) (stagger))
  +         (rhythm #'bthump '(0 3 3 -2 0) -12))
  +        (measure
  +         (seq (stagger) (jagger)))))
  +
  +      (seq
  +       (para
  +        (phase-aaab
  +         (intro-beat)
  +         (intro-fill-1))
  +        (seq
  +         (measure (fat-arp 128 '(0.00  0 3 7 11) :rate 4 :volume (volramp 6 -1/24)))
  +         (measure (fat-arp 128 '(0.00  0 2 5 8 ) :rate 4 :volume (volramp 8 -1/22)))
  +         (measure (fat-arp 128 '(0.00  -2 7 8 12 ) :rate 4 :volume (volramp 9 -1/20)))
  +         (measure (fat-arp 128 '(0.00  -1 2 3 7 ) :rate 4 :volume (volramp 10 -1/18)))))
  +
  +       (para
  +        (phase-aaab
  +         (intro-beat)
  +         (intro-fill-2))
  +        (seq
  +         (measure (arpeggio 0 128 (chord -0.02  0 3 7 11) :rate 4 :volume (volramp 11 -1/16))
  +                  (arpeggio 1 128 (chord  0.02  12 0 3 14 7 11) :rate 3 :volume (volramp 11 -1/13)))
  +         (measure (arpeggio 0 128 (chord -0.02  0 2 5 8) :rate 4 :volume (volramp 12 -1/14))
  +                  (arpeggio 1 128 (chord  0.02  2 5 8 12 15) :rate 3 :volume (volramp 12 -1/14)))
  +         (measure (arpeggio 0 128 (chord -0.02  -2 7 8 12) :rate 4 :volume (volramp 13 -1/12))
  +                  (arpeggio 1 128 (chord  0.02  5 15 8 12 15 17) :rate 3 :volume (volramp 13 -1/12)))
  +         (measure (arpeggio 0 128 (chord -0.02  -1 2 3 7) :rate 4 :volume (volramp 15 -1/10) :mute t)
  +                  (arpeggio 1 128 (chord  0.02  3 7 14 11 19 14) :rate 4 :volume (volramp 15 -1/10) :mute t)))))))
   
   
   
  
positive.code:         (tri 1 (* pitch 2/3))
          (tri 1 (* pitch 1/2)))))
  
  (defun rst (length) (segment length nil))
  
  
  
  (defun wait (&optional (frames 20))
    (ldx (imm frames))
  
negative.code: (defun para (&rest args)
    (apply #'mapcar #'append (mapcar (lambda (x) (pad-list x nil (reduce #'max args :key #'length))) args)))
  
  (defun measure (&rest args)
    (segment 128 (apply 'para args)))
  
  ;;; These look familiar:
  (defun seq (&rest args)
    (apply #'concatenate 'list args))
  