summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/eepic/eepicemu.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/eepic/eepicemu.sty
Initial commit
Diffstat (limited to 'macros/latex/contrib/eepic/eepicemu.sty')
-rw-r--r--macros/latex/contrib/eepic/eepicemu.sty94
1 files changed, 94 insertions, 0 deletions
diff --git a/macros/latex/contrib/eepic/eepicemu.sty b/macros/latex/contrib/eepic/eepicemu.sty
new file mode 100644
index 0000000000..13e45ba29c
--- /dev/null
+++ b/macros/latex/contrib/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