.
Dr. J is taking time off from his laboratory, his aquarium, termites, Red Headed Crabs, and all that other stuff to wish all in the real world a happy Valentine's Day! Figure 1.
|
Figure 1. Red Heart.
Once again, tonight's formula file uses exact tests to determine if pixels are in the cardioid or the circle, components with orbits having period 1 or 2. Pixels in these components are given special colors. Since the nature of these pixels is determined before iterations begin, the time consuming iterations otherwise used for these pixels is skipped.
Try changing the palette after the image is drawn. You will see the Mandelbrot set boundary is there (but distorted) hiding in the dark.
 |
Figure 1. Red Heart 2.
Stay warm,
Jay
PS. Can someone tell Dr. J why this image is all black when maxiter<252?
>When using outside=real or summ or imag, FractInt clips the results to
colors < maxiter. Whenever
>using a coloring formula, you should always use maxiter of at least 256.
- Damien M. Jones
Thanks a billion!
frm:Heart { ; (c) Jay Hill, 1998
done = 1, z = 0, zc = 0, c = sqrt(pixel+.75)
s=|c|, t1=(256*s - 96)*s + 32*Real(c), t2=16*s + 32*Real(c) + 16
z=z + 251*(t1<=3) + 252*(t2<=1) ; set colors
if(z>0) ; for periods 1, 2
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.
}
RedHeart { ; (c) Jay Hill, 1998
reset=1960 type=formula formulafile=*.frm formulaname=Heart
center-mag=-0.242321/-3.33067e-016/4.347826/1/-90
float=y maxiter=252 inside=251 outside=summ
invert=1/0.5/0 symmetry=xaxis periodicity=0
colors=000<248>111111000wK1000000KA8
}
