examples/mandelbrot.sloth


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

fn main() Int{
  # Configure
  var size: Float = 1000.0;
  var maxVal: Float = 4.0;
  var maxIter: Float = 50.0;
  var plane: Float = 4.0;

  # loop over coordinates
  var x: Float = 0.0;
  while x < size {	
  	var y: Float = 0.0;
	  while y < size {
      # Initialize
      var cReal: Float = (x * plane / size) - 2.0;
      var cImg: Float = (y * plane / size) - 2.0;
      var zReal: Float = 0.0;
      var zImg: Float = 0.0;
      var count: Float = 0.0;

	    # Calculate
      while (zReal * zReal + zImg * zImg) <= maxVal && count < maxIter {
        var temp: Float = (zReal * zReal) - (zImg * zImg) + cReal;
        zImg = 2.0 * zReal * zImg + cImg;
        zReal = temp;
        count = count + 1.0;
      }

	    # Check
      if as_int(count) == as_int(maxIter) {
        termpos(as_int(x), as_int(y));
        print("█");
      }
	    
      y = y  + 1.0;
    }
    x = x + 1.0;
  }
  return 0;
}