Commit: a62e13ca4f52ee7d43590a3833de166a9413a833 - Saffron (git)

Graphics library for Mercury, including OpenGL bindings, TGA image reading, and X11, Win32, and SDL2 windowing and input.

Commit MetaInfo

• Revisão: a62e13ca4f52ee7d43590a3833de166a9413a833 (tree)
• Hora: 2023-06-27 04:11:09
• Autor: AlaskanEmily <emily@alas...>
• Commiter: AlaskanEmily

Mensagem de Log

Add color-buffer masked draw typeclasses. I thought we already had this?

Mudança Sumário

• modified: saffron.draw.m

Diff

--- a/saffron.draw.m
+++ b/saffron.draw.m
@@ -12,6 +12,7 @@
 
 :- use_module array.
 :- import_module list.
+:- import_module pair.
 :- use_module thread.
 :- use_module thread.mvar.
 
@@ -118,6 +119,21 @@
 
 %-----------------------------------------------------------------------------%
 
+:- typeclass draw(Ctx, Group, Buffer)
+    <= (draw(Ctx, Group), color_buffer(Ctx, Buffer), (Ctx -> Buffer)) where [
+    
+    pred draw_color_mask(Ctx, Group, list.list(Buffer), io.io, io.io),
+    mode draw_color_mask(in, in, in, di, uo) is det
+].
+
+%-----------------------------------------------------------------------------%
+
+:- pred draw_color_mask(Ctx, pair(Group, list.list(Buffer)), io.io, io.io)
+    <= draw(Ctx, Group, Buffer).
+:- mode draw_color_mask(in, in, di, uo) is det.
+
+%-----------------------------------------------------------------------------%
+
 :- pred raise_matrix_stack_error is erroneous.
 
 %-----------------------------------------------------------------------------%
@@ -192,6 +208,13 @@ top_matrix(transform_state(_, [Matrix|_])) = Matrix.
         ) )
 ].
 
+%-----------------------------------------------------------------------------%
+
+draw_color_mask(Ctx, (Group - Buffers), !IO) :-
+    draw_color_mask(Ctx, Group, Buffers, !IO).
+
+%-----------------------------------------------------------------------------%
+
 raise_matrix_stack_error :-
     exception.throw(exception.software_error(
         "Tried to pop from an empty transform stack.")).