[pstricks] Re : Lines (curves) with gradient color...

Herbert Voss Herbert.Voss at fu-berlin.de
Wed Jul 11 10:33:07 CEST 2007

Werner Grundlingh wrote:
> My problem lies more with the outcome around curves in a function.
> I've added 2 images showing how functions drawn with
> \parametericplotHSB are not as smooth around the function curves. Both
> images have a \parametricplotHSB plot as well as a (regular)
> \parametricplot in it, to show the difference in smoothness. Is it
> possible to eliminate this, and therefore not have the coloured line
> segments 'stroked' together, but rather 'curved' together, if you
> understand what I mean?
try this one. Replace the macro definition in your example file.


\def\parametricplotHSB{\pst at object{parametricplotHSB}}
\def\parametricplotHSB at i#1#2#3{{%
  \begin at ClosedObj
  \addto at pscode{%
    /t #1 def
    /dt #2 t sub \psk at plotpoints\space div def
    /t t dt sub def
    /Counter 0 def
    1 setlinejoin
    \psk at plotpoints {
      /t t dt add def
      /Counter Counter 1 add def
      \pst at number\psyunit mul exch
      \pst at number\psxunit mul exch
      1 Counter eq { moveto currentpoint /OldY ED /OldX ED } % First point
        {\ifPst at HSB % Other points than the first one
          /PointY exch def
          /PointX exch def
          Counter \psk at plotpoints\space div
          \PstParametricplotHSB at HueEnd\space
          \PstParametricplotHSB at HueBegin\space sub mul
          \PstParametricplotHSB at HueBegin\space add
          1 1 sethsbcolor
          OldX OldY PointX PointY lineto lineto
          PointX PointY moveto
          /OldX PointX def /OldY PointY def
        \else lineto \fi } ifelse
     } repeat }% fin du code ps
   \end at ClosedObj}%
  \ignorespaces} % fin de la commande PSTricks

More information about the PSTricks mailing list