Re: device,cursor_image ??

[fireman(at)mcst.gsfc.nasa.gov (Gwyn Fireman)]

Craig Hamilton (cah@medeng.wfubmc.edu) wrote:
: I've been trying to use a user-defined cursor via
: device,cursor_image=csr_img on an X11 Sun platform.

Craig -

I found the documentation confusing too, so once I figured it out
(v3!) I wrote a routine to translate from a bitmap to the vector.  If
you blur your eyes a little you can see the cursor shape. 

This shows up black; I'm not sure how to set the cursor color.

pro set_cursor

;
;	SET cursor shape and hot spot
;	(added per VSMR 104)
;
curs		= bytarr(16,16)
curs(0,*)	= [0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0]
curs(1,*)	= [0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0]
curs(2,*)	= [0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0]
curs(3,*)	= [0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0]
curs(4,*)	= [1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0]
curs(5,*)	= [1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0]
curs(6,*)	= [1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0]
curs(7,*)	= [1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,0]
curs(8,*)	= [1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0]
curs(9,*)	= [1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0]
curs(10,*)	= [1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0]
curs(11,*)	= [0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0]
curs(12,*)	= [0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0]
curs(13,*)	= [0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0]
curs(14,*)	= [0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0]
curs(15,*)	= [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]

power	= 2^(indgen(16))		; define power of 2 array
cursor	= intarr(16)			; cursor must be integer array
for i = 0, 15 do cursor(i) = total(curs(i,*) * power)
device, cursor_image = cursor, cursor_xy = [7,7]

end


--
-- Gwyn F. Fireman
-- General Sciences Corporation / MODIS Characterization Support Team
-- Gwyn.Fireman@gsfc.nasa.gov   301-352-2118