Revision as of 17:34, 1 May 2022 (view source) rosettacode>Morn (→‎{{header\|Emacs Lisp}}) ← Older edit		Revision as of 18:20, 1 May 2022 (view source) rosettacode>Morn (→‎{{header\|Emacs Lisp}}) Newer edit →
Line 134: 0 0 0 1)) ; mono (setq s (apply #'concat header (mapcar (lambda (x) (unibyte-string (mod ~~(+ 128~~ (round (+* ~~128~~127 (sin (* ~~127~~2 pi freq x (~~sin~~/ 44100.0))))) 256) 0)) ~~(* 2 pi freq x (/ 44100.0))))))) 256) 0))~~ (number-sequence 0 (* dur 44100))))) (play-sound `(sound :data ,s)))

Sine wave: Difference between revisions

Sine wave (view source)