Freebasic Mandlebrot.
Simple mandlebrot prog compile in freebasic.

[code] SCREEN 13WINDOW (-2, 1.5)-(2, -1.5)FOR x0 = -2 TO 2 STEP .01FOR y0 = -1.5 TO 1.5 STEP .01x = 0y = 0iteration = 0maxIteration = 223WHILE (x * x + y * y <= (2 * 2) AND iteration < maxIteration)xtemp = x * x - y * y + x0y = 2 * x * y + y0x = xtempiteration = iteration + 1WENDIF iteration <> maxIteration THENc = iterationELSEc = 0END IFPSET (x0, y0), c + 32NEXTNEXT |

Comments
Post a Comment