(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED " 4-Nov-88 17:37:49" {QV}<NOTECARDS>1.3M>MAPS>PROPORTION.;1
 2280   

      previous date%: "19-Dec-87 16:57:36" {QV}<NOTECARDS>1.3L>MAPS>PROPORTION.;5)


(* "
Copyright (c) 1985, 1987, 1988 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT PROPORTIONCOMS)

(RPAQQ PROPORTIONCOMS
 ((FNS GETPROPORTIONEDREGION PROPORTIONPOINT)))
(DEFINEQ

(GETPROPORTIONEDREGION

  [LAMBDA (XOVERYRATIO W)
                                    (* edited%: "13-Mar-85 17:59")

    (COND
       [W (GETWREGION W (FUNCTION PROPORTIONPOINT)
                 (CONS XOVERYRATIO (PLUS 1.0 (EXPT XOVERYRATIO 2.0]
       (T (GETREGION NIL NIL NIL (FUNCTION PROPORTIONPOINT)
                 (CONS XOVERYRATIO (PLUS 1.0 (EXPT XOVERYRATIO 2.0])

(PROPORTIONPOINT

  [LAMBDA (FIXEDPOINT MOVINGPOINT XOVERYRATIO.DENOMINATOR)
   (* edited%: "13-Mar-85 17:58")

    (COND
       [MOVINGPOINT (PROG ((DELTA.X (DIFFERENCE (CAR MOVINGPOINT)
                                           (CAR FIXEDPOINT)))
                           (DELTA.Y (DIFFERENCE (CDR MOVINGPOINT)
                                           (CDR FIXEDPOINT)))
                           Y)
                          [SETQ Y (FIX (SQRT (FQUOTIENT (PLUS (EXPT DELTA.X 2)
                                                              (EXPT DELTA.Y 2))
                                                    (CDR XOVERYRATIO.DENOMINATOR]
                          (RETURN (CONS (IPLUS [COND
                                                  ((MINUSP DELTA.X)
                                                   (TIMES -1 Y (CAR XOVERYRATIO.DENOMINATOR)))
                                                  (T (TIMES Y (CAR XOVERYRATIO.DENOMINATOR]
                                               (CAR FIXEDPOINT))
                                        (IPLUS (COND
                                                  ((MINUSP DELTA.Y)
                                                   (MINUS Y))
                                                  (T Y))
                                               (CDR FIXEDPOINT]
       (FIXEDPOINT])
)
(PUTPROPS PROPORTION COPYRIGHT ("Xerox Corporation" 1985 1987 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (435 2188 (GETPROPORTIONEDREGION 445 . 829) (PROPORTIONPOINT 831 . 2186)))))
STOP