diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks/pst-coil.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pstricks/pst-coil.tex | 136 |
1 files changed, 136 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex b/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex new file mode 100644 index 00000000000..aeac0179afd --- /dev/null +++ b/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex @@ -0,0 +1,136 @@ +%% BEGIN pst-coil.tex +%% +%% Coils and zigzags with PSTricks 97. +%% See the PSTricks User's Guide for documentation. +%% For use with the PostScript header file `pst-coil.pro'. +%% +\def\fileversion{97 patch 2} +\def\filedate{1998/03/19} +%% +%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu. +%% +%% 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 +\edef\TheAtCode{\the\catcode`\@} +\catcode`\@=11 +\pstheader{pst-coil.pro} +\edef\pst@theheaders{\pst@theheaders,pst-coil.pro} +\def\pst@coildict{tx@CoilDict begin } +\def\psset@coilwidth#1{\pst@getlength{#1}\psk@coilwidth} +\psset@coilwidth{1cm} +\def\psset@coilheight#1{\pst@checknum{#1}\pscoilheight} +\psset@coilheight{1} +\def\psset@coilarmA#1{\pst@getlength{#1}\psk@coilarmA} +\def\psset@coilarmB#1{\pst@getlength{#1}\psk@coilarmB} +\def\psset@coilarm#1{% +\pst@getlength{#1}\psk@coilarmA +\let\psk@coilarmB\psk@coilarmA} +\psset@coilarm{.5cm} +\def\psset@coilaspect#1{\pst@getangle{#1}\psk@coilaspect} +\psset@coilaspect{45} +\def\psset@coilinc#1{\pst@getangle{#1}\psk@coilinc} +\psset@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 |