DECLARE FUNCTION posit (q, low, high, pix) SCREEN 12 stepsize = .006 lowreal = -1 highreal = 1 lowimag = -1 highimag = 1 maxiter = 30 xpix = 640 ypix = 480 LINE (posit(lowreal, lowreal, highreal, xpix), ypix - posit(0, lowimag, highimag, ypix))-(posit(highreal, lowreal, highreal, xpix), ypix - posit(0, lowimag, highimag, ypix)), 1 LINE (posit(0, lowreal, highreal, xpix), ypix - posit(lowimag, lowimag, highimag, ypix))-(posit(0, lowreal, highreal, xpix), ypix - posit(highimag, lowimag, highimag, ypix)), 1 FOR real = lowreal TO highreal STEP stepsize FOR imag = lowimag TO highimag STEP stepsize tempa = real tempb = imag iter = 0 DO iter = iter + 1 REM LOCATE 1, 1 REM PRINT iter supertemp = .8 * tempa * tempa - tempb * tempb + real tempb = 2.3 * tempa * tempb + .9 * imag tempa = supertemp LOOP UNTIL (tempa ^ 2 + tempb ^ 2) > 6 OR iter > maxiter hue = INT((iter / maxiter) * 16) PSET (posit(real, lowreal, highreal, xpix), ypix - posit(imag, lowimag, highimag, ypix)), hue NEXT imag NEXT real LINE (posit(lowreal, lowreal, highreal, xpix), ypix - posit(0, lowimag, highimag, ypix))-(posit(highreal, lowreal, highreal, xpix), ypix - posit(0, lowimag, highimag, ypix)), 1 LINE (posit(0, lowreal, highreal, xpix), ypix - posit(lowimag, lowimag, highimag, ypix))-(posit(0, lowreal, highreal, xpix), ypix - posit(highimag, lowimag, highimag, ypix)), 1 REM point plot test block REM a = -.5 REM b = -.5 REM PSET (posit(a, lowreal, highreal, xpix), ypix - posit(b, lowimag, highimag, ypix)), 3 FUNCTION posit (q, low, high, pix) posit = (q - low) / (high - low) * pix - 1 END FUNCTION