The IDL procedure alphatour

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