{"id":28821407,"url":"https://github.com/josephwilk/musical-creativity","last_synced_at":"2025-07-15T18:43:49.410Z","repository":{"id":6274617,"uuid":"7508282","full_name":"josephwilk/musical-creativity","owner":"josephwilk","description":"Models of Musical Creativity (in Clojure)","archived":false,"fork":false,"pushed_at":"2014-03-06T17:30:04.000Z","size":40094,"stargazers_count":133,"open_issues_count":0,"forks_count":7,"subscribers_count":10,"default_branch":"master","last_synced_at":"2025-06-18T22:36:52.971Z","etag":null,"topics":["ai","creativity","generative","music"],"latest_commit_sha":null,"homepage":"","language":"Clojure","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":null,"status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/josephwilk.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":null,"code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null}},"created_at":"2013-01-08T20:04:06.000Z","updated_at":"2025-05-29T23:33:07.000Z","dependencies_parsed_at":"2022-09-09T10:51:37.163Z","dependency_job_id":null,"html_url":"https://github.com/josephwilk/musical-creativity","commit_stats":null,"previous_names":[],"tags_count":0,"template":false,"template_full_name":null,"purl":"pkg:github/josephwilk/musical-creativity","repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/josephwilk%2Fmusical-creativity","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/josephwilk%2Fmusical-creativity/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/josephwilk%2Fmusical-creativity/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/josephwilk%2Fmusical-creativity/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/josephwilk","download_url":"https://codeload.github.com/josephwilk/musical-creativity/tar.gz/refs/heads/master","sbom_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/josephwilk%2Fmusical-creativity/sbom","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":265451553,"owners_count":23767777,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["ai","creativity","generative","music"],"created_at":"2025-06-18T22:31:19.533Z","updated_at":"2025-07-15T18:43:49.402Z","avatar_url":"https://github.com/josephwilk.png","language":"Clojure","funding_links":[],"categories":["📦 Legacy \u0026 Inactive Projects"],"sub_categories":[],"readme":"#Computer models of musical creativity\n\nExperiments with models for computers generating music.\n\n##Examples\n\n```clojure\n(require '[musical-creativity.musician :as musician] :reload)\n(use '[musical-creativity.instruments] :reload)\n\n;Cosine\n(require '[musical-creativity.composers.cosine :as cosine] :reload)\n(musician/play (cosine/compose) piano)\n\n;Cellular automata\n(require '[musical-creativity.composers.cellular-automata :as ca] :reload)\n(musician/play (ca/compose) organ)\n(musician/play (ca/compose ca/rule-22) sawish)\n\n;Sonify data\n(require '[musical-creativity.composers.sonify-data :as sonify-data] :reload)\n(musician/play (sonify-data/compose) piano)\n\n;Sonify text\n(require '[musical-creativity.composers.sonify-words :as sonify-words] :reload)\n(musician/play (sonify-words/compose \"Strange Loop Strange Loop\") piano)\n(musician/play (sonify-words/compose \"potato potato\") ping)\n\n;Network (Using adaptive resonance theory)\n(require '[musical-creativity.composers.network :as network] :reload)\n(musician/play (network/compose) piano)\n\n;Markov chains\n(require '[musical-creativity.composers.markov :as markov] :reload)\n(musician/play (markov/compose) piano)\n(musician/play (markov/compose) ping)\n\n(musician/play (markov/compose data.bach/bach1 [57 60 69] 1 50) piano)\n\n;with phrase mapping\n(musician/play (markov/compose data.bach/bach1 [57] 16 (* 5 16)) piano)\n\n;with naive voice extraction and phrase mapping\n(require '[musical-creativity.analyzer :as analyzer] :reload)\n; first extracted voice only and phrase mapping\n(musician/play (markov/compose (first (-\u003e data.bach/bach1\nanalyzer/group-by-time analyzer/extract-voices-min-distance)) [57] 16\n(* 16 5)) piano)\n; all voices added to model separately and phrase mapping\n(musician/play (markov/compose (flatten (-\u003e data.bach/bach1\nanalyzer/group-by-time analyzer/extract-voices-min-distance)) [57] 16\n(* 16 5)) piano)\n\n;multiple markov models\n(let [lead-voice    1\n      standard-prep #(-\u003e %\n                         analyzer/group-by-time\n                         analyzer/extract-voices-min-distance)\n      dur-prep      #(-\u003e\u003e %\n                    analyzer/group-by-time\n                    analyzer/extract-durations\n                    (map (fn [d] {:duration d}))\n                    vector)]\n    (markov/compose-multi-model\n     data.bach/bach1\n     50\n     :pitch     (markov/transition-source standard-prep\n                                          1 8 1 lead-voice)\n     :voices    (markov/transition-source #(-\u003e %\n                                               analyzer/group-by-time\n                                               vector)\n                                          1 4 1 0)\n     :harmonics (markov/harmonic-source standard-prep lead-voice [0 2 3])\n     :duration  (markov/transition-source dur-prep\n                                          1 4 4 :all)\n     :velocity  (markov/constant-source 128)))\n\n;Fuzzy\n(require '[musical-creativity.composers.fuzzy :as fuzzy] :reload)\n(musician/play (fuzzy/compose) piano)\n\n;Improvise\n;(very experimental)\n(require '[musical-creativity.composers.improvise :as improvise] :reload)\n(musician/play (improvise/compose) piano)\n\n(require '[musical-creativity.band :as band] :reload)\n(band/play (improvise/compose))\n\n;Recombinance (Based on Bach Choral no. 140)\n(require '[musical-creativity.composers.recombinance :as recombinance] :reload)\n(require '[data.bach :as bach] :reload)\n(recombinance/create-database-from bach/chorale-140-data)\n(musician/play (recombinance/compose) organ)\n(musician/play (recombinance/compose) piano)\n(musician/play (recombinance/compose) slow-piano)\n\n(musician/play (recombinance/compose-original) piano)\n\n;Gradus (with each run Gradus learns how to better compose)\n(require '[musical-creativity.composers.gradus :as gradus] :reload)\n\n(musician/play (gradus/compose) piano)\n\n(musician/play (gradus/compose-canon) piano)\n\n(musician/play (gradus/compose-canon data.gradus/cantus-firmus-1) piano)\n(musician/play (gradus/compose-canon data.gradus/cantus-firmus-2) piano)\n(musician/play (gradus/compose-canon data.gradus/cantus-firmus-7) piano)\n\n(musician/play (gradus/compose-contemporary) piano)\n```\n\n### Association Network (Apprentice)\n\n```clojure\n(require '[musical-creativity.composers.apprentice :as apprentice] :reload)\n(require '[musical-creativity.composers.apprentice.player :refer :all] :reload)\n\n(apprentice/apprentice play-all)\n```\n\nAn example musical conversion:\n\n```\nuser\u003e ceg!\nuser\u003e gbd?\nalice\u003e ceg!\nuser\u003e ceg fac gbd?\nalice\u003e fac ceg ceg!\nuser\u003e ceg fac gbd ceg!\nalice\u003e gbd?\nuser\u003e ceg!\nalice\u003e gbd?\nuser\u003e gbd?\nalice\u003e ceg!\n```\n\nWeightings:\n\n![Weightings](http://s7.postimg.org/r1igtc3wr/png8043032250889381797.png)\n\n\nA non musical dialog example:\n\n```\nuser\u003e hello!\nAlice\u003e your what your is name?\nuser\u003e my name is joseph!\nAlice\u003e name?\nuser\u003e your name is computer!\nAlice\u003e name?\nuser\u003e what is my name?\nAlice\u003e joseph!\nuser\u003e what is your name?\nAlice\u003e computer!\nuser\u003e no*\nuser\u003e what is your name?\nAlice\u003e joseph!\n```\n\n### Demos\n\n```clojure\n;;b11606b\n(musical-creativity.musician/play (map musical-creativity.events/midi-to-event data.bach.chorale-140/b11606b) piano)\n\n(require '[musical-creativity.composers.recombinance :as recombinance] :reload)\n(require '[data.bach :as bach] :reload)\n(recombinance/create-database-from bach/chorale-140-data)\n\n(musical-creativity.musician/play (map musical-creativity.events/midi-to-event ('b11606b-22 @beats-store)))\n```\n\n##Book\n\nBased on exercises from:\n\n![Computer Models of Musical Creativity](http://mitpress.mit.edu/covers/9780262033381.jpg)\n\nComputer Models of Musical Creativity http://mitpress.mit.edu/books/computer-models-musical-creativity\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fjosephwilk%2Fmusical-creativity","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fjosephwilk%2Fmusical-creativity","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fjosephwilk%2Fmusical-creativity/lists"}