From "Larry Stone <lcs@MIT.EDU>" Mon Oct 20 19:18:12 1997
Flags: 000000000001
Received: from SOUTH-STATION-ANNEX.MIT.EDU by po9.MIT.EDU (5.61/4.7) id AA05552; Mon, 20 Oct 97 19:18:47 EDT
Received: from DEFIANT.MIT.EDU by MIT.EDU with SMTP
	id AA16794; Mon, 20 Oct 97 19:18:13 EDT
Received: by defiant.MIT.EDU (940816.SGI.8.6.9/4.7) id TAA05964; Mon, 20 Oct 1997 19:18:12 -0400
Message-Id: <199710202318.TAA05964@defiant.MIT.EDU>
To: lcs@MIT.EDU
Subject: postscript
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="----- =_aaaaaaaaaa0"
Content-Id: <5961.877389460.0@defiant.MIT.EDU>
Date: Mon, 20 Oct 1997 19:18:12 EDT
From: Larry Stone <lcs@MIT.EDU>

------- =_aaaaaaaaaa0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <5961.877389460.1@defiant.MIT.EDU>

Some pestscript here:


------- =_aaaaaaaaaa0
Content-Type: application/postscript
Content-ID: <5961.877389460.2@defiant.MIT.EDU>
Content-Transfer-Encoding: quoted-printable

%! PostScript ICAD work request form
%%% Author: "wr" shell script
%%% WR-Shell-Script-Author: Larry Stone (lcs)

% Fonts
/WRtitle
    /Helvetica-Bold findfont 20 scalefont def
/WRlabel
    /Helvetica-Bold findfont 14 scalefont def
/WRitalic
    /Helvetica-Oblique findfont 10 scalefont def
/WRuser
    /Courier-Bold findfont 12 scalefont def

% height of user font
/userheight
    13 def
% centershow -- show text centered
/centershow  % stack: string
{ dup stringwidth pop 2 div neg 0 rmoveto show } def
/inch
{ 72 mul } def
/WRmarg
    .5 inch def

%---------------------------------
/WRdate (Mon, Mar 08 1993, 01:29:51 PM) def
/WRname (Larry Stone) def
/WRproblem (Software;  Fix Licensing?) def
/WRmachine (Erebor) def
/WRpriority (High) def
/WRreason (CodeCenter is currently useless) def
%---------------------------------

%%% Work Request
WRlabel setfont
6 inch 10 inch moveto (Log # __________) show

WRtitle setfont
4.25 inch 9.25 inch moveto (Computer Services Work Request) centershow

WRlabel setfont
WRmarg 8.5 inch moveto (Date:  ) show
WRuser setfont WRdate show

WRlabel setfont
WRmarg 8 inch moveto (Name:  ) show
WRuser setfont WRname show

WRlabel setfont
WRmarg 7.5 inch moveto WRproblem show

WRmarg 7 inch moveto (Machine Name/Location: ) show
WRuser setfont  WRmachine show

WRlabel setfont
WRmarg 6.5 inch moveto (Description:) show

WRuser setfont
WRmarg 6.2 inch moveto
%---------------------------------  %%%% insert tale-of-woe
(CodeCenter on the IBM \(Erebor and others\) does not come up. When you)
show currentpoint userheight sub exch pop WRmarg exch moveto
(start it with "xcodecenter", the main window appears and in the logging)
show currentpoint userheight sub exch pop WRmarg exch moveto
(area it shows:)
show currentpoint userheight sub exch pop WRmarg exch moveto
(Product CodeCenter does not have a network license)
show currentpoint userheight sub exch pop WRmarg exch moveto
(For assistance, contact your system administrator, or call)
show currentpoint userheight sub exch pop WRmarg exch moveto
(and then, after about a minute, the word "none" appears after "call" and)
show currentpoint userheight sub exch pop WRmarg exch moveto
(the whole window goes away. It looks like some stuff in)
show currentpoint userheight sub exch pop WRmarg exch moveto
(/fs/local/apps/CenterLine/configs was altered on 8-Jan, and I hadn't)
show currentpoint userheight sub exch pop WRmarg exch moveto
(tried running CodeCenter since then.)
show currentpoint userheight sub exch pop WRmarg exch moveto
%---------------------------------

WRlabel setfont
WRmarg 4.75 inch moveto (Priority:  ) show WRpriority show
WRmarg 4.5 inch moveto
(Reason: ) show WRuser setfont WRreason show

WRitalic setfont
4.25 inch 4.05 inch moveto (\(Please do not write below this line\)) cente=
rshow
.45 inch 4 inch moveto 7.5 inch 4 inch lineto 1 setlinewidth stroke

WRlabel setfont
WRmarg 3.5 inch moveto
(Assigned to: \(Craig, Tim, Lisa, Steve\) or ______________) show
WRmarg 3 inch moveto (Solution:) show
WRmarg 2.25 inch moveto (Completion Date: _____________) show
WRmarg 1.75 inch moveto (Total Time: _____________) show
WRmarg 1 inch moveto 3.5 inch 1 inch lineto
3.75 inch 1 inch moveto 6.75 inch 1 inch lineto stroke
WRitalic setfont
WRmarg .85 inch moveto (Completed by) show
3.75 inch .85 inch moveto (Requestor) show
showpage

------- =_aaaaaaaaaa0--
