Clojurians Log v2

Wait @frankleonrose … one can define “custom” (reusable) ugens like that? If so that’s pretty cool.

First time for me, too.

This is awesome

This way works - use latch to record to prior value:

(defcgen track-value
  "Generate tracking value from single parameter."
  [value    {:doc "Value to reach."}
   duration {:default 1 :doc "Time in seconds to settle on new value."}
   curve    {:default :linear}]
  (:kr (let [[trigger current] (local-in:kr 2)
             last (latch value trigger)
             trigger-pulse (trig (absdif last value))
             tracker (env-gen:kr (envelope [current current value]
                                                 [0 duration] curve)
                                    trigger)
             ;; Use select to handle initial condition - when last is 0,
             ;; value should immediately take the initial value
             tracking-value (select:kr
                             (thresh 1 (+ 1 last))
                             [tracker value])]
         ;; Feeding tracking-value back allows restarted envelope to start
         ;; at current, even when it's in motion from a recent change of value.
         (local-out:kr [trigger-pulse tracking-value])
         tracking-value)))

(definst tone-inst [freq 440]
  (let [tracking-freq (track-value freq 2 :curve :exponential)]
    (pan2 (sin-osc tracking-freq))))

(def t (tone-inst))
(ctl t :freq 2000)
(ctl t :freq 300)

can you share the synth? I wouldn't mind giving it a shot.

Perhaps you can use and envelope (`env-gen` + envelope). Or check out the demand ugens ( I don’t really know them, but my belief is that they are used for sequencing in the SC server).

Hey, thanks! Here is the one I'm using: (sy/defsynth tone "i'm just a tone" [note 60 scaled-duration 1.0 output-bus 0 gate 1 ] (let [envl (u/env-gen:ar (envel/envelope [0.1 1 1 0.001 0] [0.2 scaled-duration 20 1] [1 1 -10 1]) :action u/FREE) sig (as-> note $ (u/midicps $) (- $ (* 1 (u/sin-osc:kr 0.5) )) ;vib (+ (u/var-saw $ :width 0.9) (u/sin-osc $)) (* $ envl) ;adsr (u/free-verb $ :mix 0.4 :room 0.7) (u/lpf $ 800) ;low pass filter (u/softclip $) (* $ 0.4) )] (u/out output-bus sig)))

Code https://github.com/supercollider/scbookcode/tree/v2.0