Logo by S Nelson - Contribute your own Logo!

END OF AN ERA, FRACTALFORUMS.COM IS CONTINUED ON FRACTALFORUMS.ORG

it was a great time but no longer maintainable by c.Kleinhuis contact him for any data retrieval,
thanks and see you perhaps in 10 years again

this forum will stay online for reference
News: Visit us on facebook
 
*
Welcome, Guest. Please login or register. April 25, 2024, 11:58:01 AM


Login with username, password and session length


The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!


Pages: [1]   Go Down
  Print  
Share this topic on DiggShare this topic on FacebookShare this topic on GoogleShare this topic on RedditShare this topic on StumbleUponShare this topic on Twitter
Author Topic: Primeval Forest  (Read 920 times)
0 Members and 1 Guest are viewing this topic.
trafassel
Fractal Bachius
*
Posts: 531


trafassel
« on: June 03, 2013, 09:37:21 PM »

Primeval Forest



http://www.fractalforums.com/index.php?action=gallery;sa=view;id=14331

public override void Init() { base.Init();if(GetString("intern.Formula.TempUpdateVal")!="074170b4105297b76fb4b3d3d4cc2bb9"){SetParameterBulk("<Entry Key='Border.Max.x' Value='-0.141220522012176' /><Entry Key='Border.Max.y' Value='0.636187090488647' /><Entry Key='Border.Max.z' Value='-0.147068461467295' /><Entry Key='Border.Min.x' Value='-0.141220879078558' /><Entry Key='Border.Min.y' Value='0.636186733422265' /><Entry Key='Border.Min.z' Value='-0.147068662317134' /><Entry Key='Formula.Static.Cycles' Value='75' /><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='0' /><Entry Key='Renderer.AmbientIntensity' Value='55' /><Entry Key='Renderer.BackColor.Blue' Value='0' /><Entry Key='Renderer.BackColor.Green' Value='0' /><Entry Key='Renderer.BackColor.Red' Value='0' /><Entry Key='Renderer.BrightLightLevel' Value='0.8' /><Entry Key='Renderer.Brightness' Value='3' /><Entry Key='Renderer.ColorFactor.Blue' Value='1' /><Entry Key='Renderer.ColorFactor.Green' Value='0.37' /><Entry Key='Renderer.ColorFactor.Red' Value='1' /><Entry Key='Renderer.ColorFactor.RgbType' Value='4' /><Entry Key='Renderer.ColorGreyness' Value='0.4' /><Entry Key='Renderer.ColorIntensity' Value='0.6' /><Entry Key='Renderer.Contrast' Value='1.2' /><Entry Key='Renderer.Light.X' Value='0.5' /><Entry Key='Renderer.Light.Y' Value='1' /><Entry Key='Renderer.Light.Z' Value='0.25' /><Entry Key='Renderer.LightIntensity' Value='0' /><Entry Key='Renderer.MaxFieldOfView' Value='1' /><Entry Key='Renderer.MinFieldOfView' Value='0.5' /><Entry Key='Renderer.Normalize' Value='0' /><Entry Key='Renderer.ShadowJustify' Value='3' /><Entry Key='Renderer.ShadowNumber' Value='11' /><Entry Key='Renderer.Shininess' Value='18' /><Entry Key='Renderer.ShininessFactor' Value='0.6' /><Entry Key='Renderer.SmoothNormalLevel' Value='8' /><Entry Key='Renderer.UseDarken' Value='0' /><Entry Key='Renderer.UseLight' Value='1' /><Entry Key='Renderer.UseSharpShadow' Value='0' /><Entry Key='Transformation.Camera.AngleX' Value='-86' /><Entry Key='Transformation.Camera.AngleY' Value='0' /><Entry Key='Transformation.Camera.AngleZ' Value='299.333333333333' /><Entry Key='Transformation.Perspective.Cameraposition' Value='0.4' /><Entry Key='Transformation.Stereo.Angle' Value='-9' /><Entry Key='Transformation.Stereo.EyeDistance' Value='0.5' /><Entry Key='View.Height' Value='720' /><Entry Key='View.Perspective' Value='1' /><Entry Key='View.Width' Value='1280' /><Entry Key='intern.Formula.TempUpdateVal' Value='074170b4105297b76fb4b3d3d4cc2bb9' />");} additionalPointInfo=new AdditionalPointInfo(); gr1=GetDouble("Formula.Static.Cycles"); int tempGr=(int)gr1; gr1=gr1- tempGr; gr1=1-gr1; gr1*=2.4;}double gr1=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,theta_pow,sin_theta_pow,rn_sin_theta_pow; additionalPointInfo.red=0; additionalPointInfo.green=0; additionalPointInfo.blue=0; 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 = Math.Sqrt(aar + aai + aaj);if(n>55 && n<65) { additionalPointInfo.red+=aar/r; additionalPointInfo.green+=aai/r; additionalPointInfo.blue+=aaj/r;} if (r > gr) { tw = n; break; } } if (invers) { if (tw == 0) tw = 1; else tw = 0; } return (tw);}
Logged
Pages: [1]   Go Down
  Print  
 
Jump to:  

Related Topics
Subject Started by Replies Views Last post
Forest Fire UltraFractal Gallery polterbyte 0 902 Last post August 04, 2008, 08:46:06 PM
by polterbyte
Forbidden Forest Mandel Brot David Makin 0 1583 Last post April 19, 2010, 12:02:52 PM
by David Makin
Forest of Fangorn Images Showcase (Rate My Fractal) Ross Hilbert 0 1016 Last post June 07, 2010, 04:12:54 PM
by Ross Hilbert
Primeval Forest Images Showcase (Rate My Fractal) Pauldelbrot 0 407 Last post December 24, 2011, 04:09:38 PM
by Pauldelbrot
Forest Images Showcase (Rate My Fractal) John Smith 0 703 Last post June 25, 2012, 03:16:41 AM
by John Smith

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines

Valid XHTML 1.0! Valid CSS! Dilber MC Theme by HarzeM
Page created in 0.151 seconds with 26 queries. (Pretty URLs adds 0.008s, 2q)