| (ns sun-flare-thingy | |
| (:import [processing.core PApplet PConstants]) | |
| (:use quil.core)) | |
| (def screen-w 1920) | |
| (def screen-h 1080) | |
| (defn- compute-stroke-color [x1 c1 x2 c2 x] | |
| (map #(/ (+ %1 %2) (- x2 x1)) (map #(* (- x2 x) %) c1) (map #(* (- x x1) %) c2))) |
| (ns rotating-spheres | |
| (:use [quil.core])) | |
| (defn setup [] | |
| (background 20) | |
| (smooth)) | |
| (defn rand-circle-coords [] | |
| (let [max-x (* 2 (width)) | |
| max-y (* 2 (height)) |
"Energy starts surging through your fingertips. Sparks fly, making the shadows grow and flicker ominously around you."
This talk will introduce Emacs Live a pack-oriented structure for managing your .emacs.d. Emacs Live ships with a number of optional packs which add extra joy to your Emacs experience:
| (ns spiragraph | |
| (:use [quil.core] | |
| [quil.helpers.drawing :only [line-join-points]] | |
| [quil.helpers.seqs :only [range-incl]])) | |
| (defn setup [] | |
| (background 255) | |
| (stroke-weight 5) | |
| (smooth)) |
| ;;requires: | |
| ;; * Quil 1.4.1 | |
| ;; * Clojure 1.4 | |
| ;; | |
| ;; This is a modified version of @quephird's original code: | |
| ;; https://gist.github.com/2647426 | |
| (ns vanishing-point-circles | |
| (:use quil.core)) |
| (ns slurper | |
| (:import [java.io FileInputStream FileOutputStream File])) | |
| (defn slurp-binary | |
| [f-name] | |
| (let [f (File. f-name) | |
| fis (FileInputStream. f) | |
| len (.length f) | |
| ba (byte-array len)] |
| (defn switch! | |
| "Sets the value of atom to new-val. Returns the previous value." | |
| [atom new-val] | |
| (let [old-val @atom | |
| success? (compare-and-set! atom old-val new-val)] | |
| (if success? | |
| old-val | |
| (recur atom new-val)))) | |
| (defn swap-returning-prev! |
| (defmacro mk-callable-map [] | |
| (letfn [(arg-names [n] | |
| (map #(symbol (str "v" (inc %))) (range n))) | |
| (invoke-n [n] | |
| (list 'invoke (vec (cons 'this (arg-names n))) | |
| (list* 'callable-map-fn-impl (arg-names n)))) | |
| (invoke-n-with-apply [n] | |
| (list 'invoke (vec (cons 'this (arg-names n))) | |
| (list* 'apply 'callable-map-fn-impl (arg-names n))))] | |
| `(~'defrecord ~'CallableMap [~'callable-map-fn-impl] |
| (defrecord Foo [fn-impl] | |
| clojure.lang.IFn | |
| (invoke [this] (fn-impl)) | |
| (invoke [this a] (fn-impl a)) | |
| (invoke [this a b] (fn-impl a b)) | |
| (invoke [this a b c] (fn-impl a b c)) | |
| (invoke [this a b c d] (fn-impl a b c d)) | |
| (invoke [this a b c d e] (fn-imple a b c d e)) | |
| (invoke [this a b c d e f (fn-impl a b c d e f)]) | |
| (invoke [this a b c d e f g (fn-impl a b c d e f g)]) |
| (ns overtone-xmas.bells | |
| (:use [overtone.live])) | |
| ;;tested in Overtone 0.6-dev | |
| ;;add [overtone.sc.machinery.defcgen] to ns :use clause for 0.5.0 | |
| ;;http://computermusicresource.com/Simple.bell.tutorial.html | |
| (def dull-partials | |
| [ | |
| 0.56 |