/tutorial/vision/opengl/NeHe/lesson02/square.e

 1class SQUARE
 2
 3inherit
 4	GL_OBJECT
 5		redefine draw
 6		end
 7
 8creation
 9	make_with_position
10
11feature{ANY}
12	build is
13		do
14		end
15
16	draw is
17		do
18			-- Vertices must be given in counter-clockwise order
19			smart_gl.begin_quads
20			smart_gl.vertex(-1, 1, 0)
21			smart_gl.vertex(-1, -1, 0)
22			smart_gl.vertex(1, -1, 0)
23			smart_gl.vertex(1, 1, 0)
24			smart_gl.end_primitive
25		end
26		
27end