/*
 *	quelques trucs bien utiles
 */

#include  "colors.inc"

/* --------------------------------------------------- */

#local T_Fleche = 2.5;
#declare Fleche = object
{
merge	{
	cylinder { <0, 0, 0>, <T_Fleche, 0, 0>, 0.04 }
	cone { <T_Fleche, 0, 0>, 0.12, <T_Fleche+0.35, 0, 0>, 0.00 }
	}
}

#declare Repere = object 
{
union	{
	object { Fleche pigment { color Red } }
	object { Fleche rotate  90*z pigment { color Green } }
	object { Fleche rotate -90*y pigment { color Blue } }
	}
}	

/* --------------------------------------------------- */

#declare Sol = object
{
plane	{ y, 0
	texture {
		pigment { checker 
		  color rgb <.5, .7, .5>
		  color rgb <.5, .1, .5> }
		finish { reflection 0.29 }
		}		
	}
}

/* --------------------------------------------------- */