+ my $set = LaTeX::TikZ::Set::Circle->new(
+ center => $c,
+ radius => $r,
+ );
+
+ my $factor = 1/32;
+
+ my $theta = (($b - $c) / ($a - $c))->arg;
+ my $points = int(abs($theta) / abs(Math::Trig::acos(0.95)));
+ $theta /= $points + 1;
+ my $rho = (1 / cos($theta)) / (1 - $factor);