#local R = 1750/2 * M;
#local R1 = 50 * M;
#local L = 3000 * M;
#local W = 500;

#debug concat("M = ", str(M, 0, 0), "\n")

#ifdef (muelltonne)
    #declare mittelteil = 
	union {
	    lathe {
		bezier_spline
		12
		<0,   -30*L/60>
		<R/7, -29*L/60>
		<R,   -23*L/60>
		<R,   -21*L/60>

		<R,   -21*L/60>
		<R,   -10*L/60>
		<R,   +10*L/60>
		<R,   +21*L/60>

		<R,   +21*L/60>
		<R,   +23*L/60>
		<R/7, +29*L/60>
		<0,   +30*L/60>
		texture { pigment { color <0.3, 0.3, 0.3> } }
	    }
	    torus {
		R, R1
		texture { pigment { color <0.6, 0.6, 0.6> } }
		translate <0, L/3, 0>
	    }
	    torus {
		R, R1
		texture { pigment { color <0.6, 0.6, 0.6> } }
		translate <0, 0, 0>
	    }
	    torus {
		R, R1
		texture { pigment { color <0.6, 0.6, 0.6> } }
		translate <0, -L/3, 0>
	    }
	}
#end

#declare mittelteil = 
    union {
	lathe {
	    bezier_spline
	    12
	    <0,       -30*L/60>
	    <16*R/35, -25*L/60>
	    <R,       -15*L/60>
	    <R,       - 5*L/60>

	    <R,       -5*L/60>
	    <R,   -2*L/60>
	    <R,   +2*L/60>
	    <R,   +5*L/60>

	    <R,       + 5*L/60>
	    <R,       +15*L/60>
	    <16*R/35, +25*L/60>
	    <0,       +30*L/60>

	    texture { pigment { color <0.3, 0.3, 0.3> } }
	}
	torus {
	    22*R/35, R1
	    texture { pigment { color <0.6, 0.6, 0.6> } }
	    translate <0, L/3, 0>
	}
	torus {
	    R, R1
	    texture { pigment { color <0.6, 0.6, 0.6> } }
	    translate <0, 0, 0>
	}
	#if (1)
	torus {
	    45*R/70, R1
	    texture { pigment { color <0.6, 0.6, 0.6> } }
	    translate <0, -L/3, 0>
	}
	#end
	rotate <0, 0, 90>
    }