OpenEuphoria

displaying text image...

• Posted by Lee woo seob <wslee at HHI.CO.KR> Oct 15, 1997
• 783 views

Hi all!

following codes are the test on the display_text_image() in
50 lines text mode with page flipping, however, it does not work
in my computer.
video_config() tells me that four(4) pages are available in the
50 lines mode. if there is something wrong in my codes,
please kindly let me know.

Thanks in advance,

from Lee woo seob...
-------------------- codes start -----------------------------------
include graphics.e
include image.e
include get.e
sequence s,b
object junk
junk=text_rows(50)
s="test for display_text_image() in 50 lines text mode with page flipping"
b=repeat(7,length(s)*2)
for i=1 to length(s) do b[2*i-1]=s[i] end for
b=repeat(b,10)
set_active_page(1)  -- why page 1 does'nt work?, only page 0 works.
display_text_image({1,1},b)
set_display_page(1) -- why page 1 does'nt work?, only page 0 works.
junk=wait_key()
junk=graphics_mode(-1)
--------------------- codes end ------------------------------------------