 
 (def v-tex-coord-0
   (g/varying "v_texcoord0" :vec2 :highp))
-
-;; precision highp float;
-;; varying vec3 v_normal;
-;; uniform vec4 u_diffuse;
-;; void main(void) {
-;; vec3 normal = normalize(v_normal);
-;; vec4 color = vec4(0., 0., 0., 0.);
-;; vec4 diffuse = vec4(0., 0., 0., 1.);
-;; diffuse = u_diffuse;
-;; diffuse.xyz *= max(dot(normal,vec3(0.,0.,1.)), 0.);
-;; color.xyz += diffuse.xyz;
-;; color = vec4(color.rgb * diffuse.a, diffuse.a);
-;; gl_FragColor = color;
-;; }
-
 
 (def u-light-angle
   (g/uniform "uLightAngle" :vec3))

                            (let [mv (geom/* mv (:matrix node))]
                              (doseq [mesh (:meshes node)]
                                (doseq [mesh (:primitives mesh)]
                                  (let [vertices         (get-in mesh [:attributes :p :data])
                                        p-stride         (get-in mesh [:attributes :p :byteStride])
                                        tex-coord-0      (get-in mesh [:attributes :tex-coord-0 :data])
                                        normals          (get-in mesh [:attributes :normal :data])
                                        n-stride         (get-in mesh [:attributes :normal :byteStride])
                                        indices          (get-in mesh [:indices])
                                        material         (get-in mesh [:material :values :diffuse])

        height           (.-clientHeight node)
        driver           (make-driver gl)
        starting-program 0
        programs         {:diffuse-flat  program-diffuse-flat
                          :diffuse-light program-diffuse-light
                          :texture-flat  program-texture-flat
                          :texture-light program-texture-light}
        state            (-> (app-state width height)
                             (assoc-in [:runtime :programs] programs)
                             (assoc-in [:runtime :current-program] 0))]
