19 lines
457 B
Plaintext
19 lines
457 B
Plaintext
DIM Pix&(11)
|
|
$^Pix&(0)="@$%#*+=-:. " : REM Let's inverse :-)
|
|
FOR Y=-1.0 TO 1.0 STEP 1/15
|
|
FOR X=-1.5 TO 1.5 STEP 3/100
|
|
ZR=X
|
|
ZI=Y
|
|
I%=0
|
|
WHILE I% < 100
|
|
ZR1=ZR * ZR - ZI * ZI - .79
|
|
ZI=ZR * ZI * 2 + .15
|
|
ZR=ZR1
|
|
IF ZR * ZR + ZI * ZI > 4 EXIT WHILE
|
|
I%+=1
|
|
ENDWHILE
|
|
VDU Pix&(I% / 10)
|
|
NEXT
|
|
PRINT
|
|
NEXT
|