This fractal has "dirt" on it (speckles). If you zoom in on the mandelbar the noise pattern changes so it's not correct. I tried everything with bailout and even added precision but the problem remains. Actually with added precision the picture completely disappears.
I guess I can't attach here, so I'll give upr and Bugs.ufm below,
````
/>bug1 {
::8s1Schn21J1yutNMQw7CQ/DE8elpolssTBvYUE07B9cxa+QiI8hAJFS0ffXJ70UggqLcwwdn
ZWuykAZBcPVXRIFbxpF0bLjtUybWVZScixITa74UZH6gVdKLaJykWZLZB9XZd67HPw7OwZ8W
ad1eJ7yJh5iNGE0rg81xUcJook4MItlVRLqmXXmiKhzG0QquyDzz2w49e1hiOJ+Gr5S/ZGv/
8wA/yBWDvt/YfHrnfk4hxgg3waPO0z7rrMxkfxB7t7h3tb9z7Rbm1J5kW+qIaMEj1pDgHHzr
Lj5mFjnSQvSrC6zRnC9/aKWobiM/7bg1FXKbh9zPk3wEsDbggRwxjtBR8ToUXZDZrSvnBlGx
4kemUSQIbw4EiBNJHdWlojfp7Crd4E7fi0LFIogkqZR62jwjk9DtBWcbpCTzXMo7TDkL30pY
s8/08rCOmAlFZv/qH9eEjr1Xs+Znmg3umlwd0edNUS2jOMJW1ZiNo0vLYYjuYSw204OFn9BZ
7pBc31iLoHr+dneoRI+XJ+4HDePW6fgLoDt8
}
Bugs.ufm:FoldingBrot {
::BTmqkgn29NV0OqNMQw3Ri/hV5eJJHIS4uKVRPkg7hq2qq2PAEVyHYnYhxOy40QR3Hf31OJE6
dqPEJ7d2Me8sjlapbx4RA8JQALBmuQxh4sp5Jw9QuESBbLqRtHYWTtePokaO4KxNFlQ1SbK/
cV88KZauM1zQyEwYdlmCjmpAnB2kBVbJi2ZOWp4nBRtennz4uKXmcFMha9azNoyuEKJUGmDl
JWxyZqYRCKx543dVyhdYxGkHZFxdctGLQycqXjtFJibSXP1edL7lTxembSSAvHk65pZwvE3g
A2kZrDlscXtVDN0Ouev/qRrlaHoJXdlWczdXsx7FSR8qjcXJscJk1S/Ju77cdhrMWImo7EPE
I7AyVWflmSpiHfAeCG2H5AiNH2iteYmWMbOK1Vish4ENHuPvvEqZPX+N+Lh6Efo4ybp3fZes
1mFbyoD5hZPSpDp9kzPP7RzDofER3ZsautHZOh8h3D5BCJHZcK67o0RiVsqWfVGMRsDcWfmr
odXCOiyYqW0Z59u07ZQ0P4jdXm4tpu6D8kO7oj/L/i8wdjH9CTqM1hnLve5V4Jcy2Wb8o9cB
rWFAdSH6mLhoPjnkUX8s14i8inrdcKaGnNpdkHirVML7I0TmP8zqcSDF0jeOUH+NTVzjCwtn
H5X885t62TDuuLpFotb6PgxfKEYSD2w0+36TsbfDtZD5E6D0hthA9NUe3UyXP9Ge+XtNgFKf
FanrrPSk8Dj9ITFBRfh5iezR8V09KsMnx+/VLt+Uj0trcRoP3fqGOP+WtSyi6ewx3fTkC6GD
Y1bGIiMK7kN4pA5C/FAo5IW2
}
Bugs.ufm:
FoldingBrot {
init:
; f = angle (0-1) + 1i r
; fold around line through p=rexp(2pi1iangle), orthogonal to [0 p]
complex func fold(complex z, complex f)
complex w = z
float an = real(f) 2 #pi
float r = imag(f)
A = exp(-1ian)
w = wA-r
w = abs(real(w)) + 1i*imag(w)
w = (w + r)/A
return w
endfunc
int nf = @nf
complex ff[]
if(@meth == 0)
setLength(ff,nf)
int k = 0
while(k < nf)
ff[k] = k/nf/2 + @f0
k = k+1
endwhile
elseif(@meth == 1)
nf = 4
ff[0] = 3/4 ; first fold
ff[1] = 3/8 ; corner
ff[2] = 5/8 ; corner
ff[3] = 1/4 - 1i/2 ; flap
endif
c = #pixel
z = 0
loop:
int k = 0
while(k < nf)
z = fold(z,ff[k])
k = k+1
endwhile
z = z^2 + c
bailout:
|z| <= @bailout
default:
title = "FoldingBrot"
center = (0, 0)
float param bailout
caption = "Bailout value"
default = 1e12
endparam
complex param f0
caption = "Offset [an(0-1),r]"
default = 0
endparam
int param nf
caption = "#-folds"
default = 2
endparam
int param meth
enum = "Normal" "Hat"
caption = "Integrator"
default = 0
endparam
switch:
type = "FoldingJulia"
seed = #pixel
bailout = bailout
f0 = f0
nf = nf
}