#include "colors.inc"
#include "functions.inc"
#include "textures.inc"
#include "metals.inc"
#include "rad_def.inc"
//global_settings{
//    max_trace_level 20
//    assumed_gamma 1
//    radiosity{
//        recursion_limit 1
//    }
//}
#ifndef( E ) #declare E = 0.00001; #end
global_settings {
        radiosity {
                Rad_Settings(Radiosity_Normal , off, off)
        }
}

union{
    plane{y,0}
    plane{z,1}
    texture{pigment{White} finish{ambient 0 diffuse 1}}
}

camera {
  location  <0.0, 0.7, -3.5>
  direction 1.5*z
  right     x*image_width/image_height
  look_at   <0.0, 0.8,  0.0>
}

#declare Tekstura_lampa=texture{
    pigment{
        bozo warp { turbulence 0.6 }
        color_map{
           [0 rgbf<1,0.8,0,0.3>]
           [1 rgbf<1,0.8,0,0.7>]
        }
    }
    finish{ambient 0 diffuse 0.8 specular 0.05 roughness 0.01}
}

#declare Tekstura_podstawa=texture{
    pigment{rgb <0.8,0.8,0.9>*0.5}
    normal{agate bump_size 0.3 scale 0.01}
    finish{metallic brilliance 3 ambient 0 diffuse 1 specular 1 roughness 0.05
        reflection{0,0.2}
    }
}

#declare Kolumna=isosurface{
        function{f_helix1(x,y,z,1,100,0.01,0.016,1.5,1,0)}
        contained_by {box {<-1,0,-1>,<1,0.73,1>}}

    // Seven extra parameters required:
    // 1. Number of helixes - e.g. 2 for a double helix
    // 2. Period - is related to the number of turns per unit length
    // 3. Minor radius
    // 4. Major radius
    // 5. Shape parameter. If this is greater than 1 then the tube becomes fatter in the y direction
    // 6. Cross section type.
    // 7. Cross section rotation angle (degrees). E.g. if you choose a square cross section and rotate it by 45 degrees you get a diamond cross section.

}


#declare Zarowka = union {
    merge {
      sphere { <0,0,0>,1 }
      cylinder {
        <0,0,1>, <0,0,0>, 1
        scale <0.35, 0.35, 1.0>
        translate  0.45*z
      }
      texture {
        pigment {color rgb <1, 1, 1>}
        finish {ambient 4.5 diffuse 0.1}
      }
    }
    cylinder {
      <0,0,1>, <0,0,0>, 1
      scale <0.4, 0.4, 0.5>
      texture { Brass_Texture }
      translate  1.5*z
    }
    rotate 90*x
    scale 0.3
}

#declare Swiatlo=light_source {<0,0,0>
    color rgb<1,0.8,0.6>*15
        area_light 0.15*x,z*0.15 6, 6 jitter adaptive 1 circular orient
    fade_distance 0.3
    fade_power 2
    looks_like { Zarowka }
}

#declare Lampa =
union{
    #declare rDol = 1.3;
    #declare rGora = 0.7;
    difference{
        cone{<0,3,0> rDol, <0,5,0> rGora }
        cone{<0,3-E,0> rDol-0.05, <0,5+E,0> rGora-0.05}
        texture{Tekstura_lampa scale 0.4}
        interior{
            media{
                scattering {1,3}
            }
        }
       hollow
    }

    union{
        torus { rDol-0.02, 0.05   translate <0,3,0>}
        torus{rGora-0.02,0.05  translate <0,5,0>}

        #declare i=0;
        #while (i<4)
            cylinder{<rDol,3,0>,<0,3.2,0> ,0.05 rotate y*360*i/4}
            #declare i=i+1;
        #end

        texture{T_Brass_2A}
                //no_shadow
    }

            object{Swiatlo translate 3.95*y }

}


#declare Promien=0.3;
#declare Stopa = prism {
linear_sweep
bezier_spline
0,
0.5,
44
<2.85526315789474,2>,<2.69736842105263,1.06578947368421>,<3.65789473684211,0.947368421052632>,<3.88815789473684,1.72368421052632>
<3.88815789473684,1.72368421052632>,<3.96710526315789,2.26315789473684>,<3.92763157894737,2.46710526315789>,<3.67763157894737,2.65131578947368>
<3.67763157894737,2.65131578947368>,<3.24342105263158,2.76973684210526>,<1.43421052631579,2.875>,<1.04605263157895,2.83552631578947>
<1.04605263157895,2.83552631578947>,<0.296052631578947,2.89473684210526>,<0.230263157894737,3.26315789473684>,<0.190789473684211,3.65131578947368>
<0.190789473684211,3.65131578947368>,<0.302631578947368,4.36184210526316>,<0.855263157894737,4.38157894736842>,<1.125,4.42105263157895>
<1.125,4.42105263157895>,<0.842105263157895,4.21052631578947>,<0.730263157894737,4.18421052631579>,<0.618421052631579,4.09868421052632>
<0.618421052631579,4.09868421052632>,<0.447368421052632,3.96052631578947>,<0.151315789473684,3.68421052631579>,<0.572368421052632,3.17763157894737>
<0.572368421052632,3.17763157894737>,<0.802631578947368,2.91447368421053>,<1.92763157894737,3.21052631578947>,<3.76315789473684,2.82236842105263>
<3.76315789473684,2.82236842105263>,<4.27631578947368,2.44078947368421>,<4.07236842105263,1.69078947368421>,<4,1.40789473684211>
<4,1.40789473684211>,<3.71710526315789,1.01315789473684>,<3.20394736842105,0.980263157894737>,<2.94078947368421,1.21710526315789>
<2.94078947368421,1.21710526315789>,<2.63157894736842,1.33552631578947>,<2.79605263157895,1.95394736842105>,<2.85526315789474,2>





    rotate -x*90
    rotate y*90
    scale Promien
    texture { Tekstura_podstawa }
}

#declare Srednica = -0.1;

#declare Podstawa = union{
object {Stopa translate <0.08,-0.3,Srednica>}
object {Stopa translate <0.08,-0.3,Srednica> rotate   0*y }
object {Stopa translate <0.08,-0.3,Srednica> rotate 180*y }
object {Stopa translate <0.08,-0.3,Srednica> rotate 270*y }


box {
  <-0.5+Srednica, 0.47, -0.5+Srednica>
  < 0.5-Srednica, 0.53,  0.5-Srednica>
    texture { Tekstura_podstawa }
    rotate y*45
}
}

#declare Lampa_cala=union{
    object{Podstawa scale 0.15} // h=0.07
    object{Kolumna scale <0.8,1,0.8> translate y*0.07} // h=0.7
    object{Lampa scale 0.15 translate y*0.3}
    texture{Tekstura_podstawa}
    scale 1.5
}

object{Lampa_cala rotate y*20 translate -x*0.7}
//light_source {<-30, 30, -30> rgb <205,215,255>*1.5/255 spotlight radius 1 falloff 2 tightness 1 point_at y}