home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
progmisc
/
euphor10.zip
/
MOUSE.EX
< prev
next >
Wrap
Text File
|
1993-06-25
|
1KB
|
63 lines
----------------
-- mouse test --
----------------
-- This is a simple program to demonstrate the get_mouse() built-in
-- function. No call is made to mouse_events(), so by default all events are
-- reported by get_mouse().
include mouse.e
include graphics.e
sequence vc
vc = video_config()
graphics_mode(17 + vc[VC_COLOR]) -- 640x480 (16 colors)
vc = video_config()
procedure beep()
atom t
sound(500)
t = time()
while time() < t+0.07 do
end while
sound(0)
end procedure
constant origin = {vc[VC_XPIXELS]/2, vc[VC_YPIXELS]/2}
procedure try_mouse()
integer color
object event
color = 14
while 1 do
event = get_mouse()
if sequence(event) then
printf(1, "event: %d, x:%d, y:%d \r", event)
if event[1] = MOVE then
draw_line(color, 1, {origin, {event[2], event[3]}})
elsif event[1] = LEFT_DOWN then
beep()
color = color + 1
if color > 15 then
color = 0
end if
elsif event[1] = LEFT_UP then
beep()
elsif event[1] = RIGHT_DOWN or
event[1] = MIDDLE_DOWN then
exit
end if
end if
end while
end procedure
try_mouse()
if vc[VC_COLOR] then
graphics_mode(3)
else
graphics_mode(7)
end if