1. GrafX Vue Deluxe
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM>
Sep 27, 1998
-
Last edited Sep 28, 1998
I just wrote it. You specify a filename(no extension. gfx is assumed),
then it loads the image, then the palette, then it switches to the
appropriate mode, then it ajusts to the palette, and displays the image.
Then it waits for a keystroke, and restores the mode. I supplied a sample
picture and palette(on my other 486, this program
ccccccccrrrrraaaawwwwllllllllsssss when it loads the image).
vue.ex:
include get.e
include graphics.e
include image.e
object cl,fname
integer fn,mode
sequence pal,img
cl=command_line()
if length(cl)<3 then
abort(0)
end if
fname=cl[3]
puts(1,"Reading "&fname&"...")
fn=open(fname&".gfx","r")
if fn=-1 then
puts(1,"Image "&fname&" not found")
abort(1)
end if
img=get(fn)
if atom(img) then
if img=GET_FAIL then
puts(1,fname&" does not contain a valid image")
abort(2)
end if
end if
close(fn)
puts(1,"\nImage read successful. \nReading palette...")
fn=open(fname&".pal","r")
if fn=-1 then
puts(1,"Palette for "&fname&" not found")
abort(3)
end if
pal=get(fn)
if atom(pal) then
if pal=GET_FAIL then
puts(1,fname&".pal does not contain a valid palette")
abort(4)
end if
end if
close(fn)
if length(pal)>16 then
mode=257
else
mode=18
end if
if graphics_mode(mode) then
end if
img=img[2]
pal=pal[2]
all_palette(pal)
display_image({0,0},img)
if wait_key() then
end if
if graphics_mode(-1) then
end if
I'm gonna have to send the pictures seperately
-------------------------------------
When it comes to programming languages, Euphoria is a cut above -
matt1278 at juno.com and matt1421 at juno.com(and soon to be
irisnmatt at prodigy.net. Then again, maybe not) Euphoria programmer
2. Re: GrafX Vue Deluxe
- Posted by Noah Smith <nhs6080 at UNIX.TAMU.EDU>
Sep 27, 1998
-
Last edited Sep 28, 1998
ermmm. not to be rude, but if i want to load pictures, i can write my own
prog. thatz why i got euphoria. and please don't send so many small emails
-- it costs me for every email i download.
thx
snortboy
3. Re: GrafX Vue Deluxe
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM>
Sep 27, 1998
-
Last edited Sep 28, 1998
snortboy
___________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]
4. Re: GrafX Vue Deluxe
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM>
Sep 27, 1998
-
Last edited Sep 28, 1998
well, just a try. i like to share my progs. 
-------------------------------------
When it comes to programming languages, Euphoria is a cut above -
matt1278 at juno.com and matt1421 at juno.com(and soon to be
irisnmatt at prodigy.net. Then again, maybe not) Euphoria programmer
___________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]
