(FILECREATED "25-Aug-86 20:19:35" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH097.;1
 3164   

      changes to:  (VARS FGHPATCH097COMS)
		   (FNS NC.PutSketchSubstance NC.PutCachedMap))


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

(PRETTYCOMPRINT FGHPATCH097COMS)

(RPAQQ FGHPATCH097COMS
 ((* * Fixes to remove SCREENELT references in Sketch Cards)
			  (* * Take out the LOADCOMP of SKETCH from inside NCSKETCHCARDCOMS)
			  (FNS NC.PutSketchSubstance NC.PutCachedMap)))
(* * Fixes to remove SCREENELT references in Sketch Cards)


(* * Take out the LOADCOMP of SKETCH from inside NCSKETCHCARDCOMS)


(DEFINEQ

(NC.PutSketchSubstance

  (LAMBDA (Card Stream)                                      (* fgh: "25-Aug-86 20:17")


          (* Put the sketch substance for card ID to the database. Store the global sketch descriptor, the scale and region 

	  viewed for ID and any cached bit maps.)




          (* * fgh 11/14/85 Updated to handle Card object.)




          (* * fgh 11/20/85 NoteCards now takes care of setting the start and end pointers for the substance.)




          (* * rht 1/23/86: Now takes Stream as arg instead of computing from Card.)




          (* * fgh 2/6/86 Now returns version number.)




          (* * fgh&rht 8/25/86 Changed call to NC.PutCachedMap to remove use of SCREENELT record.)



    (LET ((Substance (
NC.FetchSubstance
 Card))
	  (Window (
NC.FetchWindow
 Card)))
         (
HPRINT
 Substance Stream NIL T)
         (
PRINT
 (
OR
 (
AND
 Window (
SCALE.FROM.SKW
 Window))
			(
NC.FetchScale
 Card))
		  Stream)
         (
PRINT
 (
OR
 (
AND
 Window (
SK.REGION.VIEWED
 Window))
			(
NC.FetchRegionViewed
 Card))
		  Stream)
         (
AND
 Window (FOR
 Element in
 (
SKETCH.LIST.OF.ELEMENTS
 (
INSURE.SKETCH
 Substance)
								      (
FUNCTION
 (LAMBDA (Element)
									  (
EQ
 (


									     
GETSKETCHELEMENTPROP

										  Element
										  (
QUOTE
 TYPE))
										(
QUOTE
 MAP))))
								      T)
			  DO
 (NC.PutCachedMap
 Element Window Stream)))
         (
PRINT
 (
QUOTE
 %###ENDSKETCH###)
		  Stream)
     0)))

(NC.PutCachedMap

  (LAMBDA (SketchMapElement SketchWindow Stream)             (* fgh: "25-Aug-86 20:16")

                                                             (* Put a cached bit map corresponding to MapScreenElt 

							     onto database file)


          (* * 8/25/86 fgh&rht Removed use of SCREENELT record and replaced with call to CacheSpecsFromMapSketchElement which

	  is defined in the MAP package.)



    (LET (CacheSpecs BitMap)
         (
AND
 (
LISTP
 (
SETQ
 CacheSpecs (
CacheSpecsFromMapSketchElement
 SketchMapElement 
									      SketchWindow)))
		(for
 CacheSpec in
 CacheSpecs
		   do
 (
BITMAPP
 (
SETQ
 BitMap (
APPLY
 (
FUNCTION
 FetchCachedBitMap)
							   CacheSpec)))
			(
PRINT
 (
QUOTE
 %###CACHEDMAP###)
				 Stream)
			(
PRINT
 CacheSpec Stream)
			(
HPRINT
 BitMap Stream T T))))))
)
(PUTPROPS FGHPATCH097 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (632 3082 (NC.PutSketchSubstance 642 . 2199) (NC.PutCachedMap 2201 . 3080)))))
STOP