[pstricks] Pst-circ

[Fabien Guillemot]

Hi,

I'm suggesting new drawing for dipole in pst-circ :

%%%%% A switch with an opening version called switcho
\def\pst at draw@switcho{%
  \ifx\psk at Dstyle\pst at Dstyle@close
    \pnode(-0.5,0){dipole at 1}
    \pnode(0.5,0){dipole at 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 at 1}
    \pnode(0.5,0){dipole at 2}
    \psline[arrows=-,linewidth=2\pslinewidth](-0.5,0)(0.5,0.25)
    \psarcn[arrowinset=0]{<-}(-0.5,0){0.75}{45}{-45}
    \pscircle[fillstyle=solid](-0.5,0){0.07}
    \qdisk(0.5,0){1.5pt}
  \fi
}
%%%%%%


%%%%%% a new design for coil
\def\pst at draw@coil{%
\psset{linewidth=1.5\pslinewidth}
        \pscurve[arrows=-](-0.63,0)(-0.45,0.2)(-0.25,0)(-0.3,-0.18)
      (-0.35,0)(-0.15,0.2)(0.05,0)(0,-0.18)(-0.05,0)
      (0.15,0.2)(0.35,0)
      (0.3,-0.18)(0.25,0)(0.45,.2)(0.63,0)
    \pnode(-0.63,0){dipole at 1}
    \pnode(0.63,0){dipole at 2}
  \ifPst at variable\psline{->}(-0.75,-0.5)(0.75,0.5)\fi%
  }
  %%%%%%%


%%%%%%%% a new generator
\def\pst at draw@Uccc{%
  \pnode(-0.5,0){dipole at 1}
  \pnode(0.5,0){dipole at 2}
    \pscircle[linewidth=1.5\pslinewidth](0,0){0.5}
    \psline[linewidth=1.5\pslinewidth](-0.5,0)(0.5,0)
}
%%%%%%%%%%

Best regards

Fabien
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20121214/96d06628/attachment.html>