#include "rmannotes.sl"
#include "shapes.sl"

color pinky()
{	
	color pink0 = color(0.9056, 0.4510, 0.6078);
	color pink1 = color(0.9059, 0.3451, 0.5569);
	color pink2 = color(0.9255, 0.4000, 0.6000);
	color pink3 = color(0.9216, 0.6196, 0.7608);
	color pink4 = color(0.9137, 0.3882, 0.5843);
	color pink5 = color(0.9825, 0.9576, 0.9382);
	color pink6 = color(0.9590, 0.7825, 0.7923);
	color pink7 = color(0.9215, 0.6196, 0.7608);
	color pink8 = color(0.9020, 0.3176, 0.5412);
	
	color opaque = 1.0;
	
	color surface_color, layer_color;
	color surface_opac, layer_opac;
	float fuzz = 0.005;

  	// background layer
  	surface_color = pink0;
  	surface_opac = opaque;

  	// random disks and rings of different pink  	
  	layer_color = pink4;
  	layer_opac = union(disk(0.1, fuzz, s, t, point(0.44, 0.37, 0)), disk(0.13, fuzz, s, t, point(0.14, 0.62, 0)));
  	surface_color = blend(surface_color, layer_color, layer_opac);
  	
  	layer_color = pink2;
  	layer_opac = disk(0.12, fuzz, s, t, point(0.55, 0.15, 0));
  	surface_color = blend(surface_color, layer_color, layer_opac);
  	
  	layer_color = pink3;
  	layer_opac = disk(0.08, fuzz, s, t, point(0.27, 0.3, 0));
  	surface_color = blend(surface_color, layer_color, layer_opac);
  	
  	layer_color = pink5;
  	layer_opac = union(disk(0.11, fuzz*2, s, t, point(0.35, 0.7, 0)), ring(0.16, 0.25, fuzz*2, s, t, point(0.35, 0.7, 0)));
  	surface_color = blend(surface_color, layer_color, layer_opac*0.45);
  	
  	layer_color = pink1;
  	layer_opac = union(disk(0.22, fuzz, s, t, point(0.22, 0.23, 0)), disk(0.25, fuzz, s, t, point(0.77, 0.85, 0)));
  	layer_opac = union(layer_opac, disk(0.13, fuzz, s, t, point(0.75, 0.35, 0)));
  	surface_color = blend(surface_color, layer_color, layer_opac);
  	
  	layer_color = pink6;
  	layer_opac = union(disk(0.18, fuzz*2, s, t, point(0.4, 0.52, 0)), disk(0.16, fuzz, s, t, point(0.78, 0.65, 0)));
  	layer_opac = union(layer_opac*0.35, ring(0.21, 0.23, fuzz*2, s, t, point(0.22, 0.6, 0))*0.48);
  	layer_opac = union(layer_opac, ring(0.21, 0.22, fuzz*2, s, t, point(0.72, 0.4, 0))*0.48);
  	layer_opac = union(layer_opac, ring(0.12, 0.13, fuzz*2, s, t, point(0.73, 0.17, 0))*0.48);
  	layer_opac = union(layer_opac, ring(0.065, 0.08, fuzz*2, s, t, point(0.73, 0.17, 0))*0.48);
  	surface_color = blend(surface_color, layer_color, layer_opac);
  	
  	layer_color = pink7;
  	layer_opac = disk(0.12, fuzz, s, t, point(0.25, 0.3, 0));
  	surface_color = blend(surface_color, layer_color, layer_opac);
  	
  	layer_color = pink8;
  	layer_opac = union(ring(0.12, 0.13, fuzz, s, t, point(0.88, 0.46, 0))*0.68, ring(0.14, 0.147, fuzz*2, s, t, point(0.42, 0.84, 0))*0.48);
  	surface_color = blend(surface_color, layer_color, layer_opac);
  	
  	// output
  	
  	return surface_opac * surface_color;
}