26 lines
747 B
Plaintext
26 lines
747 B
Plaintext
#include <jambo.h>
|
|
|
|
Main
|
|
Set stack 15
|
|
Cls
|
|
map = {}
|
|
Set '" ", ".", ":", "-", "=", "+", "*", "#", "%", "$", "@"', Apnd list 'map'
|
|
|
|
Loop for ( y= -1.0, Less equal (y,1.0), Let ( y:=Add(y,0.05)) )
|
|
Loop for ( x= -1.5, Less equal (x,1.5), Let ( x:=Add(x,0.025)) )
|
|
zr = x, zi = y, i = 0, br = 0
|
|
Loop
|
|
Let ( br := Sqr diff(zr,zi) Minus '0.8' )
|
|
Let ( zi := Mul(Mul(zr, zi), 2), Plus '0.156' )
|
|
zr = br
|
|
Break if ( Greater ( Sqr add (zr, zi), 4 ) )
|
|
++i
|
|
While ( Less equal (i, 100) )
|
|
Colorfore( Int div(i,11) Plus '91' )
|
|
Print ( [ Intdiv(i,11) Plus(1)] Get 'map' )
|
|
Next
|
|
Prnl
|
|
Next
|
|
Prnl
|
|
End
|