
#include "T_BlackMetal.pov"

#declare Hypertrop_Projektor_Aussen =
    sor {
	4,
	<21, -8>
	<13,  0>
	<04, 20>
	<03, 35>
    }

#declare Hypertrop_1 = 
union {
    sphere {
	<0, 74, 0>, 16
    }
    sor {
    	4,
	<10, 40>
	<10, 42>
	<14, 66>
	<19, 75>
    }
    torus {
    	10, 8
	scale <1, 7/8, 1>
	translate <0, 35, 0>
    }
    torus {
    	4, 6
	scale <1, 8/6, 1>
	translate <0, 28, 0>
    }
}

#declare Hypertrop_Neg =
union {
    object {
	Hypertrop_1
    }
    object {
	Hypertrop_Projektor_Aussen
    }
}

#declare Hypertrop =
union {
    object {
	Hypertrop_1
    }
    difference {
        object {
	    Hypertrop_Projektor_Aussen
	}
	sor {
	    4,
	    <21, -7>
	    <12.9,  -0.01>
	    <03, 20>
	    <02, 40>
	    texture { T_BlackMetal }
	}
    }
    sphere {
	<0, 0, 0>, 1
	scale <3, 23, 3>
	translate <0, 20, 0>
	texture { T_BlackMetal }
    }
    texture { pigment { color White } }
}

