#version 3.7;

global_settings {
  assumed_gamma 1.0
  max_trace_level 10
}

background { color rgb <0.97,0.98,1.00> }

sky_sphere {
  pigment {
    gradient y
    color_map {
      [0.0 color rgb <0.92,0.95,1.00>]
      [0.7 color rgb <0.97,0.98,1.00>]
      [1.0 color rgb <0.72,0.80,0.95>]
    }
    scale 2
    translate -1
  }
}

fog {
  fog_type 2
  distance 42
  color rgb <0.92,0.95,1.00>
  fog_offset 0.2
  fog_alt 2.0
  turbulence 0.22
}

camera {
  location <0.1, 2.35, -6.6>
  look_at  <0.0, 1.25, 0.0>
  angle 38
}

light_source {
  <6, 9, -7>
  color rgb <1.0, 1.0, 1.0>
  area_light <1.6,0,0>, <0,0,1.6>, 5, 5 adaptive 1 jitter
}
light_source { <-7, 5.5, -2> color rgb <0.45, 0.58, 0.85> }
light_source { <0, 12, 3> color rgb <0.20, 0.20, 0.24> }
light_source { <0.0, 3.0, -2.2> color rgb <0.15,0.15,0.18> }
light_source { <2.5, 2.2, -2.0> color rgb <0.30,0.34,0.45> }

#declare Tex_Ground_Fractal =
texture {
  pigment {
    average
    pigment_map {
      [1 bozo turbulence 0.75 octaves 5 omega 0.55 lambda 2.1
        color_map {
          [0.00 color rgb <0.78,0.82,0.92>]
          [0.40 color rgb <0.88,0.91,0.96>]
          [0.70 color rgb <0.74,0.78,0.88>]
          [1.00 color rgb <0.92,0.94,0.98>]
        }
        scale 3.2
      ]
      [1 granite turbulence 0.35 octaves 4
        color_map {
          [0.00 color rgb <0.80,0.83,0.90>]
          [1.00 color rgb <0.95,0.96,0.99>]
        }
        scale 0.55
      ]
      [0.7 crackle turbulence 0.35
        color_map {
          [0.00 color rgb <0.80,0.84,0.94>]
          [0.55 color rgb <0.92,0.94,0.99>]
          [1.00 color rgb <0.72,0.76,0.86>]
        }
        scale 1.35
      ]
    }
  }
  normal {
    average
    normal_map {
      [1 bumps 0.20 scale 0.90]
      [1 wrinkles 0.10 scale 0.30]
    }
  }
  finish {
    diffuse 0.84
    specular 0.05
    roughness 0.10
    reflection 0.02
  }
}

#declare Tex_Metal_Fractal =
texture {
  pigment {
    average
    pigment_map {
      [1 color rgb <0.62,0.64,0.70>]
      [1 granite turbulence 0.40 octaves 5 omega 0.55 lambda 2.0
        color_map {
          [0.00 color rgb <0.32,0.34,0.42>]
          [0.45 color rgb <0.58,0.60,0.70>]
          [1.00 color rgb <0.90,0.92,0.96>]
        }
        scale 0.52
      ]
      [0.7 crackle turbulence 0.20
        color_map {
          [0.00 color rgb <0.30,0.32,0.38>]
          [0.55 color rgb <0.66,0.68,0.76>]
          [1.00 color rgb <0.92,0.94,0.98>]
        }
        scale 0.25
      ]
    }
  }
  normal {
    average
    normal_map {
      [1 wrinkles 0.45 scale 0.20]
      [1 bumps 0.16 scale 0.08]
    }
  }
  finish {
    diffuse 0.10
    specular 0.90
    roughness 0.02
    reflection 0.28
    metallic
  }
}

#declare Tex_DarkMetal_Fractal =
texture {
  pigment {
    average
    pigment_map {
      [1 color rgb <0.08,0.09,0.12>]
      [1 crackle turbulence 0.25
        color_map {
          [0.00 color rgb <0.04,0.05,0.08>]
          [0.55 color rgb <0.12,0.14,0.20>]
          [1.00 color rgb <0.26,0.28,0.36>]
        }
        scale 0.32
      ]
      [0.8 granite turbulence 0.55 octaves 5
        color_map {
          [0.00 color rgb <0.03,0.04,0.06>]
          [0.65 color rgb <0.10,0.12,0.18>]
          [1.00 color rgb <0.22,0.24,0.32>]
        }
        scale 0.20
      ]
    }
  }
  normal {
    average
    normal_map {
      [1 crackle 0.65 scale 0.34]
      [1 wrinkles 0.30 scale 0.12]
    }
  }
  finish {
    diffuse 0.18
    specular 0.78
    roughness 0.03
    reflection 0.16
    metallic
  }
}

#declare Fn_JuliaShell = function { f_julia(x, y, z, 2, <0.41,0.11>) }
#declare Fn_MandelCore = function { f_mandel(x, y, z, 18) }

#declare Mat_Glass_FractalShell =
material {
  texture {
    pigment {
      function { Fn_JuliaShell(x*1.25, y*1.25, z*1.25) }
      color_map {
        [0.00 color rgbf <0.98, 0.99, 1.00, 0.955>]
        [0.35 color rgbf <0.90, 0.96, 1.00, 0.965>]
        [0.65 color rgbf <0.82, 0.92, 1.00, 0.975>]
        [1.00 color rgbf <0.98, 0.99, 1.00, 0.955>]
      }
      scale 0.95
      rotate <0, 15, 0>
    }
    normal {
      average
      normal_map {
        [1 bumps 0.05 scale 0.20]
        [1 ripples 0.025 scale 0.12]
      }
    }
    finish {
      diffuse 0.02
      specular 0.98
      roughness 0.0028
      reflection 0.14
      conserve_energy
    }
  }
  interior { ior 1.52 }
}

#declare Tex_Core_Fractal =
texture {
  pigment {
    function { Fn_MandelCore(x*1.8, y*1.8, z*1.8) }
    color_map {
      [0.00 color rgbf <0.02, 0.05, 0.14, 0.990>]
      [0.22 color rgbf <0.06, 0.20, 0.55, 0.985>]
      [0.52 color rgbf <0.12, 0.65, 1.00, 0.975>]
      [0.78 color rgbf <0.55, 0.92, 1.00, 0.985>]
      [1.00 color rgbf <0.06, 0.10, 0.22, 0.992>]
    }
    scale 1.05
    rotate <0,18,0>
  }
  normal {
    average
    normal_map {
      [1 bumps 0.14 scale 0.26]
      [1 wrinkles 0.10 scale 0.12]
    }
  }
  finish { diffuse 0.06 specular 0.78 roughness 0.010 reflection 0.06 }
}

#declare Tex_Ring_Fractal =
texture {
  pigment {
    function { f_mandel(x*3.5, y*3.5, z*3.5, 12) }
    color_map {
      [0.00 color rgb <0.02,0.03,0.05>]
      [0.25 color rgb <0.10,0.11,0.18>]
      [0.55 color rgb <0.22,0.24,0.36>]
      [0.80 color rgb <0.06,0.08,0.12>]
      [1.00 color rgb <0.01,0.02,0.04>]
    }
    scale 0.55
    translate <0.15, 0.0, 0.05>
  }
  normal { bumps 0.35 scale 0.08 }
  finish { diffuse 0.16 specular 0.85 roughness 0.03 reflection 0.20 metallic }
}

#declare Finish_Orbiter =
finish { diffuse 0.20 specular 0.84 roughness 0.02 reflection 0.22 metallic }

#declare Tex_Orbiter_Fractal_Warm =
texture {
  pigment {
    average
    pigment_map {
      [1 function { f_julia(x*2.2, y*2.2, z*2.2, 2, <0.18,0.42>) }
        color_map {
          [0.00 color rgb <0.30,0.08,0.04>]
          [0.50 color rgb <0.98,0.36,0.10>]
          [0.78 color rgb <1.00,0.70,0.22>]
          [1.00 color rgb <0.35,0.10,0.06>]
        }
        scale 0.60
      ]
      [1 bozo turbulence 1.05 octaves 6 omega 0.55 lambda 2.1
        color_map {
          [0.00 color rgb <0.95,0.28,0.08>]
          [0.45 color rgb <1.00,0.62,0.22>]
          [1.00 color rgb <0.30,0.08,0.05>]
        }
        scale 0.30
      ]
      [0.6 function { f_mandel(x*4.5, y*4.5, z*4.5, 10) }
        color_map {
          [0.00 color rgb <0.25,0.06,0.03>]
          [0.55 color rgb <1.00,0.55,0.18>]
          [1.00 color rgb <0.40,0.10,0.05>]
        }
        scale 0.25
        rotate <0,45,0>
      ]
    }
  }
  normal { wrinkles 0.70 scale 0.12 }
  finish { Finish_Orbiter }
}

#declare Tex_Orbiter_Fractal_Green =
texture {
  pigment {
    average
    pigment_map {
      [1 function { f_julia(x*2.0, y*2.0, z*2.0, 2, <0.32,0.18>) }
        color_map {
          [0.00 color rgb <0.00,0.08,0.07>]
          [0.55 color rgb <0.10,0.55,0.38>]
          [0.85 color rgb <0.20,0.95,0.62>]
          [1.00 color rgb <0.60,1.00,0.80>]
        }
        scale 0.62
      ]
      [1 marble turbulence 0.75 octaves 6
        color_map {
          [0.00 color rgb <0.02,0.18,0.12>]
          [0.55 color rgb <0.18,0.88,0.58>]
          [1.00 color rgb <0.02,0.52,0.38>]
        }
        scale 0.25
      ]
      [0.55 function { f_mandel(x*4.0, y*4.0, z*4.0, 12) }
        color_map {
          [0.00 color rgb <0.00,0.10,0.08>]
          [0.55 color rgb <0.18,0.95,0.65>]
          [1.00 color rgb <0.02,0.35,0.25>]
        }
        scale 0.22
      ]
    }
  }
  normal { bumps 0.55 scale 0.14 }
  finish { Finish_Orbiter }
}

#declare Tex_Orbiter_Fractal_Blue =
texture {
  pigment {
    average
    pigment_map {
      [1 function { f_julia(x*2.0, y*2.0, z*2.0, 2, <0.10,0.55>) }
        color_map {
          [0.0 color rgb <0.02,0.04,0.12>]
          [0.6 color rgb <0.20,0.50,0.95>]
          [1.0 color rgb <0.80,0.94,1.00>]
        }
        scale 0.78
      ]
      [1 granite turbulence 0.55 octaves 5
        color_map {
          [0.00 color rgb <0.06,0.12,0.42>]
          [0.55 color rgb <0.30,0.52,0.98>]
          [1.00 color rgb <0.08,0.16,0.55>]
        }
        scale 0.26
      ]
      [0.55 function { f_mandel(x*4.6, y*4.6, z*4.6, 11) }
        color_map {
          [0.0 color rgb <0.02,0.06,0.16>]
          [0.6 color rgb <0.32,0.62,1.00>]
          [1.0 color rgb <0.06,0.12,0.32>]
        }
        scale 0.18
        rotate <0,20,0>
      ]
    }
  }
  normal { ripples 0.55 scale 0.16 }
  finish { Finish_Orbiter }
}

plane { y, 0 texture { Tex_Ground_Fractal } }

#declare Pedestal =
union {
  cylinder { <0,0,0>, <0,0.78,0>, 0.88 texture { Tex_Metal_Fractal } }
  torus { 0.88, 0.075 rotate <90,0,0> translate <0,0.78,0> texture { Tex_DarkMetal_Fractal } }
  cylinder { <0,0.78,0>, <0,1.08,0>, 0.60 texture { Tex_DarkMetal_Fractal } }
}

object { Pedestal }

#declare SphereCenter = <0, 1.78, 0>;

sphere {
  SphereCenter, 0.92
  material { Mat_Glass_FractalShell }
}

sphere {
  SphereCenter, 0.88
  texture { Tex_Core_Fractal }
  interior { ior 1.33 }
}

#declare OrbitRing =
torus {
  1.38, 0.028
  rotate <90, 0, 0>
  texture { Tex_Ring_Fractal }
}

object { OrbitRing translate SphereCenter rotate <0, 25, 0> }
object { OrbitRing translate SphereCenter rotate <35, 65, 0> }
object { OrbitRing translate SphereCenter rotate <-25, 15, 25> }

#declare OrbitRadius = 1.58;

box {
  <-0.23, -0.23, -0.23>, <0.23, 0.23, 0.23>
  texture { Tex_Orbiter_Fractal_Warm }
  rotate <20, 35, 10>
  translate (SphereCenter + <OrbitRadius, 0.12, 0>)
}

cone {
  <0, -0.30, 0>, 0.23
  <0,  0.32, 0>, 0.0
  texture { Tex_Orbiter_Fractal_Green }
  rotate <0, 0, 25>
  translate (SphereCenter + <-0.70, 0.55, 1.30>)
}

torus {
  0.22, 0.075
  texture { Tex_Orbiter_Fractal_Blue }
  rotate <60, 20, 0>
  translate (SphereCenter + <-1.00, -0.08, -1.14>)
}

#declare SparkTex =
texture {
  pigment {
    bozo
    turbulence 1.15
    octaves 4
    omega 0.55
    lambda 2.1
    color_map {
      [0.00 color rgbf <0.70,0.85,1.00, 0.82>]
      [0.40 color rgbf <1.00,1.00,1.00, 0.72>]
      [1.00 color rgbf <0.55,0.70,1.00, 0.90>]
    }
    scale 0.07
  }
  finish { emission 0.85 diffuse 0 specular 0 }
}

#declare i = 0;
#while (i < 14)
  sphere {
    SphereCenter + <cos(radians(i*360/14))*1.08, 0.36*sin(radians(i*61))*0.26, sin(radians(i*360/14))*1.08>, 0.038
    texture { SparkTex }
  }
  #declare i = i + 1;
#end

disc {
  <0,0.001,0>, y, 2.7, 0
  texture {
    pigment {
      average
      pigment_map {
        [1 bozo turbulence 0.55 octaves 5 omega 0.55 lambda 2.0
          color_map {
            [0.00 color rgbf <0.40,0.50,0.70, 0.92>]
            [1.00 color rgbf <0.60,0.70,0.90, 0.98>]
          }
          scale 1.7
        ]
        [0.9 function { f_julia(x*1.4, y*1.4, z*1.4, 2, <0.15,0.32>) }
          color_map {
            [0.00 color rgbf <0.78,0.84,0.98, 0.97>]
            [1.00 color rgbf <0.32,0.42,0.68, 0.985>]
          }
          scale 2.2
        ]
        [0.65 function { f_mandel(x*1.6, y*1.6, z*1.6, 10) }
          color_map {
            [0.00 color rgbf <0.35,0.45,0.70, 0.965>]
            [0.6 color rgbf <0.80,0.90,1.00, 0.980>]
            [1.00 color rgbf <0.30,0.35,0.55, 0.985>]
          }
          scale 1.9
          rotate <0,10,0>
        ]
      }
    }
    normal {
      average
      normal_map {
        [1 bumps 0.12 scale 0.9]
        [1 ripples 0.05 scale 0.55]
      }
    }
    finish { diffuse 0.05 specular 0.30 roughness 0.06 reflection 0.02 }
  }
}