pro  get_limits,xlim,ylim

;     get limits by two cursor reads in DATA units

cursor,xl,yl,/data,/down    ;button down
print,xl,yl
cursor,xh,yh,/data,/down
print,xh,yh

xlim = [xl,xh]
ylim = [yl,yh]

return
end