#include "rmannotes.sl"

surface circle()
{
   color paper, ink;
   float opac;
   float tile_s, tile_t;
   float fuzz;

   rotate2d(s, t, 60, 0, 0, tile_s, tile_t);
   tile_s = repeat (tile_s, 5);
   tile_t = repeat (tile_t, 5);

   paper = spline(tile_t, color (.545, .4, .545), color (.545, .4, .545), 
		     color (1, .549, .411), color (.803, .439, .329),
		     color (.803, .439, .329));

   fuzz = 0.02;

   rotate2d(s, t, 60, 0, 0, tile_s, tile_t);
   tile_s = repeat (tile_s, 5);
   tile_t = repeat (tile_t, 5);  

   ink = color(.152, .25, .545);
   opac = pulse(distance((tile_s, tile_t, 0), (0.5, 0.5, 0)), 0.3, 0.4, fuzz);
   paper = mix(paper, ink, opac);

   ink = color (.196, .803, .196);
   opac = pulse(distance((tile_s, tile_t, 0), (0.5, 0.5, 0)), 0.2, 0.3, fuzz);
   paper = mix(paper, ink, opac);

   ink = color (.803, .360, .360);
   opac = pulse(distance((tile_s, tile_t, 0), (0.5, 0.5, 0)), 0.1, 0.2, fuzz);
   paper = mix(paper, ink, opac); 

   ink = spline(t, color (1, 1, 0), color (1, 1, 0), color (1, 1, 0), 
		   color (0, 0, 0), color (0, 0, 0), color (0, 0, 0));
   opac = pulse(distance((tile_s, tile_t, 0), (0.5, 0.2, 0)), 0.3, 0.4, fuzz);
   paper = mix(paper, ink, opac);

   ink = spline(t, color (0, 0, 0), color (0, 0, 0), color (0, 0, 0), 
		   color (1, 1, 0), color (1, 1, 0), color (1, 1, 0));
   opac = pulse(distance((tile_s, tile_t, 0), (0.5, 0.8, 0)), 0.3, 0.4, fuzz);
   paper = mix(paper, ink, opac);

   Ci = paper;

}