.
It may well be time Dr. J got back to his laboratory. It would seem there are more than just the strange creatures in his new aquarium. While he was enjoying a quite evening, he noticed some unusual activity Perhaps it is all the rain falling nearly every day lately at La Julia, but the dampness and mud in the yard must harbor some ugly critters. And tonight's creature is probably the least welcome. It is a fractal space termite! Dr. J definitely does not want more of these around.
|
Figure 1. Dr. J has termites.
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.
Stay warm,
Jay
frm:ColoritM2 { ; (c) Jay Hill, 1998
done = 1, z = 0, zc = 0, c = pi*pixel
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.
}
Termite { ; (c) Jay Hill, 1998
reset=1960 type=formula ;formulafile=*.frm
formulaname=coloritm2 center-mag=1.75319/0.0338255/0.8166986 float=y
maxiter=2560 inside=251 outside=summ invert=1/-0.75/0 symmetry=xaxis
periodicity=0
colors=000I98<3>A57<12>SI8UK9UK9<38\
>tf9ug9vh9wiAwjA<4>wr8ws8wu8wv8xx7xx7\
<51>ddscctcctcct<106>668668557457556<10>111cAAcK1UK0000KA8
savename=Termite
}
