; for idl 8.6 ; looks like you can get the axis ; but they no longer support scroll bars.. ; current_zoom=.5 ; for title font_size=24 font_style=1 ; bold insert_colorbar=1 ; if [2] then bottom left corner of color bar (normalize coord). rgb_table=33; blue-red .. could be a 3,256 vector dlim=500 xrange=[-dlim,dlim] yrange=[-dlim,dlim] xtickunits='' ytickunits='' xtickvalues=0 ytickvalues=0 xticklayout=0 yticklayout=0 xtitle='South [feet]' ytitle='North [feet]' axis_style=2 ; box el='West' eR='East' zoom_on_resize=1 ; ;title='11mar20: radial errors (measured - fit) 3 param fit. x,y center offset set t0 0.' lmaxErr='5cm' title='11mar20: radial errors (measured - fit) 3 param fit. Keep points < 5 cm error.' if 0 then begin lmaxErr='1.2cm' title='11mar20: radial errors (measured - fit) 3 param fit. maxRadialErrs<1.2cm' endif ; notes.. axis is not showing up.. ; in the itools visualization properties, you need to enable style -> box show ;iimage,imgClip,xout,yout,$ iimage,img,xout,yout,$ ; current_zoom=current_zoom,$ /zoom_on_resize,$ axis_style=axis_style,$ font_size=font_size,$ font_style=font_style,$ insert_colorbar=insert_colorbar,$ rgb_table=rgb_table,$ identifier=img4id,$ title=title,$ xrange=xrange,yrange=yrange,$ xtickvalues=xtickvalues,ytickvalues=ytickvalues,$ xtickunits=xtickunits,ytickunits=ytickunits,$ xticklayout=xticklayout,yticklayout=yticklayout,$ xtitle=xtitle,ytitle=ytitle stop imgid=igetid('image') igetproperty,imgid,_registered=imgpropall ; ; generate grid of main cables every 25 feet ; radius=500. transparency=60 ls=1 ; dotted line so we don't hide labels in plots ls=0 ; solid line for ix=-475,475,25 do begin &$ thT=acos(ix/radius) &$ ymax=abs(sin(thT)*radius) &$ xx=[ix,ix] &$ yy=[-ymax,ymax] &$ iplot,xx,yy,overplot=1,xmajor=0,ymajor=0,xgrid=6,ygrid=6,transparency=transparency,linestyle=ls &$ endfor ; colar bar colBarId=igetid('colorbar') igetproperty,colbarid,_registered=cbpropall font_size=24 border=1 tickdir=1 ticklen=.2 subticklen=.4 orientation=1 ; verticaal textpos=1 ; right above cbtitle='radial errors [cm]' isetproperty,colbarid,orientation=orientation isetproperty,colbarid,textpos=textpos isetproperty,colbarid,font_size=font_size isetproperty,colbarid,font_style=font_style isetproperty,colbarid,border_on=1 isetproperty,colbarid,tickdir=tickdir isetproperty,colbarid,ticklen=ticklen isetproperty,colbarid,subticklen=subticklen isetproperty,colbarid,axis_title=cbtitle ;----------------------------------------------------------- ; label the edges still had to move them around a bit frac=10 text='East' x=radius+frac y=0 itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size igetproperty,txtid,_registered=txtpropall text='Y [feet]' x=-radius - 6*frac y=0 itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ; x=0 - 7*frac y=-radius - 2*frac text='(west) X [feet] (east)' itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size x=-2*frac y=radius + 1*frac text='North' itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ;----------------------------------------------------------- ; text on right side yeps=30 x=radius + frac y0=470 text='Radius Used: 265.176 [m]' itext,text,x,y0,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ; y=y0-yeps ; cent set in doit center used text=string(format='("Center:[",f6.4,",",f6.4,",",f8.4,"]")',cent) itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ; y=y0-2*yeps text='Keep points with error < ' + lmaxerr itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ; y=y0-3*yeps text='Dark blue is no data' itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ; y=y0-4*yeps text='grid 2000x2000' itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ; y=y0-5*yeps text='inverseDistance with 40pnts' itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size ; ; label the 100 foot main cables ; ;nmain=dishtarmain(cblI,/tdonly) ok=intarr(nmain) for i=0,nmain-1 do ok[i]=strmid(cblI[i].nm,1,1) eq '0' ii=where( ok eq 1,cnt) ; ;now add the labels ; ctmp=cblI[ii] jj=sort(ctmp.xth) ctmp=ctmp[jj] print,ctmp.xth y0=-240 yeps=15 fs=16 for i=0,cnt-1 do begin &$ x=ctmp[i].xth &$ y=y0 - (i mod 2)*yeps &$ print,x,y0," ",ctmp[i].nm &$ itext,ctmp[i].nm,x,y,target_identifier=imgid,/data,/visualization,font_style=font_style,font_size=fs &$ endfor ; ; label upper lower edge of color bar ; x= radius + 2*frac y0=470 yeps=35. y=y0 -7*yeps text='below dish' itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size y=470-9*yeps text='above dish' itext,text,x,y,target_identifier=imgid,/data,/visualization,identifier=txtid,font_style=font_style,font_size=font_size print,"you need to manually position the color bar and above,below labels" ; end