DataMuseum.dk

top - metrics - download

    Length: 3211 (0xc8b)
    Types: TextFile
    Names: »psfig.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/psfig.psr« 

TextFile

% 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.

% Version $Revision: 1.3 $, Date $Date: 90/02/01 13:21:47 $.
% Convert from scaled points (sp) to big point (bp), or simply points called
% in PostScript, and then assign to "variablename".
% value variablename TeXscale
/TeXscale {
	exch
	65782 div	% Conversion takes place here.
	def		% Save value.
} def

%/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap
%currentlinejoin currentdash currentgray currentmiterlimit ] cvx def
%
% Since dvitps has an initgraphics at the beginning of texpre.ps, we can
% assume:
gsave initgraphics
/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap
currentlinejoin currentdash currentgray currentmiterlimit ] cvx def
grestore

/startTexFig {
% usage :  width height bb-llx bb-lly bb-urx bb-ury startFig
	/SavedState save def
	userdict maxlength dict begin
	% Round to the nearst pixel.
	currentpoint transform

	DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecap
		setlinewidth setmatrix

	itransform moveto

	/bb-ury TeXscale
	/bb-urx TeXscale
	/bb-lly TeXscale
	/bb-llx TeXscale
	/height TeXscale
	/width  TeXscale
	
	currentpoint /cy exch def /cx exch def

	/sx width  bb-urx bb-llx sub div def	% Scaling for x.
	/sy height bb-ury bb-lly sub div def	% Scaling for y.

	sx sy scale			% Scale by (sx,sy).

	cx sx div bb-llx sub
	cy sy div bb-ury sub translate
	
	/DefFigCTM matrix currentmatrix def

	/initmatrix {
		DefFigCTM setmatrix
	} def
	/defaultmatrix {
		DefFigCTM exch copy
	} def

	/initgraphics {
		DocumentInitState setmiterlimit setgray setdash 
			setlinejoin setlinecap setlinewidth setmatrix
		DefFigCTM setmatrix
	} def

	/showpage {
		initgraphics
	} def

	% The following three paper size commands are disabled because they disrupt
	% the whole procedure of enclosing another PostScript file (may be also
	% generated by dvitps) into a document.
	/letter {} def
	/note {} def
	/legal {} def
} def

% Args are bb-llx bb-lly bb-urx bb-ury (in figure coordinates).
/clipFig {
	currentpoint 6 2 roll
	newpath 4 copy
	4 2 roll moveto
	6 -1 roll exch lineto
	exch lineto
	exch lineto
	closepath clip
	newpath
	moveto
} def
% doclip, if called, will always be just after a `startfig'
/doclip { bb-llx bb-lly bb-urx bb-ury clipFig } def
/endTexFig {
	end SavedState restore
} def