/*
 *   nouveau projet Thu Dec  5 11:37:05 AM UTC 2024
 */

#declare HexaCone_shape = object
{
#local RA = 0.125;
#local RB = 0.001;
union	{
	cone { 0, RA, <-1,  0,  0>, RB }
	cone { 0, RA, < 1,  0,  0>, RB }
	cone { 0, RA, < 0,  0,  1>, RB }
	cone { 0, RA, < 0,  0, -1>, RB }
	cone { 0, RA, < 0,  1,  0>, RB }
	cone { 0, RA, < 0, -1,  0>, RB }
	}
}

#declare HexaCone_body = object
{
union	{
	difference {
		object { HexaCone_shape }
		object { HexaCone_shape scale 0.99 }
		sphere {0, 0.24 }
		cylinder { <-1, 0, 0.55>, <1, 0, 0.55>,
					RA*0.40 }
		}
	difference {
		sphere {0, 0.20 }
		sphere {0, 0.18 }
		cylinder {-x, x, 0.10 }
		cylinder {-y, y, 0.10 }
		cylinder {-z, z, 0.10 }
		}
	light_source { 0, rgb <0.99, 0.05, 0.05> }
	}
texture { New_Penny }
}

/*
 *
 */
#declare HexaCone_radar = object
{
union	{
#for (foo, 0, 360, 60)
	#local RR = 0.16;
	#local PX = RR * sin(radians(foo));
	#local PZ = RR * cos(radians(foo));
	sphere { 0, 0.008
		scale <1, 1.37, 1>
		translate <PX, 0, PZ>
		}
	cylinder { -0.11*y, <PX, 0, PZ>, 0.003 }
#end
	}
texture { PinkAlabaster scale 8 }
}

#declare HexaCone_head = object
{
#local DTa = 0.278;
#local DTb = 0.030;

merge	{
	difference {
		torus { DTa, DTb }
		#local TB = 0.50;
		box { <-TB, -TB, TB>, <TB, TB, 0> }
		}
	sphere { 0, DTb*1.55 translate -DTa*x }
	sphere { 0, DTb*1.55 translate  DTa*x }
	}
texture { Orange_Glass }
}

#declare HexaCone = object
{
union	{
	object { HexaCone_body }
	#local T = 0.55;
	object { HexaCone_head  translate <0, 0, T+DTa> }
	object { HexaCone_radar translate <0, T+0.07, 0> }
	}
rotate <-7, 0, -9>
}