#declare hangar_neg = 
    difference {
	cone {
	    <0, 0, 0>, 900,
	    <0, 115, 0>, 900
	}
	cone {
	    <0, 0, 0>, 900-140,
	    <0, 115, 0>, 900-140
	}
    }

#declare triebwerk_neg = 
    difference {
	cone {
	    <0, 600, 0>, 900,
	    <0, 500, 0>, 900
	}
	cone {
	    <0, 600, 0>, 600,
	    <0, 500, 0>, 600
	}
    }

#declare entdecker = 
    union {
	difference {
	    sphere {
		<0, 0, 0>, 900
	    }
	    object {
		hangar_neg
		translate <0, 10, 0>
	    }
	    object {
		hangar_neg
		translate <0, -10-115, 0>
	    }
	    object {
		triebwerk_neg
	    }
	    object {
		triebwerk_neg
		scale <1, -1, 1>
	    }
	    texture { pigment { color Red } } 
	}
#if (0)
	intersection {
	    sphere {
		<0, 0, 0>, 901
	    }
	    union {
		cone {
		    <0, 500, 0>, 900,
		    <0, 600, 0>, 900
		}
		cone {
		    <0, -500, 0>, 900,
		    <0, -600, 0>, 900
		}
	    }
	    texture { pigment { color Yellow } } 
	}
#end
    }