Data update

Task/Mandelbrot-set/UNIX-Shell/mandelbrot-set.sh

@@ -1,25 +1,36 @@
-((xmin=-8601))  # int(-2.1*4096)
-((xmax=2867))   # int( 0.7*4096)
+function mandelbrot() {
+  local -ir maxiter=100
+  local -i i j {x,y}m{in,ax} d{x,y}
+  local -ra C=( {0..9} )
+  local -i lC=${#C[*]}
+  local -i columns=${COLUMNS:-72} lines=${LINES:-24}
 
-((ymin=-4915))  # int(-1.2*4096)
-((ymax=4915))   # int( 1.2*4096)
+  ((
+    xmin=-21*4096/10,
+    xmax=  7*4096/10,
 
-((maxiter=30))
+    ymin=-12*4096/10,
+    ymax= 12*4096/10,
 
-((dx=(xmax-xmin)/72))
-((dy=(ymax-ymin)/24))
+    dx=(xmax-xmin)/columns,
+    dy=(ymax-ymin)/lines
+  ))
 
-C='0123456789'
-((lC=${#C}))
-
-for((cy=ymax;cy>=ymin;cy-=dy)) ; do
-	for((cx=xmin;cx<=xmax;cx+=dx)) ; do
-		((x=0,y=0,x2=0,y2=0))
-		for((iter=0;iter<maxiter && x2+y2<=16384;iter++)) ; do
-			((y=((x*y)>>11)+cy,x=x2-y2+cx,x2=(x*x)>>12,y2=(y*y)>>12))
-		done
-		((c=iter%lC))
-		echo -n ${C:$c:1}
-	done
-	echo
-done
+  for ((cy=ymax, i=0; i<lines; cy-=dy, i++))
+  do for ((cx=xmin, j=0; j<columns; cx+=dx, j++))
+    do (( x=0, y=0, x2=0, y2=0 ))
+      for (( iter=0; iter<maxiter && x2+y2<=16384; iter++ ))
+      do
+        ((
+          y=((x*y)>>11)+cy,
+          x=x2-y2+cx,
+          x2=(x*x)>>12,
+          y2=(y*y)>>12
+        ))
+      done
+      ((c=iter%lC))
+      echo -n "${C[c]}"
+    done
+    echo
+  done
+}