EVOLUTION-MANAGER

Edit File: render.ps

% render.ps - write font bitmaps and metric information to standard output. % Version 1.18. % ======================================================================== % % Copyright (c) 1993-1998 Paul Vojta % % Permission is hereby granted, free of charge, to any person obtaining a copy % of this software and associated documentation files (the "Software"), to % deal in the Software without restriction, including without limitation the % rights to use, copy, modify, merge, publish, distribute, sublicense, and/or % sell copies of the Software, and to permit persons to whom the Software is % furnished to do so, subject to the following conditions: % % The above copyright notice and this permission notice shall be included in % all copies or substantial portions of the Software. % % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR % IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, % FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL % PAUL VOJTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER % IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN % CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. % % ======================================================================== %%% % Usage: gs -DNODISPLAY -q -- render.ps fontname dlstring specinfo dpi % Then, it will read standard input to get: % pointsize % charset % Example: % % gs -DNODISPLAY -q -- render.ps Helvetica "(phvr.gsf) run" \ % > ".5 ExtendFont" 300 % GS> 10 % GS> 97 98 99 /TeXDict currentdict def % needed by dotlessj.pro %% % % Standard file definitions /.stdin where { pop } { /.stdin (%stdin) (r) file def } ifelse /bad-stdout false def /.stdout where { pop } { { /.stdout (%stdout) (w) file def } stopped { /bad-stdout true def } if } ifelse /bad-stderr false def /.stderr where { pop } { { /.stderr (%stderr) (w) file def } stopped { /bad-stderr true def } if } ifelse %% % % Define some routines first % (string) fatal - % Print string to stderr and quit. /fatal bad-stderr {{ (\nrender.ps: ) exch concatstrings print flush 1 .quit }} {{ (\nrender.ps: ) exch concatstrings .stderr exch writestring .stderr flushfile 1 .quit }} ifelse bind def % (string) brun - % Load a font in .pfb format. /brun { (r) file false /PFBDecode filter cvx exec } bind def % (string) ttload font % Load a TrueType font (and leave it on the stack). /ttload { FontOnStack { (Cannot load more than one TrueType font!\n) fatal } if (r) file .loadttfont /FontOnStack true def } bind def /FontOnStack false def % (exec) getbbox - % Get bounding box of the executable object and save it in char-urx, % char-ury, etc. /getbbox { gsave nulldevice erasepage newpath exec pathbbox % returns llx lly urx ury /char-ury exch ceiling cvi def /char-urx exch ceiling cvi def /char-lly exch floor cvi def /char-llx exch floor cvi def grestore } bind def % - drawfontbbox - % Draw the font's bbox. /drawfontbbox { currentfont /FontBBox get dup dup 0 get exch 1 get currentfont /FontMatrix get transform moveto dup dup 0 get exch 3 get currentfont /FontMatrix get transform lineto dup dup 2 get exch 1 get currentfont /FontMatrix get transform lineto dup 2 get exch 3 get currentfont /FontMatrix get transform lineto } bind def % (exec) mkbboxdev - % Get bounding box of the executable object and make a device a few % pixels larger on each side. If pathbbox fails for the object, % then use the font's bbox. /mkbboxdev { getbbox char-llx char-urx sub round 0 eq char-lly char-ury sub round 0 eq or { {drawfontbbox} getbbox } if matrix char-urx char-llx sub 4 add % width dup /width exch def char-ury char-lly sub 4 add % height dup /height exch def <ff 00> makeimagedevice setdevice 2 char-llx sub 2 char-lly sub translate } bind def %% % % These may be called by the "specinfo" string. /usefontbbox false def % These do things to a transformation array; called by entries in psfonts.map. % /ObliqueSlant {dup sin exch cos div neg} bind def /SlantFont {font-size mul add} def /ExtendFont {3 -1 roll mul exch} def /ReEncodeFont {/Encoding exch def} def % Define writeppmfile, if it's not provided, or if the symbol .stdout is not % available. /our-writeppmfile bad-stdout systemdict /writeppmfile known not or {{ (P4\n) print width =string cvs print ( ) print height =string cvs print (\n) print width 7 add 8 div cvi string 0 1 height 1 sub { currentdevice exch 2 index copyscanlines print } for pop % discard string }} {{ .stdout currentdevice writeppmfile }} ifelse def %% % % Main program begins now. Just interpret it. % Get arguments. shellarguments not { (You must provide arguments to the shell!\n) fatal } if /dpi exch cvr def /specinfo exch def /dlstring exch def /fontname exch def % Return the gs version number to the calling program. (V ) print revision = % Open the font. dlstring () ne { dlstring cvx exec } if FontOnStack not { Fontmap fontname cvn known % Or: fontname cvn /Font resourcestatus? { fontname cvlit findfont } { FontDirectory fontname cvn known { fontname cvlit findfont } { revision 341 lt { /defaultfontname fontname cvlit def } if { fontname cvlit findfont } stopped { (font ) fontname concatstrings ( is not defined.\n) concatstrings fatal } if } ifelse } ifelse } if % Get arguments from stdin. Just leave the character list on the stack. /font-size .stdin 20 string readline pop cvr % get pointsize 72.27 div dpi mul % let's work in (TeX) points def [ .stdin 1024 string readline pop cvx exec ] % character list % Define the font, and make it current. % Get the font. exch % Copy over the font dictionary to make it writable; % this makes ReEncodeFont easier, and is needed for dotless j processing. dup length 1 add dict begin {1 index /FID ne {def}{pop pop} ifelse} forall % Now do the transformations specified in psfonts.map. [ font-size 0 specinfo cvx exec 0 exch font-size 0 0 ] % End the current dictionary, and make it a font. /TargetFont currentdict end definefont % Apply the tranformation matrix and make the font current. exch makefont dup /TargetFont exch def setfont % If the font's bounding box is zero, then do not use it. usefontbbox { currentfont /FontBBox get true exch {0 eq and} forall {/usefontbbox false def}if } if % If we are to use the font's bounding box, then get it and transform it. usefontbbox { {drawfontbbox} mkbboxdev } if % Begin loop over characters. { /charno exch def /charstring 1 string dup 0 charno put def /charwidth charstring stringwidth pop def % Get the character's bounding box. This also makes the device. usefontbbox not { { 0 0 moveto charstring true charpath } mkbboxdev } if % Print the metric info. (#^ ) print charno =string cvs print ( ) print char-llx =string cvs print ( ) print char-lly =string cvs print ( ) print char-urx =string cvs print ( ) print char-ury =string cvs print ( ) print charwidth =string cvs print (\n) print % Now write the bitmap. erasepage 0 0 moveto charstring show our-writeppmfile } forall