// Entry code: ogzdyq
// Name      : Matthew Goulet
// Frame rate: 30
// "Newton's Donuts"
// Written by Matthew Goulet <povray@bherring.cotse.net>
// +W400 +H300 +A0.01 +AM1 +KFI0 +KFF99 +KI0 +KF1
// FPS: 30

global_settings {
  assumed_gamma 1.0
}

background { rgb <1, 1, 0.6> }

light_source {
  <50,50,-50>, rgb 1
}

#local S =
 union {
   torus {
     0.6, 0.4
     rotate x*90
     translate y * -6
     pigment { rgb <0.8, 0.5, 0.2> }
     normal {
       average
       normal_map {
         [ bumps scale 1/4 ]
         [ granite scale 1/4 ]
       }
     }
   }
   cylinder {
     0, y * -5, 0.03
     pigment { rgb 0 }
   }
 }

union {
  object { S }
  object { S translate x * 2 }
  object { S translate x * -2 }
  object {
    S
    rotate z * select(clock-0.5, sin(clock*2*pi)*45, 0)
    translate x * 4
  }
  object {
    S
    rotate z * select(clock-0.5, 0, sin((clock*2-1)*pi)*-45)
    translate x * -4
  }
  translate <0, 3, 15>
}