[m-rev.] for review: add more control flags to the opengl binding

[Julien Fischer]

Add some more control flags to the opengl binding.

extras/graphics/mercury_opengl/mogl.m:
	Add control flags corresponding to GL_AUTO_NORMAL, GL_TEXTURE_1D
	and GL_TEXTURE_2D.

Julien.

Index: mogl.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/graphics/mercury_opengl/mogl.m,v
retrieving revision 1.8
diff -u -r1.8 mogl.m
--- mogl.m	20 Jan 2004 09:27:22 -0000	1.8
+++ mogl.m	21 Jan 2004 07:01:29 -0000
@@ -680,7 +680,10 @@
 		;	blend
 		;	dither
 		;	index_logic_op
-		;	color_logic_op.
+		;	color_logic_op
+		;	auto_normal
+		;	texture_1d
+		;	texture_2d.

 :- pred enable(control_flag, io, io).
 :- mode enable(in, di, uo) is det.
@@ -2813,6 +2816,9 @@
 control_flag_to_int_and_offset(dither, 17, 0).
 control_flag_to_int_and_offset(index_logic_op, 18, 0).
 control_flag_to_int_and_offset(color_logic_op, 19, 0).
+control_flag_to_int_and_offset(auto_normal, 20, 0).
+control_flag_to_int_and_offset(texture_1d, 21, 0).
+control_flag_to_int_and_offset(texture_2d, 22, 0).

 :- pragma foreign_decl("C", "
 	extern const GLenum control_flag_flags[];
@@ -2839,7 +2845,10 @@
 		GL_BLEND,
 		GL_DITHER,
 		GL_INDEX_LOGIC_OP,
-		GL_COLOR_LOGIC_OP
+		GL_COLOR_LOGIC_OP,
+		GL_AUTO_NORMAL,
+		GL_TEXTURE_1D,
+		GL_TEXTURE_2D
 	};
 ").


--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------