anchor.diff:           (- (/ (+ (* DX1 (- Y1 Y2)) (* DY1 X2) (- (* DY1 X1))) quot)))) )) )
   
   (defun geraden-gleichung (x0 y0 x1 y1 px py)
  -  (- (* (- py y0) (- x1 x0)) (* (- px x0) (- y1 y0))))
  +  ;; ??? This somehow tries to calculate the distance between a point
  +  ;; and a line. The sign of the result depends upon the side the point
  +  ;; is on wrt to the line. --GB
  +  (- (* (- py y0) (- x1 x0))
  +     (* (- px x0) (- y1 y0))))
   
   (defun position->geraden-fktn-parameter (x0 y0 x1 y1 px py)
     (let ((dx (- x1 x0)) (dy (- y1 y0)))
  
positive.code:                                 ((add (lo lu ro ru)
                                     (dolist (s sps
                                               ;; ansonsten
                                               (push (make-pg-splitter :links (list lu lo) 
                                                                       :rechts (list ru ro))
                                                     sps) )
                                       (when (and (region-equal lo (car (pg-splitter-links s)))
  
negative.code: 
  ;;;  When        Who    What
  ;;; --------------------------------------------------------------------------------------
  ;;;  2001-03-09  AR     fixed a bug in MAKE-ELLIPICAL-THING
  ;;;                     fixed STANDARD-ELLIPTICAL-ARC defclass
  ;;;  2001-03-06  AR     fixed bug in (REGION-EQUAL STANDARD-RECTANGLE STANDARD-RECTANGLE)
  ;;;                     REGION is now a subclass of DESIGN.
  ;;;  2001-01-21  GB     fixed bug in (TRANSFORM-REGION T RECTANGLE-SET)
  ;;;                     added some documentation
  ;;;  2001-07-09  GB     maybe fixed a bug in MAP-OVER-SCHNITT-GERADE/POLYGON.
  
  ;;; ---- TODO ----------------------------------------------------------------------------
  
  