/usr/share/texmf-texlive/tex/latex/eepic/eepicemu.sty is in texlive-pictures 2009-15.
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 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | % eepicemu Version 1.1a < Febrary 1, 1988 >
% Written by Conrad Kwok
%
% Internet : kwok@iris.ucdavis.edu
% csnet : kwok@ucd.csnet
% csnet : kwok%iris.ucdavis.edu@csnet.relay
% UUCP : ...!ucbvax!ucdavis!iris!kwok
%
% The macros are in public domain.
% You may distribute or modify it in any ways you like.
% Please report any bugs, enhancements, comments, suggestions, etc.
%
% Change logs:
% o Febrary 1, 1989
% Add \newdimen\maxovaldiam for compatility with eepic
%
% o Febrary 1, 1989
% Enhanced to handle new commands in eepic 1.1
%
\typeout{Emulation of EEPIC using EPIC. Version 1.1a - Released Febrary 1, 1988}
\let\path\drawline
\def\ellipse{%
\@ifstar{\@ellipse}{\@ellipse}}
\def\@ellipse#1#2{%
\ifnum #1=#2%
\circle{#1}%
\else
\oval(#1,#2)
\fi\relax}
\let\Thicklines\thicklines
\def\circle{%
\@ifstar
{\@emudot}%
{\@emucirc}%
}
\def\@emudot#1{%
\@tempdimb #1\unitlength
\ifdim \@tempdimb > 15pt
\oval(#1,#1)%
\else
\@dot{#1}%
\fi
}
\def\@emucirc#1{%
\@tempdimb #1\unitlength
\ifdim \@tempdimb > 40pt
\oval(#1,#1)%
\else
\@circle{#1}%
\fi
}
\def\arc#1#2#3{\typeout{arc function is not supported in emulation package}}
\newcount\@spxcnt
\newcount\@spycnt
\newcount\@ispxcnt
\newcount\@ispycnt
\newcount\@cmidxcnt
\newcount\@cmidycnt
\def\spline(#1,#2){%
\@ifnextchar ({\@ispline(#1,#2)}%
{\ignorespaces}}
\def\@ispline(#1,#2)(#3,#4){%
\@ifnextchar ({\@iispline(#1,#2)(#3,#4)}%
{\@drawline[0](#1,#2)(#3,#4)\ignorespaces}}
\def\@iispline(#1,#2)(#3,#4)(#5,#6){%
\@ifnextchar ({%
\@spxcnt=#3 \advance\@spxcnt by #5 \divide\@spxcnt by 2\relax
\@spycnt=#4 \advance\@spycnt by #6 \divide\@spycnt by 2\relax
\@chaikin{#1}{#2}{#3}{#4}{\@spxcnt}{\@spycnt}%
\@ispxcnt=\@spxcnt\relax \@ispycnt=\@spycnt\relax
\@iispline(\@ispxcnt,\@ispycnt)(#5,#6)}%
% else
{\@chaikin{#1}{#2}{#3}{#4}{#5}{#6}}}
\def\@chaikin#1#2#3#4#5#6{%
\@cmidxcnt=#1 \advance\@cmidxcnt by #3
\advance\@cmidxcnt by #3 \advance\@cmidxcnt by #5
\divide\@cmidxcnt by 4
\@cmidycnt=#2 \advance\@cmidycnt by #4
\advance\@cmidycnt by #4 \advance\@cmidycnt by #6
\divide\@cmidycnt by 4
\@drawline[0](#1,#2)(\@cmidxcnt,\@cmidycnt)%
\@drawline[0](\@cmidxcnt,\@cmidycnt)(#5,#6)%
}
\def\allinethickness#1{\thicklines\linethickness{#1}}
%
\newdimen\maxovaldiam \maxovaldiam 40pt\relax
%
\def\filltype#1{}
\def\blacken{}
\def\whiten{}
\def\shade{}
\def\texture{}
\endinput
|