summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-perspective/pst-perspective.tex98
1 files changed, 96 insertions, 2 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
%%