Is it the End of Time? Or just Dr. J's time? Has Dr. J distintegrated? Did he come unglued? Did he get a vision answering his questions about origins? Will the future FotN stories feature only Dr. E (Dr. J's wife), the sensible scientist of FractoSpace?
Dr. J has cooled down and stopped fizzing and sputtering. But where are the rest of his pixels? In fact, look! He is no longer a fractal!! Tonight's picture, just in from Dr. J's security camera shows what is left of Dr. J. It looks like he is nothing but a cardioid and a few circles! What will Dr. E have to say about this? Oh my!
|
Figure 1. In One Piece?
Stay tuned, because it's not over until it's over.
Jay
The parameter and formula files for Fractint are included below. Copy them
into a quickie.par file for quick loading into Fractint. For longer term
use, copy the frm: block into a FotN.frm file. But this time leave off the
'frm:' part. Then copy the rest (the par parts) into your FotN.par
file.
In_One_Piece { ; (c) Jay Hill, 1998
reset=1960 type=formula formulafile=colorit5.par
formulaname=One_Piece
center-mag=-0.5/-1.33227e-015/1/1/-90 float=y
maxiter=3 inside=1 outside=summ symmetry=xaxis
periodicity=0 colors=wA0wA0wA0UKK<248>UKK000000000
savename=OnePiece
}
frm:One_Piece { ; (c) Jay Hill, 1998
; use outside=summ periodicity=0 float=y
done = 1, z = 0, zc = 0, c = pixel
s=|c|, t1=(256*s - 96)*s + 32*Real(c), t2=16*s + 32*Real(c) + 16
B=sqrt(-4*c-7), t3=|8+4*c*(1-B)|, t4=|8+4*c*(1+B)|
z=z + 2*(t1<=3) + 2*(t2<=1) + 2*(t3<=1) + 2*(t4<=1)
if(z == 0)
L1=2, L2=2,
if((4*c+3) !=0)
Y=pi*sqrt(-1)/1.5, X = 2*sqrt((4*c+3)/3),
X3 = asinh(-16/X^3)/3, Zz = 2*(c+1)*c + 2
F=X*sinh(X3 + Y), L1= 64*|(c*(F+1)*F + Zz)|,
F=X*sinh(X3 + 2*Y), L2= 64*|(c*(F+1)*F + Zz)|,
z=z + 2*(L1<=1) + 2*(L2<=1)
endif
endif
if(z>0)
done=-1 ; color is set for c in a component, skip iterations
endif
: ; initialization.
zc=sqr(zc) + c ; standard MSet iteration
if (|zc| >= 4) ; Bailout at 4
done=-1 ; Set flag to force an exit.
endif
done >= 0 ; Continue if the flag >=0.
}
