summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-16 21:46:17 +0000
committerKarl Berry <karl@freefriends.org>2014-04-16 21:46:17 +0000
commitf96c6f3b55f5a86a5f9dd5dbfe6422c72d1b4b8e (patch)
treebeffc750cc66d32f5364d9cab5c4f9ee4e9a39cc /Master/texmf-dist
parent408cfedcfd5475001e9dd7bd27370fbcfd72f50b (diff)
pst-circ (16apr14)
git-svn-id: svn://tug.org/texlive/trunk@33466 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/generic/pst-circ/Changes1
-rw-r--r--Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.pdfbin767567 -> 781069 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.tex156
-rw-r--r--Master/texmf-dist/tex/generic/pst-circ/pst-circ.tex172
4 files changed, 316 insertions, 13 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-circ/Changes b/Master/texmf-dist/doc/generic/pst-circ/Changes
index 87255488221..91702134d1d 100644
--- a/Master/texmf-dist/doc/generic/pst-circ/Changes
+++ b/Master/texmf-dist/doc/generic/pst-circ/Changes
@@ -1,3 +1,4 @@
+2.07 2014-04-15 - added some more symbols for microwaves
2.06 2014-04-01 - small fix for missing arrowinset
2.05 2013-10-03 - added new optional argument tensionstyle
2.04 2013-06-13 - added new optional argument matlabel and labelstyle
diff --git a/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.pdf b/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.pdf
index 8231896467c..0120cfaa459 100644
--- a/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.tex b/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.tex
index 3a0439cbccf..8188536c015 100644
--- a/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-circ/pst-circ-doc.tex
@@ -1,10 +1,11 @@
-%% $Id: pst-circ-doc.tex 829 2013-10-03 10:50:06Z herbert $
+%% $Id: pst-circ-doc.tex 906 2014-04-15 19:37:50Z herbert $
\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
headexclude,footexclude,oneside]{pst-doc}
\usepackage[utf8]{inputenc}
\usepackage{pst-circ}
-\usepackage{amsmath}
\let\pstCircFV\fileversion
+\usepackage{amsmath,siunitx}
+\DeclareSIUnit\dbm{dBm} %% Définition du dBm
\lstset{explpreset={pos=l,wide=false,rframe=},language=PSTricks,
morekeywords={multidipole,parallel},basicstyle=\footnotesize\ttfamily}
%
@@ -118,6 +119,7 @@ Thanks to: \\
\mbox{Alan Ristow},
\mbox{Uwe Siart},
\mbox{Carlos Marcelo de Oliveira Stein},
+ \mbox{Pierre Vivignis},
\mbox{Douglas Waud}, and
\mbox{Richard Weissnar}.
\end{sloppypar}
@@ -2168,6 +2170,22 @@ argument.
\end{pspicture}
\end{LTXexample}
+\begin{LTXexample}[width=3.5cm,rframe={}]
+\begin{pspicture}(3,2)
+ \pnodes(0,0){A}(2,0){B}
+ \attenuator[inputarrow,labeloffset=1cm,
+ dipoleinput=left](A)(B){Attentuator}
+\end{pspicture}
+\end{LTXexample}
+
+\begin{LTXexample}[width=3.5cm,rframe={}]
+\begin{pspicture}(3,2)
+ \pnodes(0,0){AA}(2,0){B}
+ \cell[labeloffset=1cm](A)(B){Cell}
+\end{pspicture}
+\end{LTXexample}
+
+
\subsection{New tripole macro-components}
\subsubsection{Mixer}
\begin{description}
@@ -2253,6 +2271,17 @@ argument.
\end{pspicture}
\end{LTXexample}
+
+\begin{LTXexample}[width=3.5cm,rframe={}]
+\begin{pspicture}(3,2)
+ \pnodes(0,1){A}(2,1){B}(1,0){C}
+ \splitter[inputarrow,labeloffset=1cm,
+ tripolestyle=bottom](A)(B)(C){Splitter}{}
+\end{pspicture}
+\end{LTXexample}
+
+
+
\subsection{New quadripole macro-components}
\subsubsection{Coupler}
\begin{description}
@@ -2300,12 +2329,34 @@ argument.
\subsection{Examples}
+
+\begin{pspicture}[labelangle=:U](8,5)
+ \pnodes(1, 3){A}(1.8, 3){B}(3.5, 3){C}(5, 3){D}(7, 3){E}(7.1, 3){EE}(6, 2){F}(5, 1){G}%
+ (7, 1){H}(7.1, 1){HH}(4, 1){I}(3.5, 1){J}
+ \rput(1, 3.9){\SI{3.57}{\decibel}}
+ \rput(1, 4.4){\SI{2.4}{\giga\hertz}}
+ \oscillator[output=right,fillstyle=solid,fillcolor=WildStrawberry](A){}{}
+ \attenuator[dipoleinput=left, labeloffset=0.9, inputarrow=true](B)(C){\SI{-3}{\decibel}}
+ \amplifier[dipoleinput=left, labeloffset=0.9, inputarrow=true](C)(D){+\SI{14}{\decibel}}
+ \splitter[tripolestyle=bottom,inputarrow=true, tripoleinput=left,fillstyle=solid,fillcolor=Magenta](D)(E)(F){}{}
+ \psline[arrowinset=0]{->}(E)(EE)
+ \mixer[tripolestyle=top,inputarrow=true, tripoleinput=right, labeloffset=0.9,fillstyle=solid,fillcolor=red](G)(H)(F){}{}
+ \wire(H)(HH)
+ \rput(7.8, 1.25){13 dBm}
+ \rput(7.8, 0.75){\SI{900}{\mega\hertz}}
+ \attenuator[dipoleinput=left,labeloffset=-0.9,linecolor=blue](I)(G){\textcolor{blue}{\SI{-10}{\decibel}}}
+ \psline[arrowinset=0]{->}(I)(J)
+ \rput(6, 3.9){\SI{-4}{\decibel}}
+ \rput(1.75, 1.25){\SI{3.3}{\mega\hertz} @\SI{-10}{\dbm}}
+ \rput(1.75, 0.75){\SI{1.5}{\mega\hertz} @\SI{-10}{\dbm}}
+\end{pspicture}
+
\subsubsection{Radiometer block diagram example}
From Chang, K., RF and Microwave Wireless Systems, Wiley InterScience, page 319, ISBN 0-471-35199-7
\noindent
\resizebox{\linewidth}{!}{%
-\begin{pspicture}(1,2)(19,9)
+\begin{pspicture}(1,1)(19,9)
\pnode(2,8){A}
\antenna{90}(A)
\rput(4,8){\rnode{B}{\psframebox{\begin{tabular}{c}Ferrite\\Switch\end{tabular}}}}
@@ -2356,8 +2407,8 @@ From Chang, K., RF and Microwave Wireless Systems, Wiley InterScience, page 319,
\end{tabular}}
\end{pspicture}}
-\clearpage
\begin{landscape}
+
\subsubsection{Ku-band Transceiver}
\resizebox{\linewidth}{!}{%
\psset{unit=1cm}
@@ -2539,6 +2590,100 @@ From Chang, K., RF and Microwave Wireless Systems, Wiley InterScience, page 319,
\end{tabular}}
\end{pspicture}}
+\psscalebox{0.7}{%
+\begin{pspicture}[labelangle=:U, showgrid=false](40,10)
+ \pnodes(1.75, 1){A}(3, 1){B}(3, 3.5){C}(4, 3.5){D}(6, 3.5){E}(6, 4.5){F}(3, 5.5){G}(6, 6){H}%
+ (2.5, 6.5){I}(2.5, 8.5){J}(0.5, 6.5){K}(0, 6.5){K1}(8.5, 6){L}(8.5, 5.5){L1}(8.5, 7){M}%
+ (8.5, 9){N}(8.5, 3.5){O}(7.25, 3.5){P}(11, 6){Q}(11, 4){R}(11, 3.5){S}(13, 6){T}%
+ (13, 5){U}(16, 5.5){V}(13, 3.5){W}(13, 1){X}(11.75, 1){X1}(17.5, 3.5){Y}(17.5, 5.5){Z}%
+ (20, 5.5){AA}(20, 6.5){AA1}(20, 5){AA2}(17.5, 9){BB}(22.5, 5.5){CC}(20, 3){DD}(20, 8.5){EE}%
+ (22.5, 3.5){FF}(22.5, 3){FF1}(18.75, 3){GG}(25, 5.5){HH}(25, 4.5){II}(28, 5){JJ}(25, 3){KK}%
+ (25, 0.5){LL}(23.75, 0.5){MM}(27, 3){NN}(29.5, 3){OO}(29.5, 5){PP}(29.5, 8.5){QQ}(31.5, 5){RR}(32.5, 5){SS}
+%
+ \newground [groundstyle=triangle]{180}(A) \rput(1.75, 2.2){+5}
+ \wire(A)(B)
+ \cell(B)(C){}
+ \wire[linecolor=blue](C)(D)
+ \potentiometer [dipolestyle =zigzag ,labelangle =:U, labeloffset=-0.6, linecolor=blue](D)(E)(F){\textcolor{blue}{$\SI{10}{\kilo\ohm}$}}
+ \wire[arrows=-*, linecolor=blue](E)(F) %$
+ \wire(C)(G)
+ \wire[arrows=-*](F)(H)
+ \OA[OAperfect=false, OAinvert=false](I)(G)(H)
+ \cell(I)(J){}
+ \capacitor[labelangle =0, labeloffset=-0.8](K)(I){$\SI{1}{\micro\farad}$}
+ \wire[arrows=-o](K)(K1)
+ \psarc(0, 6.5){0.15}{90}{-90}
+ \newground(0, 6.35)
+ \newground [groundstyle=triangle]{180}(J)
+ \resistor[arrows=-*, dipolestyle =zigzag ,labelangle =0, labeloffset=0.6](H)(L){$\SI{8.45}{\kilo\ohm}~ 1\%$}
+ \wire(L)(M)
+ \capacitor[labelangle =0, labeloffset=-0.8](M)(N){$\SI{1}{\nano\farad}$}
+ \wire(L)(L1)
+ \resistor[arrows=*-, dipolestyle =zigzag ,labelangle =0, labeloffset=-1.2](O)(L1){$\SI{102}{\kilo\ohm}~ 1\%$}
+ \wire(O)(P)
+ \newground [groundstyle=triangle]{180}(P)
+ \resistor[arrows=-*, dipolestyle =zigzag ,labelangle =0, labeloffset=0.6](L)(Q){$\SI{7.15}{\kilo\ohm}~ 1\%$}
+ \capacitor[labelangle =0, labeloffset=-0.8](R)(Q){$\SI{1}{\nano\farad}$}
+ \wire(O)(S)\wire(S)(R)\wire(Q)(T)
+ \OA[OAperfect=false, OAinvert=false, OApower = true](T)(U)(V)
+ \rput(2.5, 9.7){+5}
+ \rput(7.2, 4.7){+5}
+ \newground [groundstyle=triangle]{180}(14.5, 6)
+ \rput(14.5, 7.2){+12}
+ \newground(14.5, 5)
+ \wire[arrows = -*](U)(W)
+ \cell(X)(W){}
+ \wire(X)(X1)
+ \newground [groundstyle=triangle]{180}(X1)
+ \rput(11.75, 2.3){+5}
+ \wire(W)(15, 3.5)
+ \resistor[dipolestyle =zigzag](15, 3.5)(Y){$\SI{1}{\kilo\ohm}~ 1\%$}
+ \wire[arrows = -*](Y)(Z)
+ \wire(V)(Z)
+ \resistor[dipolestyle =zigzag, arrows =-*](Z)(AA){$\SI{17.4}{\kilo\ohm}~ 1\%$}
+ \wire(N)(BB)
+ \wire(BB)(Z)
+ \resistor[dipolestyle =zigzag, arrows =-*](AA)(CC){$\SI{4.12}{\kilo\ohm}~ 1\%$}
+ \wire(AA)(AA2)
+ \resistor[dipolestyle =zigzag ,labelangle =0, labeloffset=1.1, arrows =-*](AA2)(DD){$\SI{28}{\kilo\ohm}~ 1\%$}
+ \wire(AA)(AA1)
+ \capacitor[labelangle =0, labeloffset=-0.8](AA1)(EE){$\SI{1}{\nano\farad}$}
+ \capacitor[labelangle =0, labeloffset=0.8](CC)(FF){$\SI{1}{\nano\farad}$}
+ \wire(FF)(FF1)
+ \wire(FF1)(GG)
+ \newground [groundstyle=triangle]{180}(GG)
+ \rput(18.75, 4.2){+5}
+ \wire(CC)(HH)
+ \OA[OAperfect=false, OAinvert=false](HH)(II)(JJ)
+ \wire[arrows=-*](II)(KK)
+ \cell(LL)(KK){}
+ \wire(LL)(MM)
+ \newground [groundstyle=triangle]{180}(MM)
+ \rput(23.75, 1.7){+5}
+ \wire(KK)(NN)
+ \resistor[dipolestyle =zigzag](NN)(OO){$\SI{1}{\kilo\ohm}~ 1\%$}
+ \wire(OO)(PP)
+ \wire[arrows = -*](JJ)(PP)
+ \wire(EE)(QQ)
+ \wire(QQ)(PP)
+ \resistor[dipolestyle =zigzag](PP)(RR){$\SI{47}{\kilo\ohm}$}
+ \wire[arrows=-o](RR)(SS)
+ %% OP AMP PINS
+ \rput(3.2, 6.7){\texttt{10}}
+ \rput(3.2, 5.7){\texttt{9}}
+ \rput(5.7, 6.2){\texttt{8}}
+ \rput(13.2, 6.2){\texttt{3}}
+ \rput(13.2, 5.2){\texttt{2}}
+ \rput(15.7, 5.7){\texttt{1}}
+ \rput(14.7, 6.2){\texttt{4}}
+ \rput(14.7, 4.8){\texttt{11}}
+ \rput(25.2, 5.7){\texttt{5}}
+ \rput(25.2, 4.7){\texttt{6}}
+ \rput(27.7, 5.2){\texttt{7}}
+\end{pspicture}}
+
+
+
\end{landscape}
@@ -3869,6 +4014,9 @@ all is finished.
\end{pspicture}
\end{LTXexample}
+
+
+
\section{Adding new components}
Adding new components is not simple unless you need only a simple dipole. For dipoles a macro is provided that generates all helping macros for a new component so that you need to write only the actual drawing code.
diff --git a/Master/texmf-dist/tex/generic/pst-circ/pst-circ.tex b/Master/texmf-dist/tex/generic/pst-circ/pst-circ.tex
index f0d6b52e3c1..d5f9905cd4d 100644
--- a/Master/texmf-dist/tex/generic/pst-circ/pst-circ.tex
+++ b/Master/texmf-dist/tex/generic/pst-circ/pst-circ.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-circ.tex 904 2014-04-01 08:46:07Z herbert $
+%% $Id: pst-circ.tex 906 2014-04-15 19:37:50Z herbert $
%% This is file `pst-circ.tex'
%%
%% IMPORTANT NOTICE:
@@ -26,8 +26,8 @@
\ifx\PSTXKeyLoaded\endinput \else\input pst-xkey \fi
\ifx\PSTMultidoLoaded\endinput\else\input multido.tex\fi
%
-\def\fileversion{2.06}
-\def\filedate{2014/04/01}
+\def\fileversion{2.07}
+\def\filedate{2014/04/15}
\message{`pst-circ' v\fileversion (hv)}
%
\edef\PstAtCode{\the\catcode`\@}
@@ -931,7 +931,6 @@
\expandafter\def\csname pst@#2\endcsname[##1](##2)(##3)##4{{%
\pst@draw@dipole{#1,##1}{##2}{##3}{##4}{\@nameuse{pst@draw@#2}}}\ignorespaces}%
%
- %
\@namedef{pst@multidipole@#2}{\@ifnextchar[{\@nameuse{pst@multidipole@#2@}}{\@nameuse{pst@multidipole@#2@}[]}}
\expandafter\def\csname pst@multidipole@#2@\endcsname[##1]##2{%
\expandafter\def\csname pst@tmp@\number\pst@count@iii\endcsname{##2}%
@@ -949,9 +948,7 @@
{\noexpand\csname pst@tmp@\number\pst@count@iii\endcsname}
}%
\pst@multidipole@%
-}
- }%
-\ignorespaces}%
+}}\ignorespaces}%
%
\newCircDipole{RFLine}
\newCircDipole{resistor}
@@ -2725,7 +2722,6 @@
\def\mixer{\pst@object{mixer}}
\def\mixer@i(#1)(#2)(#3)#4#5{%
\addbefore@par{dimen=middle}%
- \begin@ClosedObj
\pst@getcoor{#1}\pst@tempa
\pst@getcoor{#2}\pst@tempb
\pst@getcoor{#3}\pst@tempc
@@ -2739,7 +2735,9 @@
/XC X1 X2 add 2 div def
/YC Y2 def
XC YC){C@}
+ \begingroup\use@par
\rput(C@){\pst@draw@mixer{#3}{#4}{#5}}
+ \endgroup
\ifx\psk@Tinput\pst@Tinput@left%
\ifPst@inputarrow
\ncangle[arrows=->,arrowinset=0,arm=0.5,angleB=180]{#1}{Tport@left}
@@ -2757,11 +2755,11 @@
\fi
\pcline[linestyle=none](#1)(#2)% for the endarrows
\pcline[linestyle=none](#2)(#3)% for the endarrows
- \end@ClosedObj
\ignorespaces%
}
\def\pst@draw@mixer#1#2#3{%
\pscircle[#3,linewidth=1.5\pslinewidth](0,0){0.5}
+ \let\psk@fillstyle\psfs@none
\psline[linewidth=1.5\pslinewidth](-0.3535,-0.3535)(0.3535,0.3535)
\psline[linewidth=1.5\pslinewidth](-0.3535,0.3535)(0.3535,-0.3535)
\pnode(-0.5,0){Tport@left}%
@@ -5198,6 +5196,162 @@
\fi
}}
%
+% PHOTOVOLTAIC CELL
+%
+% \cell
+%
+\def\cell{\@ifnextchar[{\pst@cell}{\pst@cell[]}}
+\def\pst@cell[#1](#2)(#3)#4{{%
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@cell}
+% \pst@getcoor{#2}\pst@tempa
+% \pst@getcoor{#3}\pst@tempb
+ \ignorespaces}
+%
+\def\pst@draw@cell{{%
+ \pscircle(0.1,0){0.5}
+ \psline[linewidth=2.5\pslinewidth](-0.1,-0.2)(-0.1, 0.2)
+ \psline[linewidth=2\pslinewidth](0.1,-0.4)(0.1, 0.4)
+ \psline[arrows=->](0.9,1)(0.5,0.6)
+ \psline[arrows=->](0.6,1)(0.2,0.6)
+ \wire(-0.6,0)(-0.1,0)
+ \wire(0.6,0)(0.1,0)
+ \pnode(-0.6,0){dipole@1}
+ \pnode(0.6,0){dipole@2}%
+}\ignorespaces}%
+%
+% \splitter
+%
+\def\splitter{\pst@object{splitter}}
+\def\splitter@i(#1)(#2)(#3)#4#5{%
+ \addbefore@par{dimen=middle}%
+ \pst@getcoor{#1}\pst@tempa
+ \pst@getcoor{#2}\pst@tempb
+ \pst@getcoor{#3}\pst@tempc
+ \pnode(!%
+ \pst@tempa /Y1 exch \pst@number\psyunit div def
+ /X1 exch \pst@number\psxunit div def
+ \pst@tempb /Y2 exch \pst@number\psyunit div def
+ /X2 exch \pst@number\psxunit div def
+ \pst@tempc /Y3 exch \pst@number\psyunit div def
+ /X3 exch \pst@number\psxunit div def
+ /XC X1 X2 add 2 div def
+ /YC Y2 def
+ XC YC){C@}
+ \begingroup\use@par
+ \rput(C@){\pst@draw@splitter{#3}{#4}{#5}}
+ \ifx\psk@Tinput\pst@Tinput@left%
+ \ifPst@inputarrow
+ \ncangle[arrows=->,arrowinset=0,arm=0.5,angleB=180]{#1}{Tport@left}
+ \else
+ \ncangle[arrows=-,arm=0.5,angleB=0]{#1}{Tport@left}
+ \fi
+ \ncangle[arrows=-, arm=0.5,angleB=0]{#2}{Tport@right}
+ \else
+ \ifPst@inputarrow
+ \ncangle[arrows=->,arrowinset=0,arm=0.5,angleB=0]{#2}{Tport@right}
+ \else
+ \ncangle[arrows=-,arm=0.5,angleB=180]{Tport@right}{#2}
+ \fi
+ \ncangle[arrows=-,arm=0.5,angleB=180]{#1}{Tport@left}
+ \fi
+ \endgroup
+ \pcline[linestyle=none](#1)(#2)% for the endarrows
+ \pcline[linestyle=none](#2)(#3)% for the endarrows
+ \ignorespaces%
+}
+\def\pst@draw@splitter#1#2#3{%
+ \psframe[linewidth=1.5\pslinewidth](-0.5,-0.5)(0.5,0.5)
+ \let\psk@fillstyle\psfs@none
+ %% Diagonal line within the square
+ \ifx\psk@Tinput\pst@Tinput@left%
+ \ifx\psk@tripole@style\pst@tripole@style@top%
+ \psline[linewidth=1.5\pslinewidth](-0.5,0.5)(0.5,-0.5)
+ \else
+ \psline[linewidth=1.5\pslinewidth](-0.5,-0.5)(0.5,0.5)
+ \fi
+ \else
+ \ifx\psk@tripole@style\pst@tripole@style@top%
+ \psline[linewidth=1.5\pslinewidth](-0.5,-0.5)(0.5,0.5)
+ \else
+ \psline[linewidth=1.5\pslinewidth](-0.5,0.5)(0.5,-0.5)
+ \fi
+ \fi
+ \pnodes(-0.5,0){Tport@left}(0.5,0){Tport@right}%
+ \ifx\psk@tripole@style\pst@tripole@style@top%
+ \pcline[offset=-\psk@label@offset,linestyle=none](Tport@left)(Tport@right)\ncput{#2}%
+ \pnode(0,0.5){Tport@center}
+ \ncangle[arrows=-,arm=0.5,angleB=90]{#1}{Tport@center}
+ \else
+ \pcline[offset=\psk@label@offset,linestyle=none](Tport@left)(Tport@right)\ncput{#2}%
+ \pnode(0,-0.5){Tport@center}
+ \ncangle[arrows=-,arm=0.5,angleB=270]{#1}{Tport@center}
+ \fi%
+}
+%
+%%% Attenuator %%%
+%
+\newCircDipole{attenuator}
+\def\pst@draw@attenuator{%
+ \pnode(-0.433,0){dipole@1}
+ \pnode(0.433,0){dipole@2}
+ \psline[fillstyle=none, arrowinset=0](-0.5,0)(0.5,0)
+ \ifx\psk@Dinput\pst@Dinput@right
+ \psline[linewidth=1.5\pslinewidth,fillstyle=none](-0.10825,0.433)(0.10825,0.2165)(-0.10825,0)(0.10825,-0.2165)(-0.10825,-0.433)
+ \else
+ \psline[linewidth=1.5\pslinewidth, fillstyle=none](0.10825,0.433)(-0.10825,0.2165)(0.10825,0)(-0.10825,-0.2165)(0.10825,-0.433)
+ \fi
+}
+%
+% THIS CAN BE SET AS AN OPTION OF THE OSCILLATOR...
+% IT'S UP TO YOU...
+%
+%%% Modulator
+%
+\newCircDipole{modulator}
+\def\pst@draw@modulator{%
+ \pnode(-0.5,0){dipole@1}
+ \pnode(0.5,0){dipole@2}
+ \pscircle[linewidth=1.5\pslinewidth](0,0){0.5}
+ \ifx\psk@Dinput\pst@Dinput@right
+ \psline[linewidth=1.5\pslinewidth]{cc-cc}(-0.3,-0.1)(0,0.2)(0,-0.1)(0.3,-0.1)
+ \else
+ \psline[linewidth=1.5\pslinewidth]{cc-cc}(-0.3,-0.1)(0,-0.1)(0,0.2)(0.3,-0.1)
+ \fi
+}
+%
+%%% Plug %%%
+%
+\def\plug{\@ifnextchar[{\pst@plug}{\pst@plug[]}}
+\def\pst@plug[#1]{%
+ \@ifnextchar({\pst@plugi[#1]{0}}{\pst@plugi[#1]}%
+}
+\def\pst@plugi[#1]#2(#3){{%
+ \psset{#1}%
+ \rput{#2}(#3){%
+ \psline[linewidth=1.5\pslinewidth](0,0)(0,-0.3)(1.2,-0.3)(1.5,0)(1.2,0.3)(0,0.3)(0,0)
+ }}%
+ \ignorespaces%
+}
+%
+% \ampsinu
+%
+% THIS CAN ALSO BE SET AS AN OPTION FOR THE AMPLIFIER...
+% IT'S UP TO YOU
+\newCircDipole{ampsinu}
+\def\pst@draw@ampsinu{%
+ \pnode(-0.433,0){dipole@1}
+ \pnode(0.433,0){dipole@2}
+ \ifx\psk@Dinput\pst@Dinput@right
+ \pstriangle[gangle=90,linewidth=1.5\pslinewidth](0.433,0)(1,0.866)
+ \pscurve[fillstyle=none,linewidth=1\pslinewidth](0.071625,-0.20)(0.025,-0.125)(0.061625,-0.05)%
+ (0.15,0.025)(0.238375,0.1)(0.275,0.175)(0.238375,0.25)
+ \else
+ \pstriangle[gangle=-90,linewidth=1.5\pslinewidth](-0.433,0)(1,0.866)
+ \pscurve[fillstyle=none,linewidth=1\pslinewidth](-0.071625,-0.20)(-0.025,-0.125)(-0.061625,-0.05)%
+ (-0.15,0.025)(-0.238375,0.1)(-0.275,0.175)(-0.238375,0.25)
+ \fi
+}
+%
\catcode`\@=\PstAtCode\relax
%
\endinput \ No newline at end of file