musikinformatik-wise-24.org

Automation mit temporaler Rekursion

Analog zum Kapitel über Scheduling kann eine Automation natürlich auch mit temporaler Rekursion realisiert werden:

(in-package :clamps)

(defun line-process (ref start end duration &optional (resolution 0.01))
  (let ((endtime (+ (now) duration))
        (xinc (/ resolution duration))
        (x 0))
    (labels ((inner (time)
               (when (<= time endtime)
                 (let ((next (+ time resolution)))
                   (set-val ref (n-lin x start end))
                   (incf x xinc)
                   (at next #'inner next)))))
      (inner (now)))))

(line-process *slider1* 0 127 2)

Aufgabe

Reformuliert die Definitionen von phasor-proc und lfo-proc aus dem letzten Abschnitt mit Hilfe von zeitlicher Rekursion und labels.

Created: 2025-02-12 Mi 20:35

Validate