/tutorial/vision/opengl/NeHe/lesson03/lesson03.e

 1class LESSON03
 2
 3inherit
 4	GRAPHIC
 5	
 6creation
 7	make
 8
 9feature{ANY}
10	
11	world : WORLD
12	triangle : TRIANGLE
13	square : SQUARE
14
15	make is
16		local
17			win: TOPLEVEL_WINDOW
18			exit : BUTTON
19		do
20			create win.default_create
21			win.set_title("Lesson 03")
22			win.set_background_color(white_color)
23			win.map
24
25			create world.make(win)
26			create triangle.make_with_position(-1.5, 0.0, -6.0)
27			world.add_opaque_object(triangle)
28			create square.make_with_position(1.5, 0, -6)
29			world.add_opaque_object(square)
30
31			create exit.with_label(win, U"Exit")
32			exit.when_left_clicked(agent finish_program)
33			win.when_close_requested(agent finish_program)
34
35			vision.start
36		end
37
38	finish_program is
39		do
40			vision.loop_stack.break
41		end
42end