Test-SinCos

// ***************************************************
//           Test-SinCos  (c) 2000 by Flynn          *
// ***************************************************

#version 3.7
global_settings { assumed_gamma 2.2 }

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


 camera {
    //location  <-150, 15,-45>
    location  <40, 130, -500>     // <-20, 15,20>
    direction <0, 0,  1>
    up        <0,  1,  0>
    right     <4/3, 0,  0>
    //look_at   <60, 2, 0>
    look_at   <60, 2, 0>
    }

 background { color SkyBlue }

 light_source {<40, 130, -500> color red 3 green 3 blue 3 }


 plane
 {
    <0, 15, 0>, -1
    pigment
    {
       checker color Red, color Blue
    }
    translate <0,-60,0>

 }

 #declare r1=6
 #declare A=0.1
 #declare B=0.25
 #declare rad=2

 #declare c_red=0
 #declare c_green=0
 #declare c_blue=0

 #declare Count=150

union
{
  #while (Count>=0)
    #declare X=Count
    #declare Y=r1*cos(A*Count)*sin(B*Count)
    #declare Z=r1*cos(A*Count)*sin(B*Count)


    sphere
    {
        <X,Y,Z>, rad
        pigment
        {
            color <c_red,c_green,c_blue>
        }
    }
    /*
    sphere
    {
        <X+20,Y,Z>, rad
        texture
        {
           Yellow_Glass
        }
    }
    sphere
    {
        <X+40,Y,Z>, rad
        texture
        {
           Yellow_Glass
        }
    }
    */

    #declare Count=Count-1

    #if (c_red < 1)
        #declare c_red = c_red + 0.03
    #else
        #declare c_red = c_red - 0.03
    #end
    #if (c_green < 1)
        #declare c_green = c_green + 0.03
    #else
        #declare c_green = c_green - 0.03
    #end
    #if (c_blue < 1)
        #declare c_blue = c_blue + 0.03
    #else
        #declare c_blue = c_blue - 0.03
    #end


  #end
  rotate <-30,22,0>
}