OpenEuphoria

Re: PC SPEAKER

• Posted by The Reaper <reaper at LOKI.ATCON.COM> Feb 16, 1997
• 1510 views

At 01:28 AM 2/16/97 -0500, you wrote:

>Try this...

<sound code>


Hey, thanks for the code. It's not what I wanted, but I find a use for it.
By the way, here's an example of using save_image(). It's rather rough, so it'll
probably look kinda ugly. Them's the breaks!

--------------------------------------------------------------------------------
without warning
without type_check
include image.e
include graphics.e

object spare
seqence where, old, sprite, background


sprite=read_bitmap("bitmap1.bmp")
background=read_bitmap("bitmap2.bmp")

spare=graphics_mode(19)

old = save_image({1,100},{1+length(sprite[2][1]),100+length(sprite[2]))
display_image({1,100},sprite[2])

for i = 6 to (320-length(sprite[2][1]) by 5 do

    display_image({i-5,100},old)
    old = save_image({i,100},{1+length(sprite[2][1]),100+length(sprite[2]))
    display_image({i,100},sprite[2])

end for

while get_key() = -1 do
end while

spare=graphics_mode(-1)
--------------------------------------------------------------------------------

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The Reaper  (J. Lays)
reaper at auracom.com  ........................
               . .. -||..........__......  "There are no miracles,
                . /  ||......../-- \\.::::  Just dreams that come true,
             . ..|   ||...... / o o| |.:::  By the actions of someone
               .|  _-||.......|| ^ / /.:::: Who didn't waste time dreaming."
              ..| |..||...... -\_- \ |\-.:::
               .| |.[< \ .../            \.::
                .||.|||\|\ |  -REAPER- .  \.::::
               ...|.\|| |  \  |        |   |.:::.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-