/tutorial/vision/opengl/example5.e
http://github.com/tybor/Liberty · Specman e · 61 lines · 44 code · 17 blank · 0 comment · 0 complexity · c4ebaf600eef4bebee15c25dac1ec148 MD5 · raw file
- class EXAMPLE5
- inherit
- GRAPHIC
- creation
- make
- feature{ANY}
- world: INTERACTIVE_WORLD
- win: TOPLEVEL_WINDOW
- angle: REAL
-
- make is
- local
- universal_world_loader: UNIVERSAL_WORLD_LOADER[LOADABLE_GL_OBJECT]
- universal_object_loader: UNIVERSAL_OBJECT_LOADER[LOADABLE_GL_OBJECT]
- universal_texture_loader: UNIVERSAL_TEXTURE_LOADER
- xml_world_loader: XML_WORLD_LOADER[LOADABLE_GL_OBJECT]
- xml_object_loader: XML_OBJECT_LOADER[LOADABLE_GL_OBJECT]
- bmp_texture_loader: BMP_TEXTURE_LOADER
- do
-
- create win.default_create
- win.set_title("Example 5")
- win.set_background_color(white_color)
- win.map
- create universal_world_loader.make
- create universal_object_loader.make
- create universal_texture_loader.make
-
- universal_world_loader.add_lookup_directory("data/world")
- universal_object_loader.add_lookup_directory("data/object")
- universal_texture_loader.add_lookup_directory("data/texture")
- create xml_world_loader.make
- create xml_object_loader.make
- create bmp_texture_loader.make
-
- universal_world_loader.add_loader("xml", xml_world_loader)
- universal_object_loader.add_loader("xml", xml_object_loader)
- universal_texture_loader.add_loader("bmp", bmp_texture_loader)
- create world.make_interactive(win, agent finish_program)
- universal_world_loader.load_world(world, "world.xml", universal_object_loader, universal_texture_loader)
- win.when_close_requested(agent finish_program)
- vision.start
- end
- finish_program is
- do
- vision.loop_stack.break
- end
- end