lps_flagpage

<B>Digital的Unix操作系统VAX 4.2源码</B>

	2.7470 .5354 2.7449 .5067 2.7448 .4708 c
	2.7050 .4553 2.7087 .4557 2.6480 .4419 c
	2.5709 .4241 2.5237 .3911 2.5236 .3112 c
	2.5237 .2331 2.5793 .1914 2.6420 .1915 c
	2.7048 .1914 2.7178 .2117 2.7438 .2290 c
	2.7438 .1978 l
	2.8422 .1978 l
	2.8190 .2352 2.8251 .2425 2.8249 .2706 c
	2.8250 .2926 2.8249 .5080 2.8249 .5080 c
	2.8250 .5507 2.8028 .5768 2.7883 .5855 c
	2.7521 .6071 2.7074 .6097 2.6826 .6098 c
	2.5945 .6096 2.5438 .5653 2.5439 .4728 c
	closepath
	% a counter
	2.7448 .3946 m
	2.7448 .3401 l
	2.7448 .3152 2.7145 .2670 2.6550 .2669 c
	2.6260 .2668 2.6098 .2883 2.6097 .3162 c
	2.6098 .3442 2.6335 .3657 2.6536 .3697 c
	2.6745 .3739 2.7226 .3862 2.7448 .3946 c
	closepath
	} exec
    {	% L
	% l box
	3.383 0.0 m
	3.383 1.0 l
	2.958 1.0 l
	2.958 0.0 l
	closepath
	% l
	3.1255 .196 m
	3.1255 .765 l
	3.2155 .765 l
	3.2155 .196 l
	closepath
	} exec
    fill
    } bind def

%
% % pct `trademark' --
%
% Borrow the sans-serif trademark symbol from /Symbol. AFM file says:
%	C 228 ; WX 786 ; N trademarksans ; B 5 293 725 673 ;
% We scale it down to pct percent of the height of the logo and superscript 
% it some, and voila!
%

/trademark {
    /s exch .380 div def
    /w s .725 mul .070 add def
    /u 1 .673 s mul sub def
    w 0 0 u w 1 setcachedevice
    /Symbol findfont s scalefont setfont
    .070 u m					% Superscript it
    (\344) show
    } bind def

% 
% These are two different trademarks (just different sizes).
%

/smalltrademark { .15 trademark } def
/largetrademark { .25 trademark } def

/ultrix
{
	4.1111 0.0000 0.0000 0.0000 4.1111 1.0000 setcachedevice
    {   % U
	0.0000 1.0000 moveto
	0.0000 0.0000 0.4444 0.0000 0.4444 arcto pop pop pop pop
	0.8889 0.0000 0.8889 1.0000 0.4444 arcto pop pop pop pop
	0.8889 1.0000 lineto
	0.6111 1.0000 lineto
	0.6111 0.2778 0.3333 0.2778 0.1667 arcto pop pop pop pop
	0.2778 0.2778 0.2778 1.0000 0.1667 arcto pop pop pop pop
	0.2778 1.0000 lineto
	closepath
    } exec

    {	% L
	1.0000 1.0000 moveto
	1.0000 0.0000 lineto
	1.6111 0.0000 lineto
	1.6111 0.2778 lineto
	1.2778 0.2778 lineto
	1.2778 1.0000 lineto
	closepath
    } exec

    {	% T
	1.3889 1.0000 moveto
	1.3889 0.7778 lineto
	1.6667 0.7778 lineto
	1.6667 0.0000 lineto
	1.9444 0.0000 lineto
	1.9444 0.7778 lineto
	2.0556 0.7778 lineto
	2.2778 1.0000 lineto
	closepath
    } exec

    {	% R
	2.3889 1.0000 moveto
	2.8333 1.0000 2.8333 0.6667 0.3333 arcto pop pop pop pop
	2.8333 0.3333 2.5000 0.3333 0.3333 arcto pop pop pop pop
	2.8333 0.0000 lineto
	2.3889 0.0000 lineto
	2.0556 0.3333 lineto
	2.0556 0.5556 lineto
	2.5556 0.5556 2.5556 0.6667 0.1111 arcto pop pop pop pop
	2.5556 0.7778 2.1667 0.7778 0.1111 arcto pop pop pop pop
	2.1667 0.7778 lineto
	closepath
    } exec

    {	% I
	2.8333 1.0000 moveto
	2.8333 0.0000 lineto
	3.1111 0.0000 lineto
	3.1111 1.0000 lineto
	closepath
    } exec

    {	% X
	3.1111 0.0000 moveto
	3.1111 0.0767 lineto
	3.4444 0.5378 lineto
	3.1667 1.0000 lineto
	3.5000 1.0000 lineto
	3.6278 0.7911 lineto
	3.7778 1.0000 lineto
	3.8333 1.0000 lineto
	closepath
    } exec
    {
	3.7778 0.0000 moveto
	4.1111 0.0000 lineto
	3.8278 0.4722 lineto
	3.6444 0.2222 lineto
	closepath
    } exec
    fill
} bind def


end						% Work dictionary

currentdict					% Get the font dict
end						% Close it up
/DigitalLogo exch definefont pop		% Define the font.

%%EndFont
%%Title: LPS$$FLAGPAGE.PS
% COPYRIGHT ) DEC 1986, 1987 ALL RIGHTS RESERVED
%%Creation Date: 13-Jun-1986
%%Bounding Box: 0 0 612 792
/lps$enter-standard-state where
{ pop lps$enter-standard-state }
{ save /PageSave exch def }
ifelse
/lps$flagdict 120 dict def lps$flagdict begin 
% generally used defs
/inch {72 mul} def  /lmarg 0.75 inch def    /rmarg 7.75 inch def
/tab1 2.0 inch def  /wfull rmarg lmarg sub def  /windent rmarg tab1 sub def
/itty 8 def /medium1 10 def /medium2 12 def /big1 18 def /bigger 26 def
/huge 34 def /border 5 def
/bold /Helvetica-Bold findfont def  /plain /Helvetica findfont def
/pf8 plain itty scalefont  def  /pf10 plain medium1 scalefont  def
/bf12 bold medium2 scalefont  def  /bf18 bold big1 scalefont  def 
% Adrian Thoms: hacked for Ultrix
/logo18 /DigitalLogo findfont big1 scalefont def
%%
/bf26 bold bigger scalefont  def  /bf34 bold huge scalefont  def
/center { dup stringwidth pop 2 div 4.25 inch exch  sub ypos moveto } bind def 
/nextline { /ypos ypos fontheight 1.3 mul sub def } bind def
/downalittle {/ypos ypos 0.3 inch sub def} bind def
/chop {  /width_to_fit exch def    /text exch def    /print_proc exch def
  /index 0 def    /strlen text length def
  /do_a_line { text prevchar index prevchar sub getinterval print_proc
    /prevchar index def  /accum 0 def  } def
  /do_many_lines { /prevchar 0 def   /accum 0 def
    { text index 1 getinterval stringwidth pop  accum add    /accum exch def
    accum width_to_fit gt  {do_a_line} if
    /index index 1 add def   index strlen eq {exit} if } loop
    text prevchar strlen prevchar sub    getinterval print_proc } def 
    text stringwidth pop width_to_fit gt {do_many_lines} {text print_proc} 
   ifelse  }  def 
/join2str {/str2 exch def /str1 exch def str1 length str2 length add string
   /newstring exch def str1 newstring copy pop /index str1 length def
   newstring index str2 putinterval newstring }  def   
/get_marg { sfact mul sub } def                                            
/sfonts {   /srnd { sfact mul round sfact div } def
  /itty itty srnd def /medium1 medium1 srnd def /medium2 medium2 srnd
  def /big1 big1 srnd def /bigger bigger srnd def /huge huge srnd def } def 
/difpage { clippath pathbbox /ury exch def /urx exch def /lly exch def 
  /llx exch def urx llx sub 612 div  dup ury lly sub 792 div dup 3 1 roll ge 
  { exch pop} {pop} ifelse   dup 1.0 dup 3 1 roll ge { exch pop } {pop} ifelse 
  /sfact exch def   ury lly sub 792 get_marg /upy exch def urx llx sub 612 
  get_marg 2 div /overx exch def overx upy translate sfact dup scale     
  sfact 1.0 ne {sfonts} if } def % difpage
% individual components of page
/do_jobnumber { /bigjob {bf34 setfont /fontheight huge def 0.6 setgray
  jobstr nextline center show  0 setgray    nextline} def
  /smalljob {bf26 setfont /fontheight bigger def jobstr
  nextline center show  nextline} def   (JOB ) tjobnum join2str
  /jobstr exch def 
  tjobnum () ne { jfswitch (JOB) eq {bigjob} {smalljob} ifelse } if
  }  def
/do_jfname { jfswitch (FILE) eq {0.6 setgray} if 
   bf26 setfont /fontheight bigger def
   {xpos ypos moveto center show nextline} the_jfname wfull   chop
   0 currentgray ne {0 setgray} if } def 
/do_value { { tab1 ypos moveto show nextline} value windent chop  } def
/do_sectionitem { value () ne { lmarg ypos moveto label show do_value} if } def 
/do_sectionb { bf12 setfont  /fontheight medium2 def
   /resety { the_filespec stringwidth pop  windent  div ceiling
   4 lt {/ypos 5.0 inch def} {/ypos 5.5 inch def}   ifelse } def 
   the_filespec () eq {/ypos 4.5 inch def} {resety} ifelse
   the_account     (Account:)     the_uic     (Owner UIC:)
   tmodified     (Last modified:)     the_filespec     (File:) 
   1 1 4 {pop  /label exch def /value exch def do_sectionitem } for
   /ypos ypos 0.5 inch sub def } def 
/do_sectionc { pf10 setfont    /fontheight medium1 def  
jfswitch (FILE) eq { /tdatestart () def } if
tdatestart   (Started:) 
   tprintnode (Printer node:) the_printq (Printer queue:) tdatesubmit
   (Submitted:) the_submitq (Submit queue:)  the_priority  (Priority:)
   tlongrec () eq {/recstring tlongrec def}
   {/recstring tlongrec ( bytes)  join2str def} ifelse 
   t_filelen () eq {/filelen_str t_filelen def}
   {/filelen_str  t_filelen ( blocks)  join2str def} ifelse
   recstring (Longest record:) filelen_str (Length:)
   1 1 8 { pop /label exch def /value exch def do_sectionitem} for } def 
/do_border {  burst (BURST) eq { clippath pathbbox /addabit{ border 3 mul add}
   def /subabit {border 3 mul sub} def newpath  /ury exch def /urx exch def    
   /lly exch def /llx exch def  border setlinewidth 2 setlinecap 
   llx addabit lly addabit moveto urx subabit lly addabit lineto urx subabit 
   ury subabit lineto  llx addabit ury subabit lineto llx addabit lly addabit 
   lineto  stroke } if } def
/do_flagpage {    do_border %
   the_note () eq {/ypos 10.0 inch def}  {/ypos 10.3 inch def} ifelse	%
   pf8 setfont  /fontheight itty def    () the_note ne                
      { /the_note_string (NOTE: ) the_note join2str def
      {lmarg ypos moveto show nextline} the_note_string wfull chop} if %
   jfswitch (JOB) eq {downalittle} if 
      bf26 setfont   /xpos lmarg def   /fontheight bigger def
     nextline  the_clientuser ( ) search { 3 1 roll pop pop} if  center show %
   downalittle    do_jobnumber    downalittle    do_jfname    do_sectionb
   do_sectionc
   bf12 setfont lmarg 1.0 inch moveto (Digital Equipment Corporation) show %
%% more of Adrian's hacks
   logo18 setfont    lmarg 0.6 inch  moveto   (ut) show
%      vmsvers show %
   bf18 setfont
%%
   (PrintServer 40) dup rmarg  exch stringwidth pop sub 0.7 inch moveto show %
   showpage
    } bind def 
%%End flagpage defs, start execution
/burst exch def
/jfswitch exch def /the_note exch def /the_clientuser exch def
/tjobnum exch def /the_jfname exch def /the_filespec exch def
/tmodified exch def /the_uic exch def /the_account exch def
/t_filelen exch def /tlongrec exch def /the_priority exch def
/the_submitq exch def /tdatesubmit exch def /the_printq exch def
/tprintnode exch def /tdatestart exch def /vmsvers exch def % end pops
statusdict begin papersize end pop (lettertray) ne {difpage} if
do_flagpage end 
/lps$exit-standard-state where { pop lps$exit-standard-state } 
{ PageSave restore } ifelse
%%End of file lps$$flagpage