diff options
author | Karl Berry <karl@freefriends.org> | 2014-04-07 20:55:46 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-04-07 20:55:46 +0000 |
commit | 7358507835747d8146f85cd4e157aaa99b3ff9ef (patch) | |
tree | fb34c8e6ef0db5ed002b377e8108efb1f43f1738 /Master/texmf-dist/tex | |
parent | 8f6a07183e1196026adcbd4e60f6097da601c8d2 (diff) |
pst-perspective (7apr14)
git-svn-id: svn://tug.org/texlive/trunk@33399 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex | 98 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/pst-perspective/pst-perspective.sty | 2 |
2 files changed, 97 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex b/Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex index 70477a81188..b5f79335af6 100644 --- a/Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex +++ b/Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex @@ -27,8 +27,12 @@ \define@boolkey[psset]{pst-perspective}[Pst@]{translineA}[false]{} % showtransline \define@boolkey[psset]{pst-perspective}[Pst@]{translineB}[false]{} % showtransline \define@boolkey[psset]{pst-perspective}[Pst@]{translineK}[true]{} % show transline +\define@boolkey[psset]{pst-perspective}[Pst@]{hideline}[false]{} % showhideline \define@boolkey[psset]{pst-perspective}[Pst@]{LowPoint}[false]{} % Basis durch z.B. tief liegenden Pkt \define@boolkey[psset]{pst-perspective}[Pst@]{symX}[true]{} % Symmetrieachse bei spiegelverkehrten Bildern +\define@key[psset]{pst-perspective}{hidecolor}[black!80]{\def\psk@transTS@hidecolor{#1}} +\define@key[psset]{pst-perspective}{hidelinestyle}[solid]{\def\psk@transTS@hidelinestyle{#1}} +\define@key[psset]{pst-perspective}{hidelinewidth}[0.7pt]{\def\psk@transTS@hidelinewidth{#1}} \define@key[psset]{pst-perspective}{transcolor}[blue]{\def\psk@transTS@transcolor{#1}} \define@key[psset]{pst-perspective}{transAcolor}[green]{\def\psk@transTS@transAcolor{#1}} \define@key[psset]{pst-perspective}{transBcolor}[blue]{\def\psk@transTS@transBcolor{#1}} @@ -46,8 +50,8 @@ \define@key[psset]{pst-perspective}{deltaphi}[0]{\def\psk@transTS@deltaphi{#1 }}% zus\"{a}tzlicher Winkel f\"{u}r das Schr\"{a}gbild \define@key[psset]{pst-perspective}{vkf}[0.5]{\def\psk@transTS@vkf{#1 }} % Verk\"{u}rzungsfaktor \psset[pst-perspective]{phi=45,vkf=0.5,base=0,translineA=false,translineB=false,transAcolor=green,transBcolor=blue,% -transAlinewidth=0.7pt,transBlinewidth=0.7pt,transAlinestyle=dashed,transBlinestyle=dashed,deltaphi=0,symline=0,symX=true,% -translineK=true,transcolor=blue,translinewidth=0.8pt,translinestyle=solid,LowPoint=false,LowP={0,0},originT={0,0}}% +transAlinewidth=0.7pt,transBlinewidth=0.7pt,transAlinestyle=dashed,transBlinestyle=dashed,deltaphi=0,symline=0,symX=true,hidecolor=black!80,% +translineK=true,transcolor=blue,translinewidth=0.8pt,translinestyle=solid,LowPoint=false,LowP={0,0},originT={0,0},hideline=false,hidelinewidth=0.7pt,hidelinestyle=dashed}% \SpecialCoor% \def\ba{\psk@transTS@base} \def\pstransTS{\pst@object{pstpstransTS}}% @@ -151,6 +155,96 @@ l2 \psk@transTS@phi PtoC){#4}} \endgroup \ignorespaces } +%-------------------------------------------------------------------------------- +%-------------------------------------------------------------------------------- +\def\psboxTS{\pst@object{pstpsboxTS}}% +\def\pstpsboxTS@i(#1,#2,#3)#4#5#6#7{% +\begingroup% +% (#1) Koordinaten des Punktes (kartesisch oder Polarkoordinaten) +% #2 Originall\"{a}nge #3 Node-Name des Startpunktes % #4 Node-Name des transformierten Punktes +\pst@killglue +\use@par +%------------------------------------------------- +\pspolygon[fillstyle=solid,fillcolor=#7!60]% +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 add exch)% +%------------------------------------------------- +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 #5 add add exch)% +%------------------------------------------------- +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 #5 add add exch)% +%------------------------------------------------- +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 add exch)% +%------------------------------------------------- +\pspolygon[fillstyle=solid,fillcolor=#7!90]% +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 #5 add add exch)% +%------------------------------------------------- +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 #5 add add exch)% +%------------------------------------------------- +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 #5 add add exch)% +%------------------------------------------------- +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 #5 add add exch)% + +%%------------------------------------------------- +\pspolygon[fillstyle=solid,fillcolor=#7!40]% +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 #5 add add exch)% +%------------------------------------------------- +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 #5 add add exch)% +%------------------------------------------------- +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 add exch)% +%------------------------------------------------- +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 add exch)% +%------------------------------------------------- +\ifPst@hideline +\psline[linecolor=\psk@transTS@hidecolor,linestyle=\psk@transTS@hidelinestyle,linewidth=\psk@transTS@hidelinewidth]% +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 add exch)% +(!/l1 #1 #4 add def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 add exch)% +%------------------------------------------------- +\psline[linecolor=\psk@transTS@hidecolor,linestyle=\psk@transTS@hidelinestyle,linewidth=\psk@transTS@hidelinewidth]% +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 add exch)% +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 #6 add add exch #2 add exch)% +%------------------------------------------------- +\psline[linecolor=\psk@transTS@hidecolor,linestyle=\psk@transTS@hidelinestyle,linewidth=\psk@transTS@hidelinewidth]% +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 add exch)% +(!/l1 #1 def +/l2 l1 \psk@transTS@vkf mul def +l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 #5 add add exch)% +\else \fi% +\endgroup +\ignorespaces +} \catcode`\@=\TheAtCode\relax \endinput %% diff --git a/Master/texmf-dist/tex/latex/pst-perspective/pst-perspective.sty b/Master/texmf-dist/tex/latex/pst-perspective/pst-perspective.sty index 757bf952fe1..0e857f5cd46 100644 --- a/Master/texmf-dist/tex/latex/pst-perspective/pst-perspective.sty +++ b/Master/texmf-dist/tex/latex/pst-perspective/pst-perspective.sty @@ -5,6 +5,6 @@ [\filedate\space v\fileversion\space `PST-perspective' (ts)] \IfFileExists{pst-perspective.pro}{% \ProvidesFile{pst-perspective.pro} - [2014/02/21 v. 1.00, PostScript prologue file (hv)] + [2014/04/07 v. 1.01, PostScript prologue file (hv)] \@addtofilelist{pst-perspective.pro}}{}% \endinput |