;-----------------------------------------------------------------
; DOT.PRO
; 11.Oktober 1997 by Anderl
;------------------------------------------------------------------
; Plots a nice progress bar, useful in longer loops.
;
; (1) Usage before loop: 
; dott,nr_total,interval,message=" Your Text"
;		nr_total : Total length of loop (for example 2000)
;     interval : Interval between dots (for example 100, makes 20 dots)
; (2) Usage in loop
; dott,interval,loop_var
;		interval : same as above
;     loop_var : the loop variable
;
; Example:
;   dot,1024,100,mess=" Dot test | "
;   for i=0,1024 do begin
;		dot,100,i
;     a=otherthing()
;	 endfor
;
; Output:
;    Dot test | 10 : ..........
;
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------

pro dot,para1,para2,MESSAGE=message
	if keyword_set(message) then begin
		nr_points = para1/para2
		if para1 mod para2 ne 0 then nr_points = nr_points + 1
		message = message+strcompress(nr_points)+" : "
		print,format='(A,$)',message
	endif else begin
		if para2 mod para1 eq 0 then begin
			print,format='(A,$)','.'
			anz = (para2 / para1)
			if ((anz mod 10) eq 9) then print,format='(A,$)',' '
		endif
	endelse
end