#
# Author: Pierre Hjälm (from C++ original by Julian Smart)
#
-# Created: 20040508
-# RCS-ID:
+# Created: 2004-05-08
+# RCS-ID: $Id$
# Copyright: (c) 2004 Pierre Hjälm - 1998 Julian Smart
# Licence: wxWindows license
#----------------------------------------------------------------------------
E = (A + B)
F = (C - (2 * A * x1) - (2 * B * x2))
G = ((A * x1 * x1) + (B * x2 * x2) - (C * x2) + D - 1)
- H = ((y3 - y2) / (x32 - x2))
+ H = ((y3 - y2) / (x2 - x2))
K = ((F * F) - (4 * E * G))
if K >= 0: