From 0e16c58d10670a29d73183de0640f72f0857c829 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 30 Nov 2006 03:23:45 +0000 Subject: new pstricks pst-grad and pst-coil git-svn-id: svn://tug.org/texlive/trunk@2559 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-coil/pst-coil.tex | 143 +++++++++++++++++++++ Master/texmf-dist/tex/latex/pst-coil/pst-coil.sty | 7 + 2 files changed, 150 insertions(+) create mode 100644 Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex create mode 100644 Master/texmf-dist/tex/latex/pst-coil/pst-coil.sty (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex b/Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex new file mode 100644 index 00000000000..51af29883ef --- /dev/null +++ b/Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex @@ -0,0 +1,143 @@ +%% BEGIN pst-coil.tex +%% +%% Coils and zigzags with PSTricks +%% See the PSTricks User's Guide for documentation. +%% For use with the PostScript header file `pst-coil.pro'. +%% +%% +%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu. +%% 2006 Herbert Voss, hvoss@tug.org +%% +%% This program can be redistributed and/or modified under the terms +%% of the LaTeX Project Public License Distributed from CTAN +%% archives in directory macros/latex/base/lppl.txt. +%% +\message{ v\fileversion, \filedate} +\csname PSTcoilsLoaded\endcsname +\let\PSTcoilsLoaded\endinput +\ifx\PSTricksLoaded\endinput\else +\def\next{\input pstricks.tex}\expandafter\next +\fi +\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi +% +\def\fileversion{1.00} +\def\filedate{2006/11/05} +% +\edef\TheAtCode{\the\catcode`\@} +\catcode`\@=11 +% +\pst@addfams{pst-coil} +\pstheader{pst-coil.pro} +\edef\pst@theheaders{\pst@theheaders,pst-coil.pro} +\def\pst@coildict{tx@CoilDict begin } +% +\define@key[psset]{pst-coil}{coilwidth}{\pst@getlength{#1}\psk@coilwidth} +\define@key[psset]{pst-coil}{coilheight}{\pst@checknum{#1}\pscoilheight} +\define@key[psset]{pst-coil}{coilarmA}{\pst@getlength{#1}\psk@coilarmA} +\define@key[psset]{pst-coil}{coilarmB}{\pst@getlength{#1}\psk@coilarmB} +\define@key[psset]{pst-coil}{coilarm}{% + \pst@getlength{#1}\psk@coilarmA% + \let\psk@coilarmB\psk@coilarmA} +\define@key[psset]{pst-coil}{coilaspect}{\pst@getangle{#1}\psk@coilaspect} +\define@key[psset]{pst-coil}{coilinc}{\pst@getangle{#1}\psk@coilinc} +% +\psset[pst-coil]{coilaspect=45,coilarm=.5cm,coilheight=1,coilwidth=1cm,coilinc=10} +% +\def\pscoil{\def\pst@par{}\pst@object{pscoil}} +\def\pscoil@i{\pst@getarrows\pscoil@ii} +\def\pscoil@ii(#1){\@ifnextchar({\pscoil@iii{1}(#1)}{\pscoil@iii{\z@}(0,0)(#1)}} +\def\pscoil@iii#1(#2)(#3){% + \begin@OpenObj + \pst@getcoor{#2}\pst@tempa + \pst@getcoor{#3}\pst@tempb + \pst@optcp{#1}\pst@tempa + \addto@pscode{% + \pst@tempa \pst@tempb + \psk@coilwidth \pscoilheight + \psk@coilarmA \psk@coilarmB + \psk@coilaspect \psk@coilinc + \pst@coildict \tx@Coil end }% + \showpointsfalse + \end@OpenObj} +\def\tx@CoilLoop{CoilLoop } +\def\tx@Coil{Coil } +\def\psCoil{\def\pst@par{}\pst@object{psCoil}} +\def\psCoil@i#1#2{% + \begin@AltOpenObj + \showpointsfalse + \pst@getangle{#1}\pst@tempa + \pst@getangle{#2}\pst@tempb + \addto@pscode{% + \pst@tempa + \pst@tempb + \psk@coilwidth + \pscoilheight + \psk@coilaspect + \psk@coilinc + \pst@coildict \tx@AltCoil end + \@nameuse{psls@\pslinestyle} }% + \end@OpenObj} +\def\tx@AltCoil{AltCoil } +% +\def\pszigzag{\def\pst@par{}\pst@object{pszigzag}} +\def\pszigzag@i{\pst@getarrows\pszigzag@ii} +\def\pszigzag@ii(#1){\@ifnextchar({\pszigzag@iii{1}(#1)}{\pszigzag@iii{\z@}(0,0)(#1)}} +\def\pszigzag@iii#1(#2)(#3){% + \begin@OpenObj + \pst@getcoor{#2}\pst@tempa + \pst@getcoor{#3}\pst@tempb + \pst@optcp{#1}\pst@tempa + \addto@pscode{% + \pst@tempa + \pst@tempb + \pscoilheight + \psk@coilwidth + \psk@coilarmA + \psk@coilarmB + \pst@coildict \tx@ZigZag end + \psline@iii + \tx@Line }% + \end@OpenObj} +% +\def\tx@ZigZag{ZigZag } +% +\def\nccoil{\pst@object{nccoil}} +\def\nccoil@i{\check@arrow{\nccoil@ii}} +\def\nccoil@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{% + \tx@NCCoor + tx@Dict begin +% DG/SR modification begin - Mar. 19, 1998 - Patch 2 + 4 2 roll +% DG/SR modification end + \psk@coilwidth \pscoilheight + \psk@coilarmA \psk@coilarmB + \psk@coilaspect \psk@coilinc + \pst@coildict \tx@Coil end + end }} +% +\def\pccoil{\def\pst@par{}\pst@object{pccoil}} +\def\pccoil@i{\pc@object\nccoil@ii} +\def\nczigzag{\pst@object{nczigzag}} +\def\nczigzag@i{\check@arrow{\nczigzag@ii}} +\def\nczigzag@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{% + \tx@NCCoor + tx@Dict begin +% DG/SR modification begin - Mar. 19, 1998 - Patch 2 + 4 2 roll +% DG/SR modification end + \pscoilheight + \psk@coilwidth + \psk@coilarmA + \psk@coilarmB + \pst@coildict \tx@ZigZag end + \psline@iii + \tx@Line + end }} +% +\def\pczigzag{\def\pst@par{}\pst@object{pczigzag}} +\def\pczigzag@i{\pc@object\nczigzag@ii} +% +\catcode`\@=\TheAtCode\relax +\endinput +%% +%% END pst-coil.tex diff --git a/Master/texmf-dist/tex/latex/pst-coil/pst-coil.sty b/Master/texmf-dist/tex/latex/pst-coil/pst-coil.sty new file mode 100644 index 00000000000..2e3a98d15ef --- /dev/null +++ b/Master/texmf-dist/tex/latex/pst-coil/pst-coil.sty @@ -0,0 +1,7 @@ +\RequirePackage{pstricks} +\ProvidesPackage{pst-coil}[2006/08/11 package wrapper for pst-coil.tex (hv)] +\input{pst-coil.tex} +\ProvidesFile{pst-coil.tex} + [\filedate\space v\fileversion\space `pst-coil' (tvz)] +\IfFileExists{pst-coil.pro}{\@addtofilelist{pst-coil.pro}}{}% +\endinput -- cgit v1.2.3