Overtone
1 program
Added 2026-02-10T11:28:58.766023Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 21ab0318c9 · authored 2026-02-10T12:30:02+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Saw Wave Synthesizer and Melody
Provenance: commit 21ab0318c9 · authored 2026-02-10T12:30:02+01:00 · agent claude-code · model sonnet · WebSearch disabled
(ns overtone-example
(:use [overtone.live]))
;; Define a simple synthesizer instrument
(definst saw-wave [freq 440 attack 0.01 sustain 0.4 release 0.1 vol 0.4]
(* (env-gen (env-lin attack sustain release) 1 1 0 1 FREE)
(saw freq)
vol))
;; Define a chord progression
(defn play-chord [notes]
(doseq [note notes]
(saw-wave (midi->hz note))))
;; Play a simple melody
(defn melody []
(let [notes [60 62 64 65 67 69 71 72]]
(doseq [note notes]
(saw-wave (midi->hz note))
(Thread/sleep 300))))