diff options
author | Karl Berry <karl@freefriends.org> | 2011-10-14 23:25:45 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-10-14 23:25:45 +0000 |
commit | cf02168f68651051c7b0bd61322a7f5547565129 (patch) | |
tree | e1add7fbc36a1399a84a69f06e825f123f53131b /Master/texmf-dist/doc/latex/pstricks-examples-en/19-04-1.ltx | |
parent | 895adaa5b890a2593a7da3e90d8f1d9a96c1220d (diff) |
new doc pstricks-examples-en (14oct11)
git-svn-id: svn://tug.org/texlive/trunk@24289 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples-en/19-04-1.ltx')
-rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples-en/19-04-1.ltx | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/19-04-1.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/19-04-1.ltx new file mode 100644 index 00000000000..1795fb75721 --- /dev/null +++ b/Master/texmf-dist/doc/latex/pstricks-examples-en/19-04-1.ltx @@ -0,0 +1,59 @@ +%% +%% A DANTE-Edition example +%% +%% +%% Copyright (C) 2011 Herbert Voss +%% +%% It may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% +%% See http://www.latex-project.org/lppl.txt for details. +%% +%% +%% ==== +% Show page(s) 1 +%% +\documentclass[]{article} +\pagestyle{empty} +\setlength\textwidth{375.57637pt} +\setlength\parindent{0pt} + +\usepackage{pst-plot,pst-coil} +\SpecialCoor + +\begin{document} +\newdimen\Y\Y=3.2cm +\fbox{\pspicture(3,3)(5,8.7) +\psclip{\pspolygon[linewidth=0pt,linestyle=none]% + (3.0,8.7)(3.0,3.2)(3.225,7.5)(3.45,3.2)(3.675,7.5)(3.9,3.2)% + (4.125,7.5)(4.35,3.2)(4.575,7.5)(4.8,3.2)(4.8,8.7)(3.0,8.7)}% + \loop\ifdim\Y<8.7cm\rput(3,\Y){\psCoil[coilaspect=0, + coilarm=0,coilheight=3,coilwidth=.1cm,linearc=.1,linewidth=.4pt]{0}{2880}} +\advance\Y by.15cm\repeat +\endpsclip +\endpspicture}\quad +% +\def\Radius{2 } +\def\radius{0.3 } +\def\speed{40 } +\pspicture(-2.2,-2.2)(2.3,2.2) + \parametricplot[plotpoints=3000]{0}{360}{ + \radius t \speed mul cos mul + \Radius t cos mul add + \radius t \speed mul sin mul + \Radius t sin mul add + } +\endpspicture +% +\pstVerb{ /Radius 0.5 def } +\pspicture(-2.2,-2.2)(2.2,2.2) + \parametricplot[plotpoints=3000]{0}{800}{ + \radius t \speed mul cos mul + Radius t cos mul add + \radius t \speed mul sin mul + Radius t sin mul add + Radius 0.0015 add /Radius exch def + } +\endpspicture +\end{document} |