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

(filecreated "22-Jan-88 15:45:26" {indigo}<gslws>lyric>library>plotandnc-patch.\;1
 1853   

      |changes| |to:|  (vars plotandnc-patchcoms)
                       (fns read.fontintodescriptor))


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(prettycomprint plotandnc-patchcoms)

(rpaqq plotandnc-patchcoms
 (
          
          (* |;;| "define font read fns used by plot and notecards so system can read either kind")


                            (fns readfont read.fontintodescriptor)
                            (p 
          
          (* |;;| "make sure these read fns are registered to avoid messages when reading")


                               (pushnew hprintreadfns 'readfont)
                               (pushnew hprintreadfns 'read.fontintodescriptor))))



(* |;;| "define font read fns used by plot and notecards so system can read either kind")


(defineq

(readfont

  (lambda (stream)
                                           (* |jop:| "27-Aug-85 13:34")

    (prog ((proplist (read stream)))
          (return (fontcreate (listget proplist 'family)
                         (listget proplist 'size)
                         (listget proplist 'face)
                         (listget proplist 'rotation)
                         (listget proplist 'device))))))

(read.fontintodescriptor

  (lambda (stream)
                                           (* \; "Edited 22-Jan-88 15:36 by thh:")


    (apply 'fontcreate (read stream))))
)
          
          (* |;;| "make sure these read fns are registered to avoid messages when reading")


(pushnew hprintreadfns 'readfont)
(pushnew hprintreadfns 'read.fontintodescriptor)
(putprops plotandnc-patch copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
  (filemap (nil (967 1575 (readfont 977 . 1393) (read.fontintodescriptor 1395 . 1573)))))
stop