(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "15-Jun-90 17:09:55" 
|{DSK}<usr>local>lde>lispcore>internal>library>LARGESKETCHPATCH.;2|
 3370   

      |changes| |to:|  (VARS LARGESKETCHPATCHCOMS)

      |previous| |date:| "27-Feb-87 18:22:14" 
|{DSK}<usr>local>lde>lispcore>internal>library>LARGESKETCHPATCH.;1|)


; Copyright (c) 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT LARGESKETCHPATCHCOMS)

(RPAQQ LARGESKETCHPATCHCOMS
 ((FNS SKIO.IMAGEBOXFN \\SKIO.IN.TOO.SMALL.TEDITP)))
(DEFINEQ

(SKIO.IMAGEBOXFN

  (LAMBDA (IMAGEOBJ STREAM)
                                  (* \; "Edited 27-Feb-87 18:04 by rrb")

                                                             (* |size| |function| |for| \a |sketch| 

                                                             |image| |object.|)

    (PROG ((SKOBJ (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM))
           SKREG SKW SKH SCALEFACTOR)
          
          (* |determine| |the| |scale| |between| |the| |sketch| |specs| |and| |the| 

          |stream.|)


          (SETQ SCALEFACTOR (QUOTIENT (|fetch|
 (SKETCHIMAGEOBJ SKIO.SCALE) |of|
 SKOBJ)
                                   (DSPSCALE NIL STREAM)))
          (SETQ SKW (FIXR (FQUOTIENT (|fetch|
 (REGION WIDTH) |of|
 (SETQ SKREG (|fetch|
 (
                                                                                       SKETCHIMAGEOBJ
                                                                                        SKIO.REGION)
                                                                                 |of|
 SKOBJ)))
                                 SCALEFACTOR)))
          (SETQ SKH (FIXR (FQUOTIENT (|fetch|
 (REGION HEIGHT) |of|
 SKREG)
                                 SCALEFACTOR)))
          (RETURN (COND
                     ((\\SKIO.IN.TOO.SMALL.TEDITP
 STREAM SKH)
          
          (* |special| |check| |for| |displaying| |in| \a |Tedit| |window| |that| |is| 

          |less| |than| |the| |height| |of| |the| |sketch.|

          |leave| |enough| |height| |for| \a |few| |lines| |of| |text| |too.|)


                      (|create|
 IMAGEBOX
                             XSIZE _ SKW
                             YSIZE _ (IMAX 12 (DIFFERENCE (|fetch|
 (REGION HEIGHT)
                                                             |of|
 (DSPCLIPPINGREGION NIL STREAM))
                                                     24))
                             YDESC _ 0
                             XKERN _ 0))
                     (T (|create|
 IMAGEBOX
                               XSIZE _ SKW
                               YSIZE _ SKH
                               YDESC _ 0
                               XKERN _ 0)))))))

(\\SKIO.IN.TOO.SMALL.TEDITP

  (LAMBDA (STREAM HEIGHT)
                                    (* \; "Edited 27-Feb-87 18:19 by rrb")

          
          (* |is| |this| |stream| \a TEDIT |window| |that| |is| |smaller| |than| 

          |height?|)


    (AND (DISPLAYSTREAMP STREAM)
         (WINDOWPROP (WFROMDS STREAM)
                'TEXTOBJ)
         (GREATERP HEIGHT (|fetch|
 (REGION HEIGHT) |of|
 (DSPCLIPPINGREGION NIL STREAM))))))
)
(PUTPROPS LARGESKETCHPATCH COPYRIGHT ("Venue & Xerox Corporation" 1987 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (548 3269 (SKIO.IMAGEBOXFN 558 . 2806) (\\SKIO.IN.TOO.SMALL.TEDITP 2808 . 3267)))))
STOP