DataMuseum.dk

top - metrics - download

    Length: 1673 (0x689)
    Types: TextFile
    Names: »header.ps«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/TeXgraphics/transfig/fig2ps/header.ps« 

TextFile

%!
% This is the header file for PostScript code generated with fig2ps

gsave % let everything as it was before !

% our working dictionary
/fig2psdict 20 dict def

fig2psdict begin
  % Since FIG has it's origin in the upper left corner, we'll need some transf.
  0 700 translate
  /mtrx matrix currentmatrix def % we'll need this for writing texts
  180 rotate
  [-1 0 0 1 0 0] concat % reflection about y-axis (nice, isn't it)

% This procedure draws an arrow head.
% tailx taily tipx tipy height length "arrowhead" ==> -
/arrowhead
 {   /headlength exch def
     /halfheadheight exch 2 div def
     /tipy exch def
     /tipx exch def
     /taily exch def
     /tailx exch def
     /angle tipy taily sub tipx tailx sub atan def
     /savematrix matrix currentmatrix def
     tipx tipy translate
     angle 90 add rotate
     halfheadheight headlength moveto
     0 0 lineto
     halfheadheight neg headlength lineto
     savematrix setmatrix
} def

% This procedure prints out text
% x y height width text 'printtext' ==> -
% x,y : origin of text
% heigth is the height of the text in FIG
% width is the width of the text in FIG
/printtext 
 { /txt exch def
   /width exch def
   /height exch def
   /y exch def
   /x exch def
   gsave
     /Courier findfont height scalefont setfont
     % now we can determine the width of text at this fontsize. We do this
     % in order to garante, that the textwidth in PostScript and
     % FIG are equal.
     /Courier findfont 
       [ width txt stringwidth pop div height mul 0 0 height 0 0] makefont
       setfont
     x y moveto
     mtrx setmatrix % reset the original transformation matrix
     txt show
   grestore
} def