<br>Awesome! Beautiful! Love it!<br><br>I&#39;m using something like<br><br>...<br><br>
\begin{document}<br>&nbsp;&nbsp;&nbsp; \psset{xunit=0.1cm,yunit=0.1cm}<br>&nbsp;&nbsp;&nbsp; \begin{pspicture}(125,20)<br>&nbsp;&nbsp;&nbsp; \psbezierIV[linewidth=4pt,showpoints=true]{&lt;-&gt;}(0,2)(45,2)(60,40)(75,2)(120,2)<br>&nbsp;&nbsp;&nbsp; \end{pspicture}<br>
\end{document}<br><br>for my design purposes.<br><br>Thanks a lot!<br><br>J<br><br><br><div class="gmail_quote">On Wed, Mar 19, 2008 at 8:59 PM, Herbert Voss &lt;<a href="mailto:Herbert.Voss@fu-berlin.de">Herbert.Voss@fu-berlin.de</a>&gt; wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">a solution created with hot needles ...<br>
<br>
Herbert<br>
<br>
<br>
\documentclass{article}<br>
\usepackage{pst-plot}<br>
<br>
\makeatletter<br>
\pst@def{BezierQuartic}&lt;<br>
 &nbsp; ] /Points ED % &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;y4 x4 y3 x3 y2 x2 y1 x1 y0 x0<br>
 &nbsp; /GetBezierCoor {<br>
 &nbsp; /t ED &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;% t on stack<br>
 &nbsp; /t1 1 t sub def<br>
% &nbsp;the x coordinate<br>
 &nbsp; Points 8 get t 4 exp mul &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;% x0*B0(t)<br>
 &nbsp; Points 6 get t 3 exp 4 mul mul t1 mul add &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; % x1*B1(t)<br>
 &nbsp; Points 4 get t 2 exp 6 mul mul t1 2 exp mul add &nbsp; &nbsp; &nbsp; % x2*B2(t)<br>
 &nbsp; Points 2 get t 4 mul mul t1 3 exp mul add &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; % x3*B3(t)<br>
 &nbsp; Points 0 get t1 4 exp mul add &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; % x4*B4(t)<br>
% &nbsp;the y coordinate<br>
 &nbsp; Points 9 get t 4 exp mul &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;% y0*B0(t)<br>
 &nbsp; Points 7 get t 3 exp 4 mul mul t1 mul add &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; % y1*B1(t)<br>
 &nbsp; Points 5 get t 2 exp 6 mul mul t1 2 exp mul add &nbsp; &nbsp; &nbsp; % y2*B2(t)<br>
 &nbsp; Points 3 get t 4 mul mul t1 3 exp mul add &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; % y3*B3(t)<br>
 &nbsp; Points 1 get t1 4 exp mul add &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; % y4*B4(t)<br>
} def<br>
 &nbsp; /epsilon 0.01 def<br>
 &nbsp; /n 5 def<br>
 &nbsp; epsilon GetBezierCoor &nbsp; &nbsp; &nbsp; &nbsp; % next Bezier point<br>
 &nbsp; Points 0 get Points 1 get &nbsp; &nbsp; % starting point<br>
 &nbsp; ArrowA moveto<br>
 &nbsp; epsilon epsilon 1 {<br>
 &nbsp; &nbsp; /t ED<br>
 &nbsp; &nbsp; t GetBezierCoor<br>
 &nbsp; &nbsp; t 0.9999 lt { lineto }{ 1 epsilon sub GetBezierCoor 4 2 roll ArrowB<br>
pop pop pop pop } ifelse<br>
 &nbsp; } for &gt;<br>
%\def\tx@BezierQuartic{BezierQuartic }<br>
\def\psbezierIV{\pst@object{psbezierIV}}<br>
\def\psbezierIV@i{%<br>
 &nbsp; \pst@getarrows{%<br>
 &nbsp; &nbsp; \begin@OpenObj<br>
 &nbsp; &nbsp; \pst@getcoors[\psbezierIV@ii%<br>
 &nbsp; }}<br>
\def\psbezierIV@ii{%<br>
 &nbsp; \addto@pscode{%<br>
 &nbsp; &nbsp; \tx@BezierQuartic<br>
 &nbsp; &nbsp; \ifshowpoints \tx@BezierShowPoints \fi<br>
 &nbsp; }%<br>
 &nbsp; \end@OpenObj}<br>
%<br>
\makeatother<br>
<br>
\begin{document}<br>
\psset{xunit=0.2cm}<br>
\begin{pspicture}(40,15)<br>
\psbezierIV[linewidth=2pt,showpoints=true]{&lt;-&gt;}(0,0)(10,5)(20,13)(30,5)(40,0)<br>
\end{pspicture}<br>
<br>
\end{document}<br>
_______________________________________________<br>
pstricks mailing list<br>
<a href="mailto:pstricks@tug.org">pstricks@tug.org</a><br>
<a href="http://tug.org/mailman/listinfo/pstricks" target="_blank">http://tug.org/mailman/listinfo/pstricks</a><br>
</blockquote></div><br>