eepic

git-svn-id: svn://tug.org/texlive/trunk@849 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 94 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/eepic/eepicemu.sty b/Master/texmf-dist/tex/latex/eepic/eepicemu.sty
new file mode 100644
index 00000000000..13e45ba29cb
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/eepic/eepicemu.sty
@@ -0,0 +1,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