my $el = Ellipse->new(x => $x, y => $y);
my $kr = Kreis->new(r => $r);