Click above to get retro games delivered to your door ever month! COMBINED MODES OF RASTER GRAPHICS This program combines three forms of raster compression to allow the most efficient means of printing a rectangle with a dot in the middle. The modes of raster compression illustrated here can be used with all PCL 5 printers. The LaserJet IIP is capable of using Run Length Encoded and TIFF, but not Delta Row Compression. This program was done using QBasic: Legend: LPRINT CHR$(27); = Escape in Basic. The quote marks are syntax parameters and the semicolon at the end of the line supresses the carriage return (CR) and line feed (LF). WIDTH "LPT1:",255 This command prevents basic from inserting an unwanted carriage return after 80 characters are printed. LPRINT CHR$(27);"E"; Printer reset. LPRINT CHR$(27);"*p900x1200Y"; Position cursor 900 dots in from the left edge of the logical page and 1200 dots down from the default top margin. LPRINT CHR$(27);"*t75R"; Set raster resolution to 75 dots per inch. LPRINT CHR$(27);"*r0F"; Print raster image in the orientation of the logical page. This command is not used with the Series II or earlier printers. LPRINT CHR$(27);"*r1A"; Begin raster graphics at the current cursor position. LPRINT CHR$(27);"*b1m2W"; CHR$(6);CHR$(254); Specifies Run-Length Encoding as the form of raster compression and tells the printer to interpret two bytes as raster data. LPRINT CHR$(27);"*b1m6W"; CHR$(0);CHR$(192);CHR$(4); CHR$(0);CHR$(0);CHR$(6); Specifies Run-Length Encoding to print the following:-zero repetitions (one occurrence) of byte (192)- four repetitions of byte (0) (five occurrences)- zero repetitions (one occurrence) of byte (6) LPRINT CHR$(27);"*b3m0W"; Use Delta Row Compression to repeat the previous seed row. LPRINT CHR$(27);"*b3m0W"; Repeat Row. LPRINT CHR$(27);"*b3m2W"; CHR$(3);CHR$(24); Use Delta Row Compression to print the following: -replace one byte offset by three from the original byte with byte value (0). LPRINT CHR$(27);"*b3m2W"; CHR$(3);CHR$(0); Use Delta Row Compression to print the following: -replace one byte offset by three from the original byte with byte value (0). LPRINT CHR$(27);"*b3m0W"; Repeat the previous seed row. LPRINT CHR$(27);"*b3m0W"; Repeat the previous seed row. LPRINT CHR$(27);"*b1m2W"; CHR$(6);CHR$(254); Specifies Run-Length Encoding as the form of raster compression and tells the printer to interpret two bytes as raster data. LPRINT CHR$(27);"*rB"; End raster graphics. LPRINT CHR$(27);"E"; Resets the printer and ejects the page. End End Program. Copyright Hewlett-Packard Co. 1993 The information contained herein is subject to change without notice. Hewlett-Packard shall not be liable for incidental or consequential damages in connection with the use of this material.