Article 1865 of vmsnet.misc: Newsgroups: vmsnet.misc Path: cs.utk.edu!darwin.sura.net!haven.umd.edu!uunet!mcsun!sun4nl!tnofel!felfs!bitf6 From: bitf6@fel.tno.nl (Henk Bochane) Subject: Re: Postscript for Gray Bar Overlay? Organization: TNO Physics and Electronics Laboratory Date: Tue, 29 Jun 93 05:54:17 GMT Message-ID: <1993Jun29.055417.27570@fel.tno.nl> References: <1993Jun22.161250.262@sfpp.com> <1993Jun22.225729.2256@cmkrnl.com> Lines: 81 jeh@cmkrnl.com writes: >In article <1993Jun22.161250.262@sfpp.com>, longo@sfpp.com (Bob Longo) writes: >> I would like to simulate "greenbar" lineprinter paper on my PrintServer-20 by >> printing overlaying gray bars over the printed text. I believe this is >> possible in Postscript by redefining "showpage". It really doesn't matter if >> the printed gray bar is every other line, or every third line. >> >> Someone must have done this before, so before I go and re-invent the wheel, >> does anyone have a Postscript setup module that I can use to accomplish this >> result? >I'd like to see this too... so if someone has something, please post it, don't >(just) e-mail it to Bob! >I'd prefer the three lines normal/three lines graybar format... > --- Jamie Hanrahan, Kernel Mode Systems, San Diego CA >Internet: jeh@cmkrnl.com (JH645) Uucp: uunet!cmkrnl!jeh CIS: 74140,2055 >(still a PostScript newbie) I am interested too, however I am using an HP LaserJet 4Si. It is hard to mix PostScript and ASCII output. Therefore I started with HP PCL to get the job done, you can't use it on your Printserver :-( See next code fragment: $ port := lta10: $ node = f$getsyi("nodename") $ def/sys hplj 'node'$hplaserjet $! $ set term/perm/dev=unknown/nobroad/notype/nottsync/pasthru 'port' $ set dev/spooled=(hplj,some_disk:) 'port' $! $ def/form hplj4si_landscape 20 - /stock=default/descr="HP Laserjet 4Si - Landscape" - /setup=reset/page_setup=zebra/width=176/len=64/notrunc/nowrap $ def/form hplj4si_postscript 21 - /stock=default/descr="HP Laserjet 4Si - Postscript" - /setup=landscape/width=176/len=64/margin=(bottom=0)/notrunc/nowrap $ initq := init/que/start/proc=latsym/autostart_on='node':: $ 'initq''port'/def=(noburst,flag=one,notrail,form=20) - /sepa=reset=separate/libr=hplj4s hplj $! $! Modules and functions from my own text library: sys$library:hplj4s $! - RESET: E&l1H $! expl: reset printer, upper paper tray (for normal use) $! - ZEBRA: &l1O&l63F(8U $! (s0p16.66h8.5v0s-3b0T&l5.6470C $! *c10G*c20000H*c120V&a0R*c2P $! &a3R*c2P . . &a66R*c2P&a0R&r1F $! expl: orientation landscape, text length 63, Roman-8 font, $! ** next part not understood ** $! select 10% shading, define rectangle, fill rectangle $! every 3 lines upto line 66, back to line 0, flush all data $! - LANDSCAPE: E&l1H&l1O $! &l63F(8U(s0p16.66h8.5v0s-3b0T&l5.6470C $! expl: reset printer, upper paper tray, orientation landscape, $! text length 63, Roman-8 font, ** remainder not understood ** $! - SEPARATE &l4H%0BIN; $! SP1;PU50,50;EA2500,1500; $! %0A $! expl: lower paper tray, HP-GL/2 mode, init HP-GL/2 mode, $! select pen, go to (50,50), rectangle (2500,1500), $! back to PCL mode (lower tray in use for paper with $! a different colour, the rectangle has no specific $! meaning). I am afraid I am unable to answer further questions because I have only got that printer for one whole week now! (PostScript and LaserJet newbie...) Is there a better solution? Anyhow I hope this is of any help. Greetings... Henk Bochane, FEL-TNO, The Hague, The Netherlands. E-Mail: h.bochane@fel.tno.nl