mirror of
https://git.freebsd.org/ports.git
synced 2025-06-03 20:06:29 -04:00
236 lines
6.5 KiB
C
236 lines
6.5 KiB
C
--- ps.c.orig Tue Jul 22 18:56:13 2003
|
|
+++ ps.c Tue Jul 22 19:02:44 2003
|
|
@@ -187,7 +187,7 @@
|
|
/didShowPage false def \n\
|
|
%%------------------------------------------------------\n\
|
|
%% Set up the ISO fonts \n\
|
|
-
|
|
+\n\
|
|
%% Times \n\
|
|
%% ----- \n\
|
|
/Times-Roman findfont dup length dict begin { \n\
|
|
@@ -196,28 +196,28 @@
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/TRomanISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Times-Bold findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/TBoldISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Times-BoldItalic findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/TBoldItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Times-Italic findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/TItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
%% Courier \n\
|
|
%% ----- \n\
|
|
/Courier-Roman findfont dup length dict begin { \n\
|
|
@@ -226,28 +226,28 @@
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/CRomanISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Courier-Bold findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/CBoldISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Courier-BoldItalic findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/CBoldItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Courier-Italic findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/CItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
%% Symbol \n\
|
|
%% ----- \n\
|
|
/Symbol-Roman findfont dup length dict begin { \n\
|
|
@@ -256,28 +256,28 @@
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/SRomanISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Symbol-Bold findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/SBoldISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Symbol-BoldItalic findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/SBoldItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Symbol-Italic findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/SItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
%% Helvetica \n\
|
|
%% --------- \n\
|
|
/Helvetica-Roman findfont dup length dict begin { \n\
|
|
@@ -286,28 +286,28 @@
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/HRomanISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Helvetica-Bold findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/HBoldISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Helvetica-BoldOblique findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/HBoldItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
/Helvetica-Oblique findfont dup length dict begin { \n\
|
|
1 index /FID ne { def } { pop pop } ifelse \n\
|
|
} forall \n\
|
|
/Encoding ISOLatin1Encoding def \n\
|
|
currentdict end \n\
|
|
/HItalicISO exch definefont pop \n\
|
|
-
|
|
+\n\
|
|
%% \n\
|
|
%% Ideally, before we can draw a line of text, we need to collect all the\n\
|
|
%% words that will be on it, just as I do in my Beest HTML viewer, as well\n\
|
|
@@ -318,39 +318,39 @@
|
|
%% ----------- Functions ------------\n\
|
|
/updateFont { \n\
|
|
/f0 null def \n\
|
|
- (Times) fontFamily eq (Times New Roman) fontFamily eq or {
|
|
+ (Times) fontFamily eq (Times New Roman) fontFamily eq or {\n\
|
|
bold { \n\
|
|
italic { /TBoldItalicISO } { /TBoldISO } ifelse \n\
|
|
} { \n\
|
|
italic { /TItalicISO } { /TRomanISO } ifelse \n\
|
|
} \n\
|
|
ifelse \n\
|
|
- } if
|
|
- (Helvetica) fontFamily eq (Arial) fontFamily eq or {
|
|
+ } if\n\
|
|
+ (Helvetica) fontFamily eq (Arial) fontFamily eq or {\n\
|
|
bold { \n\
|
|
italic { /HBoldItalicISO } { /HBoldISO } ifelse \n\
|
|
} { \n\
|
|
italic { /HItalicISO } { /HRomanISO } ifelse \n\
|
|
} \n\
|
|
ifelse \n\
|
|
- } if
|
|
- (Courier) fontFamily eq (Courier New) fontFamily eq or {
|
|
+ } if\n\
|
|
+ (Courier) fontFamily eq (Courier New) fontFamily eq or {\n\
|
|
bold { \n\
|
|
italic { /CBoldItalicISO } { /CBoldISO } ifelse \n\
|
|
} { \n\
|
|
italic { /CItalicISO } { /CRomanISO } ifelse \n\
|
|
} \n\
|
|
ifelse \n\
|
|
- } if
|
|
- (Symbol) fontFamily eq {
|
|
+ } if\n\
|
|
+ (Symbol) fontFamily eq {\n\
|
|
bold { \n\
|
|
italic { /SBoldItalicISO } { /SBoldISO } ifelse \n\
|
|
} { \n\
|
|
italic { /SItalicISO } { /SRomanISO } ifelse \n\
|
|
} \n\
|
|
ifelse \n\
|
|
- } if
|
|
-
|
|
+ } if\n\
|
|
+\n\
|
|
findfont /f0 exch def \n\
|
|
/bboxBottom f0 /FontBBox get 1 get 1000 div fontSize mul -1 mul def \n\
|
|
/bboxTop f0 /FontBBox get 3 get 1000 div fontSize mul def \n\
|
|
@@ -392,13 +392,13 @@
|
|
} \n\
|
|
def \n\
|
|
/acharpath { \n\
|
|
- /acstr exch def pop /acsp exch def
|
|
- newpath
|
|
- str {
|
|
- /ch exch def
|
|
- 1 string 0 ch put false charpath
|
|
- acsp 0 rmoveto
|
|
- } forall
|
|
+ /acstr exch def pop /acsp exch def\n\
|
|
+ newpath \n\
|
|
+ str {\n\
|
|
+ /ch exch def\n\
|
|
+ 1 string 0 ch put false charpath\n\
|
|
+ acsp 0 rmoveto\n\
|
|
+ } forall\n\
|
|
} def \n\
|
|
/A { \n\
|
|
/str exch def \n\
|
|
@@ -412,7 +412,7 @@
|
|
1 -0.1 0 { \n\
|
|
/offset exch def \n\
|
|
offset setgray \n\
|
|
- x offset 3 mul add y offset 3 mul sub moveto
|
|
+ x offset 3 mul add y offset 3 mul sub moveto\n\
|
|
intercharSpace 0 str acharpath \n\
|
|
%% str false charpath \n\
|
|
fontSize 30 div setlinewidth stroke \n\
|
|
@@ -428,11 +428,11 @@
|
|
1 -0.1 0 { \n\
|
|
/offset exch def \n\
|
|
offset setgray \n\
|
|
- x offset 3 mul add y offset 3 mul sub moveto
|
|
+ x offset 3 mul add y offset 3 mul sub moveto\n\
|
|
intercharSpace 0 str ashow \n\
|
|
%% str show \n\
|
|
} for \n\
|
|
- 0 setgray
|
|
+ 0 setgray\n\
|
|
} { \n\
|
|
intercharSpace 0 str ashow \n\
|
|
%% str show \n\
|