From e447faa0c35a303add97ae12c4d405245a8bf2b5 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 21 Jun 2006 13:38:41 +0000 Subject: pspicture split out from carlisle now git-svn-id: svn://tug.org/texlive/trunk@1715 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/pspicture/pspicture.sty | 111 +++++++++++++++++++++ 1 file changed, 111 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/pspicture/pspicture.sty (limited to 'Master/texmf-dist/tex/latex/pspicture/pspicture.sty') diff --git a/Master/texmf-dist/tex/latex/pspicture/pspicture.sty b/Master/texmf-dist/tex/latex/pspicture/pspicture.sty new file mode 100644 index 00000000000..5b7659798ce --- /dev/null +++ b/Master/texmf-dist/tex/latex/pspicture/pspicture.sty @@ -0,0 +1,111 @@ +%% +%% This is file `pspicture.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% pspicture.dtx (with options: `package,dvips') +%% +%% +%% Source File `pspicture.dtx'. +%% Copyright (C) 1992 1999 David Carlisle +%% This file may be distributed under the terms of the LPPL. +%% See 00readme.txt for details. +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{pspicture} + [1999/04/11/ v2.02 Picture mode via PS specials (DPC)] + + \def\PS@header#1{\special{header=#1}} +\PS@header{pspicture.ps} + \def\PS@special#1{\special{"#1}} +{\catcode`t=12\catcode`p=12\gdef\noPT#1pt{#1}} +\def\strippt#1{\expandafter\noPT\the#1\space} +\def\@circle#1{% + \@tempdimb #1\unitlength + \PS@special{% + \strippt\@wholewidth + \strippt\@tempdimb + !C}} +\def\@dot#1{% + \@tempdimb #1\unitlength + \PS@special{% + \strippt\@tempdimb + !D}} +\def\line(#1,#2)#3{% + \@linelen=#3\unitlength + \PS@special{% + \strippt\@wholewidth + #1 + #2 + \strippt\@linelen + !L}} +\def\vector(#1,#2)#3{% + \@linelen=#3\unitlength + \PS@special{% + \strippt\@arrowlength + \strippt\@wholewidth + #1 + #2 + \strippt\@linelen + !V}} +\def\oval{% + \@ifnextchar[% + {\@ov@l}% + {\count@=\maxdimen \divide\count@ by \unitlength \@ov@l[\count@]}} +\def\@ov@l[#1](#2,#3){% + \@ifnextchar[{\@oval[#1](#2,#3)}{\@oval[#1](#2,#3)[]}}% +\def\@oval[#1](#2,#3)[#4]{\begingroup + \@tempdimb #1\unitlength + \@ovxx #2\unitlength + \@ovyy #3\unitlength + \def\r{\def\TL{0 }\def\BL{0 }}% + \def\l{\def\TR{0 }\def\BR{0 }}% + \def\t{\def\BL{0 }\def\BR{0 }}% + \def\b{\def\TL{0 }\def\TR{0 }}% + \def\TL{1 }\def\BL{1 }\def\TR{1 }\def\BR{1 }% + \@tfor\@tempa :=#4\do{\csname\@tempa\endcsname}% + \PS@special{% + \BR\BL\TR\TL + \strippt\@wholewidth + \strippt\@tempdimb + \strippt\@ovxx + \strippt\@ovyy + !O}% + \endgroup} +\def\Line(#1,#2){% + \@ovxx #1\unitlength + \@ovyy #2\unitlength + \PS@special{% + \strippt\@wholewidth + \strippt\@ovxx + \strippt\@ovyy + !L2}} +\def\Curve(#1,#2)#3{% + \@ovxx #1\unitlength + \@ovyy #2\unitlength + \PS@special{% + \strippt\@wholewidth + \strippt\@ovxx + \strippt\@ovyy + #3 + !C2}} +\def\Vector(#1,#2){% + \@ovxx #1\unitlength + \@ovyy #2\unitlength + \PS@special{% + \strippt\@arrowlength + \strippt\@wholewidth + \strippt\@ovxx + \strippt\@ovyy + !V2}} +\newdimen\@arrowlength +\def\arrowlength#1{\@arrowlength #1} +\arrowlength{8pt} + \endinput + + + +\endinput +%% +%% End of file `pspicture.sty'. -- cgit v1.2.3