OpenEuphoria

Re: Printing to screen in video mode

• Posted by Euman <euman at bellsouth.net> Jun 07, 2001
• 369 views

You need to use one of the pixel graphics libraries
available.. the one that sticks out in my mind
is font.e by Jiri Babor (*Super Fantastic library) 

try the RDS contrib archive and do a search for "font"
look for one that will work in Pixel graphics mode.

Euman

----- Original Message ----- 
From: <mrbiglesworth3 at yahoo.com>
To: "EUforum" <EUforum at topica.com>
Sent: Thursday, June 07, 2001 17:12
Subject: Printing to screen in video mode


> 
> 
> 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")
<snip>

> 
> 
>