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, 0 insertions, 136 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex b/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex deleted file mode 100644 index aeac0179afd..00000000000 --- a/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex +++ /dev/null @@ -1,136 +0,0 @@ -%% 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 |