Data commit

Task/Julia-set/True-BASIC/julia-set.basic

@@ -0,0 +1,27 @@
+LIBRARY "GraphLib.tru"
+
+LET escala = 1/81
+LET zerox = 160
+LET zeroy = 100
+LET maxiter = 32
+LET cr = -.798
+LET ci = .1618
+
+SET WINDOW -10, 640, -10, 320
+FOR x = 0 TO 2*zerox-1
+    FOR y = 0 TO 2*zeroy-1
+        LET zreal = (x-zerox)*escala
+        LET zimag = (zeroy-y)*escala
+        FOR iter = 1 TO maxiter
+            LET br = cr+zreal*zreal-zimag*zimag
+            LET zimag = ci+2*zreal*zimag
+            LET zreal = br
+            IF zreal*zreal+zimag*zimag > 4 THEN
+               SET COLOR 4*t_palette+(REMAINDER(iter,16))
+               PLOT POINTS: x,y
+               EXIT FOR
+            END IF
+        NEXT iter
+    NEXT y
+NEXT x
+END