feat: add material setters

claby2 · Jan 20, 2025 · 13f082e · 13f082e
1 parent 836f942
commit 13f082e
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/lib/graphics/material.ml b/lib/graphics/material.ml
@@ -1,7 +1,7 @@
 type t = {
-  ambient : Math.Vec3.t;
-  diffuse : Math.Vec3.t;
-  specular : Math.Vec3.t;
+  mutable ambient : Math.Vec3.t;
+  mutable diffuse : Math.Vec3.t;
+  mutable specular : Math.Vec3.t;
   mutable shininess : float;
 }
 
@@ -13,6 +13,9 @@ let ambient t = t.ambient
 let diffuse t = t.diffuse
 let specular t = t.specular
 let shininess t = t.shininess
+let set_ambient t ambient = t.ambient <- ambient
+let set_diffuse t diffuse = t.diffuse <- diffuse
+let set_specular t specular = t.specular <- specular
 let set_shininess t shininess = t.shininess <- shininess
 
 module C = Ecs.Component.Make (struct

diff --git a/lib/graphics/material.mli b/lib/graphics/material.mli
@@ -12,6 +12,9 @@ val ambient : t -> Math.Vec3.t
 val diffuse : t -> Math.Vec3.t
 val specular : t -> Math.Vec3.t
 val shininess : t -> float
+val set_ambient : t -> Math.Vec3.t -> unit
+val set_diffuse : t -> Math.Vec3.t -> unit
+val set_specular : t -> Math.Vec3.t -> unit
 val set_shininess : t -> float -> unit
 
 module C : Ecs.Component.S with type t = t