From 8d785716292a5446c167e44aac8dc160fe9a4804 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Sun, 17 Feb 2008 01:30:16 +0000
Subject: need pspicture.ps (Jean Utke, 15 Feb 2008 12:17:04)

git-svn-id: svn://tug.org/texlive/trunk@6653 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/dvips/pspicture/pspicture.ps | 138 +++++++++++++++++++++++++
 Master/tlpkg/bin/ctan2tds                      |   6 +-
 2 files changed, 141 insertions(+), 3 deletions(-)
 create mode 100644 Master/texmf-dist/dvips/pspicture/pspicture.ps

diff --git a/Master/texmf-dist/dvips/pspicture/pspicture.ps b/Master/texmf-dist/dvips/pspicture/pspicture.ps
new file mode 100644
index 00000000000..1626182cbd7
--- /dev/null
+++ b/Master/texmf-dist/dvips/pspicture/pspicture.ps
@@ -0,0 +1,138 @@
+%!
+%%
+%% 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.
+%%
+
+
+
+
+/!BP{
+  72 72.27 div dup scale
+  }def
+/!A{
+  newpath
+  0 0 moveto
+  dup neg dup .4 mul rlineto
+  .8 mul 0 exch  rlineto
+  closepath
+  fill
+  } def
+/!V{
+  !BP
+  /!X exch def
+  /!y exch def
+  /!x exch def
+  newpath
+  0 0 moveto
+  !x 0 eq {0  !y 0 lt {!X neg}{!X} ifelse}
+         {!x 0 lt {!X neg}{!X}ifelse  !X !y mul !x abs div} ifelse
+  lineto
+  setlinewidth  % @wholewidth
+  currentpoint
+  stroke
+  translate
+  !y !x atan
+  rotate
+  !A            % @arrowlength
+  }def
+/!L{
+  !BP
+  /!X exch def
+  /!y exch def
+  /!x exch def
+  newpath
+  0 0 moveto
+  !x 0 eq {0  !y 0 lt {!X neg}{!X} ifelse}
+         {!x 0 lt {!X neg}{!X}ifelse  !X !y mul !x abs div} ifelse
+  lineto
+  setlinewidth  % @wholewidth
+  stroke
+  }def
+/!C{
+  !BP
+  0 0 3 2 roll
+  2 div 0 360 arc
+  setlinewidth  % @wholewidth
+  stroke
+  }def
+/!D{
+  !BP
+  0 0 3 2 roll
+  2 div 0 360 arc fill
+  }def
+/!O{
+  !BP
+  /!y exch 2 div def
+  /!x exch 2 div def
+  /!r exch !x !y
+    2 copy gt {exch} if pop
+    2 copy gt {exch} if pop
+      def
+  setlinewidth  % @wholewidth
+  1 eq
+  {newpath
+   !x neg 0 moveto
+   !x neg !y 0 !y !r arcto 4 {pop} repeat
+   0 !y lineto
+   stroke}if
+  1 eq
+  {newpath
+   !x  0 moveto
+   !x  !y 0 !y !r arcto 4 {pop} repeat
+   0 !y lineto
+   stroke}if
+  1 eq
+  {newpath
+   !x neg 0 moveto
+   !x neg !y neg 0 !y neg  !r arcto 4 {pop} repeat
+   0 !y neg lineto
+   stroke}if
+  1 eq
+  {newpath
+   !x  0 moveto
+   !x  !y neg 0 !y neg !r arcto 4 {pop} repeat
+   0 !y neg lineto
+   stroke}if
+  }def
+/!V2{
+  !BP
+  2 copy exch
+  atan
+  /a exch def
+  2 copy
+  newpath
+  0 0 moveto
+  lineto          % <x*unitlength> <y*unitlength>
+  3 2 roll
+  setlinewidth  % @wholewidth
+  stroke
+  translate       % <x*unitlength> <y*unitlength>
+  a rotate
+  !A                    % @arrowlength
+  }def
+/!L2{
+  !BP
+  newpath
+  0 0 moveto
+  lineto          % <x*unitlength> <y*unitlength>
+  setlinewidth  % @wholewidth
+  stroke
+  }def
+/!C2{
+  !BP
+  /!s exch def
+  /!y exch def
+  /!x exch def
+  newpath
+  0 0 moveto
+  0 0
+  !x 2 div !y 10 div !s mul add
+  !y 2 div  !x 10 div  !s mul sub
+  !x !y
+  curveto
+  setlinewidth  % @wholewidth
+  stroke
+  }def
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds
index a343b0ca5af..701ffe932d1 100755
--- a/Master/tlpkg/bin/ctan2tds
+++ b/Master/tlpkg/bin/ctan2tds
@@ -1174,10 +1174,10 @@ $standardmf='[0-9]\.mf';
 # packages which have dvips header files
 $standardpro='\.pro$';
 %specialpro= (
- 'carlisle',	'pspicture.ps',
  'dvipsconfig',	'.*',  # addpsctrl should be in bin, but ...
- 'initials',	'config.*',
  'esint-type1',	'config.esint',
+ 'initials',	'config.*',
+ 'pspicture',	'pspicture.ps',
  'zefonts',	'slantcm.cfg',
 );
 
@@ -1239,7 +1239,7 @@ $standardclean = '\.head|\.tmp|\.dvi|\.log|\.out|\.aux|\.toc|\.lof|\.lot'
  'mh'		=> "$standardclean|.*\.(drv|ins)",	# derived from dtx's
 );
 
-# if this hash entry is specified, README.TEXLIVE is created mentioning
+# if a hash entry is specified here, README.TEXLIVE is created mentioning
 # that the files were removed.  These are checked after runins.
 %moreclean = (
  'AkkTeX'	=> 'still to do, sorry',
-- 
cgit v1.2.3