OpenEuphoria

Re: New thread on ver4 topic

• Posted by dcole Sep 25, 2010
• 1119 views

Thanks Matt,

That works on 4.

I can get rid of the flickering by changing the order of things,

include std/graphics.e  
-- ?9/0 
cursor(NO_CURSOR)   
sequence screen = {0, 0}  
  
-- set up the screen 1------------- 
clear_screen()   
text_color(GREEN)   
bk_color(WHITE)   
puts(1, "\nThis is page 0\n")   
text_color(BRIGHT_WHITE)   
bk_color(BLACK)   
puts(1,"Hit any key\n")   
screen[1] = save_text_image( {1,1}, {80, 25})  
 wait_key() 
--set up screen 2------------------ 
cursor(NO_CURSOR)  
clear_screen()   
text_color(WHITE)   
bk_color(GREEN)   
puts(1, "\nThis is  page 1\n")   
text_color(BRIGHT_WHITE)   
bk_color(BLACK)   
puts(1,"Hit any key\n")   
screen[2] = save_text_image( {1,1}, {80, 25})  
 wait_key() 
---------------------------------------------- 
integer active_screen = 1  
while 1  do   
        clear_screen()  
        cursor(NO_CURSOR)  
        display_text_image( {1,1}, screen[active_screen] )  
        wait_key()  
        active_screen = 3 - active_screen  
end while  

Don Cole