[pstricks] Dashpot macro

[Patrick Drechsler]

Herbert Voss wrote on 22 Jan 2006 16:01:34 MET:

> Patrick Drechsler wrote:
>
>> My "no-success" is attached as tar.bz2 file. I have changed
>> all "pst-circ" into "my-pst-circ". All my changes to the
>> original code are easily found by looking for the terms
>> "dashpot" or "% pd start|end|change".
>
> my-pst-circ.tex, line 1222 in macro
> \def\pst at draw@dashpot{%
>
>  \psline[linewidth=1.5\pslinewidth]%
>      (-0.5,-0.25)(0.5,0.-25)(0.5,0.25)(-0.5,0.25)%
>                      ^^^^^^^
>
> \psline[linewidth=1.5\pslinewidth](-0.5,-0.25)(0.5,-0.25)(0.5,0.25)(-0.5,0.25)

Thanks for finding this Herbert! 

I've changed the dimensions a bit:

--8<------------------------schnipp------------------------->8---
\def\pst at draw@dashpot{%
  \pnode(0,0){dipole at 1}%
  \pnode(0.5,0){dipole at 2}%
  \psline[linewidth=1.5\pslinewidth]%
  (-0.5,-0.5)(0.5,-0.5)(0.5,0.5)(-0.5,0.5)%
  \psline[linewidth=1.5\pslinewidth](0,-0.4)(0,0.4)%
}
--8<------------------------schnapp------------------------->8---

You or Christophe are of course welcome to include this in
pst-circ.

Cheers

Patrick
-- 
"What happens if a big asteroid hits Earth ? Judging from
 realistic simulations involving a sledge hammer and a common
 laboratory frog, we can assume it will be pretty bad."
                                                -- Dave Barry