1. Mouse cursor
does anybody know how to change the Mouse cursor in text mode?
is there a routine that somebody already wrote?
I think you have to use int #33 #0A, I think.
but I cant get it to work.
any ideas?
by the way, I am on the digest so it will be tomorrow before I read
this.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
2. Mouse cursor
> Here's my question:
>
> Does anyone know how to change the shape and the size of the mouse in
> 320*200 mode (or mode 19). I do no understant mousecur.e
I have had the same question for a little while. I have seen some examples
in QBasic, but haven't been able to convert them. Thank you for any
replies.
William
3. Re: Mouse cursor
- Posted by Jacques Deschenes <desja at QUEBECTEL.COM>
Jun 09, 1997
-
Last edited Jun 10, 1997
At 18:01 97-06-09 -0600, you wrote:
>---------------------- Information from the mail header -----------------------
>Sender: Euphoria Programming for MS-DOS <EUPHORIA at
>MIAMIU.ACS.MUOHIO.EDU>
>Poster: William Eiten <atompunk at ROF.NET>
>Subject: Mouse cursor
>-------------------------------------------------------------------------------
>
>> Here's my question:
>>
>> Does anyone know how to change the shape and the size of the mouse in
>> 320*200 mode (or mode 19). I do no understant mousecur.e
>
>I have had the same question for a little while. I have seen some examples
>in QBasic, but haven't been able to convert them. Thank you for any
>replies.
>
>William
>
------------------------- demo -----------------------------------------
-- changing mouse cursor in graphics_mode 19
include image.e
include mouse.e
include mousecur.e
atom junk
junk = graphics_mode(19)
bk_color(BLUE)
clear_screen()
puts(1,"move mouse pointer to change shape.\n")
for i = 1 to 9 do
draw_line(WHITE,{{i*32,0},{i*32,199}})
end for
for i = 1 to 2 do
draw_line(WHITE,{{0,i*70},{319,i*70}})
end for
mouse_pointer(1)
object mouse
integer x,y,n
while 1 do
if get_key() = 27 then
exit
end if
mouse = get_mouse()
if sequence(mouse) then
x = mouse[2]
y = mouse[3]
n = floor(y/70)*10+floor(x/64) + 1 --note x/64 not x/32
if n > 27 then
n = 27
end if
Change_cursor(n)
end if
end while
junk = graphics_mode(-1)
----- end of code -----------------------------
if the question was how to design your own cursor shape I'll explain you the
structure of the sequence use by mousecur.e
mouse_cursor = {{},x,y}
mouse_cursor[1] = 64 bytes (32 screen mask, 32 cursor mask)
mouse_cursor[2] = hot spot x coord.
mouse_cursor[3] = hot sport y coord.
a mouse cursor is made of a screen mask , a cursor mask and a hot spot.
cursor are 16 by 16 bits array.
so the first 32 bytes are the screen mask, the next 32 bytes are the cursor
mask and
the last 2 number are the coordinates (x,y) of the hot spot. The hot spot
is the active point when you click over something.
truth table
screen mask cursor mask screen result
bit bit bit
-----------------------------------------------------
0 0 0
0 1 1
1 0 unchanged
1 1 inverted
here an example:
ARROW
screen mask
----------------
1001111111111111 #9F,#FF,
1000111111111111 #8F,#FF,
1000011111111111 #87,#FF,
1000001111111111 #83,#FF,
1000000111111111 #81,#FF,
1000000011111111 #80,#FF,
1000000001111111 #80,#7F,
1000000000111111 #80,#3F,
1000000000011111 #80,#1F
1000000000001111 #80,#0F,
1000000011111111 #80,#FF,
1000100011111111 #88,#FF,
1001100001111111 #98,#7F,
1111110000111111 #FC,#3F,
1111110000111111 #FC,#3F,
1111111000111111 #FE,#3F,
cursor mask
----------------
0000000000000000 #00,#00,
0010000000000000 #20,#00,
0011000000000000 #30,#00,
0011100000000000 #38,#00,
0011110000000000 #3C,#00,
0011111000000000 #3E,#00,
0011111100000000 #3F,#00,
0011111110000000 #3F,#80,
0011111111000000 #3F,#C0,
0011111000000000 #3E,#00,
0011011000000000 #33,#00,
0010001100000000 #23,#00,
0000001100000000 #03,#00,
0000000110000000 #01,#80,
0000000110000000 #01,#80,
0000000000000000 #00,#00
hot spot x = 1 hot spot y = 0
Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com
4. Mouse cursor
> Here's my question:
>
> Does anyone know how to change the shape and the size of the mouse in
> 320*200 mode (or mode 19). I do no understant mousecur.e
I have had the same question for a little while. I have seen some examples
in QBasic, but haven't been able to convert them. Thank you for any
replies.
William
Check out my new HRMouse.e routines. HRM allows you to supply any 16x16
bitmap as the cursor graphic. It's actually designed for higher res modes
but it should work O.K. in mode 19. If you're desperate for a larger than
16x16 cursor, E-Mail me your problem and I'll try and find time to write you
a fix.
Graeme Burke -----------<graemejb at pronet.net.au>------------
5. Re: Mouse cursor
> > Here's my question:
> >
> > Does anyone know how to change the shape and the size of the mouse in
> > 320*200 mode (or mode 19). I do no understant mousecur.e
>
> I have had the same question for a little while. I have seen some examples
> in QBasic, but haven't been able to convert them. Thank you for any
> replies.
Changing the mouse cursor with my screen.e is easy.
And theres no flicker or need to delete the cursor before drawing.
Screen2.e will be ready soon.
6. Re: Mouse cursor
- Posted by "Mr. Smily" <MrSmily at AOL.COM>
Jun 11, 1997
-
Last edited Jun 12, 1997
> > Here's my question:
> >
> > Does anyone know how to change the shape and the size of the mouse in
> > 320*200 mode (or mode 19). I do no understant mousecur.e
>
> I have had the same question for a little while. I have seen some examples
> in QBasic, but haven't been able to convert them. Thank you for any
> replies.
>
> William
To anyone who cares to read this:
A couple of days ago I uploaded some really cool mouse routines to the
Official Euphoria Web Page. These routines can make mouse cursors of any
color, size, shape, and even with transparent or reversed areas. Please try
them!!!
Your Truly,
Mr. Smily
