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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% eepic-supplement to %%% eepic Version 1.1b < Febrary 7, 1988 > %%%
% %%% Written by Conrad Kwok %%%
% Version 0.1 < 26 Feb 1993 >
% by IWAKUMA Tetsuo (bear@hashi1.civil.tohoku.ac.jp)
%
\typeout{%
Supplement to Eepic and LaTeX. Version 0.1 <26 Feb 1993>}
% to adjust shading pattern
\def\shade{\@ifnextchar[{\shade@special}{\@killglue\special{sh}\ignorespaces}}
\def\shade@special[#1]{\@killglue\special{sh #1}\ignorespaces}
%
% to add shaded area with/without lines or curves
\def\shadingwithoutoutline{\gdef\@fp@special{ip}\gdef\@ar@special{ia}}
\def\outlinedshading{\gdef\@fp@special{fp}\gdef\@ar@special{ar}}
\outlinedshading % default
%
\def\@absspdrawline(#1,#2)(#3,#4){%
\special{pn \the\@gphlinewidth}%
\@tempdimc=#1\relax
\@tempcnta \@tempdimc\relax \advance\@tempcnta 2368 \divide\@tempcnta 4736
\@tempdimc=#2\relax
\@tempcntb -\@tempdimc\relax \advance\@tempcntb -2368 \divide\@tempcntb 4736
\@paspecial{\the\@tempcnta}{\the\@tempcntb}%
\@tempdimc=#3\relax
\@tempcnta\@tempdimc\relax \advance\@tempcnta 2368 \divide\@tempcnta 4736
\@tempdimc=#4\relax
\@tempcntb -\@tempdimc\relax \advance\@tempcntb -2368 \divide\@tempcntb 4736
\@paspecial{\the\@tempcnta}{\the\@tempcntb}%
\special{\@fp@special}%
\ignorespaces
}
%
\def\@linespecial#1#2{%
\special{pn \the\@gphlinewidth}%
\special{pa 0 0}%
\special{pa #1 #2}%
\special{\@fp@special}%
}
%
\def\@path(#1,#2){%
\@tempdima #1\unitlength
\@tempdimb #2\unitlength
\@tempcnta \@tempdima \advance\@tempcnta 2368 \divide\@tempcnta 4736
\@tempcntb -\@tempdimb \advance\@tempcntb -2368 \divide\@tempcntb 4736
\@paspecial{\the\@tempcnta}{\the\@tempcntb}%
\@ifnextchar ({\@path}{\special{\@fp@special}}%
}
%
\def\@circlespecial#1#2#3#4{%
\special{pn \the\@gphlinewidth}%
\special{\@ar@special 0 0 #1 #2 #3 #4}
}
%
\def\@qcircspecial#1#2#3#4#5{\special{\@ar@special #1 #2 #3 #3 #4 #5}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\endinput
%%
%% an example
%%
\documentstyle[epic,eepic,eepicsup]{article}
\textheight=20cm
\newcommand{\bs}{{\tt\symbol{'134}}}
\begin{document}
\title{Supplement to eepic.sty}
\author{an author}
\date{26 Feb 1993}
\maketitle\thispagestyle{empty}
\unitlength=.25mm
\begin{description}
\item[{\tt {\bs}shade[n]} : ] to change shading pattern,
where {\tt n} can be a number between 0 and 1.
\begin{center}
\begin{picture}(192,149)(205,-5)
\thinlines
\shade\put(320,63){\circle{40}}
\shade[0.1]\path (300,115)(312,139)(352,127)(352,95)(328,95)(300,115)
\shade[0.7]\path (376,95)(375.6,96.4)(375,97.6)(374.4,98.4)(373.8,98.8)
(373,99)(372.2,98.8)(371.2,98.4)(370.2,97.6)(369.2,96.4)
(368,95)(365.7,91.6)(363.5,88.3)(361.5,85)(359.7,81.7)
(358,78.5)(356.5,75.3)(355.1,72.2)(353.9,69.1)(352.9,66)
(352,63)(350.4,58.9)(349.1,55.2)(348.2,51.7)(347.7,48.4)
(347.5,45.5)(347.7,42.8)(348.2,40.5)(349.1,38.4)(350.4,36.5)
(352,35)(356.9,33.4)(361.4,32.1)(365.7,31.2)(369.8,30.7)
(373.5,30.5)(377,30.7)(380.1,31.2)(383,32.1)(385.7,33.4)
(388,35)(390.1,39.1)(391.8,43.2)(393.3,47.1)(394.6,50.8)
(395.5,54.5)(396.2,58)(396.5,61.5)(396.6,64.8)(396.5,67.9)
(396,71)(395.3,73.9)(394.2,76.8)(392.9,79.5)(391.4,82)
(389.5,84.5)(387.4,86.8)(384.9,89.1)(382.2,91.2)(379.3,93.1)(376,95)
\end{picture}
\end{center}
\item[{\tt {\bs}shadingwithoutoutline} : ] to remove outlines
of the shaded areas.
\shadingwithoutoutline
\begin{center}
\begin{picture}(192,149)(205,-5)
\thinlines
\shade\put(320,63){\circle{40}}
\shade[0.8]\path (300,115)(312,139)(352,127)(352,95)(328,95)(300,115)
\shade[0.2]\path (376,95)(375.6,96.4)(375,97.6)(374.4,98.4)(373.8,98.8)
(373,99)(372.2,98.8)(371.2,98.4)(370.2,97.6)(369.2,96.4)
(368,95)(365.7,91.6)(363.5,88.3)(361.5,85)(359.7,81.7)
(358,78.5)(356.5,75.3)(355.1,72.2)(353.9,69.1)(352.9,66)
(352,63)(350.4,58.9)(349.1,55.2)(348.2,51.7)(347.7,48.4)
(347.5,45.5)(347.7,42.8)(348.2,40.5)(349.1,38.4)(350.4,36.5)
(352,35)(356.9,33.4)(361.4,32.1)(365.7,31.2)(369.8,30.7)
(373.5,30.5)(377,30.7)(380.1,31.2)(383,32.1)(385.7,33.4)
(388,35)(390.1,39.1)(391.8,43.2)(393.3,47.1)(394.6,50.8)
(395.5,54.5)(396.2,58)(396.5,61.5)(396.6,64.8)(396.5,67.9)
(396,71)(395.3,73.9)(394.2,76.8)(392.9,79.5)(391.4,82)
(389.5,84.5)(387.4,86.8)(384.9,89.1)(382.2,91.2)(379.3,93.1)(376,95)
\outlinedshading
\whiten\put(326,57){\circle{40}}
\end{picture}
\end{center}
\item[{\tt {\bs}outlinedshading} : ] for outlined shadings.
\outlinedshading
\begin{center}
\begin{picture}(192,149)(205,-5)
\thinlines
\shade\put(320,63){\circle{40}}
\shade[0.6]\path (300,115)(312,139)(352,127)(352,95)(328,95)(300,115)
\shade[0.5]\path (376,95)(375.6,96.4)(375,97.6)(374.4,98.4)(373.8,98.8)
(373,99)(372.2,98.8)(371.2,98.4)(370.2,97.6)(369.2,96.4)
(368,95)(365.7,91.6)(363.5,88.3)(361.5,85)(359.7,81.7)
(358,78.5)(356.5,75.3)(355.1,72.2)(353.9,69.1)(352.9,66)
(352,63)(350.4,58.9)(349.1,55.2)(348.2,51.7)(347.7,48.4)
(347.5,45.5)(347.7,42.8)(348.2,40.5)(349.1,38.4)(350.4,36.5)
(352,35)(356.9,33.4)(361.4,32.1)(365.7,31.2)(369.8,30.7)
(373.5,30.5)(377,30.7)(380.1,31.2)(383,32.1)(385.7,33.4)
(388,35)(390.1,39.1)(391.8,43.2)(393.3,47.1)(394.6,50.8)
(395.5,54.5)(396.2,58)(396.5,61.5)(396.6,64.8)(396.5,67.9)
(396,71)(395.3,73.9)(394.2,76.8)(392.9,79.5)(391.4,82)
(389.5,84.5)(387.4,86.8)(384.9,89.1)(382.2,91.2)(379.3,93.1)(376,95)
\end{picture}
\end{center}
\end{description}
\end{document}
|
