Risc os Pico and the mouse

Hello all!

Does anyone know if there is any way to enable (display) the risc os mouse pointer at all in risc os pico? So far I’ve not managed to display it!

I can read the mouse by using the basic command mouse. Very crudely I can see the mouse is being read by doing:

10 MOUSE X,Y,Z
20 PRINT X,Y,Z
30 GOTO 10

The values for x,y and z change so the mouse and its buttons are being read. But if I try MOUSE ON 1 then nothing happens (the mouse values can be read but no sign of an actual mouse pointer). The “*POINTER” command appears to be missing however the system sprite commands (e.g. *HELP SPR.) do seem to be there. If I look at the MOUSE ON command I see that it sets the mouse pointer “or a” (but what is ’a’")? If the mouse pointer image/definition is missing in risc os pico is there some way to create a sprite and “attach” it to the system mouse pointer sprite?

Also on a brief (but unrelated) note are the SCREENLOAD/SCREENSAVE commands working? *SCREENSAVE seems to work, but any attempt to reload the file with screenload yeilds an abort on data transfer x.x .

Thanks

ljones

Have you tried:

REM Turn cursor off but leave mouse on:
MOUSE ON
VDU 23,0,10,32,0,0,0,0,0,0

Sorry to be a party pooper, but I have a recollection that *Pointer and the pointer itself are provided by the Wimp. I’ll need to poke around the code when I get home, but I suspect that if the Wimp does provide this and the a Pico doesn’t have the Wimp……

but I have a recollection that *Pointer and the pointer itself are provided by the Wimp.

Well that would account for the “P” in WIMP.

Looking at the Wimp code (this), it looks like you’ll need:

• A suitable sprite to use as the pointer (nick one from a full version of RISC OS?)
• Call OS_Word 21,0 to define a pointer shape.
• Call OS_Byte 106 to select which pointer to show and link it to the mouse position.
• (optional?) VDU 19 to set the mouse colours

This will add a pointer:

   10REM >Pointer
   20DIM ptr% &120
   30REM Data for each line of pointer:
   40DATA 1,0,&14,0,&154,0,&5D0,0,&5F50,0,&57F40,0,&17FD00,0
   50DATA &17FFD00,0,&15FFF400,0,&5FFFD400,0,&7FFFD000,5
   60DATA &FFFF4000,&57,&FFFF4000,&15F,&FFFD0000,&57,&FFF50000,&15
   70DATA &7FF40000,5,&7FD00000,&D,&5FD00000,&3F,&17400000,&FC
   80DATA &5400000,&3F0,&1000000,&FC0,0,&3F00,0,&3FC00
   90DATA 0,&FF000,0,&3F0000,0,&FC0000,0,&3F00000
  100DATA 0,&FC00000,0,&3F000000,0,&FC000000,0,&30000000
  110DATA 0,0
  120FOR i%=12 TO &108 STEP 4
  130  READ a%
  140  ptr%!i%=a%
  150NEXT
  160ptr%?2=0
  170ptr%?3=1
  180ptr%?4=8:REM width in bytes
  190ptr%?5=32:REM height in lines
  200ptr%?6=0
  210ptr%?7=0
  220ptr%!8=ptr%+12
  230SYS "OS_Word",21,ptr%+2
  240*FX 106,1
  250END