OpenEuphoria

Printing to screen in video mode

• Posted by mrbiglesworth3 at yahoo.com Jun 07, 2001
• 376 views

I'm using video mode 18 and trying to 
print a string to the screen after I 
print a bitmap.
The bitmap looks fine, but the string 
won't print at all.  Can I not do this
in a pixel-graphics mode?
Any other comments would be much appreciated.
Thank You, Josh

#! Special first line comment.
-- My first attempt at a Euphoria program.
-- Program will open and display a bitmap file.

constant FILENAME = "C:\\EUPHORIA\\PROGRAMS\\test.bmp"

integer myMode, screen_no
myMode=18
sequence vc

include graphics.e
include get.e
vc = video_config()

screen_no = open("CON","w")
if vc[VC_MODE] != myMode then

  if graphics_mode( myMode ) then
    puts(screen_no,"graphics mode not switched\n")
    abort(0)
  end if
    
end if

clear_screen()

include image.e
object x
sequence s
x = read_bitmap(FILENAME)
if atom(x) then
  s = prompt_string("Bad bitmap. Enter string to
continue:\n")
  abort(0)
end if

s = prompt_string("Bitmap read. Enter string to
continue:\n")

all_palette(x[1])

display_image({10,10},x[2])

-- printf and prompt_string both don't print anything to
the screen
position(10,10)
printf(screen_no,"Bitmap on screen. Enter string to
continue:\n",{})
s = prompt_string("Bitmap read. Enter string to
continue:\n")

integer done
done = graphics_mode(-1)
-- program finished