/usr/lib/blt2.5/bltCanvEps.pro is in tk8.6-blt2.5 2.5.3+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | %
% PostScript encapulator prolog file of the BLT "eps" canvas item.
%
% Copyright 1991-1997 Bell Labs Innovations for Lucent Technologies.
%
% Permission to use, copy, modify, and distribute this software and its
% documentation for any purpose and without fee is hereby granted, provided
% that the above copyright notice appear in all copies and that both that the
% copyright notice and warranty disclaimer appear in supporting documentation,
% and that the names of Lucent Technologies any of their entities not be used
% in advertising or publicity pertaining to distribution of the software
% without specific, written prior permission.
%
% Lucent Technologies disclaims all warranties with regard to this software,
% including all implied warranties of merchantability and fitness. In no event
% shall Lucent Technologies be liable for any special, indirect or
% consequential damages or any damages whatsoever resulting from loss of use,
% data or profits, whether in an action of contract, negligence or other
% tortuous action, arising out of or in connection with the use or performance
% of this software.
%
%
% The definitions of the next two macros are from Appendix H of
% Adobe's "PostScript Language Reference Manual" pp. 709-736.
%
% Prepare for EPS file
/BeginEPSF {
/beforeInclusionState save def
/dictCount countdictstack def % Save the # objects in the dictionary
/opCount count 1 sub def % Count object on operator stack
userdict begin % Make "userdict" the current
% dictionary
/showpage {} def % Redefine showpage to be null
0 setgray
0 setlinecap
1 setlinewidth
0 setlinejoin
10 setmiterlimit
[] 0 setdash
newpath
/languagellevel where {
pop languagelevel
1 ne {
false setstrokeadjust false setoverprint
} if
} if
% note: no "end"
} bind def
/EndEPSF { %def
count opCount sub {
pop
} repeat
countdictstack dictCount sub {
end % Clean up dictionary stack
} repeat
beforeInclusionState restore
} bind def
%
% Set up a clip region based upon a bounding box (x1, y1, x2, y2).
%
/SetClipRegion {
% Stack: x1 y1 x2 y2
newpath
4 2 roll moveto
1 index 0 rlineto
0 exch rlineto
neg 0 rlineto
closepath
clip
newpath
} def
|