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 / 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 / 荒城の月.md

Last active March 10, 2020 04:27

荒城の月

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

歌詞

 春高楼の花の宴　めぐる盃かげさして

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 / 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 / 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 / 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 / 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.