generate functions in shaders

1 files changed, 16 insertions, 8 deletions

diff --git a/testdata/Hyperboloid.out b/testdata/Hyperboloid.out
index ec08e25e..3eea868f 100644
--- a/testdata/Hyperboloid.out
+++ b/testdata/Hyperboloid.out
@@ -32,15 +32,23 @@ Pipeline
               uniform vec2 Mouse;
               in vec3 vi1;
               smooth out vec4 vo1;
+              vec2 m = Mouse;
+              vec4 scale(float z0,vec4 z1) {
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
+              }
+              vec4 v3FToV4F(vec3 z0) {
+                  return vec4 ((z0).x,(z0).y,(z0).z,1.0);
+              }
               void main() {
-                  gl_Position = ((MVP) * (vec4
-                      (((2.0) * ((Mouse).y)) * (sin
-                      (((0.7) * ((vi1).x)) + (((Mouse).x) * ((vi1).y))))
-                      ,(vi1).y
-                      ,((2.0) * ((Mouse).y)) * (cos
-                      (((0.7) * ((vi1).x)) + (((Mouse).x) * ((vi1).y))))
-                      ,1.0))) * (vec4 (0.1,0.1,0.1,1.0));
-                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
+                  gl_Position = scale
+                      (0.1
+                      ,(MVP) * (vec4 (((2.0) * ((m).y)) * (sin
+                                     (((0.7) * ((vi1).x)) + (((m).x) * ((vi1).y))))
+                                     ,(vi1).y
+                                     ,((2.0) * ((m).y)) * (cos
+                                     (((0.7) * ((vi1).x)) + (((m).x) * ((vi1).y))))
+                                     ,1.0)));
+                  vo1 = v3FToV4F (vi1);
               }
               """
           , geometryShader = Nothing