1 LISP LIBRARY PACKAGES MANUAL 1 LISP LIBRARY PACKAGES MANUAL 4045STREAM 1 PRINTING 1 4045STREAM 6 4045Stream implements an image stream for the Xerox 4045 Laser CP, an inexpensive 300 dot/inch laser printer. Output can be sent directly to the 4045 printer (using the RS232 or Centronics driver packages) or can be saved in a file for later printing. 2 Printing on the 4045 1 The 4045Stream emits Xerox 2700-II control codes to drive the printer. This means that the A:2 switch on the 4045 configuration cartridge must be set to off for this package to work right. Consult the 4045 User's Manual for more information concerning printer configuration and switch settings. You create a 4045 image stream by evaluating a form like (SETQ 4045STREAM (OPENIMAGESTREAM '{CENTRONICS}.4045)) The stream 4045STREAM can thereafter be used as the target of any graphics program. Here are some examples of operations that may be performed on a 4045 image stream: · (BITBLT (WHICHW) NIL NIL 4045STREAM 0 0) will place a window's image at position (0,0) on the 4045's page. · (DRAWLINE 500 500 3000 500 30 NIL 4045STREAM) will draw a line 30 spots (1/10 inch) wide from position (500,500) to position (3000,500). · (DSPNEWPAGE 4045STREAM) will cause the current page to be printed and a new one to be started. · (PRINTOUT 4045STREAM "Hello world" T) will print the string ©©Hello world'' on the 4045's page, followed by a carriage-return/linefeed. · To print a TEdit document, right-button in the TEdit window's title bar and select ©©Hardcopy.'' Slide off to the right of that selection and pick ©©To a file.'' Type ©©{CENTRONICS}.4045©© (assuming the printer is connected to the Centronics port) and press a carriage return. 2 Limitations 1 Due to limitations in the 4045's firmware, the following functions do nothing when applied to a 4045 image stream: ÿÿïfÿ DRAWLINE of other than a horizontal or vertical line · DRAWCURVE · DRAWCIRCLE · FILLCIRCLE · DRAWELLIPSE · FILLPOLYGON · DRAWPOLYGON (will not draw segments that are not horizontal or vertical) The current version of 4045STREAM does not use fonts other than TITAN 10 . This is a temporary limitation.(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC ) STARTINGPAGE# 257) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (270 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 618) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (54 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (270 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))))).ÌÌøØ1ÌÌøØÈ(ÌÌø)ø2T)øT(ÌÌø)ÌÌøT)ÌÌøTBøøPAGEHEADING VERSOHEADBøøPAGEHEADING RECTOHEADAøøPAGEHEADINGFOOTINGVAøøPAGEHEADINGFOOTINGRMODERN MODERNMODERNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERNýHRULE.GETFNMODERNHRULE.GETFNMODERNÊL97©mŒaŠHRULE.GETFNMODERNHRULE.GETFNMODERNs8 KkxSzº