FOTD 01-01-04 (Happy New Fractalss [9])
FOTD -- January 01, 2004 (Rating 7) Fractal visionaries and enthusiasts: Due to an unplanned busy night, today's discussion is not only late, it is very short and to the point. I named the fractal "Happy New Fractals" because it is the first in a year-long series of hopefully superior images. The generating formula combines portions of Z^(-5.1) and Z^(-1.5), and adds (1/C). The resulting fractal consists of the usual indescribable Mandeloid, with a separate area of chaos lying just southwest of the main fractal unit. Today's scene lies in this separate area of chaos. Most of the effect was achieved by rendering the image with the outside set to 'tdis' and the inside set to 'fmod'. The rating of an above-average 7 makes the 3-minute render time worth the effort. The image can also be seen by downloading it from: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> The last day of the year passed uneventfully here at Fractal Central. With lots of sun and a temperature of 54F 12C, the day was pleasant enough for the cats to enjoy almost two hours in the wild outdoors of the yard. When midnight came and people began setting off fireworks, they cats took shelter in their closet in the spare room, where they were still sleeping when the night ended. Today is the first day of another year, and it is starting the same as yesterday. I expect the cats will be acceptably happy. I will be unable to comment on my happiness until 8784 hours have passed. So check back then to see how the year goes. Luckily, the next FOTD will appear far before then. It will appear in 18 hours in fact. Until then, take care and happy recovery. Jim Muth jamth@mindspring.com jimmuth@aol.com START 20.0 PAR-FORMULA FILE================================ Happy_New_Fractals { ; time=0:03:25.14--SF5 on a P200 reset=2002 type=formula formulafile=allinone.frm formulaname=MandelbrotMix2 function=recip passes=1 center-mag=-2.466097773964582/-1.765694766786944/4\ 37507.9/1/22.5/-4.23133679e-007 float=y params=1.5\ /-5.1/5.1/-1.5/0/0/0/0 maxiter=1000 inside=fmod proximity=0.7 outside=tdis periodicity=10 colors=000U73V84W94XA5ZC5_D6`E6aF7cH7dI8eJ8fK9gLAi\ NAjOBkPBlQCnSCoTDpUDqVErWEi`KadQUiWLmaDrg5vm7sm8qm\ 9omBlmCjmDhmFemGcmHamJ_mKXmLVmNTmOQmPOmRMmSKmTHmVF\ mWDmXAmZ8m_6m`4ma6ka7ia9gaAebBcbDabE_bFYbHWcIUcKSc\ LQcMOcOMdPKdQIdSGdTEdVCeWAeX8eZ6e_4e`3eWEeSOeNZeJh\ fLggMfgNehOeiPdiQcjRcjTbkUalV`lW`mX_nYZi00o`YoaXpb\ WqcWqdVreUT00V88XFEZ17`26a26b36c35d35e45f44g44h54i\ 54i53l63m63n62o72p72q71r81s81t81uB3uD4uF5uI7uK8uM9\ uPBuRCuTDuVEuYGu_HuaIudKufLuhMujNumPuoQuqRutTuvUux\ VuzWgyVVyVIxV5xV6tV6pV7lV7hV7dV8aV8YV8UV9QV9MV9JVC\ IUEITGISIISNTNSbIXlDav8`qD`mI`iN`eS`aW`Y``Ue`Qj`Mn\ XDwTKoQRhNY`KdUHkMEqFMjLTdR_ZXfTbmNg_`mMms9zy8vt7s\ p6pl5lh4id3f`2dY8c_EbaKacP`eV_h`ZjfYlkXnhXofXogWlh\ VjiUgjTekSbkR`lNXmKUmHRnDNnAKo7Ho4En9ImEMlIQlNTkRX\ jW`j_c4ci3RV1DFfjufiufhuePXe68c5Ab5Ca5E`5G_5IZ5KY5\ MX5O`GYdRfhao0bl7_mEYmLVm } frm:MandelbrotMix2 {; Jim Muth a=real(p1), b=imag(p1), d=real(p2), f=imag(p2), g=1/f, h=1/d, j=1/(f-b), z=(((-a*b*g*h)^j)+(p4)), k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END 20.0 PAR-FORMULA FILE==================================
0.48583||y<0.48083)||(y>0.48583&&y<0.49583&&x>-0.22596&&x<-0.16096\ ) xw=4*x chrw8 = y<xw+0.94285&&y>xw+0.90162||(y>-xw+0.09048&&y<-xw+0.13171)&\ &y<0.51667||(y>-xw-0.04285&&y<-xw-0.00162)||(y<xw+0.80952&&y>xw+0.7\ 6829)&&y<0.525 xCY=2*x chrY10 = y<xCY+0.42364&&y>xCY+0.40128||(y>-xCY+0.55636&&y<-xCY+0.57\ 872)&&y>xCY+0.40128 chre11 = abs(cabs(z+(-0.12586,-0.4875))-0.0325)<0.005&&(x<0.12586||\ y>0.48583||y<0.48083)||(y>0.48583&&y<0.49583&&x>0.09336&&x<0.15836) chra12 = abs(cabs(z+(-0.19861,-0.50375))-0.01625)<0.005&&x<0.19861|\ |(abs(cabs(z+(-0.20861,-0.50375))-0.01625)<0.005&&x>0.20861)&&y>0.5\ 0375||((abs(cabs(z+(-0.19861,-0.47125))-0.01625)<0.005&&x<0.19861)|\ |(abs(cabs(z+(-0.20861,-0.47125))-0.01625)<0.005&&x>0.20861))||(x>0\ .19861&&x<0.20861&&(y<0.46||(y>0.515&&y<0.525)||(y>0.4825&&y<0.4925\ )))||(x>0.21986&&x<0.22986&&y<0.50375) chrr13 = x>0.24386&&x<0.25386&&y<0.525||(abs(cabs(z+(-0.2698,-0.499\ 06))-0.02094)<0.005&&y>0.49906) test2 = chrN6||chre7||chrw8||chrY10||chre11||chra12||chrr13&&y>0.45\ &&y<0.55 x2=2.5*x chr214 = abs(cabs(z+(0.09317,-0.36435))-0.01935)<0.0063&&(y>0.36435\ ||y>-x/1.21639+0.28775)||(y<1.21639*x+0.45714&&y>1.21639*x+0.4373&&\ y<-x/1.21639+0.28775)||y<0.3126&&x>-0.11882&&x<-0.06752 chr015 = abs(cabs(z+(0.03287,-0.36435))-0.01935)<0.0063&&y>0.36435|\ |(abs(cabs(z+(0.03287,-0.32565))-0.01935)<0.0063&&y<0.32565)||(((x>\ -0.05852&&x<-0.04592)||(x>-0.01982&&x<-0.00722))&&y>0.32565&&y<0.36\
Hi fractinters, all the best for 2004! *********************** ny04-1a { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=ny2004-4.frm formulaname=ny2004-4 function=sinh/sinh/ident/ident passes=1 center-mag=2.57336/0.749497/0.8909/1/7.5/0 params=-0.060358/0.53382/2.36/0.020655/0.873595/-0.48138/1/0.2012/1.5/38 float=y maxiter=800 inside=atan periodicity=0 colors=000<58>taJubJvbK<2>ydLzeLydL<55>642531421<2>100000001<56>Q_tQ`uR`\ v<2>SbyTczSby<61>000 } frm:ny2004-4 { ; fn1-fn4 ident = Mandelbrot ; with lake transformation from Sylvie Gallet, Jan 16, 2000 ; --- ; real(p1) = merging of text (function dependent) ; imag(p1) = idem ; real(p2) = diam. of backgr.fractal ; imag(p2) = 0-6.28 = rotation of backgr.fractal ; real(p3) = x-pos. of backgr.fractal ; imag(p3) = y-pos. of backgr.fractal ; --- ; If (B=A*C) then text is invisible, else=visible! ; A = real(p4), B = imag(p4), C = real(p5) ; ----- ; real(p4) = diam. of fractal ; imag(p4) = diam. of text-fractal ; real(p5) = diam. & direction on x-axis of fractal ; ----- ; imag(p5) = Waterlevel (0-100 % of screen hight) ; ----- ; 'periodicity=0' and 'passes=1' recommended pp_3=(0.3,200) if (imag(p5) > 0 && imag(p5) <= 100) level = imag(p5) / 100 ampl = real(pp_3) freq = imag(pp_3) angle = real(rotskew * pi / 180) exp_irot = exp(-flip(angle)) h = 1 / real(magxmag) w = h / 0.75 * imag(magxmag) tanskew = tan(imag(rotskew * pi / 180)) u = 2 * w * exp_irot v = 2 * h * (tanskew + flip(1)) * exp_irot z3rd = center + (-w-h*tanskew - flip(h)) * exp_irot z = pixel - z3rd b = imag(conj(u)*z) / imag(conj(u)*v) if (b <= level) dy = level - b z = z + 2*dy * (1+ampl*sin(freq*dy^0.2)) * v endif pixel = z + z3rd endif z=fn1(fn2(pixel))*p1 x=real(z), y=imag(z) chrH1 = x<-0.16646||x>-0.13646||(y<0.656&&y>0.644)&&x>-0.17846&&x<-\ 0.12446 chra2 = abs(cabs(z+(0.09271,-0.65325))-0.01575)<0.006&&x<-0.09271||\ (abs(cabs(z+(0.08271,-0.65325))-0.01575)<0.006&&x>-0.08271)&&y>0.65\ 325||((abs(cabs(z+(0.09271,-0.62175))-0.01575)<0.006&&x<-0.09271)||\ (abs(cabs(z+(0.08271,-0.62175))-0.01575)<0.006&&x>-0.08271))||(x>-0\ .09271&&x<-0.08271&&(y<0.612||(y>0.663&&y<0.675)||(y>0.6315&&y<0.64\ 35)))||(x>-0.07296&&x<-0.06096&&y<0.65325) chrp3 = x>-0.05096&&x<-0.03896&&y<0.675&&y>0.5625||(abs(cabs(z+(0.0\ 2021,-0.6375))-0.0315)<0.006&&x>-0.03896) chrp4 = x>0.02729&&x<0.03929&&y<0.675&&y>0.5625||(abs(cabs(z+(-0.05\ 804,-0.6375))-0.0315)<0.006&&x>0.03929) xy=2.5*x chry5 = y<xy+0.26116&&y>xy+0.22884||(y>-xy+0.93884&&y<-xy+0.97116)&\ &y>xy+0.22884&&y<0.675&&y>0.55 test1 = chrH1||chra2&&y>0.6||chrp3||chrp4||chry5&&y<0.7 xCN=2.5*x chrN6 = x>-0.29573&&x<-0.28573||(x>-0.25573&&x<-0.24496)||(y>-xCN-0\ .18933&&y<-xCN-0.16241) chre7 = abs(cabs(z+(0.19346,-0.4875))-0.0325)<0.005&&(x<-0.19346||y\ 435) chr016 = abs(cabs(z+(-0.02743,-0.36435))-0.01935)<0.0063&&y>0.36435\ ||(abs(cabs(z+(-0.02743,-0.32565))-0.01935)<0.0063&&y<0.32565)||(((\ x>0.00178&&x<0.01438)||(x>0.04048&&x<0.05308))&&y>0.32565&&y<0.3643\ 5) x4=1.8*x chr417 = y<x4+0.21826&&y>x4+0.19232&&y>0.33||(x>0.09722&&x<0.10982)\ ||(y>0.3174&&y<0.33&&x>0.06208&&x<0.11882) test3 = chr214||chr015||chr016||chr417&&y>0.3&&y<0.39 test=test1||test2||test3 test0=test0&&whitesq test0=((test0||test)==0) f1=(1/conj(real(p5)))*(1/conj(real(p4)))*pixel f2=(1/imag(p4))*pixel pixel=(test==0)*f1+test*f2 z=c=fn1(fn2(pixel-p3)*(exp(p2))) : z=sqr(fn3(fn4(z)))+c |z| <=4 } *********************** cheers, Guy
participants (2)
-
Guy Marson -
Jim Muth