Remove Effect.toLayered

krauthaufen · Jul 9, 2024 · 43ed0bf · 43ed0bf
1 parent 59ac7f1
commit 43ed0bf
Showing 1 changed file with 4 additions and 7 deletions.
diff --git a/src/Libs/FShade.Core/Effect.fs b/src/Libs/FShade.Core/Effect.fs
@@ -985,8 +985,8 @@ module Effect =
 
 
 
-    let toLayered (layerSemantic : string) (customLayerSemantic : string)
-                  (layers : int) (uniforms : Map<string, string>) (topology : InputTopology) (effect : Effect) =
+    let toLayeredEffect' (layerSemantic : string) (customLayerSemantic : string)
+                         (layers : int) (uniforms : Map<string, string>) (topology : InputTopology) (effect : Effect) =
         Serializer.Init()
 
         if effect.TessControlShader.IsSome || effect.TessEvalShader.IsSome then
@@ -1044,14 +1044,11 @@ module Effect =
         | None ->
             ofList [ geometryShader ]
 
-    let toLayeredEffect' (layerSemantic : string) (layers : int) (uniforms : Map<string, string>) (topology : InputTopology) (effect : Effect) =
-        toLayered layerSemantic layerSemantic layers uniforms topology effect
-
     let toLayeredEffect (layers : int) (uniforms : Map<string, string>) (topology : InputTopology) (effect : Effect) = 
-        toLayeredEffect' Intrinsics.Layer layers uniforms topology effect
+        toLayeredEffect' Intrinsics.Layer Intrinsics.Layer layers uniforms topology effect
 
     let toMultiViewportEffect (viewports : int) (uniforms : Map<string, string>) (topology : InputTopology) (effect : Effect) = 
-        toLayeredEffect' Intrinsics.ViewportIndex viewports uniforms topology effect
+        toLayeredEffect' Intrinsics.ViewportIndex Intrinsics.ViewportIndex viewports uniforms topology effect