作詞 土井晩翠 (1871-1952)
作曲 瀧廉太郎 (1879-1903)
編曲 山田耕筰 (1886-1965)
春高楼の花の宴 めぐる盃かげさして
(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))) |
;; 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)] |
(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"]]) |
;; 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 |
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") |
(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)))) |
Theorem XtimesYinZ_spec : forall st a b st', | |
st X = a -> | |
st Y = b -> | |
XtimesYinZ / st || st' -> | |
st' Z = a * b. | |
Proof. |