Fractal of the Day
by Jim Muth
START PARAMETER FILE=======================================
ParabolicElephants { ; time=0:05:50.97-SF5 on P4-2000
reset=2004 type=formula formulafile=basic.frm
formulaname=SliceJulibrot4 float=y inside=0 passes=t
center-mag=-0.00059573625921465/-0.4465554630852387\
0/1341.626/0.2304/90/-86.8491299926404423 logmap=29
params=0/90/0/0/0.26090366/-0.00195958/0/0/2/0
maxiter=27500 periodicity=10
colors=000wzMxzLwzKuzKszJqzIozHlzHizGfzGczG`zFYzHW\
zKUzNSyQRxTQxWPxZPyaPycPyePxgPxjPxmPwpPwsPwvPwwPvw\
PvvPvsPuqPuoPumPtkPtiPtgPtePscPscPsaPr`Pr`Pr`Pq_Pq\
_Pq_Pq_Pp_PpZPpZPoZPoZPoYPnYPnYPnYPnYPnYPnYPnYPnYP\
lVPiSPfQPcNP`KPYHPVFPSCPP9PM7UM8ZK8cJ9hH9mGAmEAmDB\
rBBv89zABzBCzCDvDErFFmGGhHHcIIaKJ_LKYMLWNMUPNSQOQR\
POSQMURKVSIWUGXVEZWC_XA`YAaZAc_9d`9ea9fb9hc9id8je8\
kf8mg8nh8oi8pj9oi9niAmiAliAkiBjiBiiBhiCgiCfjCekDdl\
DcmDbnEaoE`pE_qFZrFYsFXtGXuGXvHXwHXxH`yIYzI_zIazJg\
zJazJ`zKVzKUzKOzLNzLHzLGzMFzMEzMDzNCzNBuK5pM8pNApP\
CpNApOCuPDuQEuRFzRGzSHzTIzUJzULzVMzWNzXOzYPzYQzZRz\
_Sz`Uz`VzaWzbXzcYzdZzd_ze`zfbzgczgdzhezifzjgzkhzki\
zlkzmlznmznnzoozppzqqzrszquzqwzqwzpwzpwzpwzowzowzo\
wznwznwznwzmwzmwzmwzlwzlwzlwzkwzkwzkwzjwzjwzjwziwz\
iwziwzhwzhwzhwzgwzgwzgwzfwzfwzfwzewzewzewzdwzdwzdw\
zcwzcwzcwzbwzbwzbwzawzawz }
frm:SliceJulibrot4 {; draws most slices of Julibrot
pix=pixel, u=real(pix), v=imag(pix),
a=pi*real(p1*0.0055555555555556),
b=pi*imag(p1*0.0055555555555556),
g=pi*real(p2*0.0055555555555556),
d=pi*imag(p2*0.0055555555555556),
ca=cos(a), cb=cos(b), sb=sin(b), cg=cos(g),
sg=sin(g), cd=cos(d), sd=sin(d),
p=u*cg*cd-v*(ca*sb*sg*cd+ca*cb*sd),
q=u*cg*sd+v*(ca*cb*cd-ca*sb*sg*sd),
r=u*sg+v*ca*sb*cg, s=v*sin(a),
c=p+flip(q)+p3, z=r+flip(s)+p4:
z=z^(p5)+c
|z| <= 9 }
END PARAMETER FILE=========================================
times.