ftp.xmission.com

home *** CD-ROM | disk | FTP | other *** search

/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n524 < prev next >

Wrap

Internet Message Format | 2000-12-29 | 46KB

From: owner-fractint-digest@lists.xmission.com (fractint-digest) To: fractint-digest@lists.xmission.com Subject: fractint-digest V1 #524 Reply-To: fractint-digest Sender: owner-fractint-digest@lists.xmission.com Errors-To: owner-fractint-digest@lists.xmission.com Precedence: bulk fractint-digest Saturday, December 30 2000 Volume 01 : Number 524 ---------------------------------------------------------------------- Date: Sat, 30 Dec 2000 11:10:13 -0500 From: "Barry N. Merenoff" <110144.2274@compuserve.com> Subject: (fractint) Re: reality check Message text written by INTERNET:fractint@lists.xmission.com >And, we in the fractal-art community lose by not being able to see and study what they've created.< I agree that we lose. But I'd like to hear you explain what it is that we're losing, so we know why that wasn't what Mr. Miller was trying to ge= t. Sincerely, Collin - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 10:15:08 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: (fractint) Re: What is protected by copyright law? caren wrote: > > and six months later, it would start again... usually different > topic, but same result... > Hi Caren; Yes, the same topic pops up periodically in all the fractal discussion groups. You know it, I know it, and all the old-times know it. But, it should be remembered that these discussion groups get new subscribers continually and they may not know anything about the issues that were discussed here in the past. It is also nice to get *fresh* viewpoints, although I admit guilt in either starting or joining in conversations in the past that concern copyright law. So, my viewpoint isn't *fresh*, but it leads to conversation amongst the rank and file, which is the purpose, I feel, of a discussion group. While I didn't agree with much of what "Programmer Dude" answered in reply to my questions, it was most interesting to read his thoughts on the matter. I found the discussion stimulating. Sure, I could have hit the delete key and not have replied to anyone, but I like discussions and debates. It reminds me of those years in college when some of us would suck coffee the remainder of many an afternoon while talking about issues in vogue at the time. I delight in being informed, even if the topic becomes old hat. Hopefully, some newbies learned something the past several days by reading our mail. Cheers, Bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 10:27:24 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: (fractint) Re: Stolen? Artwork "Barry N. Merenoff" wrote: > > I'm not referring to a duplication of the image. Beethoven's 2nd Symphony, > for example, was (presumably) constructed using the same "algorithms" that > he perceived Mozart as having used for most of his symphonies. Now > obviously, it would be almost impossible for Beethoven to invent a symphony > identical to a Mozart symphony. However, it was quite likely, and in fact > happened, that the fact that he was inspired by Mozart was apparent in his > work; that there is a *connotation* of "Mozart, this is an example of what > you wrote". The question is whether this act of being inspired overshadows > the originality of the work so produced. > No, I don't think so. Stepping away from the music scene and confining the discussion to fractal art, many of us are influenced by famous artists. Me, for instance? It's Escher and Dali. Sometimes I have produced images that vaguely resemble Escher's tilings, and have received favorable comments from those who know Escher's works. I am also inspired by fellow fractal artists, many of them, such as Sylvie Gallet, who may be familiar to you. If I like a certain technique, I study the artists' methods of construction by reading their parameter files. Then I design a picture based upon what I learned from my studies. At the same time, I try to add some of my own originality to the piece so that it doesn't look as if I'm trying to copy someone else's style. The combination of the two create a work that is similar and, at the same time, different from the work of the artist I'm trying to emulate. The result is a *fresh* composition and not a duplication of the other person's. Cheers, Bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 16:28:45 -0000 From: "gwydion" <gwydion@yeah65.freeserve.co.uk> Subject: Re: (fractint) Copyrights and Ethics Maybe we should rename this list copyright Q & A Gwydion - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 10:42:23 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: Re: (fractint) Re: reality check "Barry N. Merenoff" wrote: > > I agree that we lose. But I'd like to hear you explain what it is that > we're losing, so we know why that wasn't what Mr. Miller was trying to get. > We're losing of the enjoyment of seeing the accomplishments of the talented fractal artists. That has nothing to do with Mr. Miller. But, bringing him into the equation, I saw what was done with my design. On the CD cover he made, my artwork became background while most of the image was covered by text he placed atop of it. I don't create fractal artwork as background designs for someone else's "Wheaties box" so to speak. Would any of you enjoy seeing the Mona Lisa after someone else covered it with text? I felt that what I labored to design became quite pedestrian when it the background for Mr. Miller's CD. The important thing on his CD was the text because it told people its contents. Since the text was the important item and my artwork secondary, my artwork wasn't needed to promote his CD. A white background would have sufficed. I have pride as an artist, and detest seeing my accomplishments cheapened in such a manner. Should you fault me for having pride in what I design and becoming protective of it when it is used in a manner which I had not intended for it? bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 10:49:48 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: (fractint) Re: reality check harry wrote: > > > > "so.... you despise DEADHEADS ???" > I've answered this question twice this morning. I never heard of them until this discussion started. If you asked me a week ago, I would have thought a 'deadhead" is where my letters wound up at the post office. :-D Happy whatever, Bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 11:14:55 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: (fractint) Re: What is covered by copyright? > George Priest wrote: > > > Can formula files be copyrighted?? Can PAR files be copyrighted? I > assume that this would be the case. But, does the copyright prevent > me from using that PAR file as a starting point for generating a new > and different fractal image. I am still trying to grasp the basic > concept of what is covered by copyright. I answered this the other day, George. Formulas cannot be copyrighted. Parameter files are copyrightable because they contain the information that creates the designs. There could not be the design without parameters. The design IS the parameters. A different viewpoint was taken as to formulas. I don't remember the specifics as to why, but I suppose if formulas were copyrightable that would stifle creativity and scientific advancement. If Benoit Mandelbrot was able to copyright the formula that led to the study of fractals, then we would have none of the formulas written by others that are used every day in FractInt. If Gaston Julia had his formula copyrighted, and the copyright was renewed before every expiration date, then Benoit would not have been able to use it to derive his own formula. A parameter file would have to be significantly altered so that the original source could not be recognized by any backward manipulation. A simple zoom-in would still be considered copyright infringement, since the original source could be ascertained in a zoom-out. I wish I could explain this better, but my mind right now is thinking more about shoveling the several inches of snow that fell overnight and continues to fall this moment. My wife is getting after me to clear the sidewalk. Bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 11:20:04 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: Re: (fractint) What is covered by copyright? "Morgan L. Owens" wrote: > > > Try looking up what the law says. Copyright Act 1973, wasn't it, Bob? > 1976. Here's a handy URL that I posted Wednesday: http://www.umass.edu/acco/mrs/copyright.html . Bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 13:59:46 -0500 From: "Barry N. Merenoff" <110144.2274@compuserve.com> Subject: Re: (fractint) Re: reality check Message text written by INTERNET:fractint@lists.xmission.com >Should you fault me for having pride in what I design and becoming protective of it when it is used in a manner which I had not intended for it?< No. The answers you gave to my last two posts explain everything. You've redeemed yourself. Sincerely, Collin - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 13:30:55 -0600 From: DeBow Freed II PhD <bmc1@airmail.net> Subject: Re: (fractint) Re: reality check/respect for the Dead <!doctype html public "-//w3c//dtd html 4.0 transitional//en"> <html> Fellow Fractaliers- Interesting that in 10 posts from one Discussant in less than 4 hours, we "newbies" are allegedly being "enlightened" about copyright law as it pertains to visual and aural art (music) by someone who admits he doesn't even know who The Grateful Dead are (let alone one iota of the law). I'm no great fan of the Dead but at least know that they pioneered combining cover art and musical content, and maintained almost complete control of their "intellectual property" - and their profit margin - maintaining control of the entire process from neuron to Net by marketing and selling it themselves, in accordance with existing Patent and Trademark ("PAT") Law, and relevant copyright statutes which have governed the music industry for years. Much could be learned, as opposed to pronounced or "enforced"(!), by our prolific "shade tree lawyer" Discussants should they elect to: 1) make a quick trip to their local (i.e., city, county, State) public Law Library, or lacking such a facility, 2) perform a few quick online searches of: a) WestLaw or Lexis, or should all else fail, of b) the already-referenced (by others, earlier in the week) web sites maintained by virtually every accredited Law School in the US. Your local or regional university's Law School will almost certainly have extensive, easily-searchable online legal resources. For example, a quick search of a local Law School Library's online resources and Catalog revealed: 1) at least 10 monthly or bi-monthly Law Journals currently devoted almost exclusively to the issues being discussed; 2) 4 "Special Issues" of Law Reviews (student-edited, school-sponsored periodicals) devoted exclusively to the topic; 3) an average of 5 monographs(books) being published every month, 4) at least 3 Proceedings of national/international Legal Conferences published in the year 2000 alone, as well as 3) numerous (>15) "Reporters", which are subscription-only syntheses of even narrower niches of relevant statute and case law in every US and international jurisdiction. I'm unaware of a legal Journal, Law Review, monograph, Conference Proceeding, or Reporter devoted exclusively to fractal-based art/music-related intellectual property law and/or copyright/patent/trademark infringement law. Nevertheless, one will undoubtedly appear soon given the increasing frequency and circularity of such discussions on this site and their even greater frequency and emotionalism on the UltraFract- and other-related sites where users of one or more of the various free-/shareware packages who think of themselves as (and in some cases actually are) "artists" daily bemoan their foreseeable "victimization" by "theft" of PARS, etc which they themselves continue to post without taking precautions. I still think Mike Traynor's recent comments (his Fri, 12/29/00, 10:54am post) are the best point of departure for anyone really interested in ascertaining his/her rights under existing statutory and case law. freed Bob Margolis wrote: <blockquote TYPE=CITE>harry wrote: > > > > "so.... you despise DEADHEADS ???" > I've answered this question twice this morning. I never heard of them until this discussion started. If you asked me a week ago, I would have thought a 'deadhead" is where my letters wound up at the post office. :-D Happy whatever, Bob -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint"</blockquote> </html> - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 14:19:07 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: (fractint) Re: reality check/respect for the Dead DeBow Freed II PhD wrote: > > Fellow Fractaliers- > > Interesting that in 10 posts from one Discussant in less than 4 hours, > we "newbies" are allegedly being "enlightened" about copyright law as > it pertains to visual and aural art (music) by someone who admits he > doesn't even know who The Grateful Dead are (let alone one iota of the > law). Why am I being criticized for not knowing The Grateful Dead? What bearing does that have I what I've learned about copyright law? In all that I've read about copyright law, I've never come across the name The Grateful Dead. Would knowing about The Grateful Dead make me more knowledgeable about copyright law? Or don't you have better things to do than to criticize me for my lack of knowledge regarding the rock scene? > > I'm no great fan of the Dead but at least know that they pioneered > combining cover art and musical content, and maintained almost > complete control of their "intellectual property" - and their profit > margin - maintaining control of the entire process from neuron to Net > by marketing and selling it themselves, in accordance with existing > Patent and Trademark ("PAT") Law, and relevant copyright statutes > which have governed the music industry for years. Hooray for you, DeBow Freed II! You are so much better than I am because of your knowledge of The Grateful Dead. Since you see fit to put me down a notch or two, why don't you get up in front of the class and tell us all you know about copyright law, without telling us all the places we should go to research the topic? I'm willing to listen. Maybe I could learn something from you since you find yourself so superior to me. It would be more appropriate if you tell the others what you personally know about copyright law instead of showing them how you can make a personal attack on. Your attacking me does nothing to show that you're learned about copyright law. Bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 14:31:42 -0600 From: Bob Margolis <rttyman@wwa.com> Subject: (fractint) Re: reality check/respect for the Dead Bob Margolis wrote: > It would be more appropriate if you tell the others what you personally know about copyright law instead of showing them how you can make a personal attack on. I left off the word "me" at the end of the sentence. Sorry. Bob - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 16:25:18 -0500 From: Ron Barnett <fractals@hiddendimension.com> Subject: (fractint) A smoothly colored PTC fractint image Happy New Year to the Fractint list. I haven't posted a new image generated with Fractint in a while. The Fractal of the Week on my web site is a PTC Fractint image with smooth coloring. The only post processing was to anti-alias the image. The par and formula are below: Ron Barnett Hidden Dimension A fractal art and music site in the Adirondacks http://www.hiddendimension.com pinwheels { ; Copyright Ron Barnett Dec 2000 t= 0:02:16.22 ; www.hiddendimension.com fractals@hiddendimension.com ; On a Pentium III(667 at 1280 x 1024 ; Version 2001 Patchlevel 5 reset=2001 type=formula formulafile=layers.frm formulaname=MandExpLayers1 passes=1 center-mag=-0.82763882815902180/+0.23035175124369770/4506.941 params=10000/10/0/100/128/65 float=y maxiter=1024 inside=0 decomp=256 periodicity=0 sound=off colors=ZAc<2>XAaWA`VAZ<19>A5A959848<2>544332343<25>GXnHYpHZr<2>JaxKczKby\ <23>8CG8BE7AC<2>676554654<25>lPLmQLoQM<3>vUP<24>D87B76965<3>122<26>WnXYp\ YZrZ<2>axaczcbyb<23>BF8AD79B6<2>652430431<30>ZAc } MandExpLayers1 = { ; Ron Barnett, 2000 ; ; colors Mandelbrot set by combining the smoothed iteration ; with a plain background ; and adds a second layer with an orbit trap ; ; use decomp=256 ; real(p1) = bailout ; imag(p1) = color spread adjustment layer 1 ; real(p2) = background ; imag(p2) = color spread adjustment layer 2 ; real(p3) = palette offset for layer 1 ; imag(p3) = palette offset for layer 2 ; calculation performed on variable zc, z used for coloring ; closest = 1e+38 maxr = real(p1) scale1 = imag(p1)*pi/128 scale2 = imag(p2)*pi/128 offset1 = real(p3)*pi/128 offset2 = imag(p3)*pi/128 iterexp = 0 iter = 1 zc = 0 c = pixel background = real(p2): iterexp = iterexp + exp(-cabs(zc)) iter = iter + 1 zc = sqr(zc)+c d = abs(real(zc)+imag(zc)) IF (d < closest) closest = d ENDIF IF ((|zc| > maxr) || (iter == maxit)) smooth1 = iterexp*scale1+offset1 ang1 = cos(smooth1)+flip(sin(smooth1)) smooth2 = closest*scale2+offset2 ang2 = cos(smooth2)+flip(sin(smooth2)) z = (whitesq)*ang1*128/pi+(whitesq == 0)*ang2*128/pi IF (iter == maxit) z = background ENDIF iter = -1 ENDIF iter > 0 } - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 16:54:38 EST From: Genealogy1@aol.com Subject: (fractint) Jim Muth formulas Is there a site or a location where I can download all of the formulas Jim Muth has posted? TIA - --Bob Carr--(Ocala, FL) - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ Date: Sat, 30 Dec 2000 23:48:45 +0100 From: Guy Marson <guy.marson@mnhn.lu> Subject: (fractint) Happy New Year 2001 with my best wishes for 2001! Guy *************************** ny2001-1 { ; no copyright.. :-) ; Version 2001 Patchlevel 5 reset=2001 type=formula formulafile=ny2001.frm formulaname=ny2001-1 function=recip/ident passes=1 center-mag=0.0106685/-1.05838/20/1/90 params=-40/-56/1/1/-0.005/0.9 float=y maxiter=200 inside=fmod proximity=1.3 outside=fmod invert=0.02/0/0 periodicity=0 cyclerange=1/1 colors=zzzzzzyzzzyzzyyyyyxyyyxzyxxxxxwxxxwyxwwwwwvwwwvxwvvvvvuvvvuwvuuuu\ utuuutvutttttstttsutsssssrsssrtsrrrrrqrrrqsrqqqqqpqqqprqpppppopppoqpoooo\ onooonponnnnnmnnnmonmmmmmlmmmlnmlllllklllkmlkkkkkjkkkjlkjjjjjijjjikjiiii\ ihiiihjihhhhhghhhgihgggggfgggfhgfffffefffegfeeeeedeeedfedddddcdddcedcccc\ cbcccbdcbbbbbabbbacbaaaaa`aaa`ba`````_```_a`_____Z___Z`_ZZZZZYZZZY_ZYYYY\ YXYYYXZYXXXXXWXXXWYXWWWWWVWWWVXWVVVVVUVVVUWVUUUUUTUUUTVUTTTTTSTTTSUTSSSS\ SRSSSRTSRRRRRQRRRQSRQQQQQPQQQPRQPPPPPOPPPOQPOOOOONOOONPONNNNNMNNNMONMMMM\ MLMMMLNMLLLLLKLLLKMLKKKKKJKKKJLKJJJJJIJJJIKJIIIIIHIIIHJIHHHHHGHHHGIHGGGG\ GFGGGFHGFFFFFEFFFEGFEEEEEDEEEDFEDDDDDCDDDCEDCCCCCBCCCBDCBBBBBABBBACBAAAA\ A9AAA9BA9999989998A98888878887987777767776876666656665765555545554654444\ 4344435433333233324322222122213211111011102100<2>000 } ny2001-2 { ; Version 2001 Patchlevel 5 reset=2001 type=formula formulafile=ny2001.frm formulaname=ny2001-2 function=recip/ident passes=1 center-mag=0.849796/0.00681771/41.85026 params=-2/12/1.3/-1.43/-0.5/-1.2 float=y maxiter=2000 inside=fmod proximity=0.7 outside=fmod invert=0.02/0/0 periodicity=0 cyclerange=1/1 colors=zzzzzzyzzzyzzyyyyyxyyyxzyxxxxxwxxxwyxwwwwwvwwwvxwvvvvvuvvvuwvuuuu\ utuuutvutttttstttsutsssssrsssrtsrrrrrqrrrqsrqqqqqpqqqprqpppppopppoqpoooo\ onooonponnnnnmnnnmonmmmmmlmmmlnmlllllklllkmlkkkkkjkkkjlkjjjjjijjjikjiiii\ ihiiihjihhhhhghhhgihgggggfgggfhgfffffefffegfeeeeedeeedfedddddcdddcedcccc\ cbcccbdcbbbbbabbbacbaaaaa`aaa`ba`````_```_a`_____Z___Z`_ZZZZZYZZZY_ZYYYY\ YXYYYXZYXXXXXWXXXWYXWWWWWVWWWVXWVVVVVUVVVUWVUUUUUTUUUTVUTTTTTSTTTSUTSSSS\ SRSSSRTSRRRRRQRRRQSRQQQQQPQQQPRQPPPPPOPPPOQPOOOOONOOONPONNNNNMNNNMONMMMM\ MLMMMLNMLLLLLKLLLKMLKKKKKJKKKJLKJJJJJIJJJIKJIIIIIHIIIHJIHHHHHGHHHGIHGGGG\ GFGGGFHGFFFFFEFFFEGFEEEEEDEEEDFEDDDDDCDDDCEDCCCCCBCCCBDCBBBBBABBBACBAAAA\ A9AAA9BA9999989998A98888878887987777767776876666656665765555545554654444\ 4344435433333233324322222122213211111011102100<2>000 } frm:ny2001-1 { ; using modified .frm's from Jim Muth and Sylvie Gallet ; Try fn1=recip, fn2=ident.. ; If (B=A*C) then the text is invisible, else=visible! ; A = real(P2), B = imag(P2), C = imag(P3) ; 'periodicity=0' and 'passes=1' recommended x=real(scrnpix)/real(scrnmax), y=(imag(scrnmax)-imag(scrnpix))/(rea\ l(scrnmax)*0.75), z=x+flip(y) chrH1 = x<0.12495||x>0.13845||(y<0.84498&&y>0.84002)&&x>0.12&&x<0.1\ 434 xCA=3*x chrA2 = y>xCA+0.36065||y>-xCA+1.3537||(y<0.838&&y>0.83305)&&y<xCA+0\ .3763&&y<-xCA+1.36935 chrP3 = y<0.84498&&y>0.84002||y>0.86005||x<0.19257&&x>0.18762&&x<0.\ 20157||(abs(cabs(z+(-0.20157,-0.85251))-0.01001)<0.00248&&x>=0.2015\ 7) chrP4 = y<0.84498&&y>0.84002||y>0.86005||x<0.22351&&x>0.21856&&x<0.\ 23251||(abs(cabs(z+(-0.23251,-0.85251))-0.01001)<0.00248&&x>=0.2325\ 1) xCY=2*x chrY5 = y<xCY+0.31201&&y>xCY+0.30095||(y>-xCY+1.36399&&y<-xCY+1.375\ 05)&&y>xCY+0.30095 test1 = chrH1||chrA2||chrP3||chrP4||chrY5&&y>0.82&&y<0.865 xCN=2.5*x chrN6 = x>0.1&&x<0.10495||(x>0.118&&x<0.12333)||(y>-xCN+1.045&&y<-x\ CN+1.05833) chrE7 = x<0.13278||y<0.75495||(y<0.77498&&y>0.77002)||y>0.79005&&x>\ 0.12783&&x<0.15078 xCW=4*x chrW8 = y<xCW+0.08387&&y>xCW+0.06347||(y>-xCW+1.47613&&y<-xCW+1.496\ 53)&&y<0.78||(y>-xCW+1.41613&&y<-xCW+1.43653)||(y<xCW+0.02387&&y>xC\ W+0.00347) chrY10 = y<xCY+0.30923&&y>xCY+0.29816||(y>-xCY+1.22677&&y<-xCY+1.23\ 784)&&y>xCY+0.29816 chrE11 = x<0.25787||y<0.75495||(y<0.77498&&y>0.77002)||y>0.79005&&x\ >0.25292&&x<0.27587 chrA12 = y>xCA-0.10676||y>-xCA+1.6811||(y<0.768&&y>0.76305)&&y<xCA-\ 0.0911&&y<-xCA+1.69676 xCR=2*x chrR13 = y<0.77498&&y>0.77002||y>0.79005||x<0.32504&&x>0.32009&&x<0\ .33404||(abs(cabs(z+(-0.33404,-0.78251))-0.01001)<0.00248&&x>=0.334\ 04)||(y<0.7725&&y<-xCR+1.44305&&y>-xCR+1.43198) test2 = chrN6||chrE7||chrW8||chrY10||chrE11||chrA12||chrR13&&y>0.75\ &&y<0.795 x2=2.5*x chr214 = abs(cabs(z+(-0.1696,-0.7004))-0.0154)<0.0042&&(y>0.7004||y\ >-x/1.23486+0.83774)||(y<1.23486*x+0.47317&&y>1.23486*x+0.45982&&y<\ -x/1.23486+0.83774)||y<0.6584&&x>0.15&&x<0.1892 chr015 = abs(cabs(z+(-0.2158,-0.7004))-0.0154)<0.0042&&y>0.7004||(a\ bs(cabs(z+(-0.2158,-0.6696))-0.0154)<0.0042&&y<0.6696)||(((x>0.1962\ &&x<0.2046)||(x>0.227&&x<0.2354))&&y>0.6696&&y<0.7004) chr016 = abs(cabs(z+(-0.262,-0.7004))-0.0154)<0.0042&&y>0.7004||(ab\ s(cabs(z+(-0.262,-0.6696))-0.0154)<0.0042&&y<0.6696)||(((x>0.2424&&\ x<0.2508)||(x>0.2732&&x<0.2816))&&y>0.6696&&y<0.7004) x1=1.5*x chr117 = y<x1+0.26377&&y>x1+0.24862&&y>-x/1.5+0.88907||(x>0.30585&&\ x<0.31425) test3 = chr214||chr015||chr016||chr117&&y>0.65&&y<0.72 xt=1*x chrt18 = abs(cabs(z+(-0.16625,-0.50454))-0.00343)<0.0011&&y<0.50454\ ||(x>0.16172&&x<0.16393&&y>0.50454)||(x>0.16&&x<0.16736&&y>0.51054&\ &y<0.51275) chrn19 = x>0.17249&&x<0.1747&&y<0.51275||(abs(cabs(z+(-0.17703,-0.5\ 0821))-0.00343)<0.0011&&y>0.50821)||(x>0.17935&&x<0.18156&&y<0.5082\ 1) xx=2*x chrx20 = y<xx+0.13347&&y>xx+0.12853||(y>-xx+0.87928&&y<-xx+0.88422)\ &&y<0.51275 test4 = chrt18||chrn19||chrx20&&y>0.5&&y<0.517 chrt21 = abs(cabs(z+(-0.17623,-0.48449))-0.00347)<0.00102&&y<0.4844\ 9||(x>0.17174&&x<0.17378&&y>0.48449)||(x>0.17&&x<0.17725&&y>0.49071\ &&y<0.49275) chro22 = abs(cabs(z+(-0.1888,-0.48638))-0.00536)<0.00102 test5 = chrt21||chro22&&y>0.48&&y<0.497 chrS23 = abs(cabs(z+(-0.34565,-0.57435))-0.00435)<0.0013&&(x<=0.345\ 65||y>0.57435)||(abs(cabs(z+(-0.34565,-0.56565))-0.00435)<0.0013&&(\ x>0.34565||y<0.56565)) xy=2.5*x chry24 = y<xy-0.33825&&y>xy-0.34525||(y>-xy+1.45825&&y<-xy+1.46525)\ &&y>xy-0.34525&&y<0.575&&y>0.55 chrl25 = x<0.3727&&x>0.3701 xv=3*x chrv26 = y>-xv+1.6991&&y<-xv+1.70732||y<xv-0.5791&&y>xv-0.58732&&y<\ 0.575 chri27 = x>0.38944&&x<0.39204&&(y<0.5748||y>0.5774) chre28 = abs(cabs(z+(-0.40154,-0.5675))-0.0062)<0.0013&&(x<0.40154|\ |y>0.56707||y<0.56577)||(y>0.56707&&y<0.56967&&x>0.39534&&x<0.40774\ ) test6 = chrS23||chrl25||chrv26||chri27||chre28&&y>0.56||chry24&&y<0\ .58 chrJ29 = abs(cabs(z+(-0.4656,-0.5056))-0.0044)<0.0012&&y<=0.505||(x\ >0.4688&&y>0.505)&&x<0.4712 chri30 = x>0.4732&&x<0.4756&&(y<0.5152||y>0.5176) chrm31 = x>0.4776&&x<0.48&&y<0.515||(abs(cabs(z+(-0.48289,-0.50971)\ )-0.00409)<0.0012&&y>0.50971)||(x>0.48578&&x<0.48818&&y<0.50971)||(\ abs(cabs(z+(-0.49106,-0.50971))-0.00409)<0.0012&&y>0.50971)||(x>0.4\ 9395&&x<0.49635&&y<0.50971) test7 = chrJ29||chri30||chrm31&&y>0.5&&y<0.52 chrT32 = y>0.4976&&x>0.54&&x<0.5524||(x>0.545&&x<0.5474) chri33 = x>0.5544&&x<0.5568&&(y<0.4952||y>0.4976) chrm34 = x>0.5588&&x<0.5612&&y<0.495||(abs(cabs(z+(-0.56409,-0.4897\ 1))-0.00409)<0.0012&&y>0.48971)||(x>0.56697&&x<0.56937&&y<0.48971)|\ |(abs(cabs(z+(-0.57226,-0.48971))-0.00409)<0.0012&&y>0.48971)||(x>0\ .57515&&x<0.57755&&y<0.48971) test8 = chrT32||chri33||chrm34&&y>0.48&&y<0.5 chrJ35 = abs(cabs(z+(-0.6056,-0.4656))-0.0044)<0.0012&&y<=0.465||(x\ >0.6088&&y>0.465)&&x<0.6112 chra36 = abs(cabs(z+(-0.61755,-0.47065))-0.00315)<0.0012&&x<0.61755\ ||(abs(cabs(z+(-0.61955,-0.47065))-0.00315)<0.0012&&x>0.61955)&&y>0\ .47065||((abs(cabs(z+(-0.61755,-0.46435))-0.00315)<0.0012&&x<0.6175\ 5)||(abs(cabs(z+(-0.61955,-0.46435))-0.00315)<0.0012&&x>0.61955))||\ (x>0.61755&&x<0.61955&&(y<0.4624||(y>0.4726&&y<0.475)||(y>0.4663&&y\ <0.4687)))||(x>0.6215&&x<0.6239&&y<0.47065) chrn37 = x>0.6259&&x<0.6283&&y<0.475||(abs(cabs(z+(-0.63119,-0.4697\ 1))-0.00409)<0.0012&&y>0.46971)||(x>0.63408&&x<0.63647&&y<0.46971) chrDS38 = y<0.4692&&y>0.4668&&x>0.63847&&x<0.64987 xCM=2.5*x chrM39 = y>-xCM+2.10969&&y<-xCM+2.11615||(y<xCM-1.17635&&y>xCM-1.18\ 282)&&y>0.46667||(x>0.65187&&x<0.65427)||(x>0.66273&&x<0.66513) chrDT40 = y<0.4624&&x>0.66713&&x<0.66953 test9 = chrJ35||chra36||chrn37||chrDS38||chrM39||chrDT40&&y>0.46&&y\ <0.48 chrJ41 = abs(cabs(z+(-0.7956,-0.4156))-0.0044)<0.0012&&y<=0.415||(x\ >0.7988&&y>0.415)&&x<0.8012 chro42 = abs(cabs(z+(-0.8107,-0.4175))-0.0063)<0.0012 chrn43 = x>0.8202&&x<0.8226&&y<0.425||(abs(cabs(z+(-0.82549,-0.4197\ 1))-0.00409)<0.0012&&y>0.41971)||(x>0.82838&&x<0.83078&&y<0.41971) chra44 = abs(cabs(z+(-0.83712,-0.42065))-0.00315)<0.0012&&x<0.83712\ ||(abs(cabs(z+(-0.83912,-0.42065))-0.00315)<0.0012&&x>0.83912)&&y>0\ .42065||((abs(cabs(z+(-0.83712,-0.41435))-0.00315)<0.0012&&x<0.8371\ 2)||(abs(cabs(z+(-0.83912,-0.41435))-0.00315)<0.0012&&x>0.83912))||\ (x>0.83712&&x<0.83912&&(y<0.4124||(y>0.4226&&y<0.425)||(y>0.4163&&y\ <0.4187)))||(x>0.84107&&x<0.84347&&y<0.42065) chrt45 = abs(cabs(z+(-0.85281,-0.41529))-0.00409)<0.0012&&y<0.41529\ ||(x>0.84752&&x<0.84992&&y>0.41529)||(x>0.84547&&x<0.85401&&y>0.422\ 6&&y<0.425) chrh46 = x>0.86009&&x<0.86249||(abs(cabs(z+(-0.86538,-0.4175))-0.00\ 409)<0.0012&&y>0.4175)||(x>0.86827&&x<0.87067&&y<0.4175) chra47 = abs(cabs(z+(-0.87702,-0.42065))-0.00315)<0.0012&&x<0.87702\ ||(abs(cabs(z+(-0.87902,-0.42065))-0.00315)<0.0012&&x>0.87902)&&y>0\ .42065||((abs(cabs(z+(-0.87702,-0.41435))-0.00315)<0.0012&&x<0.8770\ 2)||(abs(cabs(z+(-0.87902,-0.41435))-0.00315)<0.0012&&x>0.87902))||\ (x>0.87702&&x<0.87902&&(y<0.4124||(y>0.4226&&y<0.425)||(y>0.4163&&y\ <0.4187)))||(x>0.88097&&x<0.88337&&y<0.42065) chrn48 = x>0.88537&&x<0.88777&&y<0.425||(abs(cabs(z+(-0.89066,-0.41\ 971))-0.00409)<0.0012&&y>0.41971)||(x>0.89354&&x<0.89594&&y<0.41971\ ) test10 = chrJ41||chro42||chrn43||chra44||chrt45||chrh46||chra47||ch\ rn48&&y>0.41&&y<0.43 chre49 = abs(cabs(z+(-0.8175,-0.3575))-0.0063)<0.0012&&(x<0.8175||y\ >0.3571||y<0.3559)||(y>0.3571&&y<0.3595&&x>0.8112&&x<0.8238) chrt50 = abs(cabs(z+(-0.83433,-0.35529))-0.00409)<0.0012&&y<0.35529\ ||(x>0.82904&&x<0.83144&&y>0.35529)||(x>0.827&&x<0.83553&&y>0.3626&\ &y<0.365) xc=1*x chrc51 = abs(cabs(z+(-0.84912,-0.3575))-0.0063)<0.0012&&(x<0.84912|\ |y>xc-0.49162||y<-xc+1.20662) chrDT52 = y<0.3524&&x>0.85642&&x<0.85882 chrDT53 = y<0.3524&&x>0.86082&&x<0.86322 test11 = chre49||chrt50||chrc51||chrDT52||chrDT53&&y>0.35&&y<0.37 test=test1||test2||test3||test4||test5||test6||test7||test8||test9|\ |test10||test11 test0=test0&&whitesq test0=((test0||test)==0) f1=fn1(imag(p3)*fn2(real(p2)*pixel)) f2=1/(imag(p2)*pixel) pixel=(test==0)*f1+test*f2 ; Import of formula 'defini50' from file DEFINIT.FRM ; MandelbrotMix4 parameters (hard-coded): ; ------------------------- vun mir GM veraennert! p_p1 = (1,-0.5) p_p2 = (50,0) p_p3 = (0.3,250) ; Function: r ; User-selectable Lake parameters: ; ------------------------------- ; real part of p2: 0 = lake transform disabled ; any value between 0 and 100: water level in % of ; the screen height (0 = bottom, 100 = top) ; imag part of p2: phase ; real part of p3: amplitude of the wave (try 0.2) ; imag part of p3: frequency (try 300) ; Lake transformation (Sylvie Gallet) ; ------------------- if (real(p_p2) > 0 && real(p_p2) <= 100) level = real(p_p2) / 100 ; water level phase = imag(p_p2) ; phase ampl = real(p_p3) ; amplitude of the wave freq = imag(p_p3) ; frequency 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 + phase)) * v endif pixel = z + z3rd endif ; Modified MandelbrotMix4 formula (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 k = real(p3) + 1 , l = imag(p3) + 100 , c = fn1(pixel) : z = k*(a*(z^b) + d*(z^f)) + c |z| < l } frm:ny2001-2 { ; using modified .frm's from Jim Muth and Sylvie Gallet ; Try fn1=recip, fn2=ident.. ; If (B=A*C) then the text is invisible, else=visible! ; A = real(P2), B = imag(P2), C = imag(P3) ; 'periodicity=0' and 'passes=1' recommended x=real(scrnpix)/real(scrnmax), y=(imag(scrnmax)-imag(scrnpix))/(rea\ l(scrnmax)*0.75), z=x+flip(y) chrP1 = y<0.8426&&y>0.8374||y>0.8548||x<0.1052&&x>0.1&&x<0.1132||(a\ bs(cabs(z+(-0.1132,-0.8487))-0.0087)<0.0026&&x>=0.1132) chrl2 = x<0.1337&&x>0.1285 chre3 = abs(cabs(z+(-0.1527,-0.835))-0.0124)<0.0026&&(x<0.1527||y>0\ .83413||y<0.83153)||(y>0.83413&&y<0.83933&&x>0.1403&&x<0.1651) chra4 = abs(cabs(z+(-0.1805,-0.8412))-0.0062)<0.0026&&x<0.1805||(ab\ s(cabs(z+(-0.1845,-0.8412))-0.0062)<0.0026&&x>0.1845)&&y>0.8412||((\ abs(cabs(z+(-0.1805,-0.8288))-0.0062)<0.0026&&x<0.1805)||(abs(cabs(\ z+(-0.1845,-0.8288))-0.0062)<0.0026&&x>0.1845))||(x>0.1805&&x<0.184\ 5&&(y<0.8252||(y>0.8448&&y<0.85)||(y>0.8324&&y<0.8376)))||(x>0.1881\ &&x<0.1933&&y<0.8412) chrs5 = abs(cabs(z+(-0.2061,-0.8412))-0.0062)<0.0026&&x<0.2061||(ab\ s(cabs(z+(-0.2101,-0.8412))-0.0062)<0.0026&&x>0.2101)&&(x<0.2061||y\ >0.8412)||((abs(cabs(z+(-0.2061,-0.8288))-0.0062)<0.0026&&x<0.2061)\ ||(abs(cabs(z+(-0.2101,-0.8288))-0.0062)<0.0026&&x>0.2101)&&(x>0.21\ 01||y<0.8288))||(x>0.2061&&x<0.2101&&(y<0.8252||(y>0.8448&&y<0.85)|\ |(y>0.8324&&y<0.8376))) chre6 = abs(cabs(z+(-0.2379,-0.835))-0.0124)<0.0026&&(x<0.2379||y>0\ .83413||y<0.83153)||(y>0.83413&&y<0.83933&&x>0.2255&&x<0.2503) test1 = chrP1||chrl2||chre3||chra4||chrs5||chre6&&y>0.82&&y<0.86 chri7 = x>0.08&&x<0.0852&&(y<0.7396||y>0.7448) chrm8 = x>0.0892&&x<0.0944&&y<0.74||(abs(cabs(z+(-0.09988,-0.72932)\ )-0.00808)<0.0026&&y>0.72932)||(x>0.10535&&x<0.11055&&y<0.72932)||(\ abs(cabs(z+(-0.11602,-0.72932))-0.00808)<0.0026&&y>0.72932)||(x>0.1\ 215&&x<0.1267&&y<0.72932) chrp9 = x>0.1307&&x<0.1359&&y<0.74&&y>0.695||(abs(cabs(z+(-0.1434,-\ 0.725))-0.0124)<0.0026&&x>0.1359) chrl10 = x<0.1676&&x>0.1624 chre11 = abs(cabs(z+(-0.1866,-0.725))-0.0124)<0.0026&&(x<0.1866||y>\ 0.72413||y<0.72153)||(y>0.72413&&y<0.72933&&x>0.1742&&x<0.199) chrm12 = x>0.2056&&x<0.2108&&y<0.74||(abs(cabs(z+(-0.21627,-0.72932\ ))-0.00808)<0.0026&&y>0.72932)||(x>0.22175&&x<0.22695&&y<0.72932)||\ (abs(cabs(z+(-0.23242,-0.72932))-0.00808)<0.0026&&y>0.72932)||(x>0.\ 2379&&x<0.2431&&y<0.72932) chre13 = abs(cabs(z+(-0.2621,-0.725))-0.0124)<0.0026&&(x<0.2621||y>\ 0.72413||y<0.72153)||(y>0.72413&&y<0.72933&&x>0.2497&&x<0.2745) chrn14 = x>0.2811&&x<0.2863&&y<0.74||(abs(cabs(z+(-0.29177,-0.72932\ ))-0.00808)<0.0026&&y>0.72932)||(x>0.29725&&x<0.30245&&y<0.72932) xt=1*x chrt15 = abs(cabs(z+(-0.32116,-0.72068))-0.00808)<0.0026&&y<0.72068\ ||(x>0.31049&&x<0.31569&&y>0.72068)||(x>0.30645&&x<0.32376&&y>0.734\ 8&&y<0.74) test2 = chri7||chrm8||chrl10||chre11||chrm12||chre13||chrn14||chrt1\ 5&&y>0.71||chrp9&&y<0.75 chrt16 = abs(cabs(z+(-0.64916,-0.50661))-0.00511)<0.0015&&y<0.50661\ ||(x>0.64255&&x<0.64555&&y>0.50661)||(x>0.64&&x<0.65066&&y>0.51575&\ &y<0.51875) chrh17 = x>0.65827&&x<0.66127||(abs(cabs(z+(-0.66488,-0.50937))-0.0\ 0511)<0.0015&&y>0.50937)||(x>0.66849&&x<0.67149&&y<0.50937) chre18 = abs(cabs(z+(-0.68337,-0.50937))-0.00788)<0.0015&&(x<0.6833\ 7||y>0.50888||y<0.50738)||(y>0.50888&&y<0.51187&&x>0.67549&&x<0.691\ 24) test3 = chrt16||chrh17||chre18&&y>0.5&&y<0.525 chrL19 = x<0.6552||y<0.3952&&x>0.65&&x<0.6712 chra20 = abs(cabs(z+(-0.684,-0.4112))-0.0062)<0.0026&&x<0.684||(abs\ (cabs(z+(-0.688,-0.4112))-0.0062)<0.0026&&x>0.688)&&y>0.4112||((abs\ (cabs(z+(-0.684,-0.3988))-0.0062)<0.0026&&x<0.684)||(abs(cabs(z+(-0\ .688,-0.3988))-0.0062)<0.0026&&x>0.688))||(x>0.684&&x<0.688&&(y<0.3\ 952||(y>0.4148&&y<0.42)||(y>0.4024&&y<0.4076)))||(x>0.6916&&x<0.696\ 8&&y<0.4112) xk=1.25*x chrk21 = x<0.706||(y<xk-0.476&&y>xk-0.48432&&y<0.42)||(y>-xk+1.286&\ &y<-xk+1.29432&&y<xk-0.476)&&x>0.7008 chre22 = abs(cabs(z+(-0.74246,-0.405))-0.0124)<0.0026&&(x<0.74246||\ y>0.40413||y<0.40153)||(y>0.40413&&y<0.40933&&x>0.73006&&x<0.75486) test4 = chrL19||chra20||chrk21||chre22&&y>0.39&&y<0.43 chrt23 = abs(cabs(z+(-0.591,-0.35793))-0.00613)<0.0018&&y<0.35793||\ (x>0.58307&&x<0.58667&&y>0.35793)||(x>0.58&&x<0.5928&&y>0.3689&&y<0\ .3725) chrr24 = x>0.60193&&x<0.60553&&y<0.3725||(abs(cabs(z+(-0.60986,-0.3\ 6457))-0.00613)<0.0018&&y>0.36457) chra25 = abs(cabs(z+(-0.62732,-0.36598))-0.00472)<0.0018&&x<0.62732\ ||(abs(cabs(z+(-0.63032,-0.36598))-0.00472)<0.0018&&x>0.63032)&&y>0\ .36598||((abs(cabs(z+(-0.62732,-0.35652))-0.00472)<0.0018&&x<0.6273\ 2)||(abs(cabs(z+(-0.63032,-0.35652))-0.00472)<0.0018&&x>0.63032))||\ (x>0.62732&&x<0.63032&&(y<0.3536||(y>0.3689&&y<0.3725)||(y>0.35945&\ &y<0.36305)))||(x>0.63324&&x<0.63684&&y<0.36598) chrn26 = x>0.63984&&x<0.64344&&y<0.3725||(abs(cabs(z+(-0.64777,-0.3\ 6457))-0.00613)<0.0018&&y>0.36457)||(x>0.6521&&x<0.6557&&y<0.36457) chrs27 = abs(cabs(z+(-0.66523,-0.36598))-0.00472)<0.0018&&x<0.66523\ ||(abs(cabs(z+(-0.66823,-0.36598))-0.00472)<0.0018&&x>0.66823)&&(x<\ 0.66523||y>0.36598)||((abs(cabs(z+(-0.66523,-0.35652))-0.00472)<0.0\ 018&&x<0.66523)||(abs(cabs(z+(-0.66823,-0.35652))-0.00472)<0.0018&&\ x>0.66823)&&(x>0.66823||y<0.35652))||(x>0.66523&&x<0.66823&&(y<0.35\ 36||(y>0.3689&&y<0.3725)||(y>0.35945&&y<0.36305))) chrf28 = abs(cabs(z+(-0.68875,-0.37019))-0.00613)<0.0018&&y>0.37019\ ||(x>0.68082&&x<0.68442&&y<0.37019)||(x>0.67775&&x<0.69055&&y>0.363\ 2&&y<0.3668) chro29 = abs(cabs(z+(-0.71093,-0.36125))-0.00945)<0.0018 chrr30 = x>0.72518&&x<0.72878&&y<0.3725||(abs(cabs(z+(-0.73311,-0.3\ 6457))-0.00613)<0.0018&&y>0.36457) chrm31 = x>0.74404&&x<0.74764&&y<0.3725||(abs(cabs(z+(-0.75198,-0.3\ 6457))-0.00613)<0.0018&&y>0.36457)||(x>0.75631&&x<0.75991&&y<0.3645\ 7)||(abs(cabs(z+(-0.76424,-0.36457))-0.00613)<0.0018&&y>0.36457)||(\ x>0.76857&&x<0.77217&&y<0.36457) chra32 = abs(cabs(z+(-0.78169,-0.36598))-0.00472)<0.0018&&x<0.78169\ ||(abs(cabs(z+(-0.78469,-0.36598))-0.00472)<0.0018&&x>0.78469)&&y>0\ .36598||((abs(cabs(z+(-0.78169,-0.35652))-0.00472)<0.0018&&x<0.7816\ 9)||(abs(cabs(z+(-0.78469,-0.35652))-0.00472)<0.0018&&x>0.78469))||\ (x>0.78169&&x<0.78469&&(y<0.3536||(y>0.3689&&y<0.3725)||(y>0.35945&\ &y<0.36305)))||(x>0.78762&&x<0.79122&&y<0.36598) chrt33 = abs(cabs(z+(-0.80522,-0.35793))-0.00613)<0.0018&&y<0.35793\ ||(x>0.79728&&x<0.80088&&y>0.35793)||(x>0.79422&&x<0.80702&&y>0.368\ 9&&y<0.3725) chri34 = x>0.81615&&x<0.81975&&(y<0.3728||y>0.3764) chro35 = abs(cabs(z+(-0.834,-0.36125))-0.00945)<0.0018 chrn36 = x>0.84825&&x<0.85185&&y<0.3725||(abs(cabs(z+(-0.85618,-0.3\ 6457))-0.00613)<0.0018&&y>0.36457)||(x>0.86051&&x<0.86411&&y<0.3645\ 7) chrDT37 = y<0.3536&&x>0.86711&&x<0.87071 chrDT38 = y<0.3536&&x>0.87371&&x<0.87731 test5 = chrt23||chrr24||chra25||chrn26||chrs27||chrf28||chro29||chr\ r30||chrm31||chra32||chrt33||chri34||chro35||chrn36||chrDT37||chrDT\ 38&&y>0.35&&y<0.38 test=test1||test2||test3||test4||test5 test0=test0&&whitesq test0=((test0||test)==0) f1=fn1(imag(p3)*fn2(real(p2)*pixel)) f2=1/(imag(p2)*pixel) pixel=(test==0)*f1+test*f2 ; Import of formula 'defini50' from file DEFINIT.FRM ; MandelbrotMix4 parameters (hard-coded): ; ------------------------- vun mir GM veraennert! p_p1 = (1,-0.5) p_p2 = (50,0) p_p3 = (0.3,250) ; Function: r ; User-selectable Lake parameters: ; ------------------------------- ; real part of p2: 0 = lake transform disabled ; any value between 0 and 100: water level in % of ; the screen height (0 = bottom, 100 = top) ; imag part of p2: phase ; real part of p3: amplitude of the wave (try 0.2) ; imag part of p3: frequency (try 300) ; Lake transformation (Sylvie Gallet) ; ------------------- if (real(p_p2) > 0 && real(p_p2) <= 100) level = real(p_p2) / 100 ; water level phase = imag(p_p2) ; phase ampl = real(p_p3) ; amplitude of the wave freq = imag(p_p3) ; frequency 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 + phase)) * v endif pixel = z + z3rd endif ; Modified MandelbrotMix4 formula (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 k = real(p3) + 1 , l = imag(p3) + 100 , c = fn1(pixel) : z = k*(a*(z^b) + d*(z^f)) + c |z| < l } Thanks to Jan Maarten v.d.Valk & Sylvie Gallet for the great FRACTEXT.EXE!! - -------------------------------------------------------------- Thanks for using Fractint, The Fractals and Fractint Discussion List Post Message: fractint@lists.xmission.com Get Commands: majordomo@lists.xmission.com "help" Administrator: twegner@fractint.org Unsubscribe: majordomo@lists.xmission.com "unsubscribe fractint" ------------------------------ End of fractint-digest V1 #524 ******************************