1. What I got so far..
- Posted by timmy <tim781 at PACBELL.NET>
Dec 20, 1999
-
Last edited Dec 21, 1999
--------------1FF74501B503FE386049D3A2
this is the code for my test program. It's used on my communicator 4.0
640 screen. I attached a small jpg of the picture. The best plan of
action I think
is to add code that will read the screen buffer when a new window
is opened and then mix it with a
pixmap already loaded, choosing the tranparency color to match what
is set in my 3-D objects color in dispaly/appearence settings. then
remember that
new pixmap and write it to the screen once a second. But I'm not sure of
the
code to use to use a windows timer (my loop has got to go.. :P ) Can
anyone
give a sample code that will help to pause my program. Here's what I got
so far:
------code------
include win32lib.ew
atom hBitmap
hBitmap = loadBitmapFromFile( "c:\\myware\\fairy.bmp" )
procedure timmy()
drawBitmap( Screen, hBitmap, 0, 1 )
for i = 1 to 15500000 do
end for
timmy()
end procedure
timmy()
------end code------
Picture below:
--------------1FF74501B503FE386049D3A2
2. Re: What I got so far..
- Posted by Dan B Moyer <DANMOYER at PRODIGY.NET>
Dec 20, 1999
-
Last edited Dec 21, 1999
Timmy,
If what you have so far works, here's a thought as to how to use a timer in
it:
--[*** UNTESTED CODE ***]
include win32lib.ew
atom hBitmap
hBitmap = loadBitmapFromFile( "c:\\myware\\fairy.bmp" )
constant aScreenTimer = 1 -- can make more than one timer, if you need/want
setTimer( Screen, aScreenTimer, 1000 ) -- trigger every 1000 milliseconds
procedure onTimer_Screen()
drawBitmap( Screen, hBitmap, 0, 1 )
end procedure
onTimer[Screen] = routine_id( "onTimer_Screen" )
Dan Moyer
-----Original Message-----
<snip>
>But I'm not sure of
>the
>code to use to use a windows timer (my loop has got to go.. :P ) Can
>anyone
>give a sample code that will help to pause my program. Here's what I got
>so far:
>
<------code------
include win32lib.ew
atom hBitmap
hBitmap = loadBitmapFromFile( "c:\\myware\\fairy.bmp" )
procedure timmy()
drawBitmap( Screen, hBitmap, 0, 1 )
for i = 1 to 15500000 do
end for
timmy()
end procedure
timmy()
------end code------
