(FILECREATED "25-Aug-87 14:26:18" ("compiled on " {ERINYES}KOTO>PATCH-LARGEIPBITMAP.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 12-Jun-87 ..." dated "12-Jun-87 10:12:34") (FILECREATED "25-Aug-87 14:23:20" {ERINYES}KOTO>PATCH-LARGEIPBITMAP.;1 5638 changes to: ( VARS PATCH-LARGEIPBITMAPCOMS) (FNS SHOWBITMAP1.IP)) SHOWBITMAP1.IP D1 (P 6 XWORDS P 5 Y P 2 BMBASE P 1 SCRATCHBM P 0 TOTALBYTES I 12Q REGIONBOTTOM I 11Q XBYTES I 10Q HEIGHT I 7 ROTATION I 6 SCALEFACTOR I 5 YPIXELS I 4 XPIXELS I 3 FIRSTROW I 2 LEFT I 1 BITMAP I 0 IPSTREAM)  GEDlmk AGGjCEA@l!@lx!@l!@lj!@ @E @Dlm @k @k @k Gjnh dj@m @jCE @ YdlZ@GCEj Fdl@lZ @jCE @ )n@l @GCEj @ Go @F @ @l Hl @kl @Dlml EkGkMLSABjGjCEMIjdDkgg @IGlm O8OOjOlKMk]@l!@l!@l!@l!@l!@lk!h(466Q BKBITBLT 410Q APPENDINT.IP 373Q APPENDINT.IP 364Q APPENDSEQUENCEDESCRIPTOR.IP 352Q CONCAT.IP 346Q SCALE.IP 340Q ERROR 326Q CONCAT.IP 321Q TRANSLATE.IP 305Q ROTATE.IP 267Q CONCAT.IP 262Q TRANSLATE.IP 251Q ROTATE.IP 232Q TRANSLATE.IP 207Q CONCAT.IP 202Q TRANSLATE.IP 171Q ROTATE.IP 155Q IMOD 142Q APPENDINTEGER.IP 135Q APPENDINTEGER.IP 130Q APPENDINTEGER.IP 123Q APPENDNUMBER.IP 110Q APPENDNUMBER.IP 103Q TRANS.IP 16Q BITMAPCREATE) (523Q FDEV 516Q STREAM 474Q BITMAP 462Q REPLACE 457Q INPUT 44Q BITMAP 22Q BITMAP) ( 335Q "rotation by other than multiples of 90 degrees not implemented") (PRETTYCOMPRINT PATCH-LARGEIPBITMAPCOMS) (RPAQQ PATCH-LARGEIPBITMAPCOMS ((* * Fix problem of SHOWBITMAP1.IP in Koto placing the parts of a large bitmap in the wrong order) (FNS SHOWBITMAP1.IP))) (PUTPROPS PATCH-LARGEIPBITMAP COPYRIGHT ("Xerox Corporation" 1987)) NIL