share/fractals/rtest_fractals.mac

   1 (kill (all), load (fractals), 0);
   2 0;
   3
   4 mandelbrot_set(1,-1);
   5 5;
   6
   7
   8 mandelbrot_set(-7,9/2);
   9 3;
  10
  11
  12 mandelbrot_set(0,0);
  13 30;
  14
  15
  16 julia_set(-5,-5/2);
  17 3;
  18
  19
  20 julia_set(-45,sqrt(56));
  21 2;
  22
  23
  24 julia_sin(10,4);
  25 3;
  26
  27
  28 julia_sin(10,4.51);
  29 3;
  30
  31
  32 snowmap([3,2+3*%i,6-3*%i,%i],1);
  33 [[3.0, 0.0], [2.666666666666667, 1.0],
  34 [1.633974596215561, 1.211324865405187], [2.333333333333333, 2.0],
  35 [2.0, 3.0], [3.333333333333333, 1.0],
  36 [5.732050807568877, 1.154700538379251],
  37 [4.666666666666667, - 1.0], [6.0, - 3.0],
  38 [4.0, - 1.666666666666667], [1.845299461620749,
  39 - 2.732050807568877], [2.0, - .3333333333333333], [0.0, 1.0]];
  40
  41
  42 hilbertmap(2);
  43 [[- 0.875, 0.875], [- 0.875, 0.625], [- 0.625, 0.625],
  44 [- 0.625, 0.875], [- 0.375, 0.875], [- 0.125, 0.875],
  45 [- 0.125, 0.625], [- 0.375, 0.625], [- 0.375, 0.375],
  46 [- 0.125, 0.375], [- 0.125, 0.125], [- 0.375, 0.125],
  47 [- 0.625, 0.125], [- 0.625, 0.375], [- 0.875, 0.375],
  48 [- 0.875, 0.125], [- 0.875, - 0.125], [- 0.625, - 0.125],
  49 [- 0.625, - 0.375], [- 0.875, - 0.375], [- 0.875, - 0.625],
  50 [- 0.875, - 0.875], [- 0.625, - 0.875], [- 0.625, - 0.625],
  51 [- 0.375, - 0.625], [- 0.375, - 0.875], [- 0.125, - 0.875],
  52 [- 0.125, - 0.625], [- 0.125, - 0.375], [- 0.375, - 0.375],
  53 [- 0.375, - 0.125], [- 0.125, - 0.125], [0.125, - 0.125],
  54 [0.375, - 0.125], [0.375, - 0.375], [0.125, - 0.375],
  55 [0.125, - 0.625], [0.125, - 0.875], [0.375, - 0.875],
  56 [0.375, - 0.625], [0.625, - 0.625], [0.625, - 0.875],
  57 [0.875, - 0.875], [0.875, - 0.625], [0.875, - 0.375],
  58 [0.625, - 0.375], [0.625, - 0.125], [0.875, - 0.125],
  59 [0.875, 0.125], [0.875, 0.375], [0.625, 0.375], [0.625, 0.125],
  60 [0.375, 0.125], [0.125, 0.125], [0.125, 0.375], [0.375, 0.375],
  61 [0.375, 0.625], [0.125, 0.625], [0.125, 0.875], [0.375, 0.875],
  62 [0.625, 0.875], [0.625, 0.625], [0.875, 0.625], [0.875, 0.875]];
  63
  64
  65 sierpinskimap(2);
  66 [[0.75, 0.875], [0.625, 0.75], [0.375, 0.75],
  67 [0.25, 0.875], [0.125, 0.75], [0.25, 0.625], [0.25, 0.375],
  68 [0.125, 0.25], [- 0.125, 0.25], [- 0.25, 0.375], [- 0.25, 0.625],
  69 [- 0.125, 0.75], [- 0.25, 0.875], [- 0.375, 0.75],
  70 [- 0.625, 0.75], [- 0.75, 0.875], [- 0.875, 0.75],
  71 [- 0.75, 0.625], [- 0.75, 0.375], [- 0.875, 0.25],
  72 [- 0.75, 0.125], [- 0.625, 0.25], [- 0.375, 0.25],
  73 [- 0.25, 0.125], [- 0.25, - 0.125], [- 0.375, - 0.25],
  74 [- 0.625, - 0.25], [- 0.75, - 0.125], [- 0.875, - 0.25],
  75 [- 0.75, - 0.375], [- 0.75, - 0.625], [- 0.875, - 0.75],
  76 [- 0.75, - 0.875], [- 0.625, - 0.75], [- 0.375, - 0.75],
  77 [- 0.25, - 0.875], [- 0.125, - 0.75], [- 0.25, - 0.625],
  78 [- 0.25, - 0.375], [- 0.125, - 0.25], [0.125, - 0.25],
  79 [0.25, - 0.375], [0.25, - 0.625], [0.125, - 0.75],
  80 [0.25, - 0.875], [0.375, - 0.75], [0.625, - 0.75],
  81 [0.75, - 0.875], [0.875, - 0.75], [0.75, - 0.625],
  82 [0.75, - 0.375], [0.875, - 0.25], [0.75, - 0.125],
  83 [0.625, - 0.25], [0.375, - 0.25], [0.25, - 0.125], [0.25, 0.125],
  84 [0.375, 0.25], [0.625, 0.25], [0.75, 0.125], [0.875, 0.25],
  85 [0.75, 0.375], [0.75, 0.625], [0.875, 0.75]];