harold

(ns parallel-sum.core
  (:require [tech.ml.dataset :as ds]
            [tech.v2.datatype.functional :as dfn]
            [tech.v2.datatype :as dt]))

(defn- produce-data-csv!
  []
  (let [source-data (for [_ (range 1000000)]
                      {"letter" (+ 65 (rand-int 25))
                       "value" (rand-int 1000)})]

harold

license: mit

harold

license: mit

harold

(ns hackathon.core
  (:require [mikera.image.core :as i]))

(defn get-img
  []
  (i/load-image-resource "galaxy.jpg"))

(defn get-?-block
  []
  (i/sub-image (get-img) (* 16 16) (* 16 9) 16 16))

harold

var __extends = this.__extends || function (d, b) {
    function __() { this.constructor = d; }
    __.prototype = b.prototype;
    d.prototype = new __();
};
var A = (function () {
    function A() { }
    A.prototype.func = function () {
    };
    return A;

harold

(def snare (sample (freesound-path 26903)))
(def kick (sample (freesound-path 2086)))
(def ch (sample (freesound-path 802)))
(def oh (sample (freesound-path 26657)))

(def insts {:kick  kick
            :snare snare
            :oh    oh
            :ch    ch})

harold

(use 'overtone.live)

(def clap (sample (freesound-path 48310)))
(def clap2 (sample (freesound-path 132676)))
;(clap)
;(clap2)

(def pattern-1 [1 1 1 0 1 1 0 1 0 1 1 0])
(def pattern-2 [1 1 1 0 1 1 0 1 0 1 1 0])

harold

(definst hoover [freq 220 amp 1 lgu 0.1 lgd 1 gate-sig 1]
  (let [freq (midicps (lag-ud (cpsmidi freq) lgu lgd))
        freq (* freq (lin-exp (sin-osc:kr (repeat 3 (ranged-rand 2.9 3.1))
                                          (repeat 3 (rand (* Math/PI 2))))
                              -1 1 0.995 1.005))
        pwm (lin-lin (sin-osc:kr (repeat 3 (ranged-rand 2.0 4.0)))
                     -1 1 0.125 0.875)
        main (* (lin-lin (saw (* freq [0.25 0.5 1.0]) 1)
                         -1 1 0 1)
                (- 1 (lf-pulse:ar (* freq [0.5 1.0 2.0]) 0 pwm)))

harold

(definst fm [carrier 440 divisor 2.0 depth 1.0]
  (let [modulator (/ carrier divisor)
        mod-env (env-gen (lin-env 1 0 1))
        amp-env (env-gen (lin-env 0 1 1))]
    (* amp-env
       (sin-osc (+ carrier
                   (* mod-env  (* carrier depth) (sin-osc modulator)))))))

; Some of these are more or less interesting
(fm)

harold

// Trigonometry
let pi = System.Math.PI
let sin t = System.Math.Sin(t)
let cos t = System.Math.Cos(t)
let asin r = System.Math.Asin(r)
let acos r = System.Math.Acos(r)

// Linear Algebra
type Matrix2x2 = { m11: double; m12: double;
                   m21: double; m22: double; }