gistfile1.clj

=> (pprint fragment-shader)  
(let [marble 
      (-> pos .x (* 2.0) (+ noise) sin abs)
      marble-color 
      (float4 0.8 0.7 0.7 1.0)
      vein-color   
      (float4 0.2 0.15 0.1 1.0)
      mixed-color  
      (mix vein-color marble-color (pow marble 0.5))]
  (set! :frag-color (* intensity mixed-color))))
  
=> (translate-shader '() fragment-shader)  
"void main()  
{  
  float marble = abs(sin(((pos.x * 2.0) + noise)));  
  vec4 base = vec4(0.8, 0.7, 0.7, 1.0);  
  vec4 vein = vec4(0.2, 0.15, 0.1, 1.0);  
  vec4 color = mix(base, vein, pow(marble, 0.5));  
  gl_FragColor = color;  
}"