/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

  1. class EXAMPLE5
  2. inherit
  3. GRAPHIC
  4. creation
  5. make
  6. feature{ANY}
  7. world: INTERACTIVE_WORLD
  8. win: TOPLEVEL_WINDOW
  9. angle: REAL
  10. make is
  11. local
  12. universal_world_loader: UNIVERSAL_WORLD_LOADER[LOADABLE_GL_OBJECT]
  13. universal_object_loader: UNIVERSAL_OBJECT_LOADER[LOADABLE_GL_OBJECT]
  14. universal_texture_loader: UNIVERSAL_TEXTURE_LOADER
  15. xml_world_loader: XML_WORLD_LOADER[LOADABLE_GL_OBJECT]
  16. xml_object_loader: XML_OBJECT_LOADER[LOADABLE_GL_OBJECT]
  17. bmp_texture_loader: BMP_TEXTURE_LOADER
  18. do
  19. create win.default_create
  20. win.set_title("Example 5")
  21. win.set_background_color(white_color)
  22. win.map
  23. create universal_world_loader.make
  24. create universal_object_loader.make
  25. create universal_texture_loader.make
  26. universal_world_loader.add_lookup_directory("data/world")
  27. universal_object_loader.add_lookup_directory("data/object")
  28. universal_texture_loader.add_lookup_directory("data/texture")
  29. create xml_world_loader.make
  30. create xml_object_loader.make
  31. create bmp_texture_loader.make
  32. universal_world_loader.add_loader("xml", xml_world_loader)
  33. universal_object_loader.add_loader("xml", xml_object_loader)
  34. universal_texture_loader.add_loader("bmp", bmp_texture_loader)
  35. create world.make_interactive(win, agent finish_program)
  36. universal_world_loader.load_world(world, "world.xml", universal_object_loader, universal_texture_loader)
  37. win.when_close_requested(agent finish_program)
  38. vision.start
  39. end
  40. finish_program is
  41. do
  42. vision.loop_stack.break
  43. end
  44. end