diff options
author | Karl Berry <karl@freefriends.org> | 2014-04-14 22:50:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-04-14 22:50:51 +0000 |
commit | 001858de85c02bcaae9e416f8ccfc5f1d624729b (patch) | |
tree | 44f503bb3b2da1b7c2a4dc581dd9eb7380060665 /Master/texmf-dist/tex/generic | |
parent | ce8b70626a474e6b9b8e5544f180c58dbc4fb38a (diff) |
pst-perspective (10apr14)
git-svn-id: svn://tug.org/texlive/trunk@33445 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex | 43 |
1 files changed, 32 insertions, 11 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 b5f79335af6..76274535f8b 100644 --- a/Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex +++ b/Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex @@ -27,10 +27,13 @@ \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@]{hideline}[false]{} % show hideline +\define@boolkey[psset]{pst-perspective}[Pst@]{differentcol}[false]{} % unterschiedliche Farben der Fl\"{a}chen \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}{facecolorT}[yellow]{\def\psk@transTS@facecolorT{#1}} +\define@key[psset]{pst-perspective}{facecolorR}[red]{\def\psk@transTS@facecolorR{#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}} @@ -49,9 +52,10 @@ \define@key[psset]{pst-perspective}{phi}[45]{\def\psk@transTS@phi{#1 }}% Winkel f\"{u}r das Schr\"{a}gbild \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,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}% +\psset[pst-perspective]{phi=45,vkf=0.5,base=0,translineA=false,translineB=false,transAcolor=green,transBcolor=blue,differentcol=false,% +transAlinewidth=0.7pt,transBlinewidth=0.7pt,transAlinestyle=dashed,transBlinestyle=dashed,deltaphi=0,facecolorT=yellow,facecolorR=red,% +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}}% @@ -165,7 +169,12 @@ l2 \psk@transTS@phi PtoC){#4}} \pst@killglue \use@par %------------------------------------------------- -\pspolygon[fillstyle=solid,fillcolor=#7!60]% +{\ifPst@differentcol +\psset{fillstyle=solid,fillcolor=#7}% +\else +\psset{fillstyle=solid,fillcolor=#7!60}% +\fi +\pspolygon% (!/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)% @@ -181,8 +190,14 @@ 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]% +{\ifPst@differentcol +\psset{fillstyle=solid,fillcolor=\psk@transTS@facecolorR}% +\else +\psset{fillstyle=solid,fillcolor=#7!90}% +\fi +\pspolygon% (!/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)% @@ -198,9 +213,14 @@ 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]% +{\ifPst@differentcol +\psset{fillstyle=solid,fillcolor=\psk@transTS@facecolorT}% +\else +\psset{fillstyle=solid,fillcolor=#7!40}% +\fi +\pspolygon% (!/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)% @@ -216,9 +236,10 @@ 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]% +\pcline[nodesep=1.1pt,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)% @@ -226,7 +247,7 @@ l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 add exch)% /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]% +\pcline[nodesep=1.1pt,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)% @@ -234,7 +255,7 @@ l2 \psk@transTS@phi 180 add PtoC #3 add exch #2 add exch)% /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]% +\pcline[nodesep=1.1pt,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)% |