(FILECREATED "18-Jan-85 15:40:49" {PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>TRI-PRETTY-ITEMTYPES.;4
 3609   

      changes to:  (VARS TRI-PRETTY-ITEMTYPESCOMS)
		   (FNS DUMP.PTYPE)

      previous date: "16-Jan-85 15:16:55" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>TRI-PRETTY-ITEMTYPES.;3)


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

(PRETTYCOMPRINT TRI-PRETTY-ITEMTYPESCOMS)

(RPAQQ TRI-PRETTY-ITEMTYPESCOMS
 ((FNS DUMP.ITEMTYPE DUMP.PTYPE)
				 (INITVARS (TRILLIUM.MAKE.ITEMTYPES.PRETTY T)
					   (TRILLIUM.MAKE.PTYPES.PRETTY T))))
(DEFINEQ

(DUMP.ITEMTYPE

  [LAMBDA (ITYPE)                                            (* N.H.Briggs "16-Jan-85 15:14")


          (* HPRINT of description replaced by PRINTDEF, with PRETTYPRINTYPEMACROS bound to cause BITMAPs to still be printed 

	  with HPRINT. This causes about a 4x increase in CPU time -- don't do this if you are excessively worried about 

	  speed!)



    (DECLARE
 (
GLOBALVARS
 TRILLIUM.ITEMTYPE.REPRESENTATION.VERSION TRILLIUM.MAKE.ITEMTYPES.PRETTY 
			 PRETTYPRINTYPEMACROS))
    (
PROG
 (DESCRIPTION)
          (
SETQ
 DESCRIPTION (ITEM.TYPE.DESCRIPTION ITYPE))
          (
COND

	    (DESCRIPTION (RESET.ITEM.TYPE.DESCRIPTION DESCRIPTION)
			 (
PRINT
 (
LIST
 (
QUOTE
 READ.ITEMTYPE)
				      ITYPE TRILLIUM.ITEMTYPE.REPRESENTATION.VERSION))
			 (IF
 (
AND
 (
BOUNDP
 (
QUOTE
 TRILLIUM.MAKE.ITEMTYPES.PRETTY))
				  TRILLIUM.MAKE.ITEMTYPES.PRETTY)
			     THEN
 (
RESETVAR
 PRETTYPRINTYPEMACROS (
CONS
 (
QUOTE
 (BITMAP . HPRINT))
								       PRETTYPRINTYPEMACROS)
				    (
PRINTDEF
 DESCRIPTION 0 T))
			   ELSE
 (
HPRINT
 DESCRIPTION NIL T))
			 T)
	    (T (printout
 T T ITYPE " unprintable as an ITEMTYPE")
                                                             (* VERSION 1: AS RECORD)

                                                             (* VERSION 2: WITH BITMAPS " 6-JUL-82")

                                                             (* VERSION 3: AS PROPERTY LIST " 7-APR-83")

                                                             (* VERSION 4: AS PROPERTY LIST WITH PARAMETERS AS 

							     PROPERTY LISTS "23-JUN-83")

                                                             (* VERSION 5: CONVERT THE GRID PTYPES: LEAVE THE OLD 

							     PTYPE IN THE GRID.TYPE PROPERTY)

	       ))
          (
RETURN
])

(DUMP.PTYPE

  [LAMBDA (PTYPE)                                            (* N.H.Briggs "18-Jan-85 15:34")

    (DECLARE
 (
GLOBALVARS
 TRILLIUM.PTYPE.REPRESENTATION.VERSION TRILLIUM.MAKE.PTYPES.PRETTY))
    (
PROG
 (DESCRIPTION)
          (
SETQ
 DESCRIPTION (PTYPE.DESCRIPTION PTYPE))
          (
COND

	    (DESCRIPTION (
PRINT
 (
LIST
 (
QUOTE
 READ.PTYPE)
				      PTYPE TRILLIUM.PTYPE.REPRESENTATION.VERSION))
			 (IF
 (
AND
 (
BOUNDP
 (
QUOTE
 TRILLIUM.MAKE.PTYPES.PRETTY))
				  TRILLIUM.MAKE.PTYPES.PRETTY)
			     THEN
 (
RESETVAR
 PRETTYPRINTYPEMACROS (
CONS
 (
QUOTE
 (BITMAP . HPRINT))
								       PRETTYPRINTYPEMACROS)
				    (
PRINTDEF
 DESCRIPTION 0 T))
			   ELSE
 (
HPRINT
 DESCRIPTION NIL T)))
	    (T (printout
 T T PTYPE " unprintable as a PTYPE")
                                                             (* VERSION 1: AS PROPERTY LIST "13-JUN-83 16:59:51")

	       ))
          (
RETURN
])
)

(RPAQ? TRILLIUM.MAKE.ITEMTYPES.PRETTY
 T)

(RPAQ? TRILLIUM.MAKE.PTYPES.PRETTY
 T)
(PUTPROPS TRI-PRETTY-ITEMTYPES COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (572 3429 (DUMP.ITEMTYPE 582 . 2448) (DUMP.PTYPE 2450 . 3427)))))
STOP