;.r /home/jma/projects/fractals/calc_coords.pro

;called by box_frac in order to calculate the 
;x and y coordinates of the smaller boxes

PRO calc_coords,sa,box_size,x_coords,y_coords
	
	x_coords=intarr(sa(1))
	y_coords=intarr(sa(1))
	
	pos=0
		for x = 0, sa(1), box_size do begin 
			x_coords(pos) = x
			;print,'x=',x
			pos=pos+1
		end
	x_coords(0)=0.
		
	pos=0
		for y = 0, sa(1), box_size do begin
			y_coords(pos) = y
			;print,'y=',y
			pos=pos+1
		end
	y_coords(0)=0.
	
;print,'0',x_coords(where (x_coords NE 0))
;print,'0',y_coords(where (y_coords NE 0))

END