The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!
|
|
Another Spiral | ||||||
Previous Image | ||||||
Description: // A Spiral in the power 8 Mandelbulb. // Insert this text in the Gestaltlupe formula source and press two times preview public override void Init() { base.Init();if(GetString("intern.Formula.TempUpdateVal")!="46af6d73734d7f1a67e26b47d2443186"){SetParameterBulk("<Entry Key='Border.Max.x' Value='0.413799932974611' /><Entry Key='Border.Max.y' Value='-0.514640351499776' /><Entry Key='Border.Max.z' Value='-0.145261704533339' /><Entry Key='Border.Max.zz' Value='0' /><Entry Key='Border.Min.x' Value='0.413799899292171' /><Entry Key='Border.Min.y' Value='-0.514640385182216' /><Entry Key='Border.Min.z' Value='-0.145261738215779' /><Entry Key='Border.Min.zz' Value='0' /><Entry Key='Formula.Static.Cycles' Value='140' /><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='140' /><Entry Key='Transformation.Camera.AngleX' Value='20' /><Entry Key='Transformation.Camera.AngleY' Value='0' /><Entry Key='Transformation.Camera.AngleZ' Value='22' /><Entry Key='Transformation.Perspective.Cameraposition' Value='1' /><Entry Key='Transformation.Stereo.Angle' Value='-9' /><Entry Key='Transformation.Stereo.EyeDistance' Value='0.5' /><Entry Key='View.Height' Value='1200' /><Entry Key='View.Perspective' Value='1' /><Entry Key='View.Width' Value='1200' /><Entry Key='intern.Formula.TempUpdateVal' Value='46af6d73734d7f1a67e26b47d2443186' />");} additionalPointInfo=new AdditionalPointInfo(); gr1=GetDouble("Formula.Static.Cycles");int tempGr=(int)gr1;gr1=gr1- tempGr;gr1=1-gr1;gr1*=2.4; } double gr1=0;double gr2=0; public override long InSet(double ar, double ai, double aj, double br, double bi, double bj, double bk, long zkl, bool invers) { double aar, aai, aaj; long tw; int n; int pow = 8; double gr =Math.Pow(10,gr1)+1.0; double theta, phi; double r_n = 0; aar = ar * ar; aai = ai * ai; aaj = aj * aj; tw = 0L; double r = Math.Sqrt(aar + aai + aaj); double phi_pow; double theta_pow; double sin_theta_pow; double rn_sin_theta_pow;additionalPointInfo.red=0;additionalPointInfo.green=0;additionalPointInfo.blue=0;double red=0; double green=0; double blue=0;red=0.1;green=0.1;blue=1000; for (n = 1; n < zkl; n++) { theta = Math.Atan2(Math.Sqrt(aar + aai), aj); phi = Math.Atan2(ai, ar); r_n = Math.Pow(r, pow); phi_pow=phi*pow; theta_pow=theta*pow; sin_theta_pow=Math.Sin(theta_pow); rn_sin_theta_pow=r_n* sin_theta_pow; ar = rn_sin_theta_pow * Math.Cos(phi_pow)+br; ai = rn_sin_theta_pow * Math.Sin(phi_pow)+bi; aj = r_n * Math.Cos(theta_pow)+bj; aar = ar * ar; aai = ai * ai; aaj = aj * aj; r = aar + aai + aaj;double rr=r*r;if(blue>rr)blue=rr;/*if(n==13 || n==15 || n==17) {red+=aar/r;green+=aai/r;blue+=aaj/r;}*/r = Math.Sqrt(r); if (r > gr) { tw = n; break; } }additionalPointInfo.red=red;additionalPointInfo.green=green;additionalPointInfo.blue=blue; if (invers) { if (tw == 0) tw = 1; else tw = 0; } return (tw); } Stats: Total Favorities: 0 View Who Favorited Filesize: 252.15kB Height: 1200 Width: 1200 Discussion Topic: View Topic Keywords: Mandelbulb Spiral Gestaltlupe Posted by: trafassel September 16, 2011, 10:54:04 PM Rating: by 2 members. Image Linking Codes
|
||||||
0 Members and 1 Guest are viewing this picture. |
|
Comments (0) |
Powered by SMF Gallery Pro