RosettaCodeData/Task/Mandelbrot-set/Dc/mandelbrot-set-2.dc
2023-07-01 13:44:08 -04:00

37 lines
493 B
Text

_2.1 sx 0.7 sX _1.2 sy 1.2 sY
32 sM
640 sW 480 sH
8 k
[P5] P A P
lW n 32 P lH n A P
lM 1 - n A P
[ q ] sq
0 sh
[
lh lH =q
0 sw
[
lw lW =q
lX lx - lW 1 - / lw * lx + sR
lY ly - lH 1 - / lh * ly + sI
0 sr 0 si 0 sa 0 sb 0 sm
[
lm lM =q
la lb + 4<q
2 lr * li * lI + si
la lb - lR + sr
lm 1 + sm
lr 2 ^ sa
li 2 ^ sb
l0 x
] s0
l0 x
lm 1 - P
lw 1 + sw
l1 x
] s1
l1 x
lh 1 + sh
l2 x
] s2
l2 x