(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jul-2022 15:09:26" ("compiled on " {DSK}kaplan>Local>medley3.5>working-medley>library>HRULE.;4) "25-Jul-2022 11:12:13" brecompiled exprs%: nothing in "FULL 25-Jul-2022 ..." dated "25-Jul-2022 11:12:20") (FILECREATED "25-Jul-2022 15:09:26" {DSK}kaplan>Local>medley3.5>working-medley>library>HRULE.;4 23801 :CHANGES-TO (VARS HRULECOMS) :PREVIOUS-DATE "25-Jul-2022 15:07:00" {DSK}kaplan>Local>medley3.5>working-medley>library>HRULE.;3) HRULE.CREATE :D8 (P 0 HRULE I 0 WIDTH F 1 HRULE.IMAGEFNS F 2 HRULE.DEFAULT.WIDTH F 3 TEXTOBJ) WhQ @HgR Hd3Hg@ H@d3ihSo@ i h(83 TEDIT.PROMPTPRINT 77 CONCAT 43 IMAGEOBJPROP 24 IMAGEOBJPROP 6 IMAGEOBJCREATE) (37 RULE.WIDTH 18 RULE.WIDTH) ( 71 "Non-numeric widths not desirable: ") HRULE.DISPLAYFN :D8 (P 8 THICKNESS P 6 RULING P 5 Y P 4 X P 3 SCALE P 2 WIDTHS P 0 RULEWIDTH I 1 IMAGE.STREAM I 0 HRULE F 9 WIDTH) @g Hd hA hA hA JhJ kjhJOdO_hO_O_KO kIIkcNaA g+hjdALM@g Wggn )LMWL@g MWWgA MWԽNhg(220 DRAWLINE 199 IMAGEOBJPROP 179 BKBITBLT 157 IMAGEOBJPROP 132 IMAGESTREAMTYPE 112 FIXR 67 FLENGTH 52 DSPYPOSITION 42 DSPXPOSITION 32 DSPSCALE 22 REVERSE 10 IMAGEOBJPROP) (213 PAINT 194 BOUNDBOX 170 PAINT 165 TEXTURE 152 BOUNDBOX 137 DISPLAY 5 RULE.WIDTH) () HRULE.GETFN :D8 (I 1 TEXTSTREAM I 0 INPUT.STREAM) @ (10 HRULE.CREATE 5 READ) NIL () HRULE.IMAGEBOXFN :D8 (P 5 THICKNESS P 1 WIDTHS P 0 SCALE I 3 RIGHT.MARGIN I 2 CURRENT.X I 1 IMAGE.STREAM I 0 HRULE) RhA @g CBdjjIjK LjdhKhKKLHM kJJkԼ(68 FIXR 17 IMAGEOBJPROP 6 DSPSCALE) (12 RULE.WIDTH) () HRULE.PUTFN :D8 (I 1 OUTPUT.STREAM I 0 HRULE) @g A (16 PRINT 10 IMAGEOBJPROP) (5 RULE.WIDTH) () HRULE.COPYFN :D8 (I 2 TOSTREAM I 1 FROMSTREAM I 0 IMAGEOBJ) @g B (16 HRULE.CREATE 10 IMAGEOBJPROP) (5 RULE.WIDTH) () HRULE.WHENOPERATEDONFN :D8 (L (3 C 2 C 1 B 0 A)) gNIL (4 DUMMY) () VRULE.CREATE :D8 (P 0 VRULE I 2 DASHING I 1 HEIGHT I 0 WIDTH F 1 VRULE.IMAGEFNS F 2 VRULE.DEFAULT.HEIGHT F 3 TEXTOBJ) hQ @Hgo#d3@d3ihHg@ AHgR H36A)SoA i HgB hd3ihHgA H(149 IMAGEOBJPROP 120 IMAGEOBJPROP 107 TEDIT.PROMPTPRINT 101 CONCAT 79 IMAGEOBJPROP 63 IMAGEOBJPROP 6 IMAGEOBJCREATE) (143 RULE.HEIGHT 114 RULE.DASHING 73 RULE.HEIGHT 57 RULE.WIDTH 18 RULE.WIDTH) ( 95 "Non-numeric widths not desirable: " 23 0.5) VRULE.DISPLAYFN :D8 (P 10 WIDTH P 9 THICKNESS P 7 RULING P 6 Y P 5 X P 4 REALHEIGHT P 3 SCALE P 2 WIDTHS P 0 RULEHEIGHT I 1 IMAGE.STREAM I 0 HRULE)  @g @g ohA KH hA hA JhJ kjhJ" OdO_hO_O_KO kIIk_O_A g hjdAMNklggn 2MONMONjLkLLkmLLmOgA MOԽOh_e(239 DRAWLINE 189 BKBITBLT 153 IMAGESTREAMTYPE 132 FIXR 87 FLENGTH 72 DSPYPOSITION 62 DSPXPOSITION 52 FIXR 41 DSPSCALE 24 IMAGEOBJPROP 10 IMAGEOBJPROP) (232 PAINT 180 PAINT 175 TEXTURE 158 DISPLAY 19 RULE.WIDTH 5 RULE.HEIGHT) ( 31 0.5) VRULE.GETFN :D8 (I 1 TEXTSTREAM I 0 INPUT.STREAM) o@ (15 VRULE.CREATE 10 READ) NIL ( 4 0.5) VRULE.GETFN2 :D8 (I 1 TEXTSTREAM I 0 INPUT.STREAM) @ @ @ (22 VRULE.CREATE 17 READ 11 READ 5 READ) NIL () VRULE.IMAGEBOXFN :D8 (I 3 RIGHT.MARGIN I 2 CURRENT.X I 1 IMAGE.STREAM I 0 HRULE) hA jkjdh(6 DSPSCALE) NIL () VRULE.PUTFN :D8 (I 1 OUTPUT.STREAM I 0 HRULE) 5@g A @g A @g A (50 PRINT 44 IMAGEOBJPROP 33 PRINT 27 IMAGEOBJPROP 16 PRINT 10 IMAGEOBJPROP) (39 RULE.DASHING 22 RULE.HEIGHT 5 RULE.WIDTH) () VRULE.COPYFN :D8 (I 2 TOSTREAM I 1 FROMSTREAM I 0 IMAGEOBJ) @g @g (26 VRULE.CREATE 21 IMAGEOBJPROP 10 IMAGEOBJPROP) (16 RULE.HEIGHT 5 RULE.WIDTH) () VRULE.WHENOPERATEDONFN :D8 (L (3 C 2 C 1 B 0 A)) gNIL (4 DUMMY) () CROPMARK.CREATE :D8 (P 0 CROPMARK I 1 HEIGHT I 0 WIDTH F 1 CROPMARK.IMAGEFNS F 2 CROPMARK.DEFAULT.PAGESIZE F 3 TEXTOBJ) \hQ AHgR Hd3Hg@Ah HAd3ihSoA i h(88 TEDIT.PROMPTPRINT 82 CONCAT 48 IMAGEOBJPROP 24 IMAGEOBJPROP 6 IMAGEOBJCREATE) (38 PAGE.SIZE 18 PAGE.SIZE) ( 76 "Non-numeric widths not desirable: ") CROPMARK.DISPLAYFN :D8 (P 5 THICK P 4 SCALE P 2 HEIGHT P 1 WIDTH P 0 PAGESIZE I 1 IMAGE.STREAM I 0 CROPMARK F 6 CROPMARK.IMAGE) @g 1HHhA Lo kKKkA g(VjdAhA hA l dgg mjddMgA jmjdMgA mJjJMgA jl JjJMgA Il jIjMgA ImIjMgA Il JIJMgA Il JIJMgA (257 DRAWLINE 237 DRAWLINE 217 DRAWLINE 199 DRAWLINE 179 DRAWLINE 159 DRAWLINE 141 DRAWLINE 123 DRAWLINE 104 BKBITBLT 85 DSPYPOSITION 78 DSPXPOSITION 59 IMAGESTREAMTYPE 42 FIXR 27 DSPSCALE 10 IMAGEOBJPROP) (250 PAINT 230 PAINT 210 PAINT 192 PAINT 172 PAINT 152 PAINT 134 PAINT 116 PAINT 98 PAINT 93 INPUT 64 DISPLAY 5 PAGE.SIZE) ( 36 0.5) CROPMARK.GETFN :D8 (P 0 PAGESIZE I 1 TEXTSTREAM I 0 INPUT.STREAM) @ HH (18 VRULE.CREATE 5 READ) NIL () CROPMARK.IMAGEBOXFN :D8 (P 1 WIDTHS P 0 SCALE I 3 RIGHT.MARGIN I 2 CURRENT.X I 1 IMAGE.STREAM I 0 HRULE) 2hA oA gl djdhjdddh(20 IMAGESTREAMTYPE 6 DSPSCALE) (25 DISPLAY) ( 11 0.5) CROPMARK.PUTFN :D8 (I 1 OUTPUT.STREAM I 0 HRULE) @g A (16 PRINT 10 IMAGEOBJPROP) (5 PAGE.SIZE) () CROPMARK.COPYFN :D8 (I 2 TOSTREAM I 1 FROMSTREAM I 0 IMAGEOBJ) @g B (16 CROPMARK.CREATE 10 IMAGEOBJPROP) (5 RULE.HEIGHT) () CROPMARK.WHENOPERATEDONFN :D8 (L (3 C 2 C 1 B 0 A)) gNIL (4 DUMMY) () (PRETTYCOMPRINT HRULECOMS) (RPAQQ HRULECOMS ((COMS (* ;; "Horizontal rules") (FNS HRULE.CREATE HRULE.DISPLAYFN HRULE.GETFN HRULE.IMAGEBOXFN HRULE.PUTFN HRULE.COPYFN HRULE.WHENOPERATEDONFN) (INITVARS (HRULE.DEFAULT.WIDTH 2)) ( VARS (HRULEFNS (QUOTE (HRULE.CREATE HRULE.DISPLAYFN HRULE.GETFN HRULE.IMAGEBOXFN HRULE.PUTFN HRULE.COPYFN HRULE.WHENOPERATEDONFN))) (HRULE.IMAGEFNS (IMAGEFNSCREATE (FUNCTION HRULE.DISPLAYFN) ( FUNCTION HRULE.IMAGEBOXFN) (FUNCTION HRULE.PUTFN) (FUNCTION HRULE.GETFN) (FUNCTION HRULE.COPYFN) ( FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) ( FUNCTION HRULE.WHENOPERATEDONFN) (FUNCTION (LAMBDA (OBJ) (CONCAT (CHARACTER (CHARCODE EOL)) ( ALLOCSTRING 20 "-") (CHARACTER (CHARCODE EOL))))))))) (COMS (* ;; "Vertical rules") (FNS VRULE.CREATE VRULE.DISPLAYFN VRULE.GETFN VRULE.GETFN2 VRULE.IMAGEBOXFN VRULE.PUTFN VRULE.COPYFN VRULE.WHENOPERATEDONFN) (INITVARS (VRULE.DEFAULT.HEIGHT 12)) (VARS (VRULE.IMAGEFNS (IMAGEFNSCREATE ( FUNCTION VRULE.DISPLAYFN) (FUNCTION VRULE.IMAGEBOXFN) (FUNCTION VRULE.PUTFN) (FUNCTION VRULE.GETFN2) ( FUNCTION VRULE.COPYFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION VRULE.WHENOPERATEDONFN) (FUNCTION NILL)))) (* ;; "Old fixed-width-rule reader:") (ADDVARS (IMAGEOBJGETFNS (VRULE.GETFN)))) (COMS (* ;; "Cropping marks" ) (FNS CROPMARK.CREATE CROPMARK.DISPLAYFN CROPMARK.GETFN CROPMARK.IMAGEBOXFN CROPMARK.PUTFN CROPMARK.COPYFN CROPMARK.WHENOPERATEDONFN) (BITMAPS CROPMARK.IMAGE) (INITVARS ( CROPMARK.DEFAULT.PAGESIZE (LIST 612 792))) (VARS (CROPMARK.IMAGEFNS (IMAGEFNSCREATE (FUNCTION CROPMARK.DISPLAYFN) (FUNCTION CROPMARK.IMAGEBOXFN) (FUNCTION CROPMARK.PUTFN) (FUNCTION CROPMARK.GETFN) (FUNCTION CROPMARK.COPYFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION CROPMARK.WHENOPERATEDONFN) (FUNCTION NILL))))))) (RPAQ? HRULE.DEFAULT.WIDTH 2) (RPAQQ HRULEFNS (HRULE.CREATE HRULE.DISPLAYFN HRULE.GETFN HRULE.IMAGEBOXFN HRULE.PUTFN HRULE.COPYFN HRULE.WHENOPERATEDONFN)) (RPAQ HRULE.IMAGEFNS (IMAGEFNSCREATE (FUNCTION HRULE.DISPLAYFN) (FUNCTION HRULE.IMAGEBOXFN) (FUNCTION HRULE.PUTFN) (FUNCTION HRULE.GETFN) (FUNCTION HRULE.COPYFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION HRULE.WHENOPERATEDONFN) (FUNCTION ( LAMBDA (OBJ) (CONCAT (CHARACTER (CHARCODE EOL)) (ALLOCSTRING 20 "-") (CHARACTER (CHARCODE EOL))))))) (RPAQ? VRULE.DEFAULT.HEIGHT 12) (RPAQ VRULE.IMAGEFNS (IMAGEFNSCREATE (FUNCTION VRULE.DISPLAYFN) (FUNCTION VRULE.IMAGEBOXFN) (FUNCTION VRULE.PUTFN) (FUNCTION VRULE.GETFN2) (FUNCTION VRULE.COPYFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION VRULE.WHENOPERATEDONFN) (FUNCTION NILL))) (ADDTOVAR IMAGEOBJGETFNS (VRULE.GETFN)) (RPAQQ CROPMARK.IMAGE #*(9 9)CN@@DI@@HHH@HHH@OOH@HHH@HHH@DI@@CN@@) (RPAQ? CROPMARK.DEFAULT.PAGESIZE (LIST 612 792)) (RPAQ CROPMARK.IMAGEFNS (IMAGEFNSCREATE (FUNCTION CROPMARK.DISPLAYFN) (FUNCTION CROPMARK.IMAGEBOXFN) ( FUNCTION CROPMARK.PUTFN) (FUNCTION CROPMARK.GETFN) (FUNCTION CROPMARK.COPYFN) (FUNCTION NILL) ( FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION CROPMARK.WHENOPERATEDONFN) (FUNCTION NILL))) (PUTPROPS HRULE COPYRIGHT ("Venue & Xerox Corporation" 1985 1990 1991 1992)) NIL