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


(FILECREATED " 4-Apr-2024 18:50:50" |{DSK}<home>frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;2|
 1814   

      :PREVIOUS-DATE "22-Jan-88 15:45:26" |{DSK}<home>frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;1|
)


(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)
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (1001 1609 (READFONT 1011 . 1427) (READ.FONTINTODESCRIPTOR 1429 . 1607)))))
STOP