From 5be733e4d7917a032c41eca7e9c19e6981e9e5fa Mon Sep 17 00:00:00 2001
From: Lawrence Kesteloot <lk@teamten.com>
Date: Tue, 14 Aug 2018 21:05:45 -0700
Subject: [PATCH] Add Mandelbrot set example.

---
 examples/mandelbrot.bas | 36 ++++++++++++++++++++++++++++++++++++
 main.c                  |  1 -
 2 files changed, 36 insertions(+), 1 deletion(-)
 create mode 100644 examples/mandelbrot.bas

diff --git a/examples/mandelbrot.bas b/examples/mandelbrot.bas
new file mode 100644
index 0000000..cc9ff9b
--- /dev/null
+++ b/examples/mandelbrot.bas
@@ -0,0 +1,36 @@
+5 GR
+10 C1 = 64
+11 CA = 8
+12 CB = 8
+20 C4 = 4*C1
+30 XR = 40
+40 YR = 40
+50 MC = 15
+60 RN = -2*C1
+70 RX = 1*C1
+80 IN = -5*C1/4
+90 IX = 5*C1/4
+100 RD = (RX - RN)/(XR - 1)
+110 ID = (IX - IN)/(YR - 1)
+120 I = IN
+130 FOR Y = 0 TO YR - 1
+140     R = RN
+150     FOR X = 0 TO XR - 1
+160         ZR = 0
+170         ZI = 0
+180         CT = 0
+190         R2 = 0
+200         I2 = 0
+220             TR = R2 - I2 + R
+230             TI = ZR*2/CA*ZI/CB + I
+240             ZR = TR
+250             ZI = TI
+260             R2 = ZR/CA*ZR/CB
+270             I2 = ZI/CA*ZI/CB
+280             CT = CT + 1
+290         IF CT < MC AND R2 + I2 < C4 GOTO 220
+300         COLOR=15-CT:PLOT X,Y
+310         R = R + RD
+320     NEXT X
+340     I = I + ID
+350 NEXT Y
diff --git a/main.c b/main.c
index 19642e1..8a75e30 100644
--- a/main.c
+++ b/main.c
@@ -1597,7 +1597,6 @@ int16_t main(void)
 {
     int16_t blink;
 
-
     // Clear stored program.
     new_statement();