(FILECREATED "21-Jan-87 09:49:28" {PHYLUM}<PAPERWORKS>SKETCHZOOMPATCH.;1
 2549   

      changes to:  (VARS SKETCHZOOMPATCHCOMS))


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT SKETCHZOOMPATCHCOMS)

(RPAQQ SKETCHZOOMPATCHCOMS
 ((* new versions of inside fns for some of the elements so that they 
				 will show in views even if they don't have any control pts in them.)
			      (FNS CIRCLE.INSIDEFN ELLIPSE.INSIDEFN KNOTS.INSIDEFN ARC.INSIDEFN)))



(* new versions of inside fns for some of the elements so that they will show in views even if
 they don't have any control pts in them.)


(DEFINEQ

(CIRCLE.INSIDEFN

  [LAMBDA (GCIRCLE WREG)                                     (* rrb "20-Jan-87 14:44")

                                                             (* determines if the global circle GCIRCLE is inside 

							     of WREG.)

    (
REGIONSINTERSECTP
 WREG (
CIRCLE.GLOBALREGIONFN
 GCIRCLE])

(ELLIPSE.INSIDEFN

  [LAMBDA (GELLIPSE WREG)                                    (* rrb "20-Jan-87 14:45")

                                                             (* determines if the global ellipse GELLIPSE is inside

							     of WREG.)

    (
REGIONSINTERSECTP
 WREG (
ELLIPSE.GLOBALREGIONFN
 GELLIPSE])

(KNOTS.INSIDEFN

  [LAMBDA (KNOTELT WREG)                                     (* rrb "21-Jan-87 09:37")

                                                             (* determines if the global curve GCURVE is inside of 

							     WREG.)

                                                             (* this should be broken down between wires and curves

							     but isn't here so it can be loaded as a patch.)

    (
SELECTQ
 (fetch
 (GLOBALPART GTYPE) of
 KNOTELT)
	       (WIRE (
REGIONSINTERSECTP
 WREG (
OPENWIRE.GLOBALREGIONFN
 KNOTELT)))
	       (CLOSEDWIRE (
REGIONSINTERSECTP
 WREG (
CLOSEDWIRE.GLOBALREGIONFN
 KNOTELT)))
	       (CLOSEDCURVE (
REGIONSINTERSECTP
 WREG (
CLOSEDCURVE.GLOBALREGIONFN
 KNOTELT)))
	       (
REGIONSINTERSECTP
 WREG (
OPENCURVE.GLOBALREGIONFN
 KNOTELT])

(ARC.INSIDEFN

  [LAMBDA (GARC WREG)                                        (* rrb "20-Jan-87 14:44")

                                                             (* determines if the global arc GARC is inside of 

							     WREG.)

    (
REGIONSINTERSECTP
 WREG (
ARC.GLOBALREGIONFN
 GARC])
)
(PUTPROPS SKETCHZOOMPATCH COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (641 2463 (CIRCLE.INSIDEFN 651 . 976) (ELLIPSE.INSIDEFN 978 . 1307) (KNOTS.INSIDEFN 1309
 . 2149) (ARC.INSIDEFN 2151 . 2461)))))
STOP