The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!
|
|
Found this in my Garden | ||||||
Previous Image | Next Image | ||||||
Description: Mandelbox with 6 times x folding and x=Abs(x) Stats: Total Favorities: 0 View Who Favorited Filesize: 236.66kB Height: 675 Width: 1200 Keywords: mandelbox Gestaltlupe Posted by: trafassel August 08, 2011, 09:18:10 PM Rating: by 2 members. Image Linking Codes
|
||||||
0 Members and 1 Guest are viewing this picture. |
|
Comments (2) | |
trafassel | August 10, 2011, 11:29:17 PM It is the regular Mandelbox, but with 6 times x folding (instead of 1) and an additional line if(x<0) {x=-x;} after sphere folding. public override void Init() { base.Init();if(GetString("intern.Formula.TempUpdateVal")!="6debe3adad009dccc72d7a6c07ca00c1"){ SetParameterBulk(@" <Entry Key='Border.Max.x' Value='-123.51867674407' /> <Entry Key='Border.Max.y' Value='-39.9984268040029' /> <Entry Key='Border.Max.z' Value='0.33634456062192' /> <Entry Key='Border.Min.x' Value='-123.518680805278' /> <Entry Key='Border.Min.y' Value='-39.9984308652114' /> <Entry Key='Border.Min.z' Value='0.336342276192134' /> <Entry Key='Formula.Static.Cycles' Value='250' /> <Entry Key='Formula.Static.Formula' Value='-1' /> <Entry Key='Formula.Static.jx' Value='0' /> <Entry Key='Formula.Static.jy' Value='0' /> <Entry Key='Formula.Static.jz' Value='0' /> <Entry Key='Formula.Static.jzz' Value='0' /> <Entry Key='Formula.Static.MinCycle' Value='250' /> <Entry Key='Transformation.AngleX' Value='45' /> <Entry Key='Transformation.AngleY' Value='0' /> <Entry Key='Transformation.AngleZ' Value='-45' /> <Entry Key='Transformation.Camera.AngleX' Value='0' /> <Entry Key='Transformation.Camera.AngleY' Value='0' /> <Entry Key='Transformation.Camera.AngleZ' Value='270' /> <Entry Key='Transformation.Perspective.Cameraposition' Value='0.3' /> <Entry Key='View.Height' Value='720' /> <Entry Key='View.Perspective' Value='1' /> <Entry Key='View.Width' Value='1280' /> <Entry Key='intern.Formula.TempUpdateVal' Value='6debe3adad009dccc72d7a6c07ca00c1' />");} additionalPointInfo=new AdditionalPointInfo();} public override long InSet(double ar, double ai, double aj, double br, double bi, double bj, double bk, long zkl, bool invers) { double gr=50000; double xx, yy, zz; long tw; int n; double x=ar,y=ai,z=aj; double r_n = 0; xx = x * x; yy = y * y; zz = z * z; tw = 0; double r = Math.Sqrt(xx + yy + zz); double scale = 1.1; additionalPointInfo.red=0; additionalPointInfo.green=0; additionalPointInfo.blue=0; for (n = 1; n < zkl; n++) { if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x; if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x; if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x; if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x; if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x; if (x > 1) x = 2.0 - x; else if (x < -1) x = -2.0 - x; if (y > 1) y = 2.0 - y; else if (y < -1) y = -2.0 - y; if (z > 1) z = 2.0 - z; else if (z < -1) z = -2.0 - z; double fixedRadius = 1; double minRadius = 0.00001; xx = x * x; yy = y * y; zz = z * z; double length= r = xx + yy + zz; if(r!=0) { additionalPointInfo.red+=xx/r; additionalPointInfo.green+=yy/r; additionalPointInfo.blue+=zz/r;} if (r > gr) { tw = n; break; } double mult=1; if (r>0 && r < fixedRadius) { mult=fixedRadius/(length); } mult*=scale; x*=mult; y*=mult; z*=mult; if(x<0) {x=-x;} x+=br; y+=bi; z+=bj; } if (invers) { if (tw == 0) tw = 1; else tw = 0; } return (tw); } |
Kali | August 09, 2011, 12:47:19 AM Very nice, Per... could you give some more details of the formula? |
Powered by SMF Gallery Pro