From b396e9795f300708e4296019397ba084a1a37ace Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 3 Feb 2009 01:26:19 +0000 Subject: pst-circ 1.50 (2feb09) git-svn-id: svn://tug.org/texlive/trunk@12055 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-circ/pst-circ.tex | 849 +++++++++------------ 1 file changed, 366 insertions(+), 483 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-circ') 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) -- cgit v1.2.3