Forandre skriftfarge i et postscript

[Henrik™]

Jeg har et postscript-document (eller, lagrer det i hverftall med endelsen .ps) som blir et slags skilt (kopier og ta en forhåndsvisning hvis du vil se). Jeg vil gjerne forandre skriftsfargen, men jeg kan ikke "språket" dette er skrevet i. Noen som kan hjelpe meg?

 

Her er koden, lagt i spoiler:

 

%! Henrik skilt

/reencodeISO {
dup dup findfont dup length dict begin
{ 1 index /FID ne { def }{ pop pop } ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end definefont
} def

/ISOLatin1Encoding [
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
/parenleft/parenright/asterisk/plus/comma/minus/period/slash
/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
/O/P/Q/R/S/T/U/V/W/X/Y/Z/AE/Oslash/Aring
/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
/n/o/p/q/r/s/t/u/v/w/x/y/z/ae/oslash/aring/asciitilde
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve
/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut
/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar
/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior
/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine
/guillemotright/onequarter/onehalf/threequarters/questiondown
/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute
/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave
/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex
/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis
/yacute/thorn/ydieresis
] def

/Palatino-Roman reencodeISO def

/fillstroke   % [GEN]
{gsave .5 setgray fill
grestore stroke} def


% switch scale to millimeters
2.8346 dup scale

/NormalFont /Palatino-Roman findfont 55 scalefont def
/NewFont    /Palatino-Roman findfont 40 scalefont def

-65 300 translate -90 rotate

NormalFont setfont

.2 setgray

297 (Termvakt) stringwidth pop sub 2 div 120 moveto 
(Termvakt) true charpath fill 

0 setgray
.9 setlinewidth

297 (Termvakt) stringwidth pop sub 2 div 120 moveto
(Termvakt) true charpath stroke

NewFont setfont

.5 setgray

297 (Henrik) stringwidth pop sub 2 div 85 moveto
(Henrik) true charpath fill

0 setgray
.9 setlinewidth

297 (Henrik) stringwidth pop sub 2 div 85 moveto
(Henrik) true charpath stroke

300 340 translate 180 rotate

NormalFont setfont

.2 setgray

297 (Termvakt) stringwidth pop sub 2 div 120 moveto 
(Termvakt) true charpath fill 

0 setgray
.9 setlinewidth

297 (Termvakt) stringwidth pop sub 2 div 120 moveto
(Termvakt) true charpath stroke

NewFont setfont

.5 setgray

297 (Henrik) stringwidth pop sub 2 div 85 moveto
(Henrik) true charpath fill

0 setgray
.9 setlinewidth

297 (Henrik) stringwidth pop sub 2 div 85 moveto
(Henrik) true charpath stroke

showpage

 

Endret 18. november 2010 av Hanky_

[Henrik™]

Ingen som vet?