/tutorial/vision/opengl/NeHe/lesson05/lesson05.e

 1class LESSON05
 2
 3inherit
 4	GRAPHIC
 5	
 6creation
 7	make
 8
 9feature{ANY}
10	
11	world : WORLD
12	pyramid : PYRAMID
13	cube : CUBE
14
15	make is
16		local
17			win: TOPLEVEL_WINDOW
18			exit : BUTTON
19			anim : SIMPLE_PERIODIC_JOB
20		do
21			create win.default_create
22			win.set_title("Lesson 05")
23			win.set_background_color(white_color)
24			win.map
25
26			create world.make(win)
27			create pyramid.make_with_position(-1.5, 0.0, -6.0)
28			world.add_opaque_object(pyramid)
29			create cube.make_with_position(1.5, 0, -6)
30			world.add_opaque_object(cube)
31
32			create exit.with_label(win, U"Exit")
33			exit.when_left_clicked(agent finish_program)
34			win.when_close_requested(agent finish_program)
35
36			create anim.set_work(agent pyramid.anim(world), Void, 1, 0.01)
37			vision.loop_stack.add_job(anim)
38
39			create anim.set_work(agent cube.anim(world), Void, 1, 0.01)
40			vision.loop_stack.add_job(anim)
41
42			vision.start
43		end
44
45	finish_program is
46		do
47			vision.loop_stack.break
48		end
49end