| From: | David McMinn |
| Date: | 24 Jul 2001 at 23:55:42 |
| Subject: | Re: Lace Pointer - retry |
Alberto Esposito says the moon is made of cheese, but it's actually made of Lace Pointer - retry
> I made an intuition screen of 640x512 using aga
> chipset using amiga mode, i made a window in this
> screen and i use "wpointer" command to change the
> mousepointer, is possible to show the mousepointer in
> lace format like workbench hires cursor options ? how
> ?
If you'd asked about a hires pointer last time I could have told you :)
This will only work for AGA I think, and only changes the horizontal
resolution of the pointer. As Thilo and Nick have already said, the
mousepointer in RTG is displayed in the size depending on the resolution
of the screen.
You need to use the VideoControl_ OS command. Something like this:
; Get pointer to currently used screen OS structure
*scr.Screen = Peek.l(Addr Screen(Used Screen))
Dim vtags.TagItem(2)
vtags(0)\ti_Tag = #VTAG_SPRITERESN_SET, #SPRITERESN_70NS
vtags(1)\ti_Tag = #TAG_DONE
VideoControl_ *scr\ViewPort\ColorMap, &vtags(0)
That should give you a hires pointer. Other values you can use are:
#SPRITERESN_ECS = 0
#SPRITERESN_140NS = 1 ; Lowres
#SPRITERESN_70NS = 2 ; Hires
#SPRITERESN_35NS = 3 ; Super hires
#SPRITERESN_DEFAULT = -1 ; default
Blitz might have some trouble with those constants because there is a
number in the middle, so you may need to use the value directly.
Bye
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie