(*
Erstellt das Spielerschiff - einfach ein wenig herumexperimentieren, oder die
entsprechenden Primitive in Carad interaktive kennenlernen.
*)
function MakeShip: TBody;
var b: TBody;
begin
  // Raketenkörper
  result := TCone.Create(0.05,0.05,0.15, 0,360, 1, 10,1, false,false,true);
  result.SetFirstRS(DefaultRS);
  result.SetFirstMat(Red);
  result.Compile;

  // Rakentenspitze
  b := TCone.Create(0.05,0.0,0.05, 0,360, 1, 10,1, false,false,false);
  b.SetPos(0,0,0.15);
  result.AddChild(b);

  // Flügel
  b := TNGon.Create(3, 90,360, 0.10,0.15, false);
  b.SetFirstRS(DefaultRS);
  b.SetFirstMat(Yellow);
  b.Compile;
  b.SetPos(0,0,0);
  b.SetCoordAngle(-90,0,0);
  result.AddChild(b);
end;