[pstricks] example for the gallery page

[Zbigniew Nitecki]

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}
> \usepackage{pstricks-add}
> \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.html>