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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% bar primitives
\newcommand{\barRect}[6][fillstyle=solid]
{
{\psframe[linestyle=none,fillcolor=#6,#1](#2,#3)(#4,#5)}
}
% - - - - - -
\newcommand{\xtd}{0}
\newcommand{\ytd}{0}
\newcommand{\xtda}{0}
\newcommand{\ytda}{0}
\newcommand{\xtdb}{0}
\newcommand{\ytdb}{0}
\newcommand{\barTDRect}[6][fillstyle=solid]
{
%
\psframe[linestyle=solid,fillcolor=#6,#1](#2,#3)(#4,#5)
% let's draw polygons: left and upper
% left-> (#4;#3)(#4+\bdar\tdhor;#3+\dbar\tdver)
% (#4+\dbar\tdhor;#5+\dbar\tdver)(#4;#5)
% right->(#4;#5)(#4+\dbar\tdhor;#5+\dbar\tdver)
% (#3+\dbar\tdhor;#5+\dbar\tdver)(#2;#3)
%
\FPmul{\xtd}{\dbar}{\tdhor}
\FPmul{\ytd}{\dbar}{\tdver}
\FPfadd{\xtda}{#2}{\xtd}
\FPfadd{\xtdb}{#4}{\xtd}
\FPfadd{\ytda}{#3}{\ytd}
\FPfadd{\ytdb}{#5}{\ytd}
\pspolygon[linestyle=solid,fillcolor=#6,#1](#4,#3)(\xtdb,\ytda)(\xtdb,\ytdb)(#4,#5)(#4,#3)
\pspolygon[linestyle=solid,fillcolor=#6,#1](#4,#5)(\xtdb,\ytdb)(\xtda,\ytdb)(#2,#5)(#4,#5)
}
\newcommand{\elRx}{0}
\newcommand{\elRy}{0}
\newcommand{\barCylinder}[6][none]
{
\FPmul{\xtd}{\dbar}{\tdx}
\FPmul{\ytd}{\dbar}{\tdy}
\FPdiv{\elRx}{\dbar}{2}
\FPdiv{\elRy}{\ytd}{2}
\ifthenelse{\bdorientation = \bdvert}
{
\FPfadd{\tmpvar}{#2}{#4}
\FPdiv{\xtda}{\tmpvar}{2} % Xcenter of the bottom ellipse
\FPdiv{\tmpvar}{\ytd}{2}
\FPfadd{\ytda}{\tmpvar}{#3} % Ycenter of the bottom ellipse
% Draw the bottom ellipse
\psellipse[fillstyle=solid,fillcolor=#6](\xtda,\ytda)(\elRx,\elRy)
\FPdiv{\tmpvar}{\ytd}{2}
\FPfadd{\ytdb}{\tmpvar}{#5} % Ycenter of the top ellipse
% Draw the rectangle
\psframe[fillstyle=solid,fillcolor=#6,linecolor=#6](#2,\ytda)(#4,\ytdb)
\psline(#2,\ytda)(#2,\ytdb)
\psline(#4,\ytda)(#4,\ytdb)
% Draw the top ellipse
\psellipse[fillstyle=solid,fillcolor=#6](\xtda,\ytdb)(\elRx,\elRy)
}
{ \FPfadd{\tmpvar}{#3}{#5}
\FPdiv{\ytda}{\tmpvar}{2}
\FPdiv{\tmpvar}{\ytd}{2}
\FPfadd{\xtda}{\tmpvar}{#2}
% Draw the left ellipse
\psellipse[fillstyle=solid,fillcolor=#6](\xtda,\ytda,)(\elRy,\elRx)
\FPdiv{\tmpvar}{\ytd}{2}
\FPfadd{\ytdb}{\tmpvar}{#4}
% Draw the rectangle
\psframe[fillstyle=solid,fillcolor=#6,linecolor=#6](\xtda,#3)(\ytdb,#5)
\psline(\xtda,#3)(\ytdb,#3)
\psline(\xtda,#5)(\ytdb,#5)
% Draw the right ellipse
\psellipse[fillstyle=solid,fillcolor=#6](\ytdb,\ytda)(\elRy,\elRx)
}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
