pro alphatour, file_in, f_outpre, ndata, nslices, width ; May 24, 1994, Bo. ; June 29, 1994, Bo. if n_params() eq (0) then begin print print, 'Procedure alphatour' print print, 'Usage:' print, 'pro alphatour, file_in, f_outpre, ndata, nslices, width' print print, 'Description' print, 'This procedure makes the files for an "alpha-tour"!' print, 'NB: This version has a slight problem with making the last slice!' print print, 'file_in : name of data ascii input file with alpha, delta, redshift' print, "f_outpre: output name prefix (e.g. '/l/tmp/milvang/video/alpha-tour/'" print, 'ndata : number of datapoint in file_in' print, 'nslices : number of slices (e.g. 250) - must be < 1000' print, 'width : width of slices in degrees (e.g. 15.0)' return end print for i=0L, nslices-1 do begin print, 'i = ', i nulls = '' if ((i ge 0) and (i lt 10)) then nulls = '00' if ((i ge 10) and (i lt 100)) then nulls = '0' file_out = f_outpre+nulls+strtrim(string(i),1)+'.line' f2 = f_outpre+nulls+strtrim(string(i),1) slicelines, file_out, $ 0.0, 0.04, $ i*360./nslices, width+i*360./nslices, $ -90.0, 90.0 ascii_to_bin, file_in, f2, ndata, $ 0.0, 0.04, $ i*360./nslices, width+i*360./nslices, $ -90.0, 90.0 endfor end