summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-14 22:50:51 +0000
committerKarl Berry <karl@freefriends.org>2014-04-14 22:50:51 +0000
commit001858de85c02bcaae9e416f8ccfc5f1d624729b (patch)
tree44f503bb3b2da1b7c2a4dc581dd9eb7380060665 /Master/texmf-dist/tex/generic
parentce8b70626a474e6b9b8e5544f180c58dbc4fb38a (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.tex43
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)%