/usr/share/texmf-texlive/tex/latex/bardiag/bardiag.cfg is in texlive-pictures 2009-15.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | % New colors defined
\definecolor{brown}{rgb}{.65, .16, .16}
\definecolor{lightblue}{rgb}{.68, .85, .9}
\definecolor{lightred}{rgb}{1.0, .65, .65}
\definecolor{darkyellow}{rgb}{0.6, 0.6, 0.3}
\definecolor{palegreen}{rgb}{.6, .98, .6}
\definecolor{pink}{rgb}{1, .75, .8}
\definecolor{wheat}{rgb}{.96, .87, .7}
\definecolor{verylightgray}{gray}{0.95}
\newcommand{\arrowheight}{\dbar}
\newcommand{\arrowwidth}{\dbar}
\newcommand{\ARbot}{0}
\newcommand{\RECTmid}{0}
\newcommand{\RECTwidth}{0.7} % 70% from \dbar
\newcommand{\RECTleft}{0}
\newcommand{\RECTright}{0}
\newcommand{\mytempx}{0}
\newcommand{\mytempxx}{0}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Additional bar primitives %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\barArrowRect}[6][fillstyle=solid]
{\ifthenelse{\bdorientation = \bdvert}
{\FPfadd{\mytempx}{#2}{#4}
\FPdiv{\RECTmid}{\mytempx}{2}
\FPfsub{\ARbot}{#5}{\arrowheight}
\FPmul{\mytempx}{\dbar}{\RECTwidth}
\FPdiv{\mytempxx}{\mytempx}{2}
\FPfsub{\RECTleft}{\RECTmid}{\mytempxx}
\FPfadd{\RECTright}{\RECTmid}{\mytempxx}
\psframe[linestyle=none,fillcolor=#6,linecolor=#6,#1](\RECTleft,#3)(\RECTright,\ARbot)
\pspolygon[fillcolor=#6,linecolor=#6,#1](#2,\ARbot)(\RECTmid,#5)(#4,\ARbot)(#2,\ARbot)
}
{\FPfadd{\mytempx}{#3}{#5}
\FPdiv{\RECTmid}{\mytempx}{2}
\FPfsub{\ARbot}{#4}{\arrowheight}
\FPmul{\mytempx}{\dbar}{\RECTwidth}
\FPdiv{\mytempxx}{\mytempx}{2}
\FPfsub{\RECTleft}{\RECTmid}{\mytempxx}
\FPfadd{\RECTright}{\RECTmid}{\mytempxx}
\psframe[linestyle=none,fillcolor=#6,linecolor=#6,#1](#2,\RECTleft)(\ARbot,\RECTright)
\pspolygon[fillcolor=#6,linecolor=#6,#1](\ARbot,#3)(#4,\RECTmid)(\ARbot,#5)(\ARbot,#3)
}
}
%---------------------------------------
\newcommand{\barGradRect}[6][fillstyle=gradient]
{\ifthenelse{\bdorientation = \bdvert}
{\psframe[gradbegin=#6,gradend=white,gradmidpoint=1,gradangle=45,
fillstyle=gradient,linestyle=none,linecolor=#6](#2,#3)(#4,#5)
}
{\psframe[gradbegin=#6,gradend=white,gradmidpoint=1,gradangle=-45,
fillstyle=gradient,linestyle=none,linecolor=#6](#2,#3)(#4,#5)
}
}
\newcommand{\barGradMidRect}[6][fillstyle=gradient]
{\ifthenelse{\bdorientation = \bdvert}
{\psframe[gradbegin=#6,gradend=white,gradmidpoint=0.3,gradangle=90,
fillstyle=gradient,linestyle=none,linecolor=#6](#2,#3)(#4,#5)
}
{\psframe[gradbegin=#6,gradend=white,gradmidpoint=0.3,gradangle=0,
fillstyle=gradient,linestyle=none,linecolor=#6](#2,#3)(#4,#5)
}
}
%---------------------------------------
\newcommand{\barGradCylinder}[6][fillstyle=gradient]
{ \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
\newpsstyle{gradcylstyle}{gradbegin=#6,gradend=white,gradmidpoint=0.25,gradangle=90,fillstyle=gradient,linestyle=none,linecolor=#6}
% Draw the bottom ellipse
\psellipse[style=gradcylstyle](\xtda,\ytda)(\elRx,\elRy)
\FPdiv{\tmpvar}{\ytd}{2}
\FPfadd{\ytdb}{\tmpvar}{#5} % Ycenter of the top ellipse
% Draw the rectangle
\psframe[style=gradcylstyle](#2,\ytda)(#4,\ytdb)
% Draw the top ellipse
\psellipse[fillstyle=solid,fillcolor=#6,linecolor=#6](\xtda,\ytdb)(\elRx,\elRy)
}
{ \FPfadd{\tmpvar}{#3}{#5}
\FPdiv{\ytda}{\tmpvar}{2}
\FPdiv{\tmpvar}{\ytd}{2}
\FPfadd{\xtda}{\tmpvar}{#2}
\newpsstyle{gradcylstyle}{gradbegin=#6,gradend=white,gradmidpoint=0.25,gradangle=0,fillstyle=gradient,linestyle=none,linecolor=#6}
% Draw the left ellipse
\psellipse[style=gradcylstyle](\xtda,\ytda,)(\elRy,\elRx)
\FPdiv{\tmpvar}{\ytd}{2}
\FPfadd{\ytdb}{\tmpvar}{#4}
% Draw the rectangle
\psframe[style=gradcylstyle](\xtda,#3)(\ytdb,#5)
% Draw the right ellipse
\psellipse[fillstyle=solid,fillcolor=#6,linecolor=#6](\ytdb,\ytda)(\elRy,\elRx)
}
}
%---------------------------------------
\newcommand{\barCoil}[6][qq]
{\ifthenelse{\bdorientation = \bdvert}
{\FPfadd{\mytempx}{#2}{#4}
\FPdiv{\RECTmid}{\mytempx}{2}
\pscoil[linecolor=#6,linewidth=3pt]{->}(\RECTmid,#3)(\RECTmid,#5)
}
{\FPfadd{\mytempx}{#3}{#5}
\FPdiv{\RECTmid}{\mytempx}{2}
\pscoil[linecolor=#5,linewidth=3pt]{->}(#2,\RECTmid)(#4,\RECTmid)
}
}
|