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
|
