diff options
Diffstat (limited to 'tests/011/mandel.txr')
| -rw-r--r-- | tests/011/mandel.txr | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/tests/011/mandel.txr b/tests/011/mandel.txr index 8a701526..cfa24857 100644 --- a/tests/011/mandel.txr +++ b/tests/011/mandel.txr @@ -1,16 +1,14 @@ @(do - (defvar x-centre -0.5) - (defvar y-centre 0.0) - (defvar width 4.0) - (defvar i-max 80) - (defvar j-max 60) - (defvar n 100) - (defvar r-max 2.0) - (defvar file "mandelbrot.pgm") - (defvar colour-max 255) - (defvar pixel-size (/ width i-max)) - (defvar x-offset (- x-centre (* 0.5 pixel-size (+ i-max 1)))) - (defvar y-offset (+ y-centre (* 0.5 pixel-size (+ j-max 1)))) + (defvarl x-centre -0.5) + (defvarl y-centre 0.0) + (defvarl width 4.0) + (defvarl i-max 80) + (defvarl j-max 60) + (defvarl n 100) + (defvarl r-max 2.0) + (defvarl pixel-size (/ width i-max)) + (defvarl x-offset (- x-centre (* 0.5 pixel-size (+ i-max 1)))) + (defvarl y-offset (+ y-centre (* 0.5 pixel-size (+ j-max 1)))) ;; complex number library (macro-time |