From this topic:
viewtopic.php?f=39&t=39723
I've taken this code's piece from this post:
stevethefiddle wrote:Here's some code that will produce a wavetable with a 50% sine pulse.
Note that unlike the other wavetables this one is all in the positive half of the waveform, so you don't needin the "sweep" function.
- Code: Select all
(mult 0.5 (sum 1.0 ..... ))
- Code: Select all
(setq duration 0.5)
(abs-env
(progn
;; half sine wave
;(setq si (abs-env (osc (hz-to-step 1.0) duration *sine-table* 0)))
;; full sine wave
(setq si (mult 0.5 (sum 1 (osc (hz-to-step 2.0) duration *sine-table* 270))))
;; add silence
(setq pulse (sim si (s-rest 1)))
;; create wavetable
(setq *waveform* (list pulse (hz-to-step 1) T))))
; test it
;(osc 69 1 *waveform*)
(mult s (fmlfo (pwlv 20 1.0 10) *waveform*))
I added a few things and the end was this.
Thanks to Steve for the code.
}
