#local R1  = 2.00;  // radius of the body outside Radius
#local R2  = 1.25;  // radius nose top y          Radius_Nose_TopY
#local R3  = 4.00;  // length nose                Length_Nose
#local R4  = 2.50;  // length forehead part       Length_Forehead
#local R5  = 9.50;  // length of tail part        Length_Tail
//-------------------------------------------------------------------

//--------------------------------------------------------------------
#macro Body(Radius, Radius_Nose_TopY, Length_Nose, Length_Forehead,
            Length_Tail)
union{
intersection{                                 //  nose lower part (1)
 sphere { <0,0,0>,1  scale <Length_Nose, Radius, Radius>}
 box    { <0,-1,-1>,<1,0,1> scale <Length_Nose, Radius, Radius>}
 }// -------------- end of intersection

intersection{                             // nose - forehead part (2)
 sphere { <0,0,0>,1  scale < Length_Forehead, Radius, Radius>}
 box    { <0,0,-1>,<1,1,1>  scale < Length_Forehead, Radius, Radius>}

 }// -------------- end of intersection
intersection{                            // nose front upper part (3)
 sphere { <0,0,0>,1  scale <Length_Nose, Radius_Nose_TopY, Radius>}
 box    { <0,0,-1>,<1,1,1> scale <Length_Nose, Radius, Radius>}
 }// -------------- end of intersection

intersection {                        // the tail of the airplane (4)
 sphere { <0,0,0>,1    scale < Length_Tail, Radius, Radius> }
 box    { <-1,-1,-1>,<0,1,1> scale < Length_Tail, Radius, Radius>}
 }// -------------- end of intersection
}// end of union
#end // ---------------------------------- end of macro "Body( ... )"