support local pattern matching functions and local recursive functions

1 files changed, 9 insertions, 12 deletions

diff --git a/testdata/Hyperboloid.out b/testdata/Hyperboloid.out
index 3eea868f..bf3367bb 100644
--- a/testdata/Hyperboloid.out
+++ b/testdata/Hyperboloid.out
@@ -33,22 +33,19 @@ Pipeline
               in vec3 vi1;
               smooth out vec4 vo1;
               vec2 m = Mouse;
+              float k = (2.0) * ((m).y);
+              float r = (m).x;
               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 = 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);
+                  gl_Position = scale (0.1
+                                      ,(MVP) * (vec4
+                                      ((k) * (sin (((0.7) * ((vi1).x)) + ((r) * ((vi1).y))))
+                                      ,(vi1).y
+                                      ,(k) * (cos (((0.7) * ((vi1).x)) + ((r) * ((vi1).y))))
+                                      ,1.0)));
+                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
               }
               """
           , geometryShader = Nothing