(*
Erstellt die Feindminen - interessant dürfte sein, dass diese aus zwei Kugeln
zusammengesetzt sind, die allerdings über die Exponentenparameter in
Super-Ellipsoiden bzw. Hyperboloiden umgewandelt wurden. Einfach mal in Carad
ausprobieren.
*)
function MakeEnemy(RS: TRenderSettings): TBody;
var b: TBody;
begin
  result := TSphere.Create(0.2, 0,360, 0,180, 3,3, 20,10, false,false,false);
  result.SetFirstRS(RS);
  result.SetFirstMat(Green);
  result.Compile;
  result.SetPos(0,1.3,-2);
  result.SetTag(0);

  b := TSphere.Create(0.07, 0,360, 0,180, 0.5,0.5, 20,10, false,false,false);
  b.SetFirstRS(RS);
  b.SetFirstMat(Blue);
  b.Compile;
  result.AddChild(b);

  ShowObj(result);
end;