function dev2data,device,scale
;
;+
;   Name: dev2data
;
;   Purpose: return data coordiates from input device coord and !x.s/!y.s
;
;   Input Parameters:
	device = device coordinates
;       scale = 4 element floating point scale (!x.s, !y.s)
;
return,[(float(device(0))/float(!d.x_size) - scale(0))/scale(1), $
	(float(device(1))/float(!d.y_size) - scale(2))/scale(3)]
end