(FILECREATED "31-Aug-87 15:40:36" {QV}<NOTECARDS>1.3KNEXT>KOTOSKETCHPATCHES.;3
 5012   

      changes to:  (FNS SKETCH.REGION.VIEWED)

      previous date: "14-Jul-87 21:00:54" {QV}<NOTECARDS>1.3KNEXT>KOTOSKETCHPATCHES.;2)


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

(PRETTYCOMPRINT KOTOSKETCHPATCHESCOMS)

(RPAQQ KOTOSKETCHPATCHESCOMS
 ((DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILE
					  (FILES (FROM {CF}<PAPERWORKS>)
						 SKETCHWHENCOPIEDPATCH
						 (LOADFROM FROM {CF}<PAPERWORKS>)
						 SKETCH SKETCHOBJ))
				(FNS MAKE.IMAGE.OBJECT.OF.SKETCH SKETCH.VIEWER.GRID 
				     SKETCH.VIEWER.SCALE SKETCH.REGION.VIEWED)))
(DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILE 
(FILESLOAD (FROM {CF}<PAPERWORKS>)
	   SKETCHWHENCOPIEDPATCH
	   (LOADFROM FROM {CF}<PAPERWORKS>)
	   SKETCH SKETCHOBJ)
)
(DEFINEQ

(MAKE.IMAGE.OBJECT.OF.SKETCH

  [LAMBDA (
SKETCH
 REGION SCALE GRIDSIZE)                   (* rrb "21-Apr-87 11:18")


          (* Returns a sketch image object. REGION is the region in sketch coordinates that the image object will show.

	  SCALE is the scale at which it will be shown. GRIDSIZE is the grid size of the sketch. If SKETCH is a viewer, any 

	  of the other arguments that are NIL will be filled in from the values in the viewer. If SKETCH is a sketch, REGION 

	  defaults to the extent of the sketch, SCALE defaults to 1.0 and GRIDSIZE defaults to 8.0.)



    (
SKETCH.IMAGEOBJ
 (
INSURE.SKETCH
 SKETCH)
		       (
COND

			 ((
REGIONP
 REGION))
			 (REGION (
ERROR
 REGION " illegal argument."))
			 (T (SKETCH.REGION.VIEWED
 SKETCH)))
		       (
COND

			 ((
NUMBERP
 SCALE))
			 ((
WINDOWP
 SKETCH)
			   (
VIEWER.SCALE
 SKETCH))
			 (T 1.0))
		       (
COND

			 ((
NUMBERP
 GRIDSIZE))
			 ((
WINDOWP
 SKETCH)
			   (
SK.GRIDFACTOR
 SKETCH))
			 (T 8.0])

(SKETCH.VIEWER.GRID

  [LAMBDA (VIEWER NEWGRID)                                   (* rrb "21-Apr-87 12:27")

                                                             (* returns and optionally sets the grid size of a 

							     sketch. VIEWER can be a viewer or a sketch image 

							     object.)

    (
COND

      [(
IMAGEOBJP
 VIEWER)                                  (* it is a sketch image object)

	(
PROG
 [(SKINFO (
LISTP
 (
IMAGEOBJPROP
 VIEWER (
QUOTE
 OBJECTDATUM]
	        (
COND

		  [(type?
 SKETCH (fetch
 (SKETCHIMAGEOBJ SKIO.SKETCH) of
 SKINFO))
		    (
RETURN
 (
PROG1
 (fetch
 (SKETCHIMAGEOBJ SKIO.GRID) of
 SKINFO)
				       (
COND

					 (NEWGRID (
COND

						    ((
NUMBERP
 NEWGRID)
						      (replace
 (SKETCHIMAGEOBJ SKIO.GRID)
							 of
 SKINFO with
 NEWGRID))
						    (T (
\ILLEGAL.ARG
 NEWGRID]
		  (T (
ERROR
 "not a sketch image object" VIEWER]
      ((
WINDOWP
 VIEWER)
	(
SK.GRIDFACTOR
 VIEWER NEWGRID))
      (T (
\ILLEGAL.ARG
 VIEWER])

(SKETCH.VIEWER.SCALE

  [LAMBDA (VIEWER NEWSCALE)                                  (* rrb "21-Apr-87 12:25")

                                                             (* returns and optionally sets the scale of a viewer.)

    (
COND

      [(
IMAGEOBJP
 VIEWER)                                  (* it is a sketch image object)

	(
PROG
 [(SKINFO (
LISTP
 (
IMAGEOBJPROP
 VIEWER (
QUOTE
 OBJECTDATUM]
	        (
COND

		  [(type?
 SKETCH (fetch
 (SKETCHIMAGEOBJ SKIO.SKETCH) of
 SKINFO))
		    (
RETURN
 (
PROG1
 (fetch
 (SKETCHIMAGEOBJ SKIO.SCALE) of
 SKINFO)
				       (
COND

					 (NEWSCALE (
COND

						     ((
SK.INSURE.SCALE
 NEWSCALE)
						       (replace
 (SKETCHIMAGEOBJ SKIO.SCALE)
							  of
 SKINFO with
 NEWSCALE))
						     (T (
\ILLEGAL.ARG
 NEWSCALE]
		  (T (
ERROR
 "not a sketch image object" VIEWER]
      [(
WINDOWP
 VIEWER)
	(
PROG1
 (
WINDOWPROP
 VIEWER (
QUOTE
 SCALE))
		 (
COND

		   (NEWSCALE (
COND

			       ((
SK.INSURE.SCALE
 NEWSCALE)
				 (
WINDOWPROP
 VIEWER (
QUOTE
 SCALE)
					       NEWSCALE)
				 (
SK.UPDATE.AFTER.SCALE.CHANGE
 VIEWER]
      (T (
\ILLEGAL.ARG
 VIEWER])

(SKETCH.REGION.VIEWED

  [LAMBDA (SKETCHW NEWREGION)                                (* rrb "25-Nov-85 17:57")

                                                             (* returns the region in sketch coordinates of the 

							     area visible in SKETCHW.)

    (
PROG1
 (
WINDOWPROP
 SKETCHW (
QUOTE
 REGION.VIEWED))
	     (
COND

	       (NEWREGION (
PROG
 (NEWVIEW)
			          (
RETURN
 (
COND

					      ((
REGIONP
 NEWREGION)
						(
SKETCH.GLOBAL.REGION.ZOOM
 SKETCHW NEWREGION))
					      ((
EQ
 NEWREGION (
QUOTE
 HOME))
						(
SKETCH.HOME
 SKETCHW))
					      ((
SETQ
 NEWVIEW (
SKETCH.VIEW.FROM.NAME
 NEWREGION 
											SKETCHW))
						(
SK.MOVE.TO.VIEW
 SKETCHW NEWVIEW))
					      (T (
\ILLEGAL.ARG
 NEWREGION])
)
(PUTPROPS KOTOSKETCHPATCHES COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (830 4924 (MAKE.IMAGE.OBJECT.OF.SKETCH 840 . 1867) (SKETCH.VIEWER.GRID 1869 . 2930) (
SKETCH.VIEWER.SCALE 2932 . 4137) (SKETCH.REGION.VIEWED 4139 . 4922)))))
STOP