f buffer) freq chunk-size)
  (with-samples ((phs (phasor freq 0)))
    (stereo (* (cos (* (- phs 0.5d0) pi))
               (buffer-read buf (* phs 441
                                   (samphold chunk-size phs 0 1))
                            <span style="color: #b0c4de;">:wrap-p</span> t <span style="color: #b0c4de;">:interpolation</span> <span style="color: #b0c4de;">:cubic</span>)))))

<span class="prompt">SCRATCH&gt;</span> (b09-sampler-loop-smooth loop-1 .75 50 <span style="color: #b0c4de;">:id</spa