#include "colors.inc"

#declare MaxL = 5;

#macro Daisy ( X, Y, R, L)
  torus 
  { R, 0.025 translate <X,-0.01*L,Y> 
    pigment { Green*(MaxL-L)/MaxL + Red } 
  }
  #local Pos=R*2/3;
  #local NewR=R/3;
  #if (L > 0)
    Daisy ( X,Y, NewR, L-1)

    Daisy ( X+(cos(radians(0)  )*Pos),
            Y+(sin(radians(0)  )*Pos), NewR, L-1)

    Daisy ( X+(cos(radians(60) )*Pos),
            Y+(sin(radians(60) )*Pos), NewR, L-1)

    Daisy ( X+(cos(radians(120))*Pos),
            Y+(sin(radians(120))*Pos), NewR, L-1)

    Daisy ( X+(cos(radians(180))*Pos),
            Y+(sin(radians(180))*Pos), NewR, L-1)

    Daisy ( X+(cos(radians(240))*Pos),
            Y+(sin(radians(240))*Pos), NewR, L-1)

    Daisy ( X+(cos(radians(300))*Pos),
            Y+(sin(radians(300))*Pos), NewR, L-1)
  #end
#end

union
{
  Daisy ( 0, 0, 5, 5 )
  rotate 90*x
}

camera { location -15*z look_at 0 }  

light_source { -1000*z color White shadowless }

Peter Popov ICQ : 15002700
Personal e-mail : pet### [at] usanet
TAG      e-mail : pet### [at] tagpovrayorg

Post a reply to this message