indexing description: "[ Testsuite for the 2d collision engine of EiffelMedia. Usage: - Drag & Drop with the left mouse button - Rotate collidables with the right mouse button ]" date: "$Date$" revision: "$Revision$" class COLLISION_TESTSUITE inherit EM_APPLICATION create make feature {NONE} -- Initialization make is -- Create the main application. do -- Initialize `video_subsystem' and `screen'. -- set_window_width (width) -- set_window_height (height) -- set_screen_resolution (resolution) initialize_screen set_window_icon ("icon.png") set_window_title ("EiffelMedia Collision Detection 2D") set_application_id ("collision_testsuite") set_scene (create {first_scene}.make_scene) launch video_subsystem.disable end end