aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Mandelbrot-set/SPL/mandelbrot-set.spl Normal file
View file

@ -0,0 +1,18 @@
w,h = #.scrsize()
sfx = -2.5; sfy = -2*h/w; fs = 4/w
#.aaoff()
> y, 1...h
> x, 1...w
fx = sfx + x*fs; fy = sfy + y*fs
#.drawpoint(x,y,color(fx,fy):3)
<
<
color(x,y)=
zr = x; zi = y; n = 0; maxn = 150
> zr*zr+zi*zi<4 & n<maxn
zrn = zr*zr-zi*zi+x; zin = 2*zr*zi+y
zr = zrn; zi = zin; n += 1
<
? n=maxn, <= 0,0,0
<= #.hsv2rgb(n/maxn*360,1,1):3
.