timsgardner

(defn parse-form [down-tok?, up-tok?, [tok & toks]]
  (loop [frm [tok], toks toks]
    (if-let [[tok2 & toks2] (seq toks)]
      (cond
        (down-tok? tok2) (let [[res toks3] (parse-form down-tok?, up-tok?, toks)]
                          (recur (conj frm res) toks3))
        (up-tok? tok2) [(conj frm tok2) toks2]
        :else         (recur (conj frm tok2) toks2))
      [frm nil])))

timsgardner

Shader "geronimo" {
	Properties {
		wobble ("wobble", Vector) = (0, 0, 0, 0)
	}
	SubShader {
		Pass {
			GLSLPROGRAM
			
			#ifdef VERTEX
			

timsgardner

(let [ns
      ;;'gamma.api
      ;;'arcadia.config
      ;;'gamma.compiler.core
      'gamma-tools.core
      ]
  (require ns)
  (in-ns ns)
  (use
    'clojure.pprint

timsgardner

Shader "geronimo" {
	Properties {
		wobble ("wobble", Vector) = (0, 0, 0, 0)
	}
	SubShader {
		Pass {
			GLSLPROGRAM
			
			#ifdef VERTEX
			

timsgardner

(dotimes [_ 10]
  (time
    (dotimes [_ 1e4]
      {:this 0
       :is 1 
       :a 2
       :small 3
       :map 4})))

timsgardner

(dotimes [_ 10]
  (time
    (dotimes [_ 1e4]
      {:this 0
       :is 1 
       :a 2
       :small 3
       :map 4})))

timsgardner

(dotimes [_ 10]
  (time
    (dotimes [_ 1e4]
      {:this 0
       :is 1 
       :a 2
       :small 3
       :map 4})))

timsgardner

(dotimes [_ 10]
  (time
    (dotimes [_ 1e4]
      {:this 0
       :is 1 
       :a 2
       :small 3
       :map 4})))

timsgardner

// from "Seascape" by Alexander Alekseev aka TDM - 2014
// License Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.

float heightMapTracing(vec3 ori, vec3 dir, out vec3 p) { ```
    float tm = 0.0;
    float tx = 1000.0;    
    float hx = map(ori + dir * tx);
    if(hx > 0.0) return tx;   
    float hm = map(ori + dir * tm);    

timsgardner

(defprotocol ISack
  (whats-in-me [this]))

(defn potato-sack [the-potatos]
  (reify ISack
    (whats-in-me [_] the-potatos)))