Cleanup some silhouette edge buffers

2025-11-11 17:45:30 +00:00
parent 4d59d521ac
commit ceba6fd533
6 changed files with 39 additions and 52 deletions
@@ -91,9 +91,14 @@ data FloatBO = FloatBO
    , _boType :: BOType
    }

-data EBO = EBO
-    { _eboName :: GLuint
-    , _eboPtr :: Ptr GLuint
+data UintBO = UintBO
+    { _uiboName :: GLuint
+    , _uiboPtr :: Ptr GLuint
+    }
+
+data SSBO a = SSBO
+    { _ssboName :: GLuint
+    , _ssboPtr :: Ptr a
    }

 -- | Datatype containing the reference to a texture object.
@@ -124,7 +129,8 @@ pmPatches = PrimitiveMode GL_PATCHES

 makeLenses ''VAO
 makeLenses ''VBO
-makeLenses ''EBO
+makeLenses ''UintBO
+makeLenses ''SSBO
 makeLenses ''ShaderTexture
 makeLenses ''Shader
 makeLenses ''FBO