Test noise mock

Author: wedesoft

src/volumetric_clouds/main.clj

@@ -520,6 +520,7 @@
 (GLFW/glfwMakeContextCurrent window)
 (GL/createCapabilities)
 
+
 (defn make-shader [source shader-type]
   (let [shader (GL20/glCreateShader shader-type)]
     (GL20/glShaderSource shader source)
@@ -528,6 +529,7 @@
       (throw (Exception. (GL20/glGetShaderInfoLog shader 1024))))
     shader))
 
+
 (defn make-program [& shaders]
   (let [program (GL20/glCreateProgram)]
     (doseq [shader shaders]
@@ -538,6 +540,7 @@
       (throw (Exception. (GL20/glGetProgramInfoLog program 1024))))
     program))
 
+
 (def vertex-test "
 #version 130
 in vec3 point;
@@ -546,6 +549,7 @@ void main()
   gl_Position = vec4(point, 1);
 }")
 
+
 (def fragment-test "
 #version 130
 out vec4 fragColor;
@@ -554,6 +558,7 @@ void main()
   fragColor = vec4(1, 1, 1, 1);
 }")
 
+
 (defmacro def-make-buffer [method create-buffer]
   `(defn ~method [data#]
      (let [buffer# (~create-buffer (count data#))]
@@ -656,8 +661,10 @@ void main()
       (GL20/glDeleteProgram program)
       result)))
 
+
 (render-pixels [vertex-test] [fragment-test] 1 1)
 
+
 (def noise-mock
 "#version 130
 float noise (vec3 idx)
@@ -666,6 +673,7 @@ float noise (vec3 idx)
   return ((v.x == 1) == (v.y == 1)) == (v.z == 1) ? 1.0 : 0.0;
 }")
 
+
 (def noise-probe
   (template/fn [x y z]
 "#version 130
@@ -676,8 +684,20 @@ void main()
   fragColor = vec4(noise(vec3(<%= x %>, <%= y %>, <%= z %>)));
 }"))
 
-(for [z [0 1] y [0 1] x [0 1]]
-     (nth (render-pixels [vertex-test] [noise-mock (noise-probe x y z)] 1 1) 0))
+(noise-probe 1 2 3)
+
+(tabular "Test noise mock"
+         (fact (nth (render-pixels [vertex-test] [noise-mock (noise-probe ?x ?y ?z)] 1 1) 0) => ?result)
+         ?x ?y ?z ?result
+         0  0  0  0.0
+         1  0  0  1.0
+         0  1  0  1.0
+         1  1  0  0.0
+         0  0  1  1.0
+         1  0  1  0.0
+         0  1  1  0.0
+         1  1  1  1.0)
+
 
 (GLFW/glfwDestroyWindow window)