# [pstricks] space curve with pst-solides3D (mathias legrand)

Jon Joseph josco.jon at gmail.com
Mon Aug 9 05:27:56 CEST 2010

Mathias: I did something like what you want below (not exactly like your question but close).  The \psPolygonIIID function is fed data that I generated out of Mathematica.  The purpose of the polygon is to put a very nice end cap on the nested solid.

\documentclass{article}
%\usepackage{pst-pdf}
\usepackage[dvipsnames]{pstricks}
\usepackage{pst-solides3d}

\usepackage{amssymb, amsmath}
\usepackage{multicol}
\setlength\topmargin{-20pt}
\usepackage{bm}

\pagestyle{empty}

\begin{document}

\psset{unit=1}
\begin{pspicture}[showgrid=false](0,-2)(2,2)
\psset{lightsrc=10 -40 20,viewpoint=30 -40 20,
Decran=100,linewidth=0.5\pslinewidth, ngrid=25 25}
\defFunction{cosshell}(u, v)%
{u}{2 v Cos mul}{2 v Sin mul}%
\defFunction{sinshell}(u,v)
{u}{2 u mul 1 add Sin .25 mul 1 add v Cos mul}{2 u mul 1 add Sin .25 mul 1 add v Sin mul}
\psSolid[object=surfaceparametree,
base=0 4 0 2 pi mul,
action=draw**,
linecolor=cyan!90,
fillcolor=cyan!50,
function=sinshell,
opacity=.5](0,0,0)
\axesIIID(0,0,0)(5,5,3)
\psSolid[object=cylindrecreux,%
action=draw**,
grid=false,
h=4, r=.35,
incolor=gray!80,
fillcolor=red,
opacity=.5,
RotY=90](0,0,0)
\psPolygonIIID[fillstyle=solid, fillcolor=red!50, linecolor=red!40, opacity=.7](4, 0, 1.10303)(4, -0.340855, 1.04904)(4, -0.648345, 0.89237)(4, -0.89237, 0.648345)(4, -1.04904, 0.340855)(4, -1.10303, 0)(4, -1.04904, -0.340855)(4, -0.89237, -0.648345)(4, -0.648345, -0.89237)(4, -0.340855, -1.04904)(4, 0, -1.10303)(4, 0.340855, -1.04904)(4, 0.648345, -0.89237)(4, 0.89237, -0.648345)(4, 1.04904, -0.340855)(4, 1.10303, 0)(4, 1.04904, 0.340855)(4, 0.89237, 0.648345)(4, 0.648345,
0.89237)(4, 0.340855, 1.04904)(4, 0, 1.10303)(4, 0, 0.36333)(4, 0.112275, 0.345548)(4, 0.21356, 0.293941)(4, 0.293941,
0.21356)(4, 0.345548, 0.112275)(4, 0.36333, 0)(4, 0.345548,
-0.112275)(4, 0.293941, -0.21356)(4, 0.21356, -0.293941)(4,
0.112275, -0.345548)(4, 0, -0.36333)(4, -0.112275, -0.345548)(4, -0.21356, -0.293941)(4, -0.293941, -0.21356)(4, -0.345548,
-0.112275)(4, -0.36333, 0)(4, -0.345548, 0.112275)(4,-0.293941, 0.21356)(4, -0.21356, 0.293941)(4, -0.112275,0.345548)(4, 0, 0.36333)
\psLineIIID[linewidth=1.5pt](4, 0, 1.10303)(4, -0.340855, 1.04904)(4, -0.648345, 0.89237)
(4, -0.89237, 0.648345)(4, -1.04904, 0.340855)(4, -1.10303, 0)
(4, -1.04904, -0.340855)(4, -0.89237, -0.648345)(4, -0.648345,
-0.89237)(4, -0.340855, -1.04904)(4, 0, -1.10303)(4, 0.340855,
-1.04904)(4, 0.648345, -0.89237)(4, 0.89237, -0.648345)(4,
1.04904, -0.340855)(4, 1.10303, 0)(4, 1.04904, 0.340855)(4,
0.89237, 0.648345)(4, 0.648345, 0.89237)(4, 0.340855, 1.04904)
(4, 0, 1.10303)
\psLineIIID[linewidth=1.5pt](4, 0, 0.36333)(4, 0.112275, 0.345548)(4, 0.21356, 0.293941)(4,
0.293941, 0.21356)(4, 0.345548, 0.112275)(4, 0.36333, 0)(4,
0.345548, -0.112275)(4, 0.293941, -0.21356)(4, 0.21356,
-0.293941)(4, 0.112275, -0.345548)(4, 0, -0.36333)(4,
-0.112275, -0.345548)(4, -0.21356, -0.293941)(4, -0.293941,
-0.21356)(4, -0.345548, -0.112275)(4, -0.36333, 0)(4,
-0.345548, 0.112275)(4, -0.293941, 0.21356)(4, -0.21356,
0.293941)(4, -0.112275, 0.345548)(4, 0, 0.36333)
%\axesIIID(0,0,0)(5,5,3)
\end{pspicture}

\end{document}

On Aug 8, 2010, at 9:56 PM, pstricks-request at tug.org wrote:

> Send PSTricks mailing list submissions to
> 	pstricks at tug.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
> 	http://tug.org/mailman/listinfo/pstricks
> or, via email, send a message with subject or body 'help' to
> 	pstricks-request at tug.org
>
> You can reach the person managing the list at
> 	pstricks-owner at tug.org
>
> than "Re: Contents of PSTricks digest..."
>
>
> Today's Topics:
>
>   1. space curve with pst-solides3D (mathias legrand)
>   2. example for the gallery page (mathias legrand)
>   3. Re: example for the gallery page (Zbigniew Nitecki)
>   4. Re: example for the gallery page (Herbert Voss)
>   5. Re: Normal arrows along a curve (Michael Sharpe)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Sun, 08 Aug 2010 13:07:05 -0400
> From: mathias legrand <legrand.mathias at gmail.com>
> To: pstricks at tug.org
> Subject: [pstricks] space curve with pst-solides3D
> Message-ID: <4C5EE439.2040303 at gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Hi all,
>
> would it be possible to import an external set of 3D data within
> pst-solides3d similar to what follows:
>
> \savedata{\data}[{
> {1,1,1},{2,2,2},{3,3,3}....
> }]
> \begin{pspicture}(-6,-3)(6,8)
> \psframe*[linecolor=blue!50](-6,-3)(6,8)
> \psSolid[object=grille,base=-4 4 -4
> 4,linecolor=red,linewidth=0.5\pslinewidth]%
> \axesIIID(0,0,0)(4,4,7)
> %\defFunction[algebraic]{helice}(t){3*cos(4*t)}{3*sin(4*t)}{t}
> \psSolid[object=courbe,r=0,range=0
> 6,linecolor=blue,linewidth=0.1,resolution=360,function=\data]%
> \end{pspicture}
>
> That would be replacing the \defFunction by external 3D curve data.
>
> Thank you,
>
> M.
>
>
> ------------------------------
>
> Message: 2
> Date: Sun, 08 Aug 2010 13:15:37 -0400
> From: mathias legrand <legrand.mathias at gmail.com>
> To: pstricks at tug.org
> Subject: [pstricks] example for the gallery page
> Message-ID: <4C5EE639.8050402 at gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Hi,
>
> also, you may be interested by the following example for the gallery
> page : http://tug.org/PSTricks/main.cgi?file=Examples/Gallery/Gallery
>
> nothing very fancy and tricky, but still nice. It may be improved I guess.
>
> \documentclass[fleqn,10pt]{book}
> \usepackage[top=2.5cm,left=3cm,right=3cm,bottom=2.5cm,a4paper]{geometry}
> \begin{document}
> \begin{figure}[h!]\centering
> \psset{xunit=1cm,yunit=1cm,runit=1cm}
> \def\rE{1.6 }
> \def\rI{0.8 }
> \def\nfrE{25 }
> \def\nfrI{12 }
> \def\nfL{12 }
> \def\lF{0.4 }
> \def\pi{3.141592653589 }
> \psset{arrowsize=3pt,arrowlength=2,arrowinset=0}
> \begin{pspicture}(-3,-2)(8,2)
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% figure de gauche
> \pscircle[linewidth=1.5pt,fillstyle=vlines,hatchwidth=0.1pt](0,0){\rE}
> \pscircle[linewidth=1.5pt,fillstyle=solid,fillcolor=white](0,0){\rI}
> \multido{\i=0+1}{\nfrE}{%
>     \cnode*(!\rE dup 360 \nfrE \space div \i\space 1 sub mul cos mul
> exch 360 \nfrE \space div \i\space 1 sub mul sin mul){0pt}{A}%
>     \cnode*(!\rE\space \lF\space add dup 360 \nfrE \space div \i\space
> 1 sub mul cos mul exch 360 \nfrE \space div \i\space 1 sub mul sin
> mul){0pt}{B}%
>     \psline[linewidth=1pt]{->}(B)(A)%
> }
> \cnode*(!0 dup){0pt}{A}%
> \cnode*(!\rI dup \space 14.3 cos mul exch 14.3 sin mul){0pt}{B}%
> \psline[linewidth=0.5pt]{->}(A)(B)
> \cnode*(!0 dup){0pt}{A}%
> \cnode*(!\rE dup \space 228 cos mul exch 228 sin mul){0pt}{B}%
> \psline[linewidth=0.5pt]{->}(A)(B)
> \cnode*(!0 dup){0pt}{A}%
> \cnode*(!1.2 dup \space 131.6 cos mul exch 131.6 sin mul){0pt}{B}%
> \psline[linewidth=0.5pt]{->}(A)(B)
> \multido{\i=0+1}{\nfrI}{%
>     \cnode*(!\rI dup 360 \nfrI \space div \i\space 1 sub mul cos mul
> exch 360 \nfrI \space div \i\space 1 sub mul sin mul){0pt}{A}%
>     \cnode*(!\rI\space \lF\space sub dup 360 \nfrI \space div \i\space
> 1 sub mul cos mul exch 360 \nfrI \space div \i\space 1 sub mul sin
> mul){0pt}{B}%
>     \psline[linewidth=1pt]{->}(B)(A)
> }
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% figure de droite
> \psframe[linewidth=1.5pt,fillstyle=vlines,hatchwidth=0.1pt](3,-1.6)(7,1.6)
> \psframe[linewidth=1pt,fillstyle=solid,fillcolor=white](3,-0.8)(7,0.8)
> \multido{\i=0+1}{\nfL}{%
> % pression ext?rieure
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE
> \space mul){0pt}{A}%
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE
> \psline[linewidth=1pt]{->}(B)(A)
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE
> \space neg mul){0pt}{A}%
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE
> \space neg \lF\space sub mul){0pt}{B}%
> \psline[linewidth=1pt]{->}(B)(A)
> % pression int?rieure
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch 0.4
> \space mul){0pt}{A}%
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rI
> \space mul){0pt}{B}%
> \psline[linewidth=1pt]{->}(A)(B)
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch 0.4
> \space neg mul){0pt}{A}%
> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rI
> \space neg mul){0pt}{B}%
> \psline[linewidth=1pt]{->}(A)(B)
> }
> \psset{arrowsize=2pt,arrowlength=2,arrowinset=0}
> \psarc{<->}(0,0){1.2}{72}{108}
> \psline{<->}(0,0.9)(0,1.5)
> \psline{<->}(5.15,0.9)(5.15,1.5)
> \psframe[linewidth=0.5pt,fillstyle=solid,fillcolor=lightgray](5,1.1)(5.3,1.3)
> \pscustom[linewidth=0.5pt,fillstyle=solid,fillcolor=lightgray]{%
> \psarc(0,0){1.1}{82}{98}
> \psarcn(0,0){1.3}{98}{82}}
> \cnode*(!1.1 dup 82 cos mul exch 82 sin mul){0pt}{A}%
> \cnode*(!1.3 dup 82 cos mul exch 82 sin mul){0pt}{B}%
> \psline[linewidth=0.5pt](A)(B)
> \psarc(0,0){1.2}{126}{138}
> \psline[linewidth=0.2pt,linestyle=dashed](-3,0)(8,0)
> \end{pspicture}
> \end{figure}
>
> \end{document}
>
>
> ------------------------------
>
> Message: 3
> Date: Sun, 8 Aug 2010 13:55:11 -0400
> From: Zbigniew Nitecki <zbigniew.nitecki at tufts.edu>
> To: Graphics with PSTricks <pstricks at tug.org>
> Subject: Re: [pstricks] example for the gallery page
> Message-ID: <2CE397FA-9927-43DF-8E01-40A25D3948CB at tufts.edu>
> Content-Type: text/plain; charset="iso-8859-1"
>
> This looks a lot like an answer to something I was trying to do, down to the colors I was using!
>
> Zbigniew Nitecki
> Department of Mathematics
> Tufts University
> Medford, MA 02155
>
> telephones:
> Office    (617)627-3843
> Dept.    (617)627-3234
> Dept. fax    (617)627-3966
> http://www.tufts.edu/~znitecki/
>
> On Aug 8, 2010, at 13:15, mathias legrand wrote:
>
>> Hi,
>>
>> also, you may be interested by the following example for the gallery page : http://tug.org/PSTricks/main.cgi?file=Examples/Gallery/Gallery
>>
>> nothing very fancy and tricky, but still nice. It may be improved I guess.
>>
>> \documentclass[fleqn,10pt]{book}
>> \usepackage[top=2.5cm,left=3cm,right=3cm,bottom=2.5cm,a4paper]{geometry}
>> \begin{document}
>> \begin{figure}[h!]\centering
>> \psset{xunit=1cm,yunit=1cm,runit=1cm}
>> \def\rE{1.6 }
>> \def\rI{0.8 }
>> \def\nfrE{25 }
>> \def\nfrI{12 }
>> \def\nfL{12 }
>> \def\lF{0.4 }
>> \def\pi{3.141592653589 }
>> \psset{arrowsize=3pt,arrowlength=2,arrowinset=0}
>> \begin{pspicture}(-3,-2)(8,2)
>> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% figure de gauche
>> \pscircle[linewidth=1.5pt,fillstyle=vlines,hatchwidth=0.1pt](0,0){\rE}
>> \pscircle[linewidth=1.5pt,fillstyle=solid,fillcolor=white](0,0){\rI}
>> \multido{\i=0+1}{\nfrE}{%
>>   \cnode*(!\rE dup 360 \nfrE \space div \i\space 1 sub mul cos mul exch 360 \nfrE \space div \i\space 1 sub mul sin mul){0pt}{A}%
>>   \cnode*(!\rE\space \lF\space add dup 360 \nfrE \space div \i\space 1 sub mul cos mul exch 360 \nfrE \space div \i\space 1 sub mul sin mul){0pt}{B}%
>>   \psline[linewidth=1pt]{->}(B)(A)%
>> }
>> \cnode*(!0 dup){0pt}{A}%
>> \cnode*(!\rI dup \space 14.3 cos mul exch 14.3 sin mul){0pt}{B}%
>> \psline[linewidth=0.5pt]{->}(A)(B)
>> \cnode*(!0 dup){0pt}{A}%
>> \cnode*(!\rE dup \space 228 cos mul exch 228 sin mul){0pt}{B}%
>> \psline[linewidth=0.5pt]{->}(A)(B)
>> \cnode*(!0 dup){0pt}{A}%
>> \cnode*(!1.2 dup \space 131.6 cos mul exch 131.6 sin mul){0pt}{B}%
>> \psline[linewidth=0.5pt]{->}(A)(B)
>> \multido{\i=0+1}{\nfrI}{%
>>   \cnode*(!\rI dup 360 \nfrI \space div \i\space 1 sub mul cos mul exch 360 \nfrI \space div \i\space 1 sub mul sin mul){0pt}{A}%
>>   \cnode*(!\rI\space \lF\space sub dup 360 \nfrI \space div \i\space 1 sub mul cos mul exch 360 \nfrI \space div \i\space 1 sub mul sin mul){0pt}{B}%
>>   \psline[linewidth=1pt]{->}(B)(A)
>> }
>> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% figure de droite
>> \psframe[linewidth=1.5pt,fillstyle=vlines,hatchwidth=0.1pt](3,-1.6)(7,1.6)
>> \psframe[linewidth=1pt,fillstyle=solid,fillcolor=white](3,-0.8)(7,0.8)
>> \multido{\i=0+1}{\nfL}{%
>> % pression ext?rieure
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE \space mul){0pt}{A}%
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE \space \lF\space add mul){0pt}{B}%
>> \psline[linewidth=1pt]{->}(B)(A)
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE \space neg mul){0pt}{A}%
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rE \space neg \lF\space sub mul){0pt}{B}%
>> \psline[linewidth=1pt]{->}(B)(A)
>> % pression int?rieure
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch 0.4 \space mul){0pt}{A}%
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rI \space mul){0pt}{B}%
>> \psline[linewidth=1pt]{->}(A)(B)
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch 0.4 \space neg mul){0pt}{A}%
>> \cnode*(!1 dup 4 \nfL \space 1 sub div \i\space mul 3 add mul exch \rI \space neg mul){0pt}{B}%
>> \psline[linewidth=1pt]{->}(A)(B)
>> }
>> \psset{arrowsize=2pt,arrowlength=2,arrowinset=0}
>> \psarc{<->}(0,0){1.2}{72}{108}
>> \psline{<->}(0,0.9)(0,1.5)
>> \psline{<->}(5.15,0.9)(5.15,1.5)
>> \psframe[linewidth=0.5pt,fillstyle=solid,fillcolor=lightgray](5,1.1)(5.3,1.3)
>> \pscustom[linewidth=0.5pt,fillstyle=solid,fillcolor=lightgray]{%
>> \psarc(0,0){1.1}{82}{98}
>> \psarcn(0,0){1.3}{98}{82}}
>> \cnode*(!1.1 dup 82 cos mul exch 82 sin mul){0pt}{A}%
>> \cnode*(!1.3 dup 82 cos mul exch 82 sin mul){0pt}{B}%
>> \psline[linewidth=0.5pt](A)(B)
>> \psarc(0,0){1.2}{126}{138}
>> \psline[linewidth=0.2pt,linestyle=dashed](-3,0)(8,0)
>> \end{pspicture}
>> \end{figure}
>>
>> \end{document}
>> _______________________________________________
>> PSTricks mailing list
>> PSTricks at tug.org
>> http://tug.org/mailman/listinfo/pstricks
>> archive: http://www.tug.org/pipermail/pstricks/
>
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL: <http://tug.org/pipermail/pstricks/attachments/20100808/a2338f88/attachment-0001.html>
>
> ------------------------------
>
> Message: 4
> Date: Sun, 08 Aug 2010 21:16:57 +0200
> From: Herbert Voss <Herbert.Voss at FU-Berlin.DE>
> To: Graphics with PSTricks <pstricks at tug.org>
> Subject: Re: [pstricks] example for the gallery page
> Message-ID: <4C5F02A9.6000703 at FU-Berlin.DE>
> Content-Type: text/plain; charset=ISO-8859-1
>
> Am 08.08.2010 19:15, schrieb mathias legrand:
>
>> also, you may be interested by the following example for the gallery
>> page : http://tug.org/PSTricks/main.cgi?file=Examples/Gallery/Gallery
>
> done
>
> thanks
> Herbert
>
>
> ------------------------------
>
> Message: 5
> Date: Sun, 8 Aug 2010 19:56:46 -0700
> From: Michael Sharpe <msharpe at ucsd.edu>
> To: Graphics with PSTricks <pstricks at tug.org>
> Subject: Re: [pstricks] Normal arrows along a curve
> Message-ID: <1B716EC1-304B-4ED3-862D-15D799673BCF at ucsd.edu>
> Content-Type: text/plain; charset=us-ascii
>
>
> On Aug 1, 2010, at 11:27 AM, James wrote:
>
>> I took another look at the pstricks-add document, turns out I was looking at an old version. Using the (real) latest version, the parametric plot stuff worked fine, and actually works like I was wishing/hoping it would. I do need to define a better looking parametric plot, since right now I am just using a circle. But this code is what I am using, and if I get obsessive compulsive enough, I want to tweek the number of tick lines so that it scales (down) better.
>>
>>
>> \scalebox{1.0} % Change this value to rescale the drawing.
>> {
>> \begin{pspicture}(0,0)(4,4)
>>   \psparametricplot[plotpoints=100,linewidth=0.04]{90}{270}{t cos 1 add 1.5 mul t sin 1 add 1.5 mul}
>>   \psparametricplot[plotpoints=100,linewidth=0.04,linestyle=dotted,dotsep=0.16cm]{270}{450}{t cos 1 add 1.5 mul t sin 1 add 1.5 mul}
>>   \pscurvepoints[plotpoints=100]{270}{450}{t cos 1 add 1.5 mul t sin 1 add 1.5 mul}{P}%
>>   \pspolylineticks[Os=0,Ds=0.22,ticksize=0 0]{P}%
>>   { ds }{0}{22}% distance
>>   \multido{\i=0+1}{22}{\psrline[arrows=->,arrowscale=1.0,linewidth=0.03](PTick\i)(-7pt;{(PNormal
>> \i)})}%
>> \usefont{T1}{ptm}{m}{n}
>> \rput(0.1,2.8){$\partial{\Omega}_D$}
>> \usefont{T1}{ptm}{m}{n}
>> \rput(3.0,-0.05){$\partial{\Omega}_N$}
>> \usefont{T1}{ptm}{m}{n}
>> \rput(1.6,1.5){$\Omega$}
>> \end{pspicture}
>> }
>>
>>
>> Thanks for your help, and if you have an critiques, I'd love them.
>
> James,
>
>
> 1. There is no need to do \useffont. Just enter \uepckage{mathptmx} in the preamble to get Times.
> 2. It's better to change scale with \psset{unit=...} (The default  unit is 1cm.) That way, graphic elements are scaled (unless specified with a unit, like 6pt) but fonts are not resized.
> 3. The dotted style doesn't add much, in my opinion. You might consider omitting the dots and using a background color for the shape, as in the example below.
> 4. The log file will tell you the metric range---in this case, arc length from 0 to 4.712, so you'll get a better looking separation when you divide that by 23 for the separation between arrows.
> 5. You should start and end both arrows in the same way relative to the rest of the curve. In my opinion, it looks better when both are separated from the solid curve by the same amount of space as the separation between arrows. Half that value would also look good.
>
> \usepackage{mathptmx}
> \begin{document}
> %for scaling, use \psset{unit=...}
> \begin{pspicture}(0,0)(4,4)
>   \psparametricplot*[plotpoints=100,linecolor=black!20]{0}{360}{t cos 1 add 1.5 mul t sin 1 add 1.5 mul}
>   \psparametricplot[plotpoints=100]{90}{270}{t cos 1 add 1.5 mul t sin 1 add 1.5 mul}
>   \pscurvepoints[plotpoints=100]{270}{450}{t cos 1 add 1.5 mul t sin 1 add 1.5 mul}{P}%
>   \pspolylineticks[Os=0,Ds=0.2142,ticksize=0 0]{P}%.2142=4.712/23 (4.712=metric range, from log)
>   { ds }{0}{23}% distance
>   \multido{\i=1+1}{22}{\psrline[arrows=->,arrowscale=1.0,linewidth=.4pt](PTick\i)(-7pt;{(PNormal\i)})}%
> \rput(0.1,2.8){$\partial{\Omega}_D$}
> \rput(3.0,-0.05){$\partial{\Omega}_N$}
> \rput(1.6,1.5){$\Omega$}
> \end{pspicture}
>
> Michael
>
>
>
>
> ------------------------------
>
> _______________________________________________
> PSTricks mailing list
> PSTricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
>
>
> End of PSTricks Digest, Vol 91, Issue 12
> ****************************************