1 files changed, 4 insertions, 1 deletions

diff --git a/lc/Builtins.lc b/lc/Builtins.lc
index 88b90d57..502f040b 100644
--- a/lc/Builtins.lc
+++ b/lc/Builtins.lc
@@ -577,7 +577,10 @@ filterFragmentStream = FilteredFragmentStream
 transformFragmentsRastDepth f = ShadedFragmentStream (FragmentShaderRastDepth f)
 accumulateWith ctx x = (ctx, x)
 overlay cl (ctx, str) = Accumulate ctx str cl
-transformVertices f s =  Transform (\v -> VertexOut (f v) 1 () (Smooth v)) s
+transformVertices0 f () s = Transform (\v -> VertexOut (f v) 1 () ()) s
+transformVertices1 f g1 s = Transform (\v -> VertexOut (f v) 1 () (Smooth (g1 v))) s
+transformVertices2 f (g1, g2) s = Transform (\v -> VertexOut (f v) 1 () (Smooth (g1 v), Smooth (g2 v))) s
+transformVertices3 f (g1, g2, g3) s = Transform (\v -> VertexOut (f v) 1 () (Smooth (g1 v), Smooth (g2 v), Smooth (g3 v))) s
 renderFrame = ScreenOut
 imageFrame = FrameBuffer
 emptyDepthImage = DepthImage @1