Fractal of the Day
by Jim Muth
START PARAMETER FILE=======================================
Seahorse_Valley-02b { ; time=0:00:07.43-SF5 on P4-2000
reset=2004 type=formula formulafile=basic.frm
formulaname=SliceJulibrot4 logmap=yes periodicity=10
center-mag=-0.121105/0/1/1/90/0 float=y inside=0
params=15/90/0/90/-0.75/0/0/0/2/0 maxiter=15000
colors=000NEOLEQKERJDSIDTHDVHCWHDXHEYHFZFKYKOYPQYU\
TYZWYcYXh`XmcXreXvhXzjXufTmcPc_MUXIJTLMQPKVUIZZHbc\
FfhUimcmrmqvuuzxxzzzzwxzpuziqzcnvYkrUhmUehXcc_aZb_\
YeYXgXWVWkIVzHWvGWrFWnFWjEXfDXbDX_CXWBYSBYOAYK9YG9\
YD7a76e17d68dA9dEAcIBcMBcQCbVDbZEbbFafGajGanEcjDdg\
CedAfa9gZ8iW6jT5kQ4lN3mKQaOkRSiTVgUXfVZdWacYcaZe`_\
hZ`jYal3mn9nmEolJpkPqjUriZshctgiufnveswdxxdwiMwV4x\
S8xQBxOExMHxKLxIOyFRyDUyBYy9`y7cy5fLx7Rs9WnAaiBfdD\
l_EqWFG_jL`iPaiTbhYbhachedgjdgnefrffvffuc_t`TsZNrW\
GqT9qR3iMDaINUDXM9fE5oG9pHDqJHrKLrLOsNStOWtP_uRcvS\
fwTjwVnxWryXuyQcmJNbC6SDFYEOcFXiGeoGntKhiOcZScOWcD\
Zc3Wc6Tc8QcBNcDKcGIcIFcLCcN9cQ6cS4cU0z00y00y00y00y\
00y00x00x00x00x00x00w00w00w00w00zz0zz0zz0zz0zz0zz0\
zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz\
0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0zz0z\
z0zz0zz0zz0zz0zz0zz0zz0zz }
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.