DataMuseum.dk

top - metrics - download

    Length: 3336 (0xd08)
    Types: TextFile
    Names: »pos.psr«

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/dvitps/psr/pos.psr« 

TextFile

% Copyright (c) 1988 Stephan v. Bechtolsheim

% This file is part of the TeXPS Software Package.

% The TeXPS Software Package is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY.  No author or distributor
% accepts responsibility to anyone for the consequences of using it
% or for whether it serves any particular purpose or works at all,
% unless he says so in writing.  Refer to the TeXPS Software Package
% General Public License for full details.

% Everyone is granted permission to copy, modify and redistribute
% the TeXPS Software Package, but only under the conditions described in the
% TeXPS Software Package General Public License.   A copy of this license is
% supposed to have been given to you along with TeXPS Software Package so you
% can know your rights and responsibilities.  It should be in a
% file named CopyrightLong.  Among other things, the copyright notice
% and this notice must be preserved on all copies.

% One letter commands
% ===================
% The following is a set of one letter commands. The way
% these commands have been defined is due to Thomas Rokicki.

% relative-x-position relative-y-position  a  -
/a { rmoveto } def    % absolute positioning

/DriverDelta 0 def         % we need a variable to hold space moves

%   The next ten macros allow us to make horizontal motions which
%   are within 4 of the previous horizontal motion with a single
%   character.  These are typically used for spaces.

% b prints a string followed by a horizontal movement and also loads
% delta for future references.
% string relative-movement-x b -
/b { exch p dup /DriverDelta exch def 0 rmoveto } def

% (string) c-k -
% Print a string followed by a horizontal movement relative
% in the range DriverDelta-4 ... DriverDelta+4 to delta.
/c { p DriverDelta 4 sub dup /DriverDelta exch def 0 rmoveto } def
/d { p DriverDelta 3 sub dup /DriverDelta exch def 0 rmoveto } def
/e { p DriverDelta 2 sub dup /DriverDelta exch def 0 rmoveto } def
/f { p DriverDelta 1 sub dup /DriverDelta exch def 0 rmoveto } def
/g { p DriverDelta 0 rmoveto } def
/h { p DriverDelta 1 add dup /DriverDelta exch def 0 rmoveto } def
/i { p DriverDelta 2 add dup /DriverDelta exch def 0 rmoveto } def
/j { p DriverDelta 3 add dup /DriverDelta exch def 0 rmoveto } def
/k { p DriverDelta 4 add dup /DriverDelta exch def 0 rmoveto } def

%   These next allow us to make small motions (-4..4) cheaply.
%   Typically used for kerns.
% string [l-o, q-t] -
% Observe that /p is not defined here!
/l { p -4 0 rmoveto } def
/m { p -3 0 rmoveto } def
/n { p -2 0 rmoveto } def
/o { p -1 0 rmoveto } def
/q { p 1 0 rmoveto } def
/r { p 2 0 rmoveto } def
/s { p 3 0 rmoveto } def
/t { p 4 0 rmoveto } def

% string p -
/p { show } def

% relative-y-movement w -
% good for small horizontal positioning
/w { 0 exch rmoveto } def

% relative-y-movement x -
% good for small vertical positioning
/x { 0 rmoveto } def

% string relative-x-position relative-y-position y -
% Good for a print followed by a move.
/y { 3 -1 roll p rmoveto } def

/u-string ( ) def
% char u -
% Show a single character (given in octal)
/u { u-string exch 0 exch put
     u-string show
} def

% char v -
% Same as u put without moving the reference point
/v { u-string exch 0 exch put
     currentpoint
     u-string show
     moveto
} def