pro my_sample_idlgrplot

data=findgen(10)

myplot=obj_new('IDLgrPlot',data)
xaxis=obj_new('IDLgrAxis',0)
yaxis=obj_new('IDLgrAxis',1)

;NOTE************
;!!XRANGE and YRANGE are returned as 
myplot -> GetProperty, XRANGE=xr, YRANGE=yr

xcoordmax=xr[1]
xcoordmin=xr[0]
ycoordmax=yr[1]
ycoordmin=yr[0]

;xr=[float(-xcoordmin/(xcoordmax-xcoordmin)),float(1/(xcoordmax-xcoordmin))]
;yr=[float(-ycoordmin/(ycoordmax-ycoordmin)),float(1/(ycoordmax-ycoordmin))]                                                                            
                                                                            
;xaxis -> Getproperty, CRANGE=xr
;yaxis -> Getproperty, CRANGE=xr

;xaxis -> Setproperty, RANGE=[0,1000]
;yaxis -> SetProperty, RANGE=[0,1000]

;xaxis -> SetProperty, EXACT=yes
;yaxis -> SetProperty, EXACT=no

;xaxis -> SetProperty, EXTEND=yes
;yaxis -> SetProperty, EXTEND=yes

mymodel=obj_new('IDLgrModel')
myview=obj_new('IDLgrView')
mygroup=obj_new('IDLgrViewgroup')
mywindow=obj_new('IDLgrWindow',retain=2,GRAPHICS_TREE=mygroup)


mygroup->add,[myview]
mymodel->add,myplot
mymodel->add,xaxis
mymodel->add,yaxis

myview->Add,mymodel

mywindow->Draw

end