AMRcube.pro:FOR i=0,label_num-1 DO $ AMRslice.pro: FOR i=0,N_ELEMENTS(XP)-1 DO BEGIN AMRslice.pro: FOR i=0,max_peak_nr-1 DO $ AMRslice.pro: FOR i =0, N_peaks-1 DO $ AMRslice.pro: FOR i =0, max_peak_nr-1 DO $ AMRslice.pro: FOR i =0, N_peaks-1 DO $ AMRslice.pro: for i = 0, n-1 do begin AMRslice.pro: FOR i =0, N_peaks-1 DO $ AMRslice.pro: for i=0,1 DO shade_state.base(i) = WIDGET_BASE(shade_state.main_base,$ construct_3D_data.pro: FOR i=0,num_of_grids-1 DO BEGIN construct_interpolated_slice_data.pro: FOR i=0,N_ELEMENTS(list_str)-1 DO BEGIN construct_interpolated_slice_data.pro: FOR i =0,num_OF_grids-1 DO BEGIN construct_interpolated_slice_data.pro: FOR i =0, num_of_grids-1 DO BEGIN construct_slice_data.pro: FOR i =0, num_of_grids-1 DO BEGIN create_gifs.pro:FOR i=0,0 DO BEGIN create_gifs.pro:FOR j=0, tot-1 DO BEGIN create_gifs.pro:FOR j=0, tot-1 DO xinteranimate, FRAME=j, image=image(*,*,j) create_gifs.pro:FOR j=0, tot-1 DO BEGIN cw_defsquare.pro:; SET_VALUE=string(x, y0, format='("Position: ",i,", ",i)') cw_defsquare.pro: amode: 0, $ ;0 for add, 1 for remove cw_myarcball.pro:for i=0, n do p(0,i) = radius * (p0 * s(n-i) + p1 * s(i))/s(n) + c cw_myarcball.pro: for i=0,3 do arcball_arc, [x(i),y(i),0.0], [x(i+1), y(i+1), 0.0], $ cw_myarcball.pro:for i=0,2 do begin ;Draw each object axis cw_myarcball.pro: for i=0,2 do begin ;Find closest cw_myarcball.pro:FOR i=0,4 DO PLOTS, [house_x(i), house_x(i+5)], $ cw_mybgroup.pro: for i = 0, n do begin cw_mybgroup.pro: for i = 0, n-1 do begin draw_current_cm.pro:IF (z_current GE 0.) THEN xyouts, 20, 40, 'z='+string(z_current,FORMAT = '(1F7.4)'), /DEVICE, CHARSIZE=1.5, CHARTHICK=1.5 draw_current_cm.pro: FOR i=0,label_num-1 DO BEGIN draw_grids.pro:for i=0, num_of_grids-1 DO BEGIN dump_4d2_data.pro: FOR i=0,s_d_sds(3)-1 DO BEGIN dump_4d2_data.pro: FOR sds_count=0, s_order(1)-1 DO BEGIN ; iterate over number of SDS dump_4d2_data.pro: FOR i=0,num_of_grids-1 DO BEGIN dump_4d2_data.pro:FOR i=0,entries-1 DO BEGIN dump_4d2_data.pro: for i=0, entries-1 DO BEGIN find_max_value.pro: For i=0,num_of_grids-1 DO BEGIN myeditor.pro: FOR lineIndex = 0, lineCount-1 DO $ mypickfile.pro: FOR i = 0, N_ELEMENTS(results) - 1 DO BEGIN myslice.pro:for i=0,np-1 do BEGIN myslice.pro:for i=0,11 do begin ;Faces myslice.pro:for i=0, ncommands-1 do begin ;Each command myslice.pro: for j=0,1 do WIDGET_CONTROL, sl.rslide(j), SET_VALUE = sl.rotation(j) myslice.pro: ;Azimuth, Elev, interp, expose, 1, x0, y0, z0 for oblique myslice.pro: for j=0,2 do WIDGET_CONTROL, sl.cslide(j), SET_VALUE = pars(j+1) myslice.pro: sl.axex = [0,1,2] ;default transformation myslice.pro:for i=0,2 do if sl.axrev(i) THEN BEGIN ;Swap endpoints for reversed axes myslice.pro: STRING(z0, az, el, FORMAT="('(',3f5.1,') A=', i4, ' E=',i4)") myslice.pro:for i=0,2 do begin ;3 faces myslice.pro:for i=0,7 do BEGIN myslice.pro:for i=0,n_elements(faces)-1 do BEGIN myslice.pro: for j=0,3 do begin myslice.pro:for i=0,7 do BEGIN myslice.pro: s(i) = string(sl.p0(*,i),format ="(' (',i0,',',i0,',',i0,')')") myslice.pro:for i=0,5 do BEGIN ;draw faces myslice.pro:for i=0,7 do xyouts, sl.p1(0,i),sl.p1(1,i),/DEVICE,s(i), $ myslice.pro:for i=0,11 do begin ;Faces myslice.pro:;for i=0,k-1 do if i ne dmin then begin ;Get angles myslice.pro:for i=0,nlines-1 do BEGIN ;draw fixed direction myslice.pro: for i=0,1 do begin ;Label them myslice.pro:for i=0,2 do begin myslice.pro: for i=0,2 do BEGIN ;find the face myslice.pro: STRING(z0, az, el, FORMAT="('(',3f5.1,') A=', i4, ' E=',i4)") myslice.pro:for i=0,7 do coords(0,i) = $ ;Verts of our cube myslice.pro:FOR face = 0, 5 do $ ;Draw the faces of the cube or cut myslice.pro:for i=0,2 do begin ;Lines to faces myslice.pro: d = 'Position: '+string(p,format="('(',i0,',',i0,',',i0,')')") + $ myslice.pro:; for nearest neighbor. (X0,Y0,Z0) is the lower corner myslice.pro:for i=0,7 do sl.p0(*,i) = $ ;Data coords of corners myslice.pro:for i=0,6 do sl.ori_butt(i) = WIDGET_BUTTON(junk1, VALUE=ori_names(i),$ myslice.pro:for i=0,nmodes-1 do $ ; Mode buttons myslice.pro:for i=0,nmodes-1 do $ myslice.pro:FOR i = 0, n-1 DO sl.color_button(i) = $ ;Make color pull down buttons myvelovect.pro: for i=0,s_good(3)-1 do begin ;Each point old_construct_interpolated_slice_data.pro: FOR i =0, num_of_grids-1 DO BEGIN read_peaks.pro: FOR j=0,i-1 DO BEGIN read_peaks.pro: FOR j=0,i-1 DO BEGIN read_positions.pro:for dim = 0, 2 do begin read_positions.pro:for i = 0, nGrids-1 do begin read_positions.pro: for dim = 0, 2 do begin read_positions.pro:for i = 0, inNum-1 do begin read_positions.pro: for dim = 0, 2 do begin read_velocities.pro: FOR i=0,N_ELEMENTS(list_str)-1 DO BEGIN show_peaks.pro: FOR i=0, N_peaks-1 DO BEGIN