'MANDEL.BAS by Urban Bjorkman 'speed hacks by Toshi Horie SCREEN 12 FOR a = 15 TO 1 STEP -1 colnr = 65536 * INT(4.2 * a) + 256 * 0 + 0 PALETTE a, colnr NEXT a FOR dy% = 0 TO 2 FOR X% = 58 TO 620 'skip black parts a = (X% * .06) - 12 cx = -2 * a / 25 FOR Y% = 1 TO 240 STEP 3 'interlace YY% = Y% + dy% b = YY% * .121 + 21 cy = 2 - b / 25 x0 = 0 y0 = 0 it% = 0 FOR i% = 1 TO 15 x1 = x0 * x0 - y0 * y0 + cx y1 = 2 * x0 * y0 + cy IF x1 * x1 + y1 * y1 > 4 THEN it% = 1 EXIT FOR END IF x0 = x1 y0 = y1 NEXT i% IF it% THEN PSET (X%, YY%), i% PSET (X%, 480 - YY%), i% 'use y-symmetry END IF NEXT Y% NEXT X% NEXT dy% END