summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-circ
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-02-03 01:26:19 +0000
committerKarl Berry <karl@freefriends.org>2009-02-03 01:26:19 +0000
commitb396e9795f300708e4296019397ba084a1a37ace (patch)
tree7a37c83a72338c984c2c30d299f5803d428a2d25 /Master/texmf-dist/tex/generic/pst-circ
parent8f110ef84fb7ea64a55198b28dd444c222e4aef7 (diff)
pst-circ 1.50 (2feb09)
git-svn-id: svn://tug.org/texlive/trunk@12055 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-circ')
-rw-r--r--Master/texmf-dist/tex/generic/pst-circ/pst-circ.tex849
1 files changed, 366 insertions, 483 deletions
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 f4e41324609..aef09754ac7 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 @@
-%%
+
%% This is file `pst-circ.tex',
%%
%% IMPORTANT NOTICE:
@@ -29,8 +29,8 @@
\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi
\ifx\PSTMultidoLoaded\endinput\else\input multido.tex\fi
%
-\def\fileversion{1.49}
-\def\filedate{2008/11/08}
+\def\fileversion{1.50}
+\def\filedate{2009/01/18}
\message{`pst-circ' v\fileversion (CJ,hv,pd)}
%
\edef\PstAtCode{\the\catcode`\@}
@@ -47,35 +47,14 @@
\newcount\pst@count@ii
\newcount\pst@count@iii
%
-\newif\ifPst@intensity
-\newif\ifPst@tension
\newif\ifPst@Dconvention
-\newif\ifPst@direct@convention
\newif\ifPst@parallel
\newif\ifPst@parallel@node
-\newif\ifPst@wire@intersect
-\newif\ifPst@OA@perfect
-\newif\ifPst@OA@power
-\newif\ifPst@OA@invert
-\newif\ifPst@OA@iplus
-\newif\ifPst@OA@iminus
-\newif\ifPst@OA@iout
-\newif\ifPst@T@circle% hv 2003-07-23
-\newif\ifPst@T@invert
-\newif\ifPst@T@iB
-\newif\ifPst@T@iC
-\newif\ifPst@T@iE
\newif\ifPst@T@changeLR
\newif\ifPst@Ttype
\newif\ifPst@FETchanneltype% Ted
-\newif\ifPst@T@memory% atosch
\newif\ifPst@Trafo@iprimary
\newif\ifPst@Trafo@isecondary
-\newif\ifPst@variable
-%
-\newif\ifPst@logic@showDot % hv
-\newif\ifPst@logic@showNode % hv
-\newif\ifPst@logic@changeLR % hv
%
\def\pst@Dconvention@receptor{receptor}
\def\pst@Dconvention@generator{generator}
@@ -109,87 +88,87 @@
\def\pst@tripole@style@center{center}
\def\pst@tripole@style@french{french}
%
-\define@key[psset]{pst-circ}{intensity}[true]{\@nameuse{Pst@intensity#1}}
-\define@key[psset]{pst-circ}{intensitylabel}{\def\psk@I@label{#1}}
-\define@key[psset]{pst-circ}{intensitylabelcolor}{\def\psk@I@labelcolor{#1}}
-\define@key[psset]{pst-circ}{intensitylabeloffset}{\def\psk@I@label@offset{#1}}
-\define@key[psset]{pst-circ}{intensitycolor}{\def\psk@I@color{#1}}
-\define@key[psset]{pst-circ}{intensitywidth}{\def\psk@I@width{#1}}
-\define@key[psset]{pst-circ}{tension}[true]{\@nameuse{Pst@tension#1}}
-\define@key[psset]{pst-circ}{tensionlabel}{\def\psk@tension@label{#1}}
-\define@key[psset]{pst-circ}{tensionlabelcolor}{\def\psk@tension@labelcolor{#1}}
-\define@key[psset]{pst-circ}{tensionoffset}{\def\psk@tension@offset{#1}}
-\define@key[psset]{pst-circ}{tensionlabeloffset}{\def\psk@tension@label@offset{#1}}
-\define@key[psset]{pst-circ}{tensioncolor}{\def\psk@tension@color{#1}}
-\define@key[psset]{pst-circ}{tensionwidth}{\def\psk@tension@width{#1}}
-\define@key[psset]{pst-circ}{labeloffset}{\def\psk@label@offset{#1}}
-\define@key[psset]{pst-circ}{labelangle}{\def\psk@label@angle{#1}}
-\define@key[psset]{pst-circ}{labelInside}{\def\psk@labelInside{#1}}
-\define@key[psset]{pst-circ}{dipoleconvention}{\def\psk@Dconvention{#1}}
-\define@key[psset]{pst-circ}{directconvention}[true]{\@nameuse{Pst@direct@convention#1}}
-\define@key[psset]{pst-circ}{dipolestyle}{\def\psk@Dstyle{#1}}
+\define@boolkey[psset]{pst-circ}[Pst@]{intensity}[true]{}
+\define@key[psset]{pst-circ}{intensitylabel}[]{\def\psk@I@label{#1}}
+\define@key[psset]{pst-circ}{intensitylabelcolor}[black]{\def\psk@I@labelcolor{#1}}
+\define@key[psset]{pst-circ}{intensitylabeloffset}[0.5]{\def\psk@I@label@offset{#1}}
+\define@key[psset]{pst-circ}{intensitycolor}[black]{\def\psk@I@color{#1}}
+\define@key[psset]{pst-circ}{intensitywidth}[\pslinewidth]{\def\psk@I@width{#1}}
+\define@boolkey[psset]{pst-circ}[Pst@]{tension}[true]{}
+\define@key[psset]{pst-circ}{tensionlabel}[]{\def\psk@tension@label{#1}}
+\define@key[psset]{pst-circ}{tensionlabelcolor}[black]{\def\psk@tension@labelcolor{#1}}
+\define@key[psset]{pst-circ}{tensionoffset}[1]{\def\psk@tension@offset{#1}}
+\define@key[psset]{pst-circ}{tensionlabeloffset}[1.2]{\def\psk@tension@label@offset{#1}}
+\define@key[psset]{pst-circ}{tensioncolor}[black]{\def\psk@tension@color{#1}}
+\define@key[psset]{pst-circ}{tensionwidth}[\pslinewidth]{\def\psk@tension@width{#1}}
+\define@key[psset]{pst-circ}{labeloffset}[0.7]{\def\psk@label@offset{#1}}
+\define@key[psset]{pst-circ}{labelangle}[0]{\def\psk@label@angle{#1}}
+\define@key[psset]{pst-circ}{labelInside}[0]{\def\psk@labelInside{#1}}
+\define@key[psset]{pst-circ}{dipoleconvention}[receptor]{\def\psk@Dconvention{#1}}
+\define@boolkey[psset]{pst-circ}[Pst@]{directconvention}[true]{}
+\define@key[psset]{pst-circ}{dipolestyle}[normal]{\def\psk@Dstyle{#1}}
\define@key[psset]{pst-circ}{parallel}[true]{\@nameuse{Pst@parallel#1}}
-\define@key[psset]{pst-circ}{parallelarm}{\def\psk@parallel@arm{#1}}
-\define@key[psset]{pst-circ}{parallelsep}{\def\psk@parallel@sep{#1}}
+\define@key[psset]{pst-circ}{parallelarm}[1.5]{\def\psk@parallel@arm{#1}}
+\define@key[psset]{pst-circ}{parallelsep}[0]{\def\psk@parallel@sep{#1}}
\define@key[psset]{pst-circ}{parallelnode}[true]{\@nameuse{Pst@parallel@node#1}}
-\define@key[psset]{pst-circ}{intersect}[true]{\@nameuse{Pst@wire@intersect#1}}
+\define@boolkey[psset]{pst-circ}[Pst@wire@]{intersect}[true]{}
\define@key[psset]{pst-circ}{intersectA}{\def\psk@wire@intersectA{#1}}
\define@key[psset]{pst-circ}{intersectB}{\def\psk@wire@intersectB{#1}}
-\define@key[psset]{pst-circ}{OAperfect}[true]{\@nameuse{Pst@OA@perfect#1}}
-\define@key[psset]{pst-circ}{OApower}[true]{\@nameuse{Pst@OA@power#1}}
-\define@key[psset]{pst-circ}{OAinvert}[true]{\@nameuse{Pst@OA@invert#1}}
-\define@key[psset]{pst-circ}{OAiplus}[true]{\@nameuse{Pst@OA@iplus#1}}
-\define@key[psset]{pst-circ}{OAiminus}[true]{\@nameuse{Pst@OA@iminus#1}}
-\define@key[psset]{pst-circ}{OAiout}[true]{\@nameuse{Pst@OA@iout#1}}
-\define@key[psset]{pst-circ}{OAipluslabel}{\def\psk@label@OA@iplus{#1}}
-\define@key[psset]{pst-circ}{OAiminuslabel}{\def\psk@label@OA@iminus{#1}}
-\define@key[psset]{pst-circ}{OAioutlabel}{\def\psk@label@OA@iout{#1}}
-\define@key[psset]{pst-circ}{transistorcircle}[true]{\@nameuse{Pst@T@circle#1}}% hv 2003-07-23
-\define@key[psset]{pst-circ}{transistorinvert}[true]{\@nameuse{Pst@T@invert#1}}
-\define@key[psset]{pst-circ}{transistoribase}[true]{\@nameuse{Pst@T@iB#1}}
-\define@key[psset]{pst-circ}{transistoricollector}[true]{\@nameuse{Pst@T@iC#1}}
-\define@key[psset]{pst-circ}{transistoriemitter}[true]{\@nameuse{Pst@T@iE#1}}
-\define@key[psset]{pst-circ}{transistoribaselabel}{\def\psk@labelT@iB{#1}}
-\define@key[psset]{pst-circ}{transistoricollectorlabel}{\def\psk@labelT@iC{#1}}
-\define@key[psset]{pst-circ}{transistoriemitterlabel}{\def\psk@labelT@iE{#1}}
+\define@boolkey[psset]{pst-circ}[Pst@]{OAperfect}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{OApower}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{OAinvert}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{OAiplus}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{OAiminus}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{OAiout}[true]{}
+\define@key[psset]{pst-circ}{OAipluslabel}[]{\def\psk@label@OAiplus{#1}}
+\define@key[psset]{pst-circ}{OAiminuslabel}[]{\def\psk@label@OAiminus{#1}}
+\define@key[psset]{pst-circ}{OAioutlabel}[]{\def\psk@label@OAiout{#1}}
+\define@boolkey[psset]{pst-circ}[Pst@]{transistorcircle}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{transistorinvert}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{transistoribase}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{transistoricollector}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{transistoriemitter}[true]{}
+\define@key[psset]{pst-circ}{transistoribaselabel}[]{\def\psk@labeltransistoribase{#1}}
+\define@key[psset]{pst-circ}{transistoricollectorlabel}[]{\def\psk@labeltransistoricollector{#1}}
+\define@key[psset]{pst-circ}{transistoriemitterlabel}[]{\def\psk@labeltransistoriemitter{#1}}
\define@key[psset]{pst-circ}{FETchanneltype}{\def\psk@FETchanneltype{#1}}% Ted 2007-10-15
-\define@key[psset]{pst-circ}{FETmemory}[true]{\@nameuse{Pst@T@memory#1}}% atosch
-\define@key[psset]{pst-circ}{transistortype}{%
+\define@boolkey[psset]{pst-circ}[Pst@]{FETmemory}[true]{}
+\define@key[psset]{pst-circ}{transistortype}[NPN]{%
\def\psk@Ttype{#1}%
- \ifx\psk@Ttype\pst@Ttype@FET\relax\@nameuse{Pst@T@circlefalse}\fi}
+ \ifx\psk@Ttype\pst@Ttype@FET \Pst@transistorcirclefalse\fi}
\newdimen\Pst@basesep
-\define@key[psset]{pst-circ}{basesep}{\pst@getlength{#1}\Pst@basesep}
-\define@key[psset]{pst-circ}{TRot}{\pst@checknum{#1}\Pst@TRot}
-\define@key[psset]{pst-circ}{circedge}{%
+\define@key[psset]{pst-circ}{basesep}[0]{\pst@getlength{#1}\Pst@basesep}
+\define@key[psset]{pst-circ}{TRot}[0]{\pst@checknum{#1}\Pst@TRot}
+\define@key[psset]{pst-circ}{circedge}[\pcangle]{%
\let\pscirc@edge#1%
\ifx\pscirc@edge\@none\def\pscirc@edge(##1)(##2){}\fi%
\ifx\pscirc@edge\pcangles\def\pscirc@edge@sector{2.5}\else\def\pscirc@edge@sector{1.5}\fi%
}
%
-\define@key[psset]{pst-circ}{primarylabel}{\def\psk@Trafo@primary@label{#1}}
-\define@key[psset]{pst-circ}{secondarylabel}{\def\psk@Trafo@secondary@label{#1}}
+\define@key[psset]{pst-circ}{primarylabel}[]{\def\psk@Trafo@primary@label{#1}}
+\define@key[psset]{pst-circ}{secondarylabel}[]{\def\psk@Trafo@secondary@label{#1}}
\define@key[psset]{pst-circ}{transformeriprimary}[true]{\@nameuse{Pst@Trafo@iprimary#1}}
\define@key[psset]{pst-circ}{transformerisecondary}[true]{\@nameuse{Pst@Trafo@isecondary#1}}
-\define@key[psset]{pst-circ}{transformeriprimarylabel}{\def\psk@Trafo@iprimary@label{#1}}
-\define@key[psset]{pst-circ}{transformerisecondarylabel}{\def\psk@Trafo@isecondary@label{#1}}
-\define@key[psset]{pst-circ}{tripolestyle}{\def\psk@tripole@style{#1}}
-\define@key[psset]{pst-circ}{variable}[true]{\@nameuse{Pst@variable#1}}
-%
-\define@key[psset]{pst-circ}{logicChangeLR}[false]{\@nameuse{Pst@logic@changeLR#1}}% hv
-\define@key[psset]{pst-circ}{logicShowDot}[false]{\@nameuse{Pst@logic@showDot#1}}% hv
-\define@key[psset]{pst-circ}{logicShowNode}[false]{\@nameuse{Pst@logic@showNode#1}}% hv
-%\define@key[psset]{pst-circ}{logicOrigin}{\def\psk@logic@origin{#1}}% hv
-\define@key[psset]{pst-circ}{logicWidth}{\def\psk@logic@width{#1}}% hv
-\define@key[psset]{pst-circ}{logicHeight}{\def\psk@logic@height{#1}}% hv
-\define@key[psset]{pst-circ}{logicType}{\def\psk@logic@type{#1}}% hv
-\define@key[psset]{pst-circ}{logicNInput}{\def\psk@logic@nInput{#1}}% hv
-\define@key[psset]{pst-circ}{logicJInput}{\def\psk@logic@JInput{#1}}% hv
-\define@key[psset]{pst-circ}{logicKInput}{\def\psk@logic@KInput{#1}}% hv
-\define@key[psset]{pst-circ}{logicWireLength}{\def\psk@logic@wireLength{#1}}% hv
-\define@key[psset]{pst-circ}{logicLabelstyle}{\def\psk@logic@labelstyle{#1}}% hv
-\define@key[psset]{pst-circ}{logicSymbolstyle}{\def\psk@logic@symbolstyle{#1}}% hv
-\define@key[psset]{pst-circ}{logicSymbolpos}{\def\psk@logic@symbolpos{#1}}% hv
-\define@key[psset]{pst-circ}{logicNodestyle}{\def\psk@logic@nodestyle{#1}}% hv
+\define@key[psset]{pst-circ}{transformeriprimarylabel}[]{\def\psk@Trafo@iprimary@label{#1}}
+\define@key[psset]{pst-circ}{transformerisecondarylabel}[]{\def\psk@Trafo@isecondary@label{#1}}
+\define@key[psset]{pst-circ}{tripolestyle}[normal]{\def\psk@tripole@style{#1}}
+\define@boolkey[psset]{pst-circ}[Pst@]{variable}[true]{}
+%
+\define@boolkey[psset]{pst-circ}[Pst@]{logicChangeLR}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{logicShowDot}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{logicShowNode}[true]{}
+\define@key[psset]{pst-circ}{logicWidth}[1.5]{\def\psk@logic@width{#1}}% hv
+\define@key[psset]{pst-circ}{logicHeight}[2.5]{\def\psk@logic@height{#1}}% hv
+\define@key[psset]{pst-circ}{logicType}[and]{\def\psk@logic@type{#1}}% hv
+\define@key[psset]{pst-circ}{logicNInput}[2]{\def\psk@logic@nInput{#1}}% hv
+\define@key[psset]{pst-circ}{logicJInput}[2]{\def\psk@logic@JInput{#1}}% hv
+\define@key[psset]{pst-circ}{logicKInput}[2]{\def\psk@logic@KInput{#1}}% hv
+\define@key[psset]{pst-circ}{logicWireLength}[0.5]{\def\psk@logic@wireLength{#1}}% hv
+\define@key[psset]{pst-circ}{logicLabelstyle}[\small]{\def\psk@logic@labelstyle{#1}}% hv
+\define@key[psset]{pst-circ}{logicSymbolstyle}[\large]{\def\psk@logic@symbolstyle{#1}}% hv
+\define@key[psset]{pst-circ}{logicSymbolpos}[0.5]{\def\psk@logic@symbolpos{#1}}% hv
+\define@key[psset]{pst-circ}{logicNodestyle}[\footnotesize]{\def\psk@logic@nodestyle{#1}}% hv
+
%
\def\pst@logic@type@and{and}
\def\pst@logic@type@or{or}
@@ -205,7 +184,8 @@
%
\psset[pst-circ]{%
labelInside=0,circedge=\pcangle,
- intensity=false,intensitylabel={},intensitylabeloffset=0.5,
+ intensity=false,intensitylabel={},
+ intensitylabeloffset=0.5,
intensitycolor=black,intensitylabelcolor=black,intensitywidth=\pslinewidth,
tension=false,tensionlabel={},tensionoffset=1,tensionlabeloffset=1.2,
tensioncolor=black,tensionlabelcolor=black,tensionwidth=\pslinewidth,
@@ -236,82 +216,73 @@
\newpsstyle{collectorOpt}{arrows=-,arm=.5,angleA=180,angleB=90}
%
\def\wire{\@ifnextchar[{\pst@draw@wire}{\pst@draw@wire[]}}
-%
\def\tension{\@ifnextchar[{\pst@draw@tension@}{\pst@draw@tension@[]}}
%
+\def\RFLine{\@ifnextchar[{\pst@RFLine}{\pst@RFLine[]}}
+\def\pst@RFLine[#1](#2)(#3)#4{{%
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@RFLine}\ignorespaces}
+%
\def\resistor{\@ifnextchar[{\pst@resistor}{\pst@resistor[]}}
\def\pst@resistor[#1](#2)(#3)#4{{%
\pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@resistor}\ignorespaces}
%
\def\capacitor{\@ifnextchar[{\pst@capacitor}{\pst@capacitor[]}}
\def\pst@capacitor[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@capacitor%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@capacitor}\ignorespaces}
%
\def\battery{\@ifnextchar[{\pst@battery}{\pst@battery[]}}
\def\pst@battery[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@battery%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@battery}\ignorespaces}
%
\def\coil{\@ifnextchar[{\pst@coil}{\pst@coil[]}}
\def\pst@coil[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@coil%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@coil}\ignorespaces}
%
\def\Ucc{\@ifnextchar[{\pst@Ucc}{\pst@Ucc[]}}
\def\pst@Ucc[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@Ucc%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@Ucc}\ignorespaces}
%
\def\Icc{\@ifnextchar[{\pst@Icc}{\pst@Icc[]}}
\def\pst@Icc[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@Icc%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@Icc}\ignorespaces}
%
\def\switch{\@ifnextchar[{\pst@switch}{\pst@switch[]}}
\def\pst@switch[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@switch%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@switch}\ignorespaces}
%
\def\diode{\@ifnextchar[{\pst@diode}{\pst@diode[]}}
\def\pst@diode[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@diode%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@diode}\ignorespaces}
%
\def\Zener{\@ifnextchar[{\pst@Zener}{\pst@Zener[]}}
\def\pst@Zener[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@Zener%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@Zener}\ignorespaces}
%
\def\lamp{\@ifnextchar[{\pst@lamp}{\pst@lamp[]}}
\def\pst@lamp[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@lamp%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@lamp}\ignorespaces}
%
\def\circledipole{\@ifnextchar[{\pst@circledipole}{\pst@circledipole[]}}
\def\pst@circledipole[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@circledipole%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@circledipole}\ignorespaces}
%
\def\LED{\@ifnextchar[{\pst@LED}{\pst@LED[]}}
\def\pst@LED[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@LED%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@LED}\ignorespaces}
%
% pd start ====================================================
\def\dashpot{\@ifnextchar[{\pst@dashpot}{\pst@dashpot[]}}
\def\pst@dashpot[#1](#2)(#3)#4{{%
- \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@dashpot%
- }\ignorespaces}
+ \pst@draw@dipole{#1}{#2}{#3}{#4}\pst@draw@dashpot}\ignorespaces}
% pd end ======================================================
%
\def\OA{\pst@object{OA}}
\def\OA@i(#1)(#2)(#3){%
\addbefore@par{dimen=middle}%
\begin@ClosedObj%
- \if\psk@label@OA@iplus\@empty\else\psset{OAiplus=true}\fi%
- \if\psk@label@OA@iminus\@empty\else\psset{OAiminus=true}\fi%
- \if\psk@label@OA@iout\@empty\else\psset{OAiout=true}\fi%
+ \if\psk@label@OAiplus\@empty\else\psset{OAiplus=true}\fi%
+ \if\psk@label@OAiminus\@empty\else\psset{OAiminus=true}\fi%
+ \if\psk@label@OAiout\@empty\else\psset{OAiout=true}\fi%
\ifPst@intensity\psset{OAiplus=true,OAiminus=true,OAiout=true}\fi%
\pst@getcoor{#1}\pst@tempa
\pst@getcoor{#2}\pst@tempb
@@ -327,49 +298,49 @@
/YC Y1 Y2 add 2 div def
XC YC){C@}
\rput(C@){\pst@draw@OA}
- \ncangle[arrows=-,arm=.5,angleA=0,angleB=180]{#1}{\ifPst@OA@invert Minus@\else Plus@\fi}
- \ncput[npos=2]{\pnode{\ifPst@OA@invert Minus@@\else Plus@@\fi}}
- \ifPst@OA@iplus
- \ifPst@OA@invert\else
+ \ncangle[arrows=-,arm=.5,angleA=0,angleB=180]{#1}{\ifPst@OAinvert Minus@\else Plus@\fi}
+ \ncput[npos=2]{\pnode{\ifPst@OAinvert Minus@@\else Plus@@\fi}}
+ \ifPst@OAiplus
+ \ifPst@OAinvert\else
\ncput[npos=2.5]{%
\psline[linecolor=\psk@I@color,
linewidth=\psk@I@width,arrowinset=0]{->}(-.1,0)(.1,0)}
- \naput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OA@iplus}
+ \naput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OAiplus}
\fi
\fi
- \ifPst@OA@iminus
- \ifPst@OA@invert
+ \ifPst@OAiminus
+ \ifPst@OAinvert
\ncput[npos=2.5]{%
\psline[linecolor=\psk@I@color,
linewidth=\psk@I@width,arrowinset=0]{->}(-.1,0)(.1,0)}
- \naput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OA@iminus}
+ \naput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OAiminus}
\fi
\fi
- \ncangle[arrows=-,arm=.5,angleA=0,angleB=180]{#2}{\ifPst@OA@invert Plus@\else Minus@\fi}
- \ncput[npos=2]{\pnode{\ifPst@OA@invert Plus@@\else Minus@@\fi}}
- \ifPst@OA@iplus
- \ifPst@OA@invert
+ \ncangle[arrows=-,arm=.5,angleA=0,angleB=180]{#2}{\ifPst@OAinvert Plus@\else Minus@\fi}
+ \ncput[npos=2]{\pnode{\ifPst@OAinvert Plus@@\else Minus@@\fi}}
+ \ifPst@OAiplus
+ \ifPst@OAinvert
\ncput[npos=2.5]{%
\psline[linecolor=\psk@I@color,
linewidth=\psk@I@width,arrowinset=0]{->}(-.1,0)(.1,0)}
- \nbput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OA@iplus}
+ \nbput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OAiplus}
\fi
\fi
- \ifPst@OA@iminus
- \ifPst@OA@invert\else
+ \ifPst@OAiminus
+ \ifPst@OAinvert\else
\ncput[npos=2.5]{%
\psline[linecolor=\psk@I@color,
linewidth=\psk@I@width,arrowinset=0]{->}(-.1,0)(.1,0)}
- \nbput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OA@iminus}
+ \nbput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OAiminus}
\fi
\fi
\ncangle[arrows=-,arm=.5,angleA=180,angleB=0]{#3}{S@}
\ncput[npos=2]{\pnode{S@@}}
- \ifPst@OA@iout
+ \ifPst@OAiout
\ncput[npos=2.5]{%
\psline[linecolor=\psk@I@color,
linewidth=\psk@I@width,arrowinset=0]{->}(-.1,0)(.1,0)}
- \naput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OA@iout}
+ \naput[npos=2.5]{\csname\psk@I@labelcolor\endcsname\psk@label@OAiout}
\fi
\psline[linestyle=none](#1)(#2)% for the end arrows
\psline[linestyle=none](#1)(#3)% for the end arrows
@@ -400,9 +371,9 @@
\fi%
\psdot(#1)%
\rput[c]{\Pst@TRot}(TBaseNode){%(#1){%
- \ifPst@T@circle\pscircle(0.3,0){0.7}\fi%
+ \ifPst@transistorcircle\pscircle(0.3,0){0.7}\fi%
\ifx\psk@Ttype\pst@Ttype@FET\relax%
- \ifPst@T@memory% atosch
+ \ifPst@FETmemory% atosch
\psline[arrows=-,linewidth=\psk@I@width](-0.15,0.5)(-0.15,-0.5)%
\fi%
\psline[arrows=-,linewidth=\psk@I@width](TBaseNode|0,0.5)(TBaseNode|0,-0.5)%
@@ -411,19 +382,19 @@
\fi%
\ifnum180=\Pst@TRot\relax%
\ifx\psk@Ttype\pst@Ttype@FET\relax%
- \ifPst@T@invert\pnode(0.75,-0.5){#2}\else\pnode(0.75,-0.5){#3}\fi%
- \ifPst@T@invert\pnode(0.75,0.5){#3}\else\pnode(0.75,0.5){#2}\fi%
+ \ifPst@transistorinvert\pnode(0.75,-0.5){#2}\else\pnode(0.75,-0.5){#3}\fi%
+ \ifPst@transistorinvert\pnode(0.75,0.5){#3}\else\pnode(0.75,0.5){#2}\fi%
\else%
- \ifPst@T@invert\pnode(0.5,-0.5){#2}\else\pnode(0.5,-0.5){#3}\fi%
- \ifPst@T@invert\pnode(0.5,0.5){#3}\else\pnode(0.5,0.5){#2}\fi%
+ \ifPst@transistorinvert\pnode(0.5,-0.5){#2}\else\pnode(0.5,-0.5){#3}\fi%
+ \ifPst@transistorinvert\pnode(0.5,0.5){#3}\else\pnode(0.5,0.5){#2}\fi%
\fi%
\else%
\ifx\psk@Ttype\pst@Ttype@FET\relax%
- \ifPst@T@invert\pnode(0.65,0.5){#2}\else\pnode(0.65,0.5){#3}\fi%
- \ifPst@T@invert\pnode(0.65,-0.5){#3}\else\pnode(0.65,-0.5){#2}\fi%
+ \ifPst@transistorinvert\pnode(0.65,0.5){#2}\else\pnode(0.65,0.5){#3}\fi%
+ \ifPst@transistorinvert\pnode(0.65,-0.5){#3}\else\pnode(0.65,-0.5){#2}\fi%
\else%
- \ifPst@T@invert\pnode(0.5,0.5){#2}\else\pnode(0.5,0.5){#3}\fi%
- \ifPst@T@invert\pnode(0.5,-0.5){#3}\else\pnode(0.5,-0.5){#2}\fi%
+ \ifPst@transistorinvert\pnode(0.5,0.5){#2}\else\pnode(0.5,0.5){#3}\fi%
+ \ifPst@transistorinvert\pnode(0.5,-0.5){#3}\else\pnode(0.5,-0.5){#2}\fi%
\fi%
\fi%
\ifx\psk@Ttype\pst@Ttype@FET\relax%
@@ -474,55 +445,55 @@
\Pst@temptrue%
\transistor@ii(@@base){@@emitter}{@@collector}%
%
- \if\psk@labelT@iB\@empty\else\psset{transistoribase=true}\fi%
- \if\psk@labelT@iE\@empty\else\psset{transistoriemitter=true}\fi%
- \if\psk@labelT@iC\@empty\else\psset{transistoricollector=true}\fi%
+ \if\psk@labeltransistoribase\@empty\else\psset{transistoribase=true}\fi%
+ \if\psk@labeltransistoriemitter\@empty\else\psset{transistoriemitter=true}\fi%
+ \if\psk@labeltransistoricollector\@empty\else\psset{transistoricollector=true}\fi%
\ifPst@intensity\psset{transistoribase=true,transistoriemitter=true,transistoricollector=true}\fi%
%
\bgroup\psset{style=baseOpt}\pscirc@edge(#1)(TBaseNode)\egroup%
- \ifPst@T@iB% base current?
+ \ifPst@transistoribase% base current?
\ncput[npos=0.5,nrot=\Pst@TRot]{%
\psline[linecolor=\psk@I@color,linewidth=\psk@I@width,%
arrowsize=6\pslinewidth,arrowinset=0]{->}(-.1,0)(.1,0)}%
- \naput[npos=0.5]{\csname\psk@I@labelcolor\endcsname\psk@labelT@iB}%
+ \naput[npos=0.5]{\csname\psk@I@labelcolor\endcsname\psk@labeltransistoribase}%
\fi%
\bgroup%
\psset{style=collectorOpt}%
- \ifPst@T@invert\pscirc@edge(#3)(@@emitter)\else\pscirc@edge(#3)(@@collector)\fi%
+ \ifPst@transistorinvert\pscirc@edge(#3)(@@emitter)\else\pscirc@edge(#3)(@@collector)\fi%
\egroup%
- \ncput[npos=2]{\pnode{\ifPst@T@invert @@emitter\else @@collector\fi}}%
- \ifPst@T@iE% emitter current?
- \ifPst@T@invert% emitter/collector changed?
+ \ncput[npos=2]{\pnode{\ifPst@transistorinvert @@emitter\else @@collector\fi}}%
+ \ifPst@transistoriemitter% emitter current?
+ \ifPst@transistorinvert% emitter/collector changed?
\ncput[npos=\pscirc@edge@sector,nrot=:U]{%
\psline[linecolor=\psk@I@color,linewidth=\psk@I@width,%
arrowsize=6\pslinewidth,arrowinset=0]{->}(-0.1,0)(0.1,0)}
- \nbput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labelT@iE}
+ \nbput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labeltransistoriemitter}
\fi\fi%
- \ifPst@T@iC% collector current?
- \ifPst@T@invert\else% emitter/collector changed?
+ \ifPst@transistoricollector% collector current?
+ \ifPst@transistorinvert\else% emitter/collector changed?
\ncput[npos=\pscirc@edge@sector,nrot=:U]{%
\psline[linecolor=\psk@I@color,linewidth=\psk@I@width,%
arrowsize=6\pslinewidth,arrowinset=0]{->}(-.1,0)(.1,0)}
- \nbput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labelT@iC}
+ \nbput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labeltransistoricollector}
\fi\fi%
\bgroup
\psset{style=emitterOpt}
- \ifPst@T@invert\pscirc@edge(#2)(@@collector)\else\pscirc@edge(#2)(@@emitter)\fi
+ \ifPst@transistorinvert\pscirc@edge(#2)(@@collector)\else\pscirc@edge(#2)(@@emitter)\fi
\egroup
- \ncput[npos=2]{\pnode{\ifPst@T@invert @@collector\else @@emitter\fi}}
- \ifPst@T@iE
- \ifPst@T@invert\else
+ \ncput[npos=2]{\pnode{\ifPst@transistorinvert @@collector\else @@emitter\fi}}
+ \ifPst@transistoriemitter
+ \ifPst@transistorinvert\else
\ncput[npos=\pscirc@edge@sector,nrot=:U]{%
\psline[linecolor=\psk@I@color,linewidth=\psk@I@width,
arrowsize=6\pslinewidth,arrowinset=0]{<-}(-.1,0)(.1,0)}
- \naput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labelT@iE}
+ \naput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labeltransistoriemitter}
\fi\fi%
- \ifPst@T@iC% collector current?
- \ifPst@T@invert% emitter/collector changed?
+ \ifPst@transistoricollector% collector current?
+ \ifPst@transistorinvert% emitter/collector changed?
\ncput[npos=\pscirc@edge@sector,nrot=:U]{%
\psline[linecolor=\psk@I@color,linewidth=\psk@I@width,
arrowsize=6\pslinewidth,arrowinset=0]{<-}(-.1,0)(.1,0)}
- \naput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labelT@iC}
+ \naput[npos=\pscirc@edge@sector]{\csname\psk@I@labelcolor\endcsname\psk@labeltransistoricollector}
\fi\fi
\psline[linestyle=none](#1)(#2)% for the end arrows
\psline[linestyle=none](#1)(#3)% for the end arrows
@@ -723,17 +694,16 @@
%
%%%%%%%%%%%%%
\def\multidipole{\@ifnextchar[{\pst@multidipole}{\pst@multidipole[]}}
-%
\def\pst@multidipole[#1](#2)(#3)#4{%
\psset{#1}%
- \pst@getcoor{#2}\pst@tempa
- \pst@getcoor{#3}\pst@tempb
+ \pst@getcoor{#2}\pst@tempA
+ \pst@getcoor{#3}\pst@tempB
\pst@Verb{%
gsave
STV CP T
- \pst@tempa /Ybegin@ exch \pst@number\psyunit div def
+ \pst@tempA /Ybegin@ exch \pst@number\psyunit div def
/Xbegin@ exch \pst@number\psxunit div def
- \pst@tempb /Yend@ exch \pst@number\psyunit div def
+ \pst@tempB /Yend@ exch \pst@number\psyunit div def
/Xend@ exch \pst@number\psxunit div def
/Xbegin Xbegin@ Xend@ lt {Xbegin@} {Xend@} ifelse def
/Xend Xbegin@ Xend@ lt {Xend@} {Xbegin@} ifelse def
@@ -745,143 +715,63 @@
grestore}%
\pst@count@i=\z@
\let\pst@multidipole@output\@empty
- \ifx\resistor #4%
- \let\pscirc@next\pst@multidipole@resistor
- \else
- \ifx\capacitor #4%
- \let\pscirc@next\pst@multidipole@capacitor
- \else
- \ifx\battery #4%
- \let\pscirc@next\pst@multidipole@battery
- \else
- \ifx\coil #4%
- \let\pscirc@next\pst@multidipole@coil
- \else
- \ifx\Ucc #4%
- \let\pscirc@next\pst@multidipole@Ucc
- \else
- \ifx\Icc #4%
- \let\pscirc@next\pst@multidipole@Icc
- \else
- \ifx\switch #4%
- \let\pscirc@next\pst@multidipole@switch
- \else
- \ifx\diode #4%
- \let\pscirc@next\pst@multidipole@diode
- \else
- \ifx\Zener #4%
- \let\pscirc@next\pst@multidipole@Zener
- \else
- \ifx\wire #4%
- \let\pscirc@next\pst@multidipole@wire
- \else
- \ifx\lamp #4%
- \let\pscirc@next\pst@multidipole@lamp
- \else
- \ifx\circledipole #4%
- \let\pscirc@next\pst@multidipole@circledipole
- \else
- \ifx\LED #4%
- \let\pscirc@next\pst@multidipole@LED
- \else%%% pd change
- \ifx\dashpot #4%%% pd change
- \let\pscirc@next\pst@multidipole@dashpot
- \else%%% pd change
- \ifx\filter #4%
- \let\pscirc@next\pst@multidipole@filter
- \else
- \ifx\isolator #4%
- \let\pscirc@next\pst@multidipole@filter
- \else
- \let\pscirc@next\ignorespaces
- \fi
- \fi
- \fi%%% pd change
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
+ \ifx\resistor #4\let\pscirc@next\pst@multidipole@resistor% 1
+ \else\ifx\RFLine #4\let\pscirc@next\pst@multidipole@RFLine
+ \else\ifx\capacitor #4\let\pscirc@next\pst@multidipole@capacitor
+ \else\ifx\battery #4\let\pscirc@next\pst@multidipole@battery
+ \else\ifx\coil #4\let\pscirc@next\pst@multidipole@coil
+ \else\ifx\Ucc #4\let\pscirc@next\pst@multidipole@Ucc
+ \else\ifx\Icc #4\let\pscirc@next\pst@multidipole@Icc
+ \else\ifx\switch #4\let\pscirc@next\pst@multidipole@switch
+ \else\ifx\diode #4\let\pscirc@next\pst@multidipole@diode
+ \else\ifx\Zener #4\let\pscirc@next\pst@multidipole@Zener% 10
+ \else\ifx\wire #4\let\pscirc@next\pst@multidipole@wire
+ \else\ifx\lamp #4\let\pscirc@next\pst@multidipole@lamp
+ \else\ifx\circledipole#4\let\pscirc@next\pst@multidipole@circledipole
+ \else\ifx\LED #4\let\pscirc@next\pst@multidipole@LED
+ \else\ifx\dashpot #4\let\pscirc@next\pst@multidipole@dashpot %15
+ \else\ifx\filter #4\let\pscirc@next\pst@multidipole@filter
+ \else\ifx\isolator #4\let\pscirc@next\pst@multidipole@isolator%
+ \else\ifx\freqmult #4\let\pscirc@next\pst@multidipole@freqmult%
+ \else\ifx\phaseshifter#4\let\pscirc@next\pst@multidipole@phaseshifter%
+ \else\ifx\vco #4\let\pscirc@next\pst@multidipole@vco % 20
+ \else\ifx\amplifier #4\let\pscirc@next\pst@multidipole@amplifier%
+ \else\ifx\detector #4\let\pscirc@next\pst@multidipole@detector% 22
+ \else\let\pscirc@next\ignorespaces
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% 1..10
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%11..20
+ \fi\fi% 21..22
\advance\pst@count@i\@ne
\advance\pst@count@iii\@ne
- \pscirc@next
-}
+ \pscirc@next}
%
\def\pst@multidipole@#1{%
- \ifx\resistor #1%
- \let\pscirc@next\pst@multidipole@resistor
- \else
- \ifx\capacitor #1%
- \let\pscirc@next\pst@multidipole@capacitor
- \else
- \ifx\battery #1%
- \let\pscirc@next\pst@multidipole@battery
- \else
- \ifx\coil #1%
- \let\pscirc@next\pst@multidipole@coil
- \else
- \ifx\Ucc #1%
- \let\pscirc@next\pst@multidipole@Ucc
- \else
- \ifx\Icc #1%
- \let\pscirc@next\pst@multidipole@Icc
- \else
- \ifx\switch #1%
- \let\pscirc@next\pst@multidipole@switch %off
- \else
- \ifx\diode #1%
- \let\pscirc@next\pst@multidipole@diode
- \else
- \ifx\Zener #1%
- \let\pscirc@next\pst@multidipole@Zener
- \else
- \ifx\wire #1%
- \let\pscirc@next\pst@multidipole@wire
- \else
- \ifx\lamp #1%
- \let\pscirc@next\pst@multidipole@lamp
- \else
- \ifx\circledipole #1%
- \let\pscirc@next\pst@multidipole@circledipole
- \else
- \ifx\LED #1%
- \let\pscirc@next\pst@multidipole@LED
- \else%%% pd change
- \ifx\dashpot #1%%% pd change
- \let\pscirc@next\pst@multidipole@dashpot
- \else%%% pd change
- \ifx\filter #1%
- \let\pscirc@next\pst@multidipole@filter
- \else
- \ifx\isolator #1%
- \let\pscirc@next\pst@multidipole@isolator
- \else
- \let\pscirc@next\ignorespaces
- \pst@multidipole@output
- \fi
- \fi
- \fi%%% pd change
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
- \fi
+ \ifx\resistor#1\let\pscirc@next\pst@multidipole@resistor %1
+ \else\ifx\RFLine#1\let\pscirc@next\pst@multidipole@RFLine
+ \else\ifx\capacitor#1\let\pscirc@next\pst@multidipole@capacitor
+ \else\ifx\battery#1\let\pscirc@next\pst@multidipole@battery
+ \else\ifx\coil#1\let\pscirc@next\pst@multidipole@coil %5
+ \else\ifx\Ucc #1\let\pscirc@next\pst@multidipole@Ucc
+ \else\ifx\Icc #1\let\pscirc@next\pst@multidipole@Icc
+ \else\ifx\switch #1\let\pscirc@next\pst@multidipole@switch %off
+ \else\ifx\diode#1\let\pscirc@next\pst@multidipole@diode
+ \else\ifx\Zener #1\let\pscirc@next\pst@multidipole@Zener %10
+ \else\ifx\wire #1\let\pscirc@next\pst@multidipole@wire
+ \else\ifx\lamp #1\let\pscirc@next\pst@multidipole@lamp
+ \else\ifx\circledipole#1\let\pscirc@next\pst@multidipole@circledipole
+ \else\ifx\LED #1\let\pscirc@next\pst@multidipole@LED
+ \else\ifx\dashpot #1\let\pscirc@next\pst@multidipole@dashpot %15
+ \else\ifx\filter #1\let\pscirc@next\pst@multidipole@filter
+ \else\ifx\isolator #1\let\pscirc@next\pst@multidipole@isolator
+ \else\ifx\freqmult #1\let\pscirc@next\pst@multidipole@freqmult%
+ \else\ifx\phaseshifter#1\let\pscirc@next\pst@multidipole@phaseshifter%
+ \else\ifx\vco #1\let\pscirc@next\pst@multidipole@vco % 20
+ \else\ifx\amplifier#1\let\pscirc@next\pst@multidipole@amplifier%
+ \else\ifx\detector #1\let\pscirc@next\pst@multidipole@detector% 22
+ \else\let\pscirc@next\ignorespaces\pst@multidipole@output
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+ \fi\fi
\advance\pst@count@i\@ne
\advance\pst@count@iii\@ne
\pscirc@next
@@ -907,6 +797,25 @@
\pst@multidipole@
}
%
+\def\pst@multidipole@RFLine{\@ifnextchar[{\pst@multidipole@RFLine@}{\pst@multidipole@RFLine@[]}}
+\def\pst@multidipole@RFLine@[#1]#2{%
+ \expandafter\def\csname pst@tmp@\number\pst@count@iii\endcsname{#2}%
+ {\psset{#1}%
+ \ifPst@parallel\aftergroup\advance\aftergroup\pst@count@i\aftergroup\m@ne\fi}%
+ \pst@count@ii=\pst@count@i%
+ \advance\pst@count@ii\@ne%
+ \toks0\expandafter{\pst@multidipole@output}%
+ \edef\pst@multidipole@output{%
+ \the\toks0%
+ \pst@multidipole@def@coor%
+ \noexpand\RFLine[#1]%
+ (! X@\the\pst@count@i\space Y@\the\pst@count@i)%
+ (! X@\the\pst@count@ii\space Y@\the\pst@count@ii)%
+ {\noexpand\csname pst@tmp@\number\pst@count@iii\endcsname}%
+ }%
+ \pst@multidipole@
+}
+%
% pd start ====================================================
\def\pst@multidipole@dashpot{\@ifnextchar[{\pst@multidipole@dashpot@}{\pst@multidipole@dashpot@[]}}
%
@@ -1158,7 +1067,8 @@
\edef\pst@multidipole@output{%
\the\toks0
\pst@multidipole@def@coor
- \noexpand\wire[#1](! X@\the\pst@count@i\space Y@\the\pst@count@i)(! X@\the\pst@count@ii\space Y@\the\pst@count@ii)
+ \noexpand\wire[#1]%
+ (! X@\the\pst@count@i\space Y@\the\pst@count@i)(! X@\the\pst@count@ii\space Y@\the\pst@count@ii)
}%
\pst@multidipole@
}
@@ -1183,66 +1093,61 @@
\else
\ifx\psk@Dconvention\pst@Dconvention@receptor\Pst@Dconventionfalse\fi
\fi
- \pcline[arrows=-,linestyle=none,fillstyle=none](#2)(#3)
+ \pcline[arrowscale=1,arrows=-,linestyle=none,fillstyle=none](#2)(#3)
\ncput[nrot=:U]{\pnode{dipole@M}}
\ifPst@parallel
\pcline[arrows=-,linestyle=none,fillstyle=none](#2)(dipole@M)
\ncput[npos=\psk@parallel@sep]{\pnode{dipole@@1}}
\pcline[arrows=-,linestyle=none,fillstyle=none](#3)(dipole@M)
\ncput[npos=\psk@parallel@sep]{\pnode{dipole@@2}}
- \pcline[arrows=-,linestyle=none,
- fillstyle=none,
- offset=\psk@parallel@arm](dipole@@1)(dipole@@2)
- \ncput[npos=0]{\pnode{dipole@@@1}}
- \ncput[npos=1]{\pnode{dipole@@@2}}
- \ncput[nrot=:U]{#5}
- \pcline[arrows=-](dipole@@1)(dipole@@@1)
- \pcline[arrows=-](dipole@@@1)(dipole@i)
- \pcline[arrows=-](dipole@2)(dipole@@@2)
- \pcline[arrows=-](dipole@@@2)(dipole@@2)
- \ifPst@parallel@node
- \pscircle*(dipole@@1){2\pslinewidth}
- \pscircle*(dipole@@2){2\pslinewidth}
- \fi
- \pcline[arrows=-,linestyle=none,
- fillstyle=none,
- offset=\psk@label@offset](dipole@@@1)(dipole@@@2)
- \ncput[nrot=\psk@label@angle]{#4}
- \pst@intensity{dipole@@@1}{dipole@@@2}
- \pst@tension{dipole@@@1}{dipole@@@2}
- \else
- \ncput[nrot=:U]{#5}
- \pcline[arrows=-,linestyle=none,
- fillstyle=none,offset=\psk@label@offset](#2)(#3)
- \ncput[nrot=\psk@label@angle]{#4}
+ \pcline[arrows=-,linestyle=none,fillstyle=none,offset=\psk@parallel@arm](dipole@@1)(dipole@@2)
+ \ncput[npos=0]{\pnode{dipole@@@1}}
+ \ncput[npos=1]{\pnode{dipole@@@2}}
+ \ncput[nrot=:U]{#5}
+ \pcline[arrows=-](dipole@@1)(dipole@@@1)
+ \pcline[arrows=-](dipole@@@1)(dipole@1)
+ \pcline[arrows=-](dipole@2)(dipole@@@2)
+ \pcline[arrows=-](dipole@@@2)(dipole@@2)
+ \ifPst@parallel@node
+ \pscircle*(dipole@@1){2\pslinewidth}
+ \pscircle*(dipole@@2){2\pslinewidth}
+ \fi
+ \pcline[arrows=-,linestyle=none,fillstyle=none,offset=\psk@label@offset](dipole@@@1)(dipole@@@2)
+ \ncput[nrot=\psk@label@angle]{#4}
+ \pst@intensity{dipole@@@1}{dipole@@@2}
+ \pst@tension{dipole@@@1}{dipole@@@2}
+ \else
+ \ncput[nrot=:U]{#5}
+ \pcline[arrowscale=1,arrows=-,linestyle=none,fillstyle=none,offset=\psk@label@offset](#2)(#3)
+ \ncput[nrot=\psk@label@angle]{#4}
%%%%%
- \ifPst@inputarrow
- \ifx\psk@Dinput\pst@Dinput@right
- \pcline[fillstyle=none,arrows=-C](#2)(dipole@i)
- \pcline[fillstyle=none,arrows=->,arrowinset=0](#3)(dipole@2)
- \else
- \pcline[fillstyle=none,arrows=->,arrowinset=0](#2)(dipole@i)
- \pcline[fillstyle=none,arrows=C-](dipole@2)(#3)
- \fi
+ \ifPst@inputarrow
+ \ifx\psk@Dinput\pst@Dinput@right
+ \pcline[fillstyle=none,arrows=-C](#2)(dipole@1)
+ \pcline[fillstyle=none,arrows=->,arrowinset=0](#3)(dipole@2)
\else
- \pcline[fillstyle=none,arrows=-C](#2)(dipole@i)
+ \pcline[fillstyle=none,arrows=->,arrowinset=0](#2)(dipole@1)
\pcline[fillstyle=none,arrows=C-](dipole@2)(#3)
- \fi
- \pcline[fillstyle=none,linestyle=none](#2)(#3)
+ \fi
+ \else
+ \pcline[arrowscale=1,fillstyle=none,arrows=-C](#2)(dipole@1)
+ \pcline[arrowscale=1,fillstyle=none,arrows=C-](dipole@2)(#3)
+ \fi
+ \pcline[fillstyle=none,linestyle=none](#2)(#3)
%%%%%
- \pst@intensity{#2}{#3}
- \pst@tension{#2}{#3}
- \fi%
+ \pst@intensity{#2}{#3}
+ \pst@tension{#2}{#3}
+ \fi%
}%
%
\def\pst@intensity#1#2{%
\ifPst@intensity
- \ifPst@direct@convention
- \pcline[arrows=-,linestyle=none,fillstyle=none](#1)(dipole@i)
+ \ifPst@directconvention
+ \pcline[arrows=-,linestyle=none,fillstyle=none](#1)(dipole@1)
\ncput[nrot=:U]{%
\psline[linecolor=\psk@I@color,
linewidth=\psk@I@width,arrowinset=0]{->}(-.1,0)(.1,0)}
- \pcline[arrows=-,linestyle=none,fillstyle=none,offset=\psk@I@label@offset](#1)(dipole@i)
+ \pcline[arrows=-,linestyle=none,fillstyle=none,offset=\psk@I@label@offset](#1)(dipole@1)
\ncput[nrot=\psk@label@angle]{\csname\psk@I@labelcolor\endcsname\psk@I@label}
\else
\pcline[arrows=-,linestyle=none,fillstyle=none](dipole@2)(#2)
@@ -1257,12 +1162,12 @@
\def\pst@tension#1#2{%
\ifPst@tension
\pcline[arrows=-,linestyle=none,fillstyle=none,%
- offset=\psk@tension@offset](#1)(dipole@i)
+ offset=\psk@tension@offset](#1)(dipole@1)
\ncput[npos=.5]{\pnode{tension@1}}
\pcline[arrows=-,linestyle=none,fillstyle=none,
offset=-\psk@tension@offset](#2)(dipole@2)
\ncput[npos=.5]{\pnode{tension@2}}
- \ifPst@direct@convention
+ \ifPst@directconvention
\ifPst@Dconvention
\pcline[linecolor=\psk@tension@color,
linewidth=\psk@tension@width,arrowinset=0]{<-}(tension@1)(tension@2)
@@ -1280,7 +1185,7 @@
\fi
\fi
\pcline[arrows=-,linestyle=none,fillstyle=none,%
- offset=\psk@tension@label@offset](dipole@i)(dipole@2)
+ offset=\psk@tension@label@offset](dipole@1)(dipole@2)
\ncput[nrot=\psk@label@angle]{%
\csname\psk@tension@labelcolor\endcsname\psk@tension@label}
\fi
@@ -1288,13 +1193,13 @@
%
\def\pst@draw@resistor{%
\ifx\psk@Dstyle\pst@Dstyle@zigzag
- \pnode(-0.75,0){dipole@i}
+ \pnode(-0.75,0){dipole@1}
\pnode(0.75,0){dipole@2}
\multips(-0.75,0)(0.5,0){3}{%
\psline[arrows=-,linewidth=1.5\pslinewidth]%
(0,0)(0.125,0.25)(0.375,-0.25)(0.5,0)}%
\else
- \pnode(-0.5,0){dipole@i}\pnode(0.5,0){dipole@2}
+ \pnode(-0.5,0){dipole@1}\pnode(0.5,0){dipole@2}
\psframe[linewidth=1.5\pslinewidth](-0.5,-0.25)(0.5,0.25)
\fi
\ifPst@variable\psline{->}(-0.5,-0.55)(0.5,0.55)\fi
@@ -1303,9 +1208,19 @@
\fi
}
%
+\def\pst@draw@RFLine{%
+ \pnode(-1.5,0){dipole@1} \pnode(1.5,0){dipole@2}
+ \pscustom[arrows=-]{%
+ \psellipticarcn(-0.8,0)(0.2,0.3){90}{-90}
+ \psline(-0.8,-.3)(0.8,-.3)
+ \psellipticarc(0.8,0)(0.2,0.3){-90}{90}
+ \psline(-0.8,.3)(0.8,.3)}
+ \psellipse(-0.8,0)(0.2,0.3)
+ \pcline[arrows=-](dipole@1)(-0.8,0)\pcline[arrows=-](dipole@2)(1,0)}
+%
% pd start ====================================================
\def\pst@draw@dashpot{%
- \pnode(0,0){dipole@i}%
+ \pnode(0,0){dipole@1}%
\pnode(0.5,0){dipole@2}%
\psline[linewidth=1.5\pslinewidth]%
(-0.5,-0.5)(0.5,-0.5)(0.5,0.5)(-0.5,0.5)%
@@ -1318,31 +1233,31 @@
\ifx\psk@Dstyle\pst@Dstyle@chemical
\psline[arrows=-](-0.2,-0.5)(-0.2,0.5)
\psarc[arrows=-](1.1875,0){1.0625}{154.8}{205.2}
- \pnode(-0.2,0){dipole@i}
+ \pnode(-0.2,0){dipole@1}
\pnode(0.125,0){dipole@2}
\else
\ifx\psk@Dstyle\pst@Dstyle@elektorchemical
\psframe[framearc=0.01,dimen=outer](-0.2284123,0.2743733)(-0.0557103,-0.2743733)
\psframe[framearc=0.01,dimen=outer,fillstyle=solid,fillcolor=black](0.0557103,0.2743733)(0.2284123,-0.2743733)
- \pnode(-0.2284123,0){dipole@i}
+ \pnode(-0.2284123,0){dipole@1}
\pnode(0.2284123,0){dipole@2}
\else
\ifx\psk@Dstyle\pst@Dstyle@elektor
\psframe[framearc=0.01,dimen=outer,fillstyle=solid,fillcolor=black](-0.2284123,0.2743733)(-0.0557103,-0.2743733)
\psframe[framearc=0.01,dimen=outer,fillstyle=solid,fillcolor=black](0.0557103,0.2743733)(0.2284123,-0.2743733)
- \pnode(-0.2284123,0){dipole@i}
+ \pnode(-0.2284123,0){dipole@1}
\pnode(0.2284123,0){dipole@2}
\else
\ifx\psk@Dstyle\pst@Dstyle@crystal
\psline[arrows=-](-0.3,-0.4)(-0.3,0.4)
\psline[arrows=-](0.3,-0.4)(0.3,0.4)
\psframe(-0.2,-0.5)(0.2,0.5)
- \pnode(-0.3,0){dipole@i}
+ \pnode(-0.3,0){dipole@1}
\pnode(0.3,0){dipole@2}
\else
\psline[arrows=-](-0.2,-0.5)(-0.2,0.5)
\psline[arrows=-](0.2,-0.5)(0.2,0.5)
- \pnode(-0.2,0){dipole@i}
+ \pnode(-0.2,0){dipole@1}
\pnode(0.2,0){dipole@2}
\fi
\fi
@@ -1360,23 +1275,23 @@
\pspolygon(-0.4,-0.2)(-0.4,0.2)(-0.05,0)
\else
\pspolygon[arrows=-](-1,-0.75)(-1,0.75)(1,0)(-1,-0.75)
- \ifPst@OA@power
+ \ifPst@OApower
\psline{-o}(0,0.375)(0,0.75)\uput[90](0,0.75){$+$}
\psline{-o}(0,-0.375)(0,-0.75)\uput[-90](0,-0.75){$-$}
\fi
\fi
- \pnode(-1,0.25){\ifPst@OA@invert Minus@\else Plus@\fi}
- \pnode(-1,-0.25){\ifPst@OA@invert Plus@\else Minus@\fi}
+ \pnode(-1,0.25){\ifPst@OAinvert Minus@\else Plus@\fi}
+ \pnode(-1,-0.25){\ifPst@OAinvert Plus@\else Minus@\fi}
\pnode(1,0){S@}
- \uput{0.1}[0](-1,0.25){\ifPst@OA@invert$-$\else$+$\fi}
- \uput{0.1}[0](-1,-0.25){\ifPst@OA@invert$+$\else$-$\fi}
- \ifPst@OA@perfect\rput(0.25,0){$\infty$}\fi%
+ \uput{0.1}[0](-1,0.25){\ifPst@OAinvert$-$\else$+$\fi}
+ \uput{0.1}[0](-1,-0.25){\ifPst@OAinvert$+$\else$-$\fi}
+ \ifPst@OAperfect\rput(0.25,0){$\infty$}\fi%
}
%
\def\pst@draw@battery{%
\psline[arrows=-,linewidth=1.5\pslinewidth](-0.10,-0.5)(-0.10,0.5)
\psline[arrows=-,linewidth=3\pslinewidth](0.10,-0.25)(0.10,0.25)
- \pnode(-0.1,0){dipole@i}
+ \pnode(-0.1,0){dipole@1}
\pnode(0.1,0){dipole@2}
\ifPst@variable%
\psline{->}(-0.75,-0.5)(0.75,0.5)%
@@ -1391,7 +1306,7 @@
(0,0.3)(0.25,0)(0.2,-0.2)(0.1,0)
(0.2,0.3)(0.45,0)(0.4,-0.2)(0.3,0)
(0.4,0.3)(0.65,0)(0.6,-0.2)(0.5,0)
- \pnode(-0.7,0){dipole@i}
+ \pnode(-0.7,0){dipole@1}
\pnode(0.5,0){dipole@2}
\else
\ifx\psk@Dstyle\pst@Dstyle@elektor
@@ -1399,7 +1314,7 @@
\psarcn(-0.1295265,0){0.1295265}{-180}{0}
\psarcn(0.1295265,0){0.1295265}{-180}{0}
\psarcn[arrows=-c](0.3885794,0){0.1295265}{-180}{0}
- \pnode(-0.5181058,0){dipole@i}
+ \pnode(-0.5181058,0){dipole@1}
\pnode(0.5181058,0){dipole@2}
\else
\ifx\psk@Dstyle\pst@Dstyle@elektorcurved
@@ -1407,11 +1322,11 @@
\psarcn[arrows=-c](-0.136056,0.089453){0.211665}{-130}{-410}
\psarcn[arrows=-c](0.136055,0.089453){0.211665}{-130}{-410}
\psarcn[arrows=-c](0.408167,0.089453){0.211665}{-130}{-385}
- \pnode(-0.6,0){dipole@i}
+ \pnode(-0.6,0){dipole@1}
\pnode(0.6,0){dipole@2}
\else
\ifx\psk@Dstyle\pst@Dstyle@rectangle
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\psframe[linewidth=1.5\pslinewidth,fillstyle=solid,fillcolor=black](-0.5,-0.25)(0.5,0.25)
\else
@@ -1419,14 +1334,14 @@
\pscurve[arrows=-,linewidth=1.5\pslinewidth](-0.5,0)(-0.25,0.5)(0,0)
\pscurve[arrows=-,linewidth=1.5\pslinewidth](0,0)(0.25,0.5)(0.5,0)
\pscurve[arrows=-,linewidth=1.5\pslinewidth](0.5,0)(0.75,0.5)(1,0)
- \pnode(-1,0){dipole@i}
+ \pnode(-1,0){dipole@1}
\pnode(1,0){dipole@2}
\fi\fi\fi\fi%
\ifPst@variable\psline{->}(-0.75,-0.5)(0.75,0.5)\fi%
}
%
\def\pst@draw@Ucc{%
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\ifx\psk@Dstyle\pst@Dstyle@diamond
\pspolygon[linewidth=1.5\pslinewidth](-0.5,0)(0,0.5)(0.5,0)(0,-0.5)
@@ -1443,12 +1358,12 @@
%
\def\pst@draw@Icc{%
\ifx\psk@Dstyle\pst@Dstyle@twoCircles
- \pnode(-0.7,0){dipole@i}
+ \pnode(-0.7,0){dipole@1}
\pnode(0.7,0){dipole@2}
\pscircle[linewidth=1.5\pslinewidth](-0.175,0){0.5}
\pscircle[linewidth=1.5\pslinewidth](0.175,0){0.5}
\else
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\pscircle[linewidth=1.5\pslinewidth](0,0){0.5}
\psline[arrows=-,linewidth=1.5\pslinewidth](0,-0.5)(0,0.5)
@@ -1457,13 +1372,13 @@
%
\def\pst@draw@switch{%
\ifx\psk@Dstyle\pst@Dstyle@close
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\qdisk(-0.5,0){1.5pt}
\qdisk(0.5,0){1.5pt}
\psline[arrows=-,linewidth=2\pslinewidth](-0.5,0.05)(0.5,0.05)
\else
- \pnode(-0.55,0){dipole@i}
+ \pnode(-0.55,0){dipole@1}
\pnode(0.5,0){dipole@2}
\psline[arrows=-,linewidth=2\pslinewidth](-0.5,0)(0.5,0.5)
\psarcn[arrowinset=0]{->}(-0.5,0){0.75}{45}{-45}
@@ -1490,7 +1405,7 @@
\psline[arrows=-,linewidth=1.5\pslinewidth](0,-0.1)(0,-0.35)
\fi
\fi
- \pnode(-0.25,0){dipole@i}
+ \pnode(-0.25,0){dipole@1}
\pnode(0.25,0){dipole@2}
}
%
@@ -1501,7 +1416,7 @@
\else
\psline[arrows=-,linewidth=1.5\pslinewidth](0.25,0.25)(0.25,-0.25)(0,-0.25)
\fi
- \pnode(-0.25,0){dipole@i}
+ \pnode(-0.25,0){dipole@1}
\pnode(0.25,0){dipole@2}
}
%
@@ -1509,20 +1424,20 @@
\pscircle[linewidth=1.5\pslinewidth]{0.5}
\psline[arrows=-,linewidth=1.5\pslinewidth](0.5;45)(0.5;225)
\psline[arrows=-,linewidth=1.5\pslinewidth](0.5;135)(0.5;315)
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
}
%
\def\pst@draw@circledipole{%
\pscircle[linewidth=1.5\pslinewidth]{0.5}
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
}
%
\def\pst@draw@LED{%
\pspolygon[arrows=-,linewidth=1.5\pslinewidth](-0.25,-0.2)(-0.25,0.2)(0.25,0)
\psline[arrows=-,linewidth=1.5\pslinewidth](0.25,0.2)(0.25,-0.2)
- \pnode(-0.25,0){dipole@i}
+ \pnode(-0.25,0){dipole@1}
\pnode(0.25,0){dipole@2}
\multips(-0.25,0.3)(0.25,0){3}{\psline[arrows=->](0.25,0.22)}%
}
@@ -1613,7 +1528,7 @@
\psframe[linewidth=2\pslinewidth](0,0)(\psk@logic@width,\psk@logic@height)%
}
\pst@getcoor{#2}\pst@tempa
- \ifPst@logic@changeLR\def\logic@LR{true}\else\def\logic@LR{false}\fi%
+ \ifPst@logicChangeLR\def\logic@LR{true}\else\def\logic@LR{false}\fi%
\pstVerb{
/YA \pst@tempa exch pop \pst@number\psyunit div def
/YB YA \psk@logic@height\space add def
@@ -1631,16 +1546,16 @@
\pnode(! XA YA dy 4 div 3 mul add){#3R}
\psline(#3R)(! XA 0.5 \logic@LR {add}{sub} ifelse YA dy 4 div 3 mul add)
\psline(#3S)(! XA 0.5 \logic@LR {add}{sub} ifelse YA dy 4 div add)
- \uput[\ifPst@logic@changeLR 180\else 0\fi](#3R){\psk@logic@nodestyle R}
- \uput[\ifPst@logic@changeLR 180\else 0\fi](#3S){\psk@logic@nodestyle S}
+ \uput[\ifPst@logicChangeLR 180\else 0\fi](#3R){\psk@logic@nodestyle R}
+ \uput[\ifPst@logicChangeLR 180\else 0\fi](#3S){\psk@logic@nodestyle S}
\pnode(! XB 0.2 \logic@LR {sub}{add} ifelse YA dy 4 div add){#3Qneg}
\pscircle[linewidth=0.5pt](! XB 0.1 \logic@LR {sub}{add} ifelse YA dy 4 div add){0.1}
\pnode(! XB YA dy 4 div 3 mul add){#3Q}
\psline(#3Q)(! XB \psk@logic@wireLength\space \logic@LR {sub}{add} ifelse YA dy 4 div 3 mul add)
\psline(#3Qneg)(! XB \psk@logic@wireLength\space \logic@LR {sub}{add} ifelse YA dy 4 div add)
- \uput[\ifPst@logic@changeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
- \uput{0.4}[\ifPst@logic@changeLR 0\else 180\fi](#3Qneg){\psk@logic@nodestyle $\mathrm{\overline{Q}}$}
- \ifPst@logic@showDot
+ \uput[\ifPst@logicChangeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
+ \uput{0.4}[\ifPst@logicChangeLR 0\else 180\fi](#3Qneg){\psk@logic@nodestyle $\mathrm{\overline{Q}}$}
+ \ifPst@logicShowDot
\qdisk(! XA \psk@logic@wireLength\space \logic@LR {add}{sub} ifelse YA dy 4 div 3 mul add){3pt}
\qdisk(! XA \psk@logic@wireLength\space \logic@LR {add}{sub} ifelse YA dy 4 div add){3pt}
\qdisk(! XB \psk@logic@wireLength\space \logic@LR {sub}{add} ifelse YA dy 4 div 3 mul add){3pt}
@@ -1657,16 +1572,16 @@
\psline(#3C)(! XA 0.5 \logic@LR {add}{sub} ifelse YA dy 2 div add)
\psline[linewidth=0.5pt](! XA YA dy 2 div add 0.15 add)
(! XA 0.4 \logic@LR {sub}{add} ifelse YA dy 2 div add)(! XA YA dy 2 div add 0.15 sub)
- \uput[\ifPst@logic@changeLR 180\else 0\fi](#3D){\psk@logic@nodestyle D}
- \uput{0.5}[\ifPst@logic@changeLR 180\else 0\fi](#3C){\psk@logic@nodestyle C}
+ \uput[\ifPst@logicChangeLR 180\else 0\fi](#3D){\psk@logic@nodestyle D}
+ \uput{0.5}[\ifPst@logicChangeLR 180\else 0\fi](#3C){\psk@logic@nodestyle C}
\pnode(! XB 0.2 \logic@LR {sub}{add} ifelse YA dy 4 div add){#3Qneg}
\pscircle[linewidth=0.5pt](! XB 0.1 \logic@LR {sub}{add} ifelse YA dy 4 div add){0.1}
\pnode(! XB YA dy 4 div 3 mul add){#3Q}
\psline(#3Q)(! XB 0.5 \logic@LR {sub}{add} ifelse YA dy 4 div 3 mul add)
\psline(#3Qneg)(! XB 0.5 \logic@LR {sub}{add} ifelse YA dy 4 div add)
- \uput[\ifPst@logic@changeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
- \uput{0.4}[\ifPst@logic@changeLR 0\else 180\fi](#3Qneg){\psk@logic@nodestyle $\mathrm{\overline{Q}}$}
- \ifPst@logic@showDot
+ \uput[\ifPst@logicChangeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
+ \uput{0.4}[\ifPst@logicChangeLR 0\else 180\fi](#3Qneg){\psk@logic@nodestyle $\mathrm{\overline{Q}}$}
+ \ifPst@logicShowDot
\qdisk(! XA 0.5 \logic@LR {add}{sub} ifelse YA dy 4 div 3 mul add){3pt}
\qdisk(! XA 0.5 \logic@LR {add}{sub} ifelse YA dy 2 div add){3pt}
\qdisk(! XB 0.5 \logic@LR {sub}{add} ifelse YA dy 4 div 3 mul add){3pt}
@@ -1683,13 +1598,13 @@
/yNew Step \n\space mul def
XA YA yNew add Step 2 div sub){#3J\n}
\pst@getcoor{#3J\n}\pst@tempc
- \uput[\ifPst@logic@changeLR 180\else 0\fi](#3J\n){\psk@logic@nodestyle J\n}
+ \uput[\ifPst@logicChangeLR 180\else 0\fi](#3J\n){\psk@logic@nodestyle J\n}
\pnode(!
/YC \pst@tempc exch pop \pst@number\psyunit div def
/XC \pst@tempc pop \pst@number\psxunit div def
XC 0.5 \logic@LR {add}{sub} ifelse YC){tempJ\n}
\psline(#3J\n)(tempJ\n)% input
- \ifPst@logic@showDot
+ \ifPst@logicShowDot
\qdisk(tempJ\n){3pt}
\fi
}
@@ -1699,13 +1614,13 @@
/yNew Step \n\space mul def
XA YB yNew sub Step 2 div add){#3K\n}
\pst@getcoor{#3K\n}\pst@tempc
- \uput[\ifPst@logic@changeLR 180\else 0\fi](#3K\n){\psk@logic@nodestyle K\n}
+ \uput[\ifPst@logicChangeLR 180\else 0\fi](#3K\n){\psk@logic@nodestyle K\n}
\pnode(!
/YC \pst@tempc exch pop \pst@number\psyunit div def
/XC \pst@tempc pop \pst@number\psxunit div def
XC 0.5 \logic@LR {add}{sub} ifelse YC){tempK\n}
\psline(#3K\n)(tempK\n)% input
- \ifPst@logic@showDot
+ \ifPst@logicShowDot
\qdisk(tempK\n){3pt}
\fi
}
@@ -1713,15 +1628,15 @@
(! XA 0.4 \logic@LR {sub}{add} ifelse YA dy 2 div add)(! XA YA dy 2 div add 0.15 sub)
\pnode(! XA YA dy 2 div add){#3C}
\psline(#3C)(! XA 0.5 \logic@LR {add}{sub} ifelse YA dy 2 div add)
- \uput{0.5}[\ifPst@logic@changeLR 180\else 0\fi](#3C){\psk@logic@nodestyle C}
+ \uput{0.5}[\ifPst@logicChangeLR 180\else 0\fi](#3C){\psk@logic@nodestyle C}
\pnode(! XB 0.2 \logic@LR {sub}{add} ifelse YA dy 4 div add){#3Qneg}
\pscircle[linewidth=0.5pt](! XB 0.1 \logic@LR {sub}{add} ifelse YA dy 4 div add){0.1}
\pnode(! XB YA dy 4 div 3 mul add){#3Q}
\psline(#3Q)(! XB 0.5 \logic@LR {sub}{add} ifelse YA dy 4 div 3 mul add)
\psline(#3Qneg)(! XB 0.5 \logic@LR {sub}{add} ifelse YA dy 4 div add)
- \uput[\ifPst@logic@changeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
- \uput{0.4}[\ifPst@logic@changeLR 0\else 180\fi](#3Qneg){\psk@logic@nodestyle $\mathrm{\overline{Q}}$}
- \ifPst@logic@showDot
+ \uput[\ifPst@logicChangeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
+ \uput{0.4}[\ifPst@logicChangeLR 0\else 180\fi](#3Qneg){\psk@logic@nodestyle $\mathrm{\overline{Q}}$}
+ \ifPst@logicShowDot
\qdisk(! XB 0.5 \logic@LR {sub}{add} ifelse YA dy 4 div 3 mul add){3pt}
\qdisk(! XB 0.5 \logic@LR {sub}{add} ifelse YA dy 4 div add){3pt}
\qdisk(! XA 0.5 \logic@LR {add}{sub} ifelse YA dy 2 div add){3pt}
@@ -1746,11 +1661,11 @@
/XC \pst@tempc pop \pst@number\psxunit div def
XC \psk@logic@wireLength\space \logic@LR {add}{sub} ifelse YC){temp#3\n}
\psline(#3\n)(temp#3\n)% input
- \ifPst@logic@showDot
+ \ifPst@logicShowDot
\qdisk(temp#3\n){3pt}
\fi
- \ifPst@logic@showNode
- \uput[\ifPst@logic@changeLR 180\else 0\fi](#3\n){\psk@logic@nodestyle\n}
+ \ifPst@logicShowNode
+ \uput[\ifPst@logicChangeLR 180\else 0\fi](#3\n){\psk@logic@nodestyle\n}
\fi
}
\ifx\psk@logic@type\pst@logic@type@not\else
@@ -1759,11 +1674,11 @@
\ifx\psk@logic@type\pst@logic@type@exnor\else
\pnode(! XB YA dy 2 div add){#3Q}
\psline(#3Q)(! XB \psk@logic@wireLength\space \logic@LR {sub}{add} ifelse YA dy 2 div add)% output
- \ifPst@logic@showDot
+ \ifPst@logicShowDot
\qdisk(! XB \psk@logic@wireLength\space \logic@LR {sub}{add} ifelse YA dy 2 div add){3pt}
\fi
- \ifPst@logic@showNode
- \uput[\ifPst@logic@changeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
+ \ifPst@logicShowNode
+ \uput[\ifPst@logicChangeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
\fi
\fi
\fi
@@ -1775,11 +1690,11 @@
\pnode(! XB 0.2 \logic@LR {sub}{add} ifelse YA dy 2 div add){#3Q}
\pscircle[linewidth=0.5pt](! XB 0.1 \logic@LR {sub}{add} ifelse YA dy 2 div add){0.1}
\psline(#3Q)(! XB \psk@logic@wireLength\space \logic@LR {sub}{add} ifelse YA dy 2 div add)% output
- \ifPst@logic@showDot
+ \ifPst@logicShowDot
\qdisk(! XB \psk@logic@wireLength\space \logic@LR {sub}{add} ifelse YA dy 2 div add){3pt}
\fi
- \ifPst@logic@showNode
- \uput{0.4}[\ifPst@logic@changeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
+ \ifPst@logicShowNode
+ \uput{0.4}[\ifPst@logicChangeLR 0\else 180\fi](#3Q){\psk@logic@nodestyle Q}
\fi
\fi
\fi
@@ -1848,7 +1763,7 @@
\else
\pcline(#2)(#3)
\ifPst@intensity
- \ifPst@direct@convention
+ \ifPst@directconvention
\ncput[nrot=:U]{%
\psline[linecolor=\psk@I@color,
linewidth=\psk@I@width,arrowinset=0]{->}(-.1,0)(.1,0)}
@@ -1883,70 +1798,38 @@
%
%
%
-\newif\ifPst@inputarrow
-\define@key[psset]{pst-circ}{inputarrow}[false]{\@nameuse{Pst@inputarrow#1}}
-\newif\ifPst@programmable
-\define@key[psset]{pst-circ}{programmable}[false]{\@nameuse{Pst@programmable#1}}
-%
-\def\pst@Gstyle@old{old}
-\def\pst@Gstyle@ads{ads}
-\def\pst@Gstyle@triangle{triangle}
-\def\pst@Astyle@two{two}
-\def\pst@Astyle@three{three}
-\def\pst@Astyle@triangle{triangle}
-\def\pst@LOoutput@left{left}
-\def\pst@LOoutput@top{top}
-\def\pst@LOoutput@right{right}
-\def\pst@LOoutput@bottom{bottom}
-\def\pst@LOstyle@crystal{crystal}
-\def\pst@Dstyle@lowpass{lowpass}
-\def\pst@Dstyle@highpass{highpass}
-\def\pst@Dinput@right{right}
-\def\pst@Dinput@left{left}
-\def\pst@Dstyle@multiplier{multiplier}
-\def\pst@Dstyle@divider{divider}
-\def\pst@FMvalue@value{0}
-\def\pst@tripole@style@bottom{bottom}
-\def\pst@tripole@style@top{top}
-\def\pst@Tinput@left{left}
-\def\pst@Tinput@right{right}
-\def\pst@tripole@style@circulator{circulator}
-\def\pst@tripole@style@isolator{isolator}
-\def\pst@Tconfig@left{left}
-\def\pst@Tconfig@right{right}
-\def\pst@Qstyle@directional{directional}
-\def\pst@Qstyle@hybrid{hybrid}
-\def\pst@Qinput@left{left}
+\define@boolkey[psset]{pst-circ}[Pst@]{inputarrow}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{programmable}[true]{}
+\define@boolkey[psset]{pst-circ}[Pst@]{connectingdot}[true]{}
+%
+\def\pst@Gstyle@old{old} \def\pst@Gstyle@ads{ads} \def\pst@Gstyle@triangle{triangle}
+\def\pst@Astyle@two{two} \def\pst@Astyle@three{three} \def\pst@Astyle@triangle{triangle}
+\def\pst@LOoutput@left{left} \def\pst@LOoutput@top{top} \def\pst@LOoutput@right{right}
+\def\pst@LOoutput@bottom{bottom} \def\pst@LOstyle@crystal{crystal}\def\pst@Dstyle@lowpass{lowpass}
+\def\pst@Dstyle@highpass{highpass}\def\pst@Dinput@right{right} \def\pst@Dinput@left{left}
+\def\pst@Dstyle@multiplier{multiplier}\def\pst@Dstyle@divider{divider}\def\pst@FMvalue@value{0}
+\def\pst@tripole@style@bottom{bottom}\def\pst@tripole@style@top{top}\def\pst@Tinput@left{left}
+\def\pst@Tinput@right{right} \def\pst@tripole@style@circulator{circulator}
+\def\pst@tripole@style@isolator{isolator}\def\pst@Tconfig@left{left}\def\pst@Tconfig@right{right}
+\def\pst@Qstyle@directional{directional}\def\pst@Qstyle@hybrid{hybrid}\def\pst@Qinput@left{left}
\def\pst@Qinput@right{right}
-\define@key[psset]{pst-circ}{groundstyle}{\def\psk@Gstyle{#1}}
-\define@key[psset]{pst-circ}{antennastyle}{\def\psk@Astyle{#1}}
-\define@key[psset]{pst-circ}{output}{\def\psk@LOoutput{#1}}
-\define@key[psset]{pst-circ}{LOstyle}{\def\psk@LOstyle{#1}}
-\define@key[psset]{pst-circ}{dipoleinput}{\def\psk@Dinput{#1}}
-\define@key[psset]{pst-circ}{value}{\def\psk@FMvalue{#1}}
-\define@key[psset]{pst-circ}{tripoleinput}{\def\psk@Tinput{#1}}
-\define@key[psset]{pst-circ}{tripoleconfig}{\def\psk@Tconfig{#1}}
-\define@key[psset]{pst-circ}{couplerstyle}{\def\psk@Qstyle{#1}}
-\define@key[psset]{pst-circ}{quadripoleinput}{\def\psk@Qinput{#1}}
-%
-\newif\ifPst@connectingdot
-\define@key[psset]{pst-circ}{connectingdot}[true]{\@nameuse{Pst@connectingdot#1}}
-%
-\psset{groundstyle=ads,%
- antennastyle=two,%
- output=top,%
- dipoleinput=left,%
- dipolestyle=multiplier,%
- value=0,%
- dipoleinput=left,%
- inputarrow=false,%
- tripoleinput=left,%
- tripolestyle=bottom,%
- tripoleconfig=left,%
- quadripoleinput=left,%
- couplerstyle=hybrid,%
- connectingdot=true,
-}
+\define@key[psset]{pst-circ}{groundstyle}[ads]{\def\psk@Gstyle{#1}}
+\define@key[psset]{pst-circ}{antennastyle}[two]{\def\psk@Astyle{#1}}
+\define@key[psset]{pst-circ}{output}[top]{\def\psk@LOoutput{#1}}
+\define@key[psset]{pst-circ}{LOstyle}[]{\def\psk@LOstyle{#1}}
+\define@key[psset]{pst-circ}{dipoleinput}[left]{\def\psk@Dinput{#1}}
+\define@key[psset]{pst-circ}{value}[0]{\def\psk@FMvalue{#1}}
+\define@key[psset]{pst-circ}{tripoleinput}[left]{\def\psk@Tinput{#1}}
+\define@key[psset]{pst-circ}{tripoleconfig}[left]{\def\psk@Tconfig{#1}}
+\define@key[psset]{pst-circ}{couplerstyle}[hxbrid]{\def\psk@Qstyle{#1}}
+\define@key[psset]{pst-circ}{quadripoleinput}[left]{\def\psk@Qinput{#1}}
+%
+%
+\psset{groundstyle=ads, antennastyle=two, output=top,%
+ dipoleinput=left, dipolestyle=multiplier, value=0,%
+ dipoleinput=left, inputarrow=false, tripoleinput=left,%
+ tripolestyle=bottom,tripoleconfig=left, quadripoleinput=left,%
+ couplerstyle=hybrid, connectingdot=true, LOstyle={} }
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% monopole
@@ -2146,7 +2029,7 @@
}
%
\def\pst@draw@filter{%
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\psframe[linewidth=1.5\pslinewidth](-0.5,-0.5)(0.5,0.5)
\pscurve[linewidth=1.5\pslinewidth]{c-c}(-0.4,0.250)(-0.2,0.3750)(0,0.250)(0.2,0.1250)(0.4,0.250)
@@ -2197,7 +2080,7 @@
}
%
\def\pst@draw@isolator{%
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\psframe[linewidth=1.5\pslinewidth](-0.5,-0.5)(0.5,0.5)
\ifx\psk@Dinput\pst@Dinput@right
@@ -2236,7 +2119,7 @@
}
%
\def\pst@draw@freqmult{%
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\psframe[linewidth=1.5\pslinewidth](-0.5,-0.5)(0.5,0.5)
\ifPst@programmable%
@@ -2296,7 +2179,7 @@
}
%
\def\pst@draw@phaseshifter{%
- \pnode(-0.4,0){dipole@i}
+ \pnode(-0.4,0){dipole@1}
\pnode(0.4,0){dipole@2}
\pscircle[linewidth=1.5\pslinewidth](0,0){0.4}
\psline[fillstyle=none,linewidth=1.5\pslinewidth,arrowinset=0]{->}(-0.5,-0.5)(0.5,0.5)
@@ -2331,7 +2214,7 @@
}
%
\def\pst@draw@vco{%
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\pnode(0.5,0){dipole@2}
\pscircle[linewidth=1.5\pslinewidth](0,0){0.5}
\pscurve[linewidth=1.5\pslinewidth]{c-c}(-0.3,0.000)(-0.225,0.088375)(-0.15,0.1250)(-0.075,0.088375)%
@@ -2368,7 +2251,7 @@
}
%
\def\pst@draw@amplifier{%
- \pnode(-0.433,0){dipole@i}
+ \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)
@@ -2407,7 +2290,7 @@
}
%
\def\pst@draw@detector{%
- \pnode(-0.5,0){dipole@i}
+ \pnode(-0.5,0){dipole@1}
\psline[fillstyle=none](-0.5,0)(-0.2165,0)
\pnode(0.5,0){dipole@2}
\psline[fillstyle=none](0.5,0)(0.2165,0)