#include "colors.inc"
#include "textures.inc"
#include "auto.inc"

background { color rgb <0.3, 0.9, 1> }

//#local clock = 0.8;

#if (clock >= 0 & clock < 0.045)
    #local pozycja = <6400, 400, 1800>;
    #local cel = <5400, 100, 0>;
#elseif (clock >= 0.045 & clock < 0.26)
    #local pozycja = <-1300, 400, 0>;
    #local cel =     <100, 20, 0>   ;
#elseif (clock >= 0.26 & clock < 0.75)
    #local pozycja = <-3000, 6500, -10>;
    #local cel =    <-3000, 0, 0>;
#end


light_source{
    <100,20000,20000>
    color White
}

plane{
    y,0
    pigment {color rgb <0.3, 1, 0.3>}
    }

///////////


#local X = 0;
#local Y = 0;
#local promien = 3;
#local kat = 0;
#local kat_roznica = 0.001;

union{
#while (kat < 2*pi)
    #local X = promien*cos(kat)*2;
    #local Y = promien*sin(kat*2);
    #object{
        segment

        translate <-0.15,0,-0.15/2>
        scale <4, 1, 1>

        #if (kat > 67*pi*2/360 & kat < 110*pi*2/360)
            rotate <0, 45, 0>
        #elseif (kat > 247*pi*2/360 & kat < 290*pi*2/360)
            rotate <0, -45, 0>
        #elseif (kat > 3*pi/2 | kat < pi/2)
           rotate <0, -kat*360/pi, 0>
        #elseif (kat >pi/2)
           rotate <0, kat*360/pi, 0>
        #end

       translate <X, 0, Y>
    }
    #local kat = kat+kat_roznica;
#end
scale <1000, 1, 1000>
}


#local X = 0;
#local Y = 0;
#local promien = 3000;
#local kat = 2*pi*clock;


#local X = promien*cos(kat)*2;
#local Y = promien*sin(kat*2);

union{
    #object{
    auto(Orange, clock*17000)
    rotate <0, -90, 0>
    translate <240,0,0>
    }
    #object{
    auto(Blue, clock*17000)
    rotate <0, -90, 0>
    translate <-240,0,300>
    }

    #if (kat > 70*pi*2/360 & kat < 110*pi*2/360)
        rotate <0, -135, 0>
    #elseif (kat > 250*pi*2/360 & kat < 290*pi*2/360)
        rotate <0, 135, 0>
    #elseif (kat > 3*pi/2 | kat < pi/2)
       rotate <0, -kat*360/pi, 0>
    #elseif (kat >pi/2)
       rotate <0, kat*360/pi, 0>
    #end

    translate <X, 0, Y>
}

//Start meta

cylinder {
    <6700, 0, 0>
    <6700, 500, 0> 7
    pigment{Candy_Cane scale 30}
}
cylinder {
    <5300, 0, 0>
    <5300, 500, 0> 7
    pigment{Candy_Cane scale 30}
}
box {
    <5300, 350, 0>
    <6700, 480, 1>
    pigment {checker color White color Black scale 42}
}


camera{
    right x*image_width/image_height
    #if (clock >=0 & clock <0.75)
        location pozycja
        look_at cel
    #else
        location <1000,200,-300>
        look_at  <0,0,0>
    translate <X, 0, Y>
    #end
}