🚀 go-pugleaf

In article <1992Oct6.130417.12460@n1.nsf.gov> thermans@n1.nsf.gov (Tim Hermans) writes:
>I'm looking for something to improve the visibility of my mouse pointer. The  
>darn thing is so small I have to wave it around on the screen for 15 minutes  
>before I pick it up. And no cracks about my eyesight either :-)

Well, this is a start (maybe).  Does anyone know how to slow it down (ie, do
a sleep in PS???).  Just paste it into pft and see what happens.  It uses
quite a bit of cpu...

% 0 setgray		% color to use
1 1 0 setrgbcolor	% a nice yellow

/dist	10	def	% distance from mouse cursor to stop
/width	1	def	% width of window

0 currentwindowbounds /sheight exch def /swidth exch def pop pop

/l 0 0 0 0 Nonretained window def
l windowdeviceround setexposurecolor 200 l setwindowlevel Above 0 l orderwindow
/r 0 0 0 0 Nonretained window def
r windowdeviceround setexposurecolor 200 r setwindowlevel Above 0 r orderwindow

/movewins {
    0 currentmouse
    1 index dist gt {0 1 index 3 index dist sub width l placewindow} if
    1 index swidth dist sub lt
    {1 index dist add 1 index swidth 4 index sub dist sub width r placewindow}
    if
    pop pop
} bind def

{ 
    movewins
} loop


David Koski