|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Ilya Kuznecov 2:5020/400 30 Apr 2003 20:29:11
To : All
Subject : Знающие postscript, нужен один ваш взгляд! важно...
--------------------------------------------------------------------------------
Здравствуйте. Извините за эмоциональность, дело действительно для меня очень
важное.
Hиже идёт постскриптовский файл (очень небольшой). Его создаёт SAP R/3, но
проставляет там естественно Latin-1. Я бы написал исправлялку этого дела в
iso8859-5/koi8-r/cp1251, если бы знал -- как. Постскрипт для меня "тёмный лес",
а после того как я переехал на линукс (десктоп), печать на постскрипт для меня
единственный способ нормально работать с выходными документами (используется
cups).
В общем, что надо прописать в vector в данном случае, чтобы gv <этот файл>
выдавало нормальную картинку, а не умляуты?
%!PS-
%%Creator: SAP R/3 rel. 3.0A
%%EndComments
/fsize 9.400 def
/linesize 8.400 def
/h 562 def
/hoffset 20 def
/reencsmalldict 12 dict def
/ReEncodeSmall
{ reencsmalldict begin
/newcodesandnames exch def
/newfontname exch def
/basefontname exch def
/basefontdict basefontname findfont def
/newfont basefontdict maxlength dict def
basefontdict
{ exch dup /FID ne
{ dup /Encoding eq
{ exch dup length array copy newfont 3 1 roll put }
{ exch newfont 3 1 roll put }
ifelse }
{ pop pop }
ifelse }
forall
newfont /FontName newfontname put
newcodesandnames aload pop
newcodesandnames length 2 idiv
{ newfont /Encoding get 3 1 roll put } repeat
newfontname newfont definefont pop
end } def
/SAPvector [
64 /at
91 /bracketleft
92 /backslash
93 /bracketright
94 /asciicircum
95 /underscore
96 /quoteleft
123 /braceleft
124 /bar
125 /braceright
126 /asciitilde
128 /grave
129 /acute
130 /circumflex
131 /tilde
132 /ogonek
133 /breve
134 /dotaccent
135 /dieresis
136 /ring
137 /cedilla
138 /hungarumlaut
139 /caron
161 /exclamdown
162 /cent
163 /sterling
164 /currency
165 /yen
166 /brokenbar
167 /section
168 /dieresis
169 /copyright
170 /ordfeminine
171 /guillemotleft
172 /logicalnot
173 /minus
174 /registered
175 /macron
176 /degree
177 /plusminus
178 /twosuperior
179 /threesuperior
180 /quotesingle
181 /mu
182 /paragraph
183 /periodcentered
184 /cedilla
185 /onesuperior
186 /ordmasculine
187 /guillemotright
188 /onequarter
189 /onehalf
190 /threequarters
191 /questiondown
192 /Agrave
193 /Aacute
194 /Acircumflex
195 /Atilde
196 /Adieresis
197 /Aring
198 /AE
199 /Ccedilla
200 /Egrave
201 /Eacute
202 /Ecircumflex
203 /Edieresis
204 /Igrave
205 /Iacute
206 /Icircumflex
207 /Idieresis
208 /Eth
209 /Ntilde
210 /Ograve
211 /Oacute
212 /Ocircumflex
213 /Otilde
214 /Odieresis
215 /multiply
216 /Oslash
217 /Ugrave
218 /Uacute
219 /Ucircumflex
220 /Udieresis
221 /Yacute
222 /Thorn
223 /germandbls
224 /agrave
225 /aacute
226 /acircumflex
227 /atilde
228 /adieresis
229 /aring
230 /ae
231 /ccedilla
232 /egrave
233 /eacute
234 /ecircumflex
235 /edieresis
236 /igrave
237 /iacute
238 /icircumflex
239 /idieresis
240 /eth
241 /ntilde
242 /ograve
243 /oacute
244 /ocircumflex
245 /otilde
246 /odieresis
247 /divide
248 /oslash
249 /ugrave
250 /uacute
251 /ucircumflex
252 /udieresis
253 /yacute
254 /thorn
255 /ydieresis
] def
/Courier /SAP-Courier SAPvector ReEncodeSmall
/Courier-Bold /SAP-Courier-Bold SAPvector ReEncodeSmall
/sabld { /SAP-Courier-Bold findfont fsize scalefont setfont } def
/saoff { sauln_finish /SAP-Courier findfont fsize scalefont setfont }
def
/UL { currentpoint sauln_y_offset sub
gsave newpath moveto
0 setlinewidth sauln_y_offset sub lineto stroke
grestore } def
/sauln { sauln_finish
currentpoint /sauln_y exch store /sauln_x exch store
/sauln_active 1 store } def
/sauln_finish { sauln_active 1 eq { sauln_x sauln_y UL } if
/sauln_active 0 store } def
/sauln_active 0 def
/sauln_x 0 def
/sauln_y 0 def
/sauln_y_offset 2 def
sabld
/lpos h 30 sub def
/sline { show
sauln_active sauln_finish
/lpos lpos linesize sub store hoffset lpos moveto
1 eq { sauln } if
} def
/showpart { show } def
/SetInputTray { /Intraynum exch def
mark { statusdict begin Intraynum setpapertray end }
stopped cleartomark } def
/SetPrintMode { /Printmode exch def
mark { statusdict begin
Printmode 0 eq {false setduplexmode} if
Printmode 1 eq {true setduplexmode false settumble} if
Printmode 2 eq {true setduplexmode true settumble} if end}
stopped cleartomark } def
%%EndProlog
save
/lpos h 30 sub store
90 rotate
0 0 h sub translate
hoffset lpos moveto
() showpart saoff
() showpart saoff
( ) showpart saoff
(
\250\251\252\253\254\255\256\257\260\261\262\263\264\265\266\267\270\271\272\273
\274\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317
\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340
) sline
showpage
restore
%%Trailer
--
chumpa, Cybernetic Humanoid Used for Mathematics and Potential Assassination
kuznecov@blok-caf.ru http://chumpa.izhnet.ru icq 122393064
--- ifmail v.2.15dev5
* Origin: ZAO "SMF Blok" (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
