0.06419&&x<0.09334 xc=1*x chrc13 = abs(cabs(z+(-0.12166,-0.32062))-0.01705)<0.00357&&(x<0.121\ 66||y>xc+0.19896||y<-xc+0.44229) chro14 = abs(cabs(z+(-0.16457,-0.32062))-0.01705)<0.00357 chrn15 = x>0.1929&&x<0.20005&&y<0.34125||(abs(cabs(z+(-0.20757,-0.3\ 2657))-0.0111)<0.00357&&y>0.32657)||(x>0.2151&&x<0.22225&&y<0.32657\ ) chro16 = abs(cabs(z+(-0.25058,-0.32062))-0.01705)<0.00357 chrm17 = x>0.2789&&x<0.28605&&y<0.34125||(abs(cabs(z+(-0.29358,-0.3\ 2657))-0.0111)<0.00357&&y>0.32657)||(x>0.30111&&x<0.30826&&y<0.3265\ 7)||(abs(cabs(z+(-0.31579,-0.32657))-0.0111)<0.00357&&y>0.32657)||(\ x>0.32331&&x<0.33046&&y<0.32657) xy=2.5*x chry18 = y<xy-0.58666&&y>xy-0.60591||(y>-xy+1.18666&&y<-xy+1.20591)\ &&y>xy-0.60591&&y<0.34125&&y>0.2725 test1 = chro1||chrf2||chrt4||chrh5||chre6||chrN8||chre9||chrw10||ch\ rE12||chrc13||chro14||chrn15||chro16||chrm17&&y>0.3||chry18&&y<0.35\ 5 chrt19 = abs(cabs(z+(0.22315,-0.4819))-0.0092)<0.0027&&y<0.4819||(x\ -0.23505&&x<-0.22965&&y>0.4819)||(x>-0.23965&&x<-0.22045&&y>0.4983\ 5&&y<0.50375) chrh20 = x>-0.2045&&x<-0.1991||(abs(cabs(z+(0.19261,-0.48688))-0.00\ 92)<0.0027&&y>0.48688)||(x>-0.18611&&x<-0.18071&&y<0.48688) chre21 = abs(cabs(z+(0.15709,-0.48688))-0.01418)<0.0027&&(x<-0.1570\ 9||y>0.48598||y<0.48328)||(y>0.48598&&y<0.49138&&x>-0.17126&&x<-0.1\
At 22:52 03/08/02 +0200, you wrote: hi fractinters, on more: **************************** eco3 { ; Version 2002 Patchlevel 3 reset=2002 type=formula formulafile=neweco1.frm formulaname=neweco function=log/cosxx/exp/cotan passes=1 center-mag=-7.02872/0.594396/1.734975/-1/152.500000000000028/3.778227730\ 67748585e-014 params=1.073515576647237/0.9328891262550738/0.06087128940702536/-0.93809\ 00234992523/21.89901782280953/-2.095075231788079/0.153/0.25/2/38 float=y maxiter=200 inside=bof60 decomp=256 symmetry=none periodicity=0 colors=wiIxkJzlJ<14>YRCWPBUOB<5>IF6GD6EC5CA5A94<3>221000000<25>S4nT4pU4r\ <2>Y5xZ5zY5x<18>D2OC2MA2K<3>61C50A408<3>000<24>nT2pU2rW2<3>z_2<25>C70A50\ 840<2>210000021<24>GncHpeHrg<2>JxkKzmJxk<20>6KF5IE4GC<3>286265143122000<\ 9>LF6NH7PI7<3>XPAZRB`SB<3>h_EjaFlbG<4>viI } frm:neweco { ; using a standard Mandelbrot formula ; and the lake transform from Sylvie Gallet, Jan 16, 2000 ; --- ; real(p1) = merging of text (function dependent) ; imag(p1) = idem ; real(p2) = idem ; imag(p2) = idem ; real(p3) = x-pos. of text-bailout ; imag(p3) = y-pos. of text-bailout ; --- ; If (B=A*C) then the 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))*fn3(fn4(pixel))-p2/p1 x=real(z), y=imag(z) chro1 = abs(cabs(z+(0.35824,-0.32062))-0.01705)<0.00357 chrf2 = abs(cabs(z+(0.30969,-0.33688))-0.0111)<0.00357&&y>0.33688||\ (x>-0.32436&&x<-0.31721&&y<0.33688)||(x>-0.32991&&x<-0.30611&&y>0.3\ 2393&&y<0.33108) xt=1*x chrt4 = abs(cabs(z+(0.23958,-0.31468))-0.0111)<0.00357&&y<0.31468||\ (x>-0.25426&&x<-0.24711&&y>0.31468)||(x>-0.25981&&x<-0.236&&y>0.334\ 1&&y<0.34125) chrh5 = x>-0.2172&&x<-0.21005||(abs(cabs(z+(0.20252,-0.32062))-0.01\ 11)<0.00357&&y>0.32062)||(x>-0.19499&&x<-0.18784&&y<0.32062) chre6 = abs(cabs(z+(0.15952,-0.32062))-0.01705)<0.00357&&(x<-0.1595\ 2||y>0.31943||y<0.31586)||(y>0.31943&&y<0.32658&&x>-0.17657&&x<-0.1\ 4247) xCN=2.5*x chrN8 = x>-0.10369&&x<-0.09654||(x>-0.08169&&x<-0.07399)||(y>-xCN+0\ .09577&&y<-xCN+0.11502) chre9 = abs(cabs(z+(0.04567,-0.32062))-0.01705)<0.00357&&(x<-0.0456\ 7||y>0.31943||y<0.31586)||(y>0.31943&&y<0.32658&&x>-0.06272&&x<-0.0\ 2862) xw=4*x chrw10 = y<xw+0.32812&&y>xw+0.29864||(y>-xw+0.34521&&y<-xw+0.37469)\ &&y<0.33667||(y>-xw+0.27188&&y<-xw+0.30136)||(y<xw+0.25479&&y>xw+0.\ 22531)&&y<0.34125 chrE12 = x<0.07134||y<0.30715||(y<0.33108&&y>0.32393)||y>0.34785&&x\ 4291) chrc23 = abs(cabs(z+(0.09409,-0.48688))-0.01418)<0.0027&&(x<-0.0940\ 9||y>xc+0.58096||y<-xc+0.39279) chrh24 = x>-0.0754&&x<-0.07||(abs(cabs(z+(0.06351,-0.48688))-0.0092\ )<0.0027&&y>0.48688)||(x>-0.05701&&x<-0.05161&&y<0.48688) chra25 = abs(cabs(z+(0.03507,-0.49396))-0.00709)<0.0027&&x<-0.03507\ ||(abs(cabs(z+(0.03057,-0.49396))-0.00709)<0.0027&&x>-0.03057)&&y>0\ .49396||((abs(cabs(z+(0.03507,-0.47979))-0.00709)<0.0027&&x<-0.0350\ 7)||(abs(cabs(z+(0.03057,-0.47979))-0.00709)<0.0027&&x>-0.03057))||\ (x>-0.03507&&x<-0.03057&&(y<0.4754||(y>0.49835&&y<0.50375)||(y>0.48\ 418&&y<0.48958)))||(x>-0.02618&&x<-0.02078&&y<0.49396) chro26 = abs(cabs(z+(-0.00284,-0.48688))-0.01418)<0.0027 chrt27 = abs(cabs(z+(-0.04296,-0.4819))-0.0092)<0.0027&&y<0.4819||(\ x>0.03106&&x<0.03646&&y>0.4819)||(x>0.02647&&x<0.04566&&y>0.49835&&\ y<0.50375) chri28 = x>0.06161&&x<0.06701&&(y<0.5042||y>0.5096) chrc29 = abs(cabs(z+(-0.09063,-0.48688))-0.01418)<0.0027&&(x<0.0906\ 3||y>xc+0.39624||y<-xc+0.57751) chrw31 = y<xw-0.09101&&y>xw-0.11327||(y>-xw+1.09101&&y<-xw+1.11327)\ &&y<0.5||(y>-xw+1.03101&&y<-xw+1.05327)||(y<xw-0.15101&&y>xw-0.1732\ 7)&&y<0.50375 chra32 = abs(cabs(z+(-0.18579,-0.49396))-0.00709)<0.0027&&x<0.18579\ ||(abs(cabs(z+(-0.19029,-0.49396))-0.00709)<0.0027&&x>0.19029)&&y>0\ .49396||((abs(cabs(z+(-0.18579,-0.47979))-0.00709)<0.0027&&x<0.1857\ 9)||(abs(cabs(z+(-0.19029,-0.47979))-0.00709)<0.0027&&x>0.19029))||\ (x>0.18579&&x<0.19029&&(y<0.4754||(y>0.49835&&y<0.50375)||(y>0.4841\ 8&&y<0.48958)))||(x>0.19468&&x<0.20008&&y<0.49396) chry33 = y<xy-0.08083&&y>xy-0.09537||(y>-xy+1.02083&&y<-xy+1.03537)\ &&y>xy-0.09537&&y<0.50375&&y>0.4475 test2 = chrt19||chrh20||chre21||chrc23||chrh24||chra25||chro26||chr\ t27||chri28||chrc29||chrw31||chra32&&y>0.47||chry33&&y<0.515 test=test1||test2 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 x=pixel+p3 pixel=(x+y) z=c=pixel: z=z*z+c |z| <=4 } *************************** cheers, Guy