Skip to content

Instantly share code, notes, and snippets.

View illiichi's full-sized avatar

illiichi

20 followers · 0 following
View GitHub Profile
@illiichi
illiichi / freeware_compilation.clj
Last active December 9, 2022 04:27
(ns llll-works.freeware-compi
(:use [overtone.core]))
(connect-external-server "localhost" 57110)
(defmacro reduce->
[initial f & colls]
`(reduce ~f ~initial (apply map list ~(vec colls))))
(defmacro rotate-> [snd pos]
`(let [[snd1# snd2#] ~snd] (rotate2 snd1# snd2# ~pos)))
@illiichi
illiichi / aspirated.clj
Created June 18, 2020 14:59
aspirated from "Compassion through algoritms" (https://algorave-tokyo.bandcamp.com/album/compassion-through-algorithms)
;; aspirated by illiichi
;;
;; from
;; Compassion through algorithms - Algorave Tokyo
;; (https://algorave-tokyo.bandcamp.com/album/compassion-through-algorithms)
(:use 'overtone.live)
(defmacro switch [trig a b]
`(let [t# (abs ~trig)]
@illiichi
illiichi / 荒城の月.md
Last active March 10, 2020 04:27

荒城の月

作詞 土井晩翠 (1871-1952)
作曲 瀧廉太郎 (1879-1903)
編曲 山田耕筰 (1886-1965)

歌詞

 春高楼の花の宴　めぐる盃かげさして
@illiichi
illiichi / project.clj
Last active December 22, 2023 22:33
pseudoethnological clojure code in 30 lines
(defproject pseudoethnological "0.1.0-SNAPSHOT"
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}
:jvm-opts ["-Xmx2g" "-server"]
:dependencies [[org.clojure/clojure "1.8.0"]
[overtone "0.10.3"]])
@illiichi
illiichi / 10 minutes
Last active May 8, 2019 06:01
10 minutes
;; this didn't work for me. use lein instead
> clojure -Sdeps '{:deps {org.clojure/clojure {:mvn/version "1.8.0"} overtone {:mvn/version "0.10.3"}}}' -r
@illiichi
illiichi / CMakeLists.txt
Last active August 29, 2015 14:14
サイン波のUGenを自力で実装してみる
cmake_minimum_required (VERSION 2.8)
project (MySine)
include_directories(${SC_PATH}/include/plugin_interface)
include_directories(${SC_PATH}/include/common)
include_directories(${SC_PATH}/external_libraries/libsndfile/)
set(CMAKE_SHARED_MODULE_PREFIX "")
if(APPLE OR WIN32)
set(CMAKE_SHARED_MODULE_SUFFIX ".scx")
@illiichi
illiichi / sc-util.el
Created April 2, 2014 21:42
(defvar sc-stopwatch ())
(defvar sc-rpm 120)
(defun clear-stopwatch ()
(interactive)
(setq sc-stopwatch ())
(lap-stopwatch))
(defun lap-stopwatch ()
(add-to-list 'sc-stopwatch (time-to-seconds (current-time))))
@illiichi
illiichi / XtimesYinZ_spec
Created July 27, 2013 06:38
Theorem XtimesYinZ_spec : forall st a b st',
st X = a ->
st Y = b ->
XtimesYinZ / st || st' ->
st' Z = a * b.
Proof.