samaaron

;;
;;     MM""""""""`M
;;     MM  mmmmmmmM
;;     M`      MMMM 88d8b.d8b. .d8888b. .d8888b. .d8888b.
;;     MM  MMMMMMMM 88''88'`88 88'  `88 88'  `"" Y8ooooo.
;;     MM  MMMMMMMM 88  88  88 88.  .88 88.  ...       88
;;     MM        .M dP  dP  dP `88888P8 '88888P' '88888P'
;;     MMMMMMMMMMMM
;;
;;         M""MMMMMMMM M""M M""MMMMM""M MM""""""""`M

samaaron

(ns native-path.fix
  (:require [leiningen.core.eval :as lein-ev]))

(defonce __FIX-NATIVE-PATH__
  (let [lib-path   (System/getProperty "java.library.path")
        native-dir (lein-ev/native-arch-path {:native-path "target/native"})
        new-path   (str lib-path ":" native-dir)]
    (System/setProperty "java.library.path" new-path)))

samaaron

(ns overtone.examples.internal-sequencer
  (:use [overtone.live]))

;; A fully server-side sample sequencer.
;; =====================================

;; This example demonstrates some of the benefits of moving all synth
;; triggers inside the server itself. For example, it allows you to
;; modify the synthesis with *immediate* effect (rather than waiting for
;; the next bar/chunk to be scheduled) and you can use a global pulse to

samaaron

(ns hello-world.hello)

(defn- clj-map->js-map
  "makes a javascript map from a clojure one"
  [cljmap]
  (let [out (js-obj)]
    (doall (map #(aset out (name (first %)) (second %)) cljmap))
    out))

(defn- attr [object attributes]

samaaron

(ns ormclj.pg
  (:require [clojure.java.jdbc :as sql]))

(defn pg-db
  [hostname port db-name user passwd]
  {:classname   "org.postgresql.Driver"
   :subprotocol "postgresql"
   :subname     (str "//" hostname ":" port "/" db-name)
   :user        user
   :password    passwd})

samaaron

(ns mondrian-factory
  (:use quil.core))

(def screen-w 1920)
(def screen-h 1080)

(defn- red-yellow-blue-or-white []
  ([[255 0 0] [255 255 0] [0 0 255] [255 255 255] [255 255 255] [255 255 255]] (int (random 6))))

(defn- generate-positions-and-widths [n]

samaaron

(ns pleiades
  (:import [processing.core PApplet PConstants])
  (:use quil.core))

(def screen-w 1920)
(def screen-h 1080)

; TODO: Need to apply blur to entire background; stars look too fake here
(defn- generate-background-stars []
  (doseq [_ (range 1000)]

samaaron

(ns square-exploration
  (:use quil.core))

; This is another blatant ripoff, this time of the images produced
; by Don Relyea here: http://algorithm.posterous.com/tag/algorithmicexplorationofsquares

; This code needs some serious refactoring, particularly the screen metrics.
; Stay tuned...

(def screen-w 1000)

samaaron

<ejackson> oh that is cool
<ejackson> i can see my gists
<samaaron> you can even edit them
<ejackson> and edit them
<ejackson> :)
<samaaron> and when you hit save it updates them on github
<ejackson> no way !
<samaaron> yes way!                                                                    [12:38]
<ejackson> create a new one ?
<samaaron> i believe you can do that 

samaaron

(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)))