Uz umime pocitat i pruseciky s degenerovanymi parabolami.

diff --git a/fortune.pl b/fortune.pl
index 46bf34cd2bbe9e21c026d4a003e5bde45049a67a..df9f28dc517a2744f2fc0715e4653e8a59001b42 100755 (executable)
--- a/fortune.pl
+++ b/fortune.pl
@@ -73,6 +73,13 @@ sub para_isec($$$$$$) {
        my ($a, $b, $c, $d, $e, $f) = @_;
        if (!defined($a) || !defined($b)) {
                # Either is degenerate
+               if (defined($a)) {
+                       my $y = $a*sqr($e-$b) + $c;
+                       if ($y < $f) { return [$e, $y]; } else { return; }
+               } elsif (defined($d)) {
+                       my $y = $d*sqr($b-$e) + $f;
+                       if ($y < $c) { return [$b, $y]; } else { return; }
+               }
                return;
        }
        # Coefficients of the corresponding quadratic equation