#version 3.5;
#include "colors.inc"

camera {
   location< 0, 1.75,-9>
   look_at < 0, 0.75, 0>
   angle 45
}

light_source {< 0, 0,-4> color White*0.35}
light_source {<-50, 150,-75> color White}

#declare IsoFinish =
finish {
   ambient 0 diffuse 1
   specular 1 roughness 0.02
   brilliance 2
}

#macro RoundCylinder (P1,P2,R)
   union {
      cylinder {P1, P2, R*0.6}
      sphere {P1, R*0.6}
      sphere {P2, R*0.6}
   }
#end

blob {
   threshold 0.4
   cylinder {<0,0,0>,<0,4,0> ,0.25,1    scale <1,0.25,1>}
   pigment{Red}
   finish{IsoFinish}
   translate <-3,1.5,0>
}
object {
   RoundCylinder(<0,0,0>,<0,4,0>,0.25) scale <1,0.25,1>
   pigment{Red}
   finish{IsoFinish}
   translate <-3,1.5,0>-x/3
}

blob {
   threshold 0.4	
   cylinder {<0,0,0>,<0,1,0>,   0.25,1 scale 1}
   pigment{Orange}
   finish{IsoFinish}
   translate <-2,1.5,0>
}
object {
   RoundCylinder(<0,0,0>,<0,1,0>,0.25) scale <1,1,1>
   pigment{Orange}
   finish{IsoFinish}
   translate <-2,1.5,0>-x/3
}

blob {
   threshold 0.4	
   cylinder {<0,0,0>,<0,0.25,0>,   0.25,1 scale <1,4,1>}
   pigment{Yellow}
   finish{IsoFinish}
   translate <-1,1.5,0>
}
object {
   RoundCylinder(<0,0,0>,<0,0.25,0>,0.25) scale <1,4,1>
   pigment{Yellow}
   finish{IsoFinish}
   translate <-1,1.5,0>-x/3
}

blob {
   threshold 0.4
   cylinder {<0,0,0>,<0,1,0> ,0.25/4,1    scale <4,1,4>}
   pigment{Green}
   finish{IsoFinish}
   translate <-3,-1.5,0>
}
object {
   RoundCylinder(<0,0,0>,<0,1,0>,0.25/4) scale <4,1,4>
   pigment{Green}
   finish{IsoFinish}
   translate <-3,-1.5,0>-x/3
}

blob {
   threshold 0.4	
   cylinder {<0,0,0>,<0,1,0>,   0.25,1 scale 1}
   pigment{Blue}
   finish{IsoFinish}
   translate <-2,-1.5,0>
}
object {
   RoundCylinder(<0,0,0>,<0,1,0>,0.25) scale 1
   pigment{Blue}
   finish{IsoFinish}
   translate <-2,-1.5,0>-x/3
}

blob {
   threshold 0.4
   cylinder {<0,0,0>,<0,1,0> ,1,1    scale <0.25,1,0.25>}
   pigment{Violet+White/3}
   finish{IsoFinish}
   translate <-1,-1.5,0>
}
object {
   RoundCylinder(<0,0,0>,<0,1,0>,1) scale <0.25,1,0.25>
   pigment{Violet+White/3}
   finish{IsoFinish}
   translate <-1,-1.5,0>-x/3
}

text {
   ttf "cyrvetic.ttf" "Scale of y gives useful," .1,0
   pigment{Yellow}
   finish{IsoFinish}
   scale 0.35
   translate <-0.25,2,0>
}
text {
   ttf "cyrvetic.ttf" "and expected results in y" .1,0
   pigment{Yellow}
   finish{IsoFinish}
   scale 0.35
   translate <-0.250,1.5,0>
}
text {
   ttf "cyrvetic.ttf" "Scale of x & z (and radius)" .1,0
   pigment{Yellow}
   finish{IsoFinish}
   scale 0.35
   translate <-0.250,-0.5,0>
}
text {
   ttf "cyrvetic.ttf" "also gives expected" .1,0
   pigment{Yellow}
   finish{IsoFinish}
   scale 0.35
   translate <-0.250,-1,0>
}  
text {
   ttf "cyrvetic.ttf" "results in y" .1,0
   pigment{Yellow}  
   finish{IsoFinish}
   scale 0.35
   translate <-0.250,-1.5,0>
}