class EX_SIMPLE

inherit 
   JEGL;
   J_SCREEN_ACCESS;
   J_CONSTANTS;
   
creation {ANY} 
   make

feature {ANY} 
   
   init is 
      do  
         set_videomode(640,480,16,false);
         !!events;
         !!keyboard;
         !!clr_yellow.make(255,236,5);
      end -- init
   
   make is 
      local 
         done: BOOLEAN;
         area: J_AREA;
         surface: J_SURFACE;
      do  
         init;
         !!area.make(20,20,100,100);
         screen.fill_area(area,clr_yellow);
         !!surface.make_from_img("../images/background.png");
         surface.blit_fast(screen,300,200);
         screen.flip;
         from 
            done := false;
         until 
            done = true
         loop 
            if events.poll then 
               inspect 
                  events.type
               when je_keydown then 
                     if keyboard.sym = jk_c then 
                        screen.clear;
                        screen.flip
                     end 
                     if keyboard.sym = jk_escape then 
                        done := true
                     end 
               when je_quit then 
                     done := true
               else 
               end; 
            end 
         end; 
         jegl_quit;
      end -- make

feature {NONE} 
   
   events: J_EVENTS;
   
   keyboard: J_KEYBOARD;
   
   clr_yellow: J_COLOR;

end -- class EX_SIMPLE