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