freebsd-ports/print/gfontview/files/patch-ps.h

--- ps.h.orig	Sun Jun 25 21:17:29 2000
+++ ps.h	Sun Nov  2 21:27:10 2003
@@ -71,303 +71,303 @@
 ";
 
 
-const char *text_samples = "\
-/TextSamplerDict 40 dict def
-TextSamplerDict begin
-/Inch {72 mul} def
-/linewidth 7 Inch def
-/yline 9.7 Inch def
-/LM 0.7 Inch def
-/wordbreak ( ) def
-/buf 8 string def
-
-/DoTitle { % fontname DoTitle
-  /Helvetica findfont 18 scalefont setfont
-  LM 10.5 Inch moveto
-  show 
-  ( at ) show fontsize buf cvs show ( points, spacing = ) show
-  spacing buf cvs show
-} def
-
-/DoSamples { % fontname fontsize spacing DoSamples
-  /spacing exch def
-  /fontsize exch def
-  /fontname exch def
-
-  fontname findfont fontsize scalefont setfont
-  /newline {/yline yline fontsize spacing mul sub def LM yline moveto} def
-  /breakwidth wordbreak stringwidth pop def
-  /curwidth 0 def
-  /lastwordbreak 0 def
-  /startchar 0 def
-  /restoftext textstring def
-
-
-  LM yline moveto
-  { restoftext wordbreak search
-    {
-      /nextword exch def pop
-      /restoftext exch def
-      /wordwidth nextword stringwidth pop def
-    
-      curwidth wordwidth add linewidth gt
-      {
-        textstring startchar lastwordbreak startchar sub getinterval
-        show newline
-        /startchar lastwordbreak def
-        /curwidth wordwidth breakwidth add def
-      }
-      {
-        /curwidth curwidth wordwidth breakwidth add add def
-      } 
-      ifelse
-      /lastwordbreak lastwordbreak nextword length 1 add add def
-    }
-    {pop exit}
-    ifelse
-  } loop
-  /lastchar textstring length def
-  textstring startchar lastchar startchar sub getinterval show
-} def
-end
+const char *text_samples = "\n\
+/TextSamplerDict 40 dict def\n\
+TextSamplerDict begin\n\
+/Inch {72 mul} def\n\
+/linewidth 7 Inch def\n\
+/yline 9.7 Inch def\n\
+/LM 0.7 Inch def\n\
+/wordbreak ( ) def\n\
+/buf 8 string def\n\
+\n\
+/DoTitle { % fontname DoTitle\n\
+  /Helvetica findfont 18 scalefont setfont\n\
+  LM 10.5 Inch moveto\n\
+  show\n\
+  ( at ) show fontsize buf cvs show ( points, spacing = ) show\n\
+  spacing buf cvs show\n\
+} def\n\
+\n\
+/DoSamples { % fontname fontsize spacing DoSamples\n\
+  /spacing exch def\n\
+  /fontsize exch def\n\
+  /fontname exch def\n\
+\n\
+  fontname findfont fontsize scalefont setfont\n\
+  /newline {/yline yline fontsize spacing mul sub def LM yline moveto} def\n\
+  /breakwidth wordbreak stringwidth pop def\n\
+  /curwidth 0 def\n\
+  /lastwordbreak 0 def\n\
+  /startchar 0 def\n\
+  /restoftext textstring def\n\
+\n\
+\n\
+  LM yline moveto\n\
+  { restoftext wordbreak search\n\
+    {\n\
+      /nextword exch def pop\n\
+      /restoftext exch def\n\
+      /wordwidth nextword stringwidth pop def\n\
+   \n\
+      curwidth wordwidth add linewidth gt\n\
+      {\n\
+        textstring startchar lastwordbreak startchar sub getinterval\n\
+        show newline\n\
+        /startchar lastwordbreak def\n\
+        /curwidth wordwidth breakwidth add def\n\
+      }\n\
+      {\n\
+        /curwidth curwidth wordwidth breakwidth add add def\n\
+      }\n\
+      ifelse\n\
+      /lastwordbreak lastwordbreak nextword length 1 add add def\n\
+    }\n\
+    {pop exit}\n\
+    ifelse\n\
+  } loop\n\
+  /lastchar textstring length def\n\
+  textstring startchar lastchar startchar sub getinterval show\n\
+} def\n\
+end\n\
 ";
 
 
 
-const char *check_type42 = "\
-languagelevel 2 lt
-{
-  /Helvetica findfont 14 scalefont setfont
-  72 420 moveto
-  (Your printer or PostScript interpreter does not support PostScript Level 2) show
-  showpage
-  quit
-} if
-
-42 /FontType resourcestatus not
-{
-  /Helvetica findfont 14 scalefont setfont
-  72 420 moveto
-  (Your printer or PostScript interpreter does not support Type 42 fonts) show
-  showpage
-  quit
-} if
-pop pop
+const char *check_type42 = "\n\
+languagelevel 2 lt\n\
+{\n\
+  /Helvetica findfont 14 scalefont setfont\n\
+  72 420 moveto\n\
+  (Your printer or PostScript interpreter does not support PostScript Level 2) show\n\
+  showpage\n\
+  quit\n\
+} if\n\
+\n\
+42 /FontType resourcestatus not\n\
+{\n\
+  /Helvetica findfont 14 scalefont setfont\n\
+  72 420 moveto\n\
+  (Your printer or PostScript interpreter does not support Type 42 fonts) show\n\
+  showpage\n\
+  quit\n\
+} if\n\
+pop pop\n\
 ";
 
 
-const char *phrase_samples = "\
-/PhraseSamplerDict 20 dict def
-PhraseSamplerDict begin
-/Inch {72 mul} def
-/LM 0.5 Inch def
-/RM 7.6 Inch def
-/Temp 64 string def
-/T /Helvetica findfont 10 scalefont def
-/T6 /Helvetica findfont 6 scalefont def 
-/Header {  % text height Header
-  RM exch moveto T6 setfont dup stringwidth pop neg 0 rmoveto show
-} def
-/FontName { % fontname fontfile height FontName
-  /y exch def
-  /FFile exch def
-  /FName exch def
-
-  LM y moveto
-  T setfont FName Temp cvs show
-  LM y 8 sub moveto
-  T6 setfont FFile show
-} def
-/FontSample {  % fontname size height FontSample
-  /y exch def
-  /FSize exch def
-  /FName exch def
-
-  LM 160 add y moveto
-  mark
-  {
-    FName findfont FSize scalefont setfont 
-    StringSample show
-  }
-  stopped {
-    LM 160 add y moveto
-    T6 setfont (Error: ) show
-    $error /errorname get Temp cvs show
-    ( [) show
-    $error /command get Temp cvs show
-    (] ) show               
-  }
-  if
-  cleartomark
-} def
-end
+const char *phrase_samples = "\n\
+/PhraseSamplerDict 20 dict def\n\
+PhraseSamplerDict begin\n\
+/Inch {72 mul} def\n\
+/LM 0.5 Inch def\n\
+/RM 7.6 Inch def\n\
+/Temp 64 string def\n\
+/T /Helvetica findfont 10 scalefont def\n\
+/T6 /Helvetica findfont 6 scalefont def\n\
+/Header {  % text height Header\n\
+  RM exch moveto T6 setfont dup stringwidth pop neg 0 rmoveto show\n\
+} def\n\
+/FontName { % fontname fontfile height FontName\n\
+  /y exch def\n\
+  /FFile exch def\n\
+  /FName exch def\n\
+\n\
+  LM y moveto\n\
+  T setfont FName Temp cvs show\n\
+  LM y 8 sub moveto\n\
+  T6 setfont FFile show\n\
+} def\n\
+/FontSample {  % fontname size height FontSample\n\
+  /y exch def\n\
+  /FSize exch def\n\
+  /FName exch def\n\
+\n\
+  LM 160 add y moveto\n\
+  mark\n\
+  {\n\
+    FName findfont FSize scalefont setfont\n\
+    StringSample show\n\
+  }\n\
+  stopped {\n\
+    LM 160 add y moveto\n\
+    T6 setfont (Error: ) show\n\
+    $error /errorname get Temp cvs show\n\
+    ( [) show\n\
+    $error /command get Temp cvs show\n\
+    (] ) show              \n\
+  }\n\
+  if\n\
+  cleartomark\n\
+} def\n\
+end\n\
 ";
 
 
-const char *size_samples = "\
-/SizeSamplerDict 40 dict def
-SizeSamplerDict begin
-/Strings 
-{ [
-	(ABCDEFGHIJKLMNOPQRSTUVWXYZ)
-	(abcdefghijklmnopqrstuvwxyz)
-	(0123456789<=>:;?@!\"#$%&')
-	(\\( \\)*+,-./ [ \\\\ ]^_`{|}~)
-] } def
-
-
-/Sizes 
-{ [
-  8 10 12 14 20 24 28
-] } def
-
-/infofont /Helvetica findfont 10 scalefont def
-/msg 8 string def
-/Inch {72 mul} def
-/DoTitle { % fontname DoTitle
-  % Write the font name on top of the page
-  /Helvetica findfont 18 scalefont setfont
-  dup stringwidth
-  exch 8 Inch exch sub 2 div exch
-  10.5 Inch exch sub
-  moveto show
-} def
-/DoSamples { % font DoSamples
-  % Make the font samples
-  /fontname exch def
-  /testfont fontname findfont def
-  1 setlinewidth
-  60 50 moveto
-
-  Sizes
-  {
-    /size exch def
-    testfont size scalefont setfont
-    currentpoint translate % start of line
-    5 0 rmoveto
-
-    Strings 
-    {
-      currentpoint
-      3 -1 roll show
-      moveto
-      0 1.2 size mul rmoveto  % add 30% of the size vertically
-    } forall  % Strings
-
-    -5 0 rmoveto
-    currentpoint         % end of line
-    newpath 0 0 moveto lineto
-    currentpoint stroke  % leave end of line pos in stack
-  
-  % Print the font size in the middle of the line
-    dup                            % leave y in the stack (x is 0)
-    infofont setfont
-    size msg cvs dup stringwidth   % Push string 'n' and its size on the stack
-    4 -1 roll exch sub 2 div         % Stack is 'string width ypos'
-    exch 5 add neg exch moveto show  % Move to the left and print
-
-    moveto         % take end of line pos from stack
-    0 15 rmoveto   % Add vertical space between groups
-  } forall % Sizes
-} def
-end
+const char *size_samples = "\n\
+/SizeSamplerDict 40 dict def\n\
+SizeSamplerDict begin\n\
+/Strings\n\
+{ [\n\
+	(ABCDEFGHIJKLMNOPQRSTUVWXYZ)\n\
+	(abcdefghijklmnopqrstuvwxyz)\n\
+	(0123456789<=>:;?@!\"#$%&')\n\
+	(\\( \\)*+,-./ [ \\\\ ]^_`{|}~)\n\
+] } def\n\
+\n\
+\n\
+/Sizes\n\
+{ [\n\
+  8 10 12 14 20 24 28\n\
+] } def\n\
+\n\
+/infofont /Helvetica findfont 10 scalefont def\n\
+/msg 8 string def\n\
+/Inch {72 mul} def\n\
+/DoTitle { % fontname DoTitle\n\
+  % Write the font name on top of the page\n\
+  /Helvetica findfont 18 scalefont setfont\n\
+  dup stringwidth\n\
+  exch 8 Inch exch sub 2 div exch\n\
+  10.5 Inch exch sub\n\
+  moveto show\n\
+} def\n\
+/DoSamples { % font DoSamples\n\
+  % Make the font samples\n\
+  /fontname exch def\n\
+  /testfont fontname findfont def\n\
+  1 setlinewidth\n\
+  60 50 moveto\n\
+\n\
+  Sizes\n\
+  {\n\
+    /size exch def\n\
+    testfont size scalefont setfont\n\
+    currentpoint translate % start of line\n\
+    5 0 rmoveto\n\
+\n\
+    Strings\n\
+    {\n\
+      currentpoint\n\
+      3 -1 roll show\n\
+      moveto\n\
+      0 1.2 size mul rmoveto  % add 30% of the size vertically\n\
+    } forall  % Strings\n\
+\n\
+    -5 0 rmoveto\n\
+    currentpoint         % end of line\n\
+    newpath 0 0 moveto lineto\n\
+    currentpoint stroke  % leave end of line pos in stack\n\
+ \n\
+  % Print the font size in the middle of the line\n\
+    dup                            % leave y in the stack (x is 0)\n\
+    infofont setfont\n\
+    size msg cvs dup stringwidth   % Push string 'n' and its size on the stack\n\
+    4 -1 roll exch sub 2 div         % Stack is 'string width ypos'\n\
+    exch 5 add neg exch moveto show  % Move to the left and print\n\
+\n\
+    moveto         % take end of line pos from stack\n\
+    0 15 rmoveto   % Add vertical space between groups\n\
+  } forall % Sizes\n\
+} def\n\
+end\n\
 ";
 
 
 
-const char *map_samples = "\
-/MapSamplerDict 40 dict def
-MapSamplerDict begin
-/T /Helvetica findfont 10 scalefont def
-/T6 /Times-Roman findfont 6 scalefont def
-/Temp 64 string def
-/Inch {72 mul} def
-/Base 16 def    % char code output base
-/TempEncoding [ 256 { /.notdef } repeat ] def
-/ISOLatin1Dict 256 dict def
-ISOLatin1Encoding { ISOLatin1Dict exch true put } forall
-/min { 2 copy gt { exch } if pop } bind def
-/DoChar {
-  /C exch def
-  /S (_) dup 0 C put def
-  /N F /Encoding get C get def
-  /W F setfont S stringwidth pop def
-  T6 setfont
-  0 -20 moveto N Temp cvs show
-  0 -12 moveto
-  W 0.0005 add Temp cvs 0 5 getinterval show
-  N /.notdef ne {
-    3 0 translate
-    0 0 moveto F24 setfont S show
-    /W S stringwidth pop def
-    0 -6 moveto 0 24 lineto
-    W -6 moveto W 24 lineto
-    -3 0 moveto W 3 add 0 lineto
-    0 setlinewidth stroke
-  } if
-} def                            
-/DoTitle { % fontname DoTitle
-  /Helvetica findfont 18 scalefont setfont
-  dup stringwidth
-  exch 8 Inch exch sub 2 div exch
-  10.7 Inch exch sub
-  moveto show
-} def
-/Header {  % header Header
-  7.6 Inch 10.7 Inch moveto T setfont dup stringwidth pop neg 0 rmoveto show
-} def
-/DoBlock {      % firstcode lastcode DoBlock
-  /FirstCode 2 index def
-  1 exch {
-    /I exch def
-    /Xn I FirstCode sub 16 mod def /Yn I FirstCode sub 16 idiv def
-    gsave
-    Xn 36 mul 9 add Yn -56 mul 9.5 Inch add translate
-    I DoChar
-    grestore
-  } for
-} def                          
-/FontShow0 {  % fontname FontShow0
-  /FName exch def       % font name
-  /F FName findfont def
-  /Done 256 dict def
-  /NewEncoding [
-      ISOLatin1Encoding {
-        dup F /CharStrings get exch known {
-          dup Done exch known { pop } { dup Done exch true put } ifelse
-        } { pop } ifelse
-      } forall
-      F /CharStrings get {
-        pop dup ISOLatin1Dict exch known { pop } if
-      } forall
-  ] def
-  F length dict F {
-    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse
-  } forall
-  dup /Encoding NewEncoding put
-  /* exch definefont
-  /F exch def
-  /F24 F 24 scalefont def
-  70 160 translate
-  0.80 dup scale
-  0 NewEncoding length 1 sub DoBlock
-} def                        
-/FontShowV {  % encoding fontname FontShowV
-  /FName exch def       
-  /NewEncoding exch def
-  /F FName findfont def
-  F length dict F {
-    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse
-  } forall
-  dup /Encoding NewEncoding put
-  /* exch definefont
-  /F exch def
-  /F24 F 24 scalefont def
-  70 160 translate
-  0.80 dup scale
-  0 NewEncoding length 1 sub DoBlock
-} def
-end  
+const char *map_samples = "\n\
+/MapSamplerDict 40 dict def\n\
+MapSamplerDict begin\n\
+/T /Helvetica findfont 10 scalefont def\n\
+/T6 /Times-Roman findfont 6 scalefont def\n\
+/Temp 64 string def\n\
+/Inch {72 mul} def\n\
+/Base 16 def    % char code output base\n\
+/TempEncoding [ 256 { /.notdef } repeat ] def\n\
+/ISOLatin1Dict 256 dict def\n\
+ISOLatin1Encoding { ISOLatin1Dict exch true put } forall\n\
+/min { 2 copy gt { exch } if pop } bind def\n\
+/DoChar {\n\
+  /C exch def\n\
+  /S (_) dup 0 C put def\n\
+  /N F /Encoding get C get def\n\
+  /W F setfont S stringwidth pop def\n\
+  T6 setfont\n\
+  0 -20 moveto N Temp cvs show\n\
+  0 -12 moveto\n\
+  W 0.0005 add Temp cvs 0 5 getinterval show\n\
+  N /.notdef ne {\n\
+    3 0 translate\n\
+    0 0 moveto F24 setfont S show\n\
+    /W S stringwidth pop def\n\
+    0 -6 moveto 0 24 lineto\n\
+    W -6 moveto W 24 lineto\n\
+    -3 0 moveto W 3 add 0 lineto\n\
+    0 setlinewidth stroke\n\
+  } if\n\
+} def                           \n\
+/DoTitle { % fontname DoTitle\n\
+  /Helvetica findfont 18 scalefont setfont\n\
+  dup stringwidth\n\
+  exch 8 Inch exch sub 2 div exch\n\
+  10.7 Inch exch sub\n\
+  moveto show\n\
+} def\n\
+/Header {  % header Header\n\
+  7.6 Inch 10.7 Inch moveto T setfont dup stringwidth pop neg 0 rmoveto show\n\
+} def\n\
+/DoBlock {      % firstcode lastcode DoBlock\n\
+  /FirstCode 2 index def\n\
+  1 exch {\n\
+    /I exch def\n\
+    /Xn I FirstCode sub 16 mod def /Yn I FirstCode sub 16 idiv def\n\
+    gsave\n\
+    Xn 36 mul 9 add Yn -56 mul 9.5 Inch add translate\n\
+    I DoChar\n\
+    grestore\n\
+  } for\n\
+} def                         \n\
+/FontShow0 {  % fontname FontShow0\n\
+  /FName exch def       % font name\n\
+  /F FName findfont def\n\
+  /Done 256 dict def\n\
+  /NewEncoding [\n\
+      ISOLatin1Encoding {\n\
+        dup F /CharStrings get exch known {\n\
+          dup Done exch known { pop } { dup Done exch true put } ifelse\n\
+        } { pop } ifelse\n\
+      } forall\n\
+      F /CharStrings get {\n\
+        pop dup ISOLatin1Dict exch known { pop } if\n\
+      } forall\n\
+  ] def\n\
+  F length dict F {\n\
+    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse\n\
+  } forall\n\
+  dup /Encoding NewEncoding put\n\
+  /* exch definefont\n\
+  /F exch def\n\
+  /F24 F 24 scalefont def\n\
+  70 160 translate\n\
+  0.80 dup scale\n\
+  0 NewEncoding length 1 sub DoBlock\n\
+} def                       \n\
+/FontShowV {  % encoding fontname FontShowV\n\
+  /FName exch def      \n\
+  /NewEncoding exch def\n\
+  /F FName findfont def\n\
+  F length dict F {\n\
+    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse\n\
+  } forall\n\
+  dup /Encoding NewEncoding put\n\
+  /* exch definefont\n\
+  /F exch def\n\
+  /F24 F 24 scalefont def\n\
+  70 160 translate\n\
+  0.80 dup scale\n\
+  0 NewEncoding length 1 sub DoBlock\n\
+} def\n\
+end\n\
 ";