             [ezglib.util :as util]))
 
 ;;;;; CONSTANTS ;;;;;
-; gl.BYTE is gl-byte
-; gl.FLOAT is gl-float
-; gl.INT is gl-int
-; gl.KEEP is gl-keep
-; gl.REPEAT is gl-repeat
-; gl.REPLACE is gl-replace
-; gl.SHORT is gl-short
-; All other constants the same as the javascript versions except lowercase with dashes.
+
+; All WebGL constants are the same as the javascript versions
+; except lowercase and with dashes, clojure style.
 ; For example, gl.ARRAY_BUFFER becomes array-buffer.
 
 (def active-attributes 35721)

(def invalid-operation 1282)
(def invalid-value 1281)
(def invert 5386)
(def gl-keep 7680)
(def lequal 515)
(def less 513)
(def linear 9729)

  [value]
  (let [value-type (type value)]
    (or
     (if (= value-type js/Int8Array) byte)
     (if (= value-type js/Uint8Array) unsigned-byte)
     (if (= value-type js/Uint8ClampedArray) unsigned-byte)
     (if (= value-type js/Int16Array) short)
     (if (= value-type js/Uint16Array) unsigned-short)
     (if (= value-type js/Int32Array) int)
     (if (= value-type js/Uint32Array) unsigned-int)
     (if (= value-type js/Float32Array) float)
     (if (= value-type js/Float64Array) high-float))))

;;;;; CONTEXT ;;;;;
