This is very interesting! Gilles ----- Original Message ----- From: "Russell Walsmith" <russw@lycos.com> To: "Fractint and General Fractals Discussion" <fractint@mailman.xmission.com> Sent: Tuesday, November 15, 2005 23:29 Subject: Re: [Fractint] Re: Fractint Digest, Vol 33, Issue 5 Jotz, You might find this par interesting. Take real(p1) and/or 1mag(p1) through 360 to rotate the object, and real(p3) from 1 to 0 to morph it. Ciao ----------------------------Par file------------------------------------ anime { ; Greyscale depth image ; Version 2002 Patchlevel 5 ; Version 2002 Patchlevel 5 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=file.frm formulaname=tc-set passes=3 center-mag=-0.364862/-0.260263/0.4578239 params=0/0/-2/1/1/0/0/4/150/253 float=y maxiter=2000000000 outside=summ periodicity=0 colors=000100000000PPPzzzyzzzyzzyyyyyxyyyxzyxxxxxwxxxwyxwwwwwvwwwvxwvvvv\ vuvvvuwvuuuuutuuutvutttttstttsutsssssrsssrtsrrrrrqrrrqsrqqqqqpqqqprqpppp\ popppoqpooooonooonponnnnnmnnnmonmmmmmlmmmlnmlllllklllkmlkkkkkjkkkjlkjjjj\ jijjjikjiiiiihiiihjihhhhhghhhgihgggggfgggfhgfffffefffegfeeeeedeeedfedddd\ dcdddcedcccccbcccbdcbbbbbabbbacbaaaaa`aaa`ba`````_```_a`_____Z___Z`_ZZZZ\ ZYZZZY_ZYYYYYXYYYXZYXXXXXWXXXWYXWWWWWVWWWVXWVVVVVUVVVUWVUUUUUTUUUTVUTTTT\ TSTTTSUTSSSSSRSSSRTSRRRRRQRRRQSRQQQQQPQQQPRQPPPPPOPPPOQPOOOOONOOONPONNNN\ NMNNNMONMMMMMLMMMLNMLLLLLKLLLKMLKKKKKJKKKJLKJJJJJIJJJIKJIIIIIHIIIHJIHHHH\ HGHHHGIHGGGGGFGGGFHGFFFFFEFFFEGFEEEEEDEEEDFEDDDDDCDDDCEDCCCCCBCCCBDCBBBB\ BABBBACBAAAAA9AAA9BA9999989998A98888878887987777767776876666656665765555\ 5455546544444344435433333233324322222122213211111011102 } ----------------------------frm file------------------------------------ frm:tc-set {;periodicity=no, outside=summ ;maxit > p5real*(p5imag+1) ;-------------------------------------------- ;p1real: Rotation about x-axis (1st rotation) ;p1imag: Rotation about y-axis (2nd rotation) ;p2real: Far clipping plane ;p2imag: Near clipping plane ;p3real: t --> c morph ;p3imag: ---- ;p4real: z1(0) ;p4imag: Bailout ;p5real: Maxiter per slice ;p5imag: Number of slices - 1 ;-------------------------------------------- ; bailout = imag(p4), tiefnum = imag(p5) delta = (real(p2)-imag(p2))/tiefnum tmp = pi/180 rotXax = exp(flip(real(p1)*tmp)), rotYax = exp(flip(imag(p1)*tmp)) ; HPixXY = rotYax VPixZ = real(rotXax) VPixXY = flip(conj(rotYax)) NXY = VPixZ*VPixXY NZ = imag(conj(rotXax)) VPixXY = -NZ*VPixXY ; tmp = NXY*imag(p2) + HPixXY*real(pixel) + VPixXY*imag(pixel) cx = cx0 = real(tmp), cy = cy0 = imag(tmp) cz = cz0 = NZ*imag(p2) + VPixZ*imag(pixel) ;HPixZ -> 0 tmp = NXY*delta, dcx = real(tmp), dcy = imag(tmp) dcz = NZ*delta x1 = 0 y1 = 0 z1 = real(p4) j = m = i = 0: a = sqr(x1) + 2*y1*z1 b = sqr(z1) + 2*x1*y1 c = sqr(y1) + 2*x1*z1 x1 = real(p3)*a + (1-real(p3))*c + cx, y1 = b + cy, z1 = (1-real(p3))*a + real(p3)*c + cz IF (bailout >= (sqr(x1)+sqr(y1)+sqr(z1))) i = i + 1 ELSE i = 0 m = m + 1 cx = cx0 = cx0 + dcx cy = cy0 = cy0 + dcy cz = cz0 = cz0 + dcz x1 = 0, y1 = 0, z1 = real(p4) ENDIF z = m - j j = j + 1 tiefnum >= m && p5 >= i } ----------------------------end------------------------------------ ----- Original Message ----- From: JackOfTradeZ <JackOfTradeZ@comcast.net> To: fractint@mailman.xmission.com Subject: [Fractint] Re: Fractint Digest, Vol 33, Issue 5 Date: Tue, 8 Nov 2005 18:28:48 -0700
""I'm still stoked on this formula. Morgan Owens and Hiram Berry should
see
this! Oh yeah, and Lloyd Garrick (aka Jaçk Of TraÐeZ); http://www.sonic.net/~jot/ufvp.html) should consider animating it, IMO...""
Exactly which formula are you refering to? There were many in the last couple mailings and I will check it out after the current projects; I am zooming into Jim Muth recently posted "squared" mandelbrot, the "diamond", and also continuing the 2nd MuthZooM to the terminal minibrot at e+26, almost done.
_______________________________________________ Fractint mailing list Fractint@mailman.xmission.com http://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint