When I try to render this I get a "Whoops", and a colour error message. John W. ----- Original Message ----- From: "Albrecht Niekamp" <Albrecht.Niekamp@t-online.de> To: <fractint@mailman.xmission.com> Sent: Monday, March 24, 2003 9:51 AM Subject: [Fractint] Splash!!
Hi, all
This is what I did the last days, helps to think of other things. The formula incl. Sylvie Gallets Lake effect can be used with other formulas. As it contains all needed variables copy the whole thing incl. the "if w" procedure and append your formula. The fractal is a "3d-look" mandel with inside Julia, transparent letters and underwater look by double layers. The text is manipulated in two ways, first by a multiplication factor added to each datavalue, which compresses or expands the letters and secondly by imaginary x and y values which change the place and size of the letters.
Here`s how it is set up: Use a lores screen, all variables set to zero, for horizontal symmetry checks the zoombox is handy. Real (p4) is the horizontal perspective distortion factor. Positive values compress the outer letters, negative values compress the inner letters. The vertical factor creates a concave distortion if posive and a convex one if negative. All options can be combined and create different views. Both values positive generate a close up view, HF negative a more distant view. The size values can can erase or add cols or rows and do not change the perspective, but help to get rid of evtl. "wrong pixels". With left/right size it`s easy to correct the symmetry. Although the size is autoadjusted to the settings, some correction maybe needed, especially with extreme settings. How about creating your own splash screen and present it here?
Fractal greetings,
Al
----------------------------start-par------------------------------------
Splash!! { ; If U like it, put in your sstools.ini ; Albrecht Niekamp mar,03 reset=2002 type=formula formulafile=splash.frm formulaname=splash_1 ismand=y passes=1 center-mag=-0.650407/4.44089e-016/0.9861933 params=-0.5/0.375/40/0.18/320/0/-100/100/40/10 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436
colors=200oiR<15>KIBIGAGF9<3>875654443221000400<23>o00q00s00<3>z00<25>C0\
0A00800<3>000<23>eeegggiiijjjlllnnn<2>sss<25>BBB999777<2>222000012<24>0b\
o0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmgPoiQqjRslSunT<2>zsX<4>qjS }
frm:splash_1 { ; Basic data : FractMask08 ; Albrecht Niekamp March,03 ; Lake effect by Sylvie Gallet ; p1: Julia seed ; real (p2) : water level in % of the screen height ; imag (p2) : amplitude of the wave (try 0.2) ; real (p3) : frequency (try 300) ; imag (p3) : size y (>0 smaller -1 no text) ; real (p4) : horizontal factor ; imag (p4) : vertical factor ; real (p5) : size left (>0 smaller) ; imag (p6) : size right (>0 smaller) in=0 t=0 z=0 w=0 start=1 c=pixel if (whitesq) row=imag(scrnpix) rows=imag(scrnmax) y=row/(rows-1) col=real(scrnpix) cols=real(scrnmax) x=col/(cols-1) size=imag(p3)/1000 hf=real(p4)/100 vf=imag(p4)/1000 cl=real(p5)/100 cr=imag(p5)/100 tx=(imag(p3)!=-1) if (tx) xx=x yy=y f=1-y d=x-0.5 cr=cr+hf cl=cl+hf If (x>0.5) e=d*d-0.25 hd=-e*hf g=(0.25-e)/5 x=x+g*cr+((hf*0.005)*(hf<0)) else e=x*x-0.25 hd=e*hf*2 g=(0.25-e)/10 x=x-g*cl+((hf*0.01)*(hf<0)) endif d=1-xx if (y>0.5) if (xx>0.5) e=d*d b=f*(0.5-d)*vf*40*(0.25-e) else e=xx*xx b=f*(0.5-xx)*vf*40*(0.25-e) endif y=y+f*vf*1.6+size else if (xx>0.5) e=d*d b=-(f*(0.5-d)*vf*40*(0.25-e)) else e=xx*xx b=-(f*(0.5-xx)*vf*40*(0.25-e)) endif y=y-y*vf*1.6-size endif e=exp(hd) b=exp(b) in=in+(x>.06*e&&x<.92*e&&y<.693*b&&y>.68*b) in=in+(x>.07*e&&x<.13*e&&y<.626*b&&y>.613*b) in=in+(x>.19*e&&x<.25*e&&y<.626*b&&y>.613*b) in=in+(x>.32*e&&x<.41*e&&y<.626*b&&y>.6*b) in=in+(x>.45*e&&x<.5*e&&y<.626*b&&y>.613*b) in=in+(x>.56*e&&x<.6*e&&y<.626*b&&y>.6*b) in=in+(x>.63*e&&x<.69*e&&y<.626*b&&y>.613*b) in=in+(x>.7*e&&x<.75*e&&y<.626*b&&y>.613*b) in=in+(x>.76*e&&x<.81*e&&y<.626*b&&y>.613*b) in=in+(x>.85*e&&x<.89*e&&y<.626*b&&y>.6*b) in=in+(x>.08*e&&x<.12*e&&y<.613*b&&y>.266*b) in=in+(x>.2*e&&x<.24*e&&y<.613*b&&y>.36*b) in=in+(x>.31*e&&x<.32*e&&y<.613*b&&y>.48*b) in=in+(x>.44*e&&x<.47*e&&y<.613*b&&y>.373*b) in=in+(x>.49*e&&x<.51*e&&y<.613*b&&y>.586*b) in=in+(x>.55*e&&x<.56*e&&y<.613*b&&y>.346*b) in=in+(x>.6*e&&x<.61*e&&y<.613*b&&y>.52*b) in=in+(x>.64*e&&x<.68*e&&y<.613*b&&y>.36*b) in=in+(x>.71*e&&x<.75*e&&y<.613*b&&y>.36*b) in=in+(x>.76*e&&x<.8*e&&y<.613*b&&y>.373*b) in=in+(x>.84*e&&x<.85*e&&y<.613*b&&y>.346*b) in=in+(x>.89*e&&x<.9*e&&y<.613*b&&y>.52*b) in=in+(x>.32*e&&x<.35*e&&y<.6*b&&y>.573*b) in=in+(x>.36*e&&x<.42*e&&y<.6*b&&y>.586*b) in=in+(x>.56*e&&x<.59*e&&y<.6*b&&y>.306*b) in=in+(x>.61*e&&x<.62*e&&y<.6*b&&y>.52*b) in=in+(x>.85*e&&x<.88*e&&y<.6*b&&y>.306*b) in=in+(x>.9*e&&x<.91*e&&y<.6*b&&y>.52*b) in=in+(x>.36*e&&x<.4*e&&y<.586*b&&y>.373*b) in=in+(x>.5*e&&x<.51*e&&y<.586*b&&y>.572*b) in=in+(x>.32*e&&x<.34*e&&y<.573*b&&y>.466*b) in=in+(x>.43*e&&x<.44*e&&y<.573*b&&y>.413*b) in=in+(x>.14*e&&x<.15*e&&y<.52*b&&y>.373*b) in=in+(x>.34*e&&x<.35*e&&y<.52*b&&y>.466*b) in=in+(x>.13*e&&x<.14*e&&y<.493*b&&y>.4*b) in=in+(x>.35*e&&x<.36*e&&y<.48*b&&y>.453*b) in=in+(x>.12*e&&x<.13*e&&y<.466*b&&y>.426*b) in=in+(x>.5*e&&x<.51*e&&y<.412*b&&y>.36*b) in=in+(x>.25*e&&x<.28*e&&y<.44*b&&y>.36*b) in=in+(x>.31*e&&x<.35*e&&y<.44*b&&y>.386*b) in=in+(x>.28*e&&x<.29*e&&y<.426*b&&y>.373*b) in=in+(x>.24*e&&x<.25*e&&y<.413*b&&y>.36*b) in=in+(x>.49*e&&x<.5*e&&y<.413*b&&y>.373*b) in=in+(x>.16*e&&x<.18*e&&y<.4*b&&y>.266*b) in=in+(x>.32*e&&x<.34*e&&y<.386*b&&y>.373*b) in=in+(x>.48*e&&x<.49*e&&y<.386*b&&y>.36*b) in=in+(x>.75*e&&x<.76*e&&y<.386*b&&y>.36*b) in=in+(x>.19*e&&x<.2*e&&y<.373*b&&y>.36*b) in=in+(x>.33*e&&x<.39*e&&y<.373*b&&y>.36*b) in=in+(x>.45*e&&x<.48*e&&y<.373*b&&y>.36*b) in=in+(x>.54*e&&x<.55*e&&y<.373*b&&y>.36*b) in=in+(x>.59*e&&x<.62*e&&y<.373*b&&y>.36*b) in=in+(x>.63*e&&x<.64*e&&y<.373*b&&y>.36*b) in=in+(x>.7*e&&x<.71*e&&y<.373*b&&y>.36*b) in=in+(x>.76*e&&x<.79*e&&y<.373*b&&y>.36*b) in=in+(x>.83*e&&x<.84*e&&y<.373*b&&y>.36*b) in=in+(x>.88*e&&x<.91*e&&y<.373*b&&y>.36*b) in=in+(x>.15*e&&x<.16*e&&y<.346*b&&y>.266*b) in=in+(x>.14*e&&x<.15*e&&y<.306*b&&y>.266*b) in=in+(x>.57*e&&x<.59*e&&y<.306*b&&y>.266*b) in=in+(x>.64*e&&x<.68*e&&y<.306*b&&y>.266*b) in=in+(x>.86*e&&x<.88*e&&y<.306*b&&y>.266*b) in=in+(x>.07*e&&x<.08*e&&y<.28*b&&y>.266*b) in=in+(x>.12*e&&x<.14*e&&y<.28*b&&y>.266*b) endif if (in) w=1 z=(xx+yy/8)*689 else if (imag(p2)>0 && imag(p2)<=100) level=real(p2)/100 ; water level ampl=imag(p2) ; amplitude of the wave freq=real(p3) ; frequency angle=real(rotskew*pi/180) exp_irot=exp(-flip(angle)) h=1/real(magxmag) q=h/0.75*imag(magxmag) tanskew=tan(imag(rotskew*pi/180)) u=2*q*exp_irot v=2*h*(tanskew+flip(1))*exp_irot z3rd=center+(-q-h*tanskew-flip(h))*exp_irot z=pixel-z3rd s=imag(conj(u)*z)/imag(conj(u)*v) if (s<=level) dy=level-s z=z+2*dy*(1+ampl*sin(freq*dy^0.2))*v endif z=z+z3rd if (ismand) c=z z=0 else c=p1 endif endif endif endif : if (w) z=z-1 phc_bailout=|z|>=1 else z=z^2+c if (start) t=t+1 if (|z|>=128) u=2*(exp(t/768)) z=z^u start=0 endif if (t>513) u=2*(sin(t/768)) z=z*u c=p1*u start=0 endif endif phc_Bailout=|z|<=2048 endif phc_bailout }
_______________________________________________ Fractint mailing list Fractint@mailman.xmission.com http://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint