diff options
author | Karl Berry <karl@freefriends.org> | 2017-09-16 20:46:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-09-16 20:46:25 +0000 |
commit | fed4a58472ca085eafb9870ae915fc11ee60f9c5 (patch) | |
tree | f6cc281c852fe4a202526b5bf2b3878a0b1260cd /Master/texmf-dist | |
parent | f43aea208fbb07095b1039905bdbfea3fc272404 (diff) |
pst-geometrictools (16sep17)
git-svn-id: svn://tug.org/texlive/trunk@45319 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
6 files changed, 55 insertions, 51 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt b/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt index aa61b22de46..ce16d2fcb1e 100644 --- a/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt +++ b/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt @@ -1,3 +1,5 @@ pst-geometrictools.tex ---------------- +1.1 2017/09/16 +- choose fonts for some tools 1.0 2017/06/29 diff --git a/Master/texmf-dist/doc/generic/pst-geometrictools/README.md b/Master/texmf-dist/doc/generic/pst-geometrictools/README.md index d8d78020974..c8bd792060e 100644 --- a/Master/texmf-dist/doc/generic/pst-geometrictools/README.md +++ b/Master/texmf-dist/doc/generic/pst-geometrictools/README.md @@ -2,7 +2,7 @@ The pst-geometrictools package Author: Thomas Söll `pst-geometrictools' is a PSTricks package to draw a protractor, a ruler, a compass and pencils -Dated: 2017/06/29 Version 1.0 +Dated: 2017/09/16 Version 1.1 pst-geometrictools contains the following: diff --git a/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.pdf b/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.pdf Binary files differindex 8e445a646a3..39234a81451 100644 --- a/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.pdf +++ b/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.pdf diff --git a/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex b/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex index 42d22950539..f646e7520f7 100644 --- a/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex +++ b/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex @@ -5,7 +5,7 @@ %% %% Package `pst-geometrictools.tex' %% -%% Thomas S\"{o}ll +%% Thomas Söll %% %% This program can redistributed and/or modified under %% %% the terms of the LaTeX Project Public License %% @@ -71,9 +71,9 @@ distiller \begin{document} -\title{pst-geometrictools v 1.0} +\title{pst-geometrictools v 1.1} \subtitle{A PSTricks package to draw a protractor, a ruler, a compass and pencils} -\author{Thomas \textsc{S\"{o}ll}} +\author{Thomas \textsc{Söll}} \date{\today} \maketitle @@ -377,7 +377,7 @@ Measuring the angles of a given triangle. \psGetAngleABC[style=WkMessung](B)(S)(C){\Large\color{Green}$\alpha$}% pst-eucl \rput([offset=4.5]D){\psframebox[framesep=6pt,framearc=0.2]{ \begin{minipage}[t]{5.5cm} -Lege das Geodreieck auf den blauen Schenkel, so dass die Null auf dem Scheitel S liegt. Lies nun am \"{a}u{\ss}eren Rand den Winkel ab (gr\"{u}ner Pfeil). +Lege das Geodreieck auf den blauen Schenkel, so dass die Null auf dem Scheitel S liegt. Lies nun am \"au\ss eren Rand den Winkel ab (gr\"uner Pfeil). \end{minipage} }} \end{pspicture} @@ -421,7 +421,7 @@ Constructing the height of a given triangle. \newpage -%Using the package \LPack{pst-pers} (by \emph{Manuel Luque} avec la collaboration de \emph{Thomas S\"{o}ll} et \emph{J\"{u}rgen Gilg}), we have the full range to project objects into whatever planes we want. +%Using the package \LPack{pst-pers} (by \emph{Manuel Luque} avec la collaboration de \emph{Thomas Söll} et \emph{Jürgen Gilg}), we have the full range to project objects into whatever planes we want. % %Here we present a little example, setting the protractor into the [$x,y$]-plane, whereas the compass is set into the [$y,z$]-plane. % diff --git a/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex b/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex index fca730e8684..18fcfab3b84 100644 --- a/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex +++ b/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex @@ -44,7 +44,7 @@ distiller %\usepackage[style=dtk]{biblatex} \addbibresource{pst-geometrictools-doc.bib} \usepackage[utf8]{inputenc} -\let\pstpersFV\fileversion +\let\pstgeometrictoolsFV\fileversion \usepackage{pst-geometrictools,pst-node,pst-eucl,pstricks-add} \usepackage{etex} % increase the number of registers (otherwise only 256) diff --git a/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex b/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex index 004719f05a8..cad64e8e3c2 100644 --- a/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex +++ b/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex @@ -1,6 +1,6 @@ %% This is file `pst-geometrictools.tex', %% -%% Thomas S\"{o}ll +%% Thomas Söll %% %% This program can redistributed and/or modified under %% %% the terms of the LaTeX Project Public License %% @@ -18,8 +18,8 @@ \ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi \ifx\PSTXKeyLoaded\endinput\else\input pst-xkey.tex\fi \ifx\PSTnodeLoaded\endinput\else\input pst-node.tex\fi -\def\fileversion{1.0} -\def\filedate{2017/06/29} +\def\fileversion{1.1} +\def\filedate{2017/09/16} \message{`PST' v\fileversion, \filedate} \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -35,17 +35,19 @@ \define@key[psset]{pst-geometrictools}{MadeTxt}[made in NES]{\def\pst@MadeTxt{#1}}% \define@key[psset]{pst-geometrictools}{PSfontO}[Symbol]{\def\pst@PSfontO{/#1 }} \define@key[psset]{pst-geometrictools}{fontsizeO}[10]{\def\pst@fontsizeO{#1 }} -\define@key[psset]{pst-geometrictools}{PSfontM}[Times-Roman]{\def\pst@PSfontM{/#1 }} +\define@key[psset]{pst-geometrictools}{PSfontM}[NimbusRomNo9L-Regu]{\def\pst@PSfontM{/#1 }} \define@key[psset]{pst-geometrictools}{fontsizeM}[6]{\def\pst@fontsizeM{#1 }} \define@key[psset]{pst-geometrictools}{country}[Germany]{\def\pst@country{#1}} -\psset[pst-geometrictools]{ProScale=1,OwnerTxt={Euklid},MadeTxt={made in NES},country=Germany,PSfontO=Symbol,PSfontM=Times-Roman,fontsizeO=10,fontsizeM=6,ProFillCol=gray!60,ProLineCol=cyan,Ghost=false} +\psset[pst-geometrictools]{ProScale=1,OwnerTxt={Euklid},MadeTxt={made in NES}, + country=Germany,PSfontO=StandardSymL,PSfontM=NimbusRomNo9L-Regu,fontsizeO=10,fontsizeM=6, + ProFillCol=gray!60,ProLineCol=cyan,Ghost=false} \def\psProtractor{\def\pst@par{}\pst@object{psProtractor}} \def\psProtractor@i#1(#2){\@ifnextchar(% {\psProtractor@ii{#1}(#2)}% {\psProtractor@ii{#1}(#2)(#2)}}% -\def\psProtractor@ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q f\"{u}r Winkel +\def\psProtractor@ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q für Winkel \begin@SpecialObj \pst@killglue \begingroup% @@ -57,9 +59,9 @@ \addto@pscode{% /sysfill {systemdict /fill get exec} def /Country (\pst@country) def - /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird - \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt) - \pst@tempB \tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung ben\"{o}tigt) + /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als Längeneinheit mit der multipliziert wird + \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt) + \pst@tempB \tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung benötigt) @y1 @y2 sub @x1 @x2 sub Atan /@delta ED %------------ Winkelberechnung \pst@tempA \pst@coor T % ------------------------------------ Tranformiere den Koordinatenursprung in P @delta #1 add 180 add rotate % ------------------------------ Drehe das gesamte Geodreieck @@ -68,7 +70,7 @@ \ifPst@Ghost\else gsave %------------------------------------------------------------------------------------------------------------- -%-------------- \"{A}u{\ss}ere Begrenzung des Geodreiecks ----------------------------------------------- +%-------------- Äußere Begrenzung des Geodreiecks ----------------------------------------------- gsave newpath -8 cm 0 moveto @@ -82,7 +84,7 @@ gsave grestore grestore %------------------------------------------------------------------------------------------------------------- -%-------------- Gef\"{u}llter innerer Teil des Geodreiecks ----------------------------------------------- +%-------------- Gefüllter innerer Teil des Geodreiecks ----------------------------------------------- gsave newpath -7.5 cm 0.5 22.5 tan mul cm moveto @@ -197,8 +199,8 @@ grestore {8 Wk sin Wk cos div 1 sub div} /xWS1 exch def %---------- xWS1=8/(tan(alpha)-1) --> SP der Geraden linke Kathete mit Ursprungsgeraden im Winkel alpha {7.8 Wk sin Wk cos div 1 sub div} /xWS2 exch def % ------- xWS2=7,8/(tan(alpha)-1) --> SP einer Parallelen zur Geraden linke Kathete mit Ursprungsgeraden im Winkel alpha newpath - xWS1 cm xWS1 8 add cm moveto % --------------------------- zu xWS1 geh\"{o}riger y-Wert ist xWS1 + 8 - xWS2 cm xWS2 7.8 add cm % ----------------------------------- zu xWS2 geh\"{o}riger y-Wert ist xWS1 + 7,8 + xWS1 cm xWS1 8 add cm moveto % --------------------------- zu xWS1 gehöriger y-Wert ist xWS1 + 8 + xWS2 cm xWS2 7.8 add cm % ----------------------------------- zu xWS2 gehöriger y-Wert ist xWS1 + 7,8 lineto % closepath 0.5 setlinewidth @@ -359,42 +361,42 @@ grestore grestore grestore %-------------------------------------------------------------------------------------------------------------------------------------------------- -%------------------------- Definition f\"{u}r horizontal-zentriertes - Setzen der cm- Zahlen (180° gedreht) ------------------------ +%------------------------- Definition für horizontal-zentriertes - Setzen der cm- Zahlen (180° gedreht) ------------------------ /cmshow {% (string) x y gsave moveto 180 rotate % s - /Helvetica findfont 7 scalefont setfont + /NimbusRomNo9L-Regu findfont 7 scalefont setfont dup % s s stringwidth pop 2 div neg 0 % s -dx/2 rmoveto 0.2 setgray show grestore } bind def -%------------------------- Setzen der Zahlen f\"{u}r die cm-Einteilungen ----------------------------------------------------------------- +%------------------------- Setzen der Zahlen für die cm-Einteilungen ----------------------------------------------------------------- 0 1 7 { /MZ exch def MZ 2 string cvs MZ cm 0.47 cm cmshow } for %---------------- Zahlen 0 bis 7 (nach rechts) 1 1 7 { /MZ exch def MZ 2 string cvs MZ neg cm 0.47 cm cmshow } for %----------- Zahlen 1 bis 7 (nach links) 1 1 3 { /MZ exch def MZ 2 string cvs 2 cm MZ 0.1 add cm cmshow } for %---------- Zahlen 1 bis 3 (nach oben, rechte Seite) 1 1 3 { /MZ exch def MZ 2 string cvs -2 cm MZ 0.1 add cm cmshow } for %--------- Zahlen 1 bis 3 (nach oben, linke Seite) %-------------------------------------------------------------------------------------------------------------------------------------------------- -%------------------------- Definition f\"{u}r horizontal-zentriertes - Setzen der Winkel- Zahlen (mitgedreht) ---------------------- +%------------------------- Definition für horizontal-zentriertes - Setzen der Winkel- Zahlen (mitgedreht) ---------------------- /cmRotshow {% ---------------------------------- (string), Winkel, x y gsave moveto 90 add rotate % s - /Helvetica findfont 7 scalefont setfont + /NimbusRomNo9L-Regu findfont 7 scalefont setfont dup % s s stringwidth pop 2 div neg 0 % s -dx/2 rmoveto 0.2 setgray show grestore } bind def gsave -%------------------------- Setzen der Zahlen f\"{u}r die Winkel-Einteilungen ------------------------------------------------------------------------------------------------- - 10 10 170 { /MZ exch def MZ 3 string cvs MZ 5.03 cm MZ cos mul 5.03 cm MZ sin mul cmRotshow } for % ------------------ \"{a}u{\ss}erer Kreisbogen +%------------------------- Setzen der Zahlen für die Winkel-Einteilungen ------------------------------------------------------------------------------------------------- + 10 10 170 { /MZ exch def MZ 3 string cvs MZ 5.03 cm MZ cos mul 5.03 cm MZ sin mul cmRotshow } for % ------------------ äußerer Kreisbogen 10 10 170 { /MZ exch def 180 MZ sub 3 string cvs MZ 4.75 cm MZ cos mul 4.75 cm MZ sin mul cmRotshow } for % ------- innerer Kreisbogen grestore %--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- /TSshow {% (string) x y gsave moveto 180 rotate % s - \pst@PSfontO findfont \pst@fontsizeO scalefont setfont + \pst@PSfontO\space findfont \pst@fontsizeO scalefont setfont dup % s s stringwidth pop 2 div neg 0 % s -dx/2 rmoveto 0.4 setgray show @@ -407,7 +409,7 @@ grestore /MadeShow {% (string) x y gsave moveto 180 rotate % s - \pst@PSfontM findfont \pst@fontsizeM scalefont setfont + \pst@PSfontM\space findfont \pst@fontsizeM scalefont setfont dup % s s stringwidth pop 2 div neg 0 % s -dx/2 rmoveto 0.7 setgray show @@ -454,9 +456,9 @@ grestore \fi }% \pnode(! - /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird - \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt) - \pst@tempB \tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung ben\"{o}tigt) + /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als Längeneinheit mit der multipliziert wird + \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt) + \pst@tempB \tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung benötigt) @y1 @y2 sub @x1 @x2 sub Atan /@delta ED %------------ Winkelberechnung @x1 cm @y1 cm T % ------------------------------------ Tranformiere den Koordinatenursprung in P @delta #1 add 180 add rotate % ------------------------------ Drehe den oberen Punkt des Geodreiecks @@ -487,16 +489,16 @@ grestore \def\psPencil@i#1(#2){%------------------------------- #1 Winkel, #2 Ursprung P \begin@SpecialObj \pst@killglue -\begingroup% +\begingroup \pnode(#2){@PGD}% -\use@par% +\use@par \pst@getcoor{@PGD}\pst@tempA % -------------------------- Hohle die Koordinaten und speichere sie in \pst@tempA -\addto@pscode{% +\addto@pscode{ /sysfill {systemdict /fill get exec} def %/Country (\pst@country) def - /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird + /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als Längeneinheit mit der multipliziert wird /Plength \pst@PenLength def -% \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt) +% \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt) \pst@tempA \pst@coor T % ------------------------------------ Tranformiere den Koordinatenursprung in P #1 rotate % ------------------------------ Drehe das gesamte Geodreieck \pst@PenScale dup scale % -------- Skaliere das ganze Geodreieck @@ -613,7 +615,7 @@ grestore %-------------------------------------------------------------------------------------------------------- grestore }% -\endgroup% +\endgroup \end@SpecialObj\ignorespaces }% @@ -626,7 +628,7 @@ grestore \def\psRuler@i#1(#2){\@ifnextchar(% {\psRuler@ii{#1}(#2)}% {\psRuler@ii{#1}(#2)(#2)}}% -\def\psRuler@ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q f\"{u}r Winkel +\def\psRuler@ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q für Winkel \begin@SpecialObj \pst@killglue \begingroup% @@ -635,11 +637,11 @@ grestore \use@par% \pst@getcoor{@QGD}\pst@tempB % -------------------------- Hohle die Koordinaten und speichere sie in \pst@tempB \pst@getcoor{@PGD}\pst@tempA % -------------------------- Hohle die Koordinaten und speichere sie in \pst@tempA -\addto@pscode{% +\addto@pscode{ /sysfill {systemdict /fill get exec} def - /cm {28.45274 mul} def % --------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird - \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt) - \pst@tempB \tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung ben\"{o}tigt) + /cm {28.45274 mul} def % --------------------------------------- Definiere cm als Längeneinheit mit der multipliziert wird + \pst@tempA \tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt) + \pst@tempB \tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung benötigt) @y1 @y2 sub @x1 @x2 sub Atan /@delta ED %------------ Winkelberechnung \pst@tempA \pst@coor T % ------------------------------------ Tranformiere den Koordinatenursprung in P @delta #1 add 180 add rotate % ------------------------------ Drehe das gesamte Geodreieck @@ -647,7 +649,7 @@ grestore %------------------------------------------------------------------------------------------------------------- gsave %------------------------------------------------------------------------------------------------------------- -%-------------- F\"{u}llung der beiden inneren Bereiche und \"{a}u{\ss}ere Begrenzung des Lineals ----------------------------------------------- +%-------------- Füllung der beiden inneren Bereiche und äußere Begrenzung des Lineals ----------------------------------------------- gsave newpath -0.2 cm 0 moveto @@ -731,17 +733,17 @@ gsave 31 {cmBlinie} repeat grestore %-------------------------------------------------------------------------------------------------------------------------------------------------- -%------------------------- Definition f\"{u}r horizontal-zentriertes - Setzen der cm- Zahlen (180° gedreht) ------------------------ +%------------------------- Definition für horizontal-zentriertes - Setzen der cm- Zahlen (180° gedreht) ------------------------ /cmshow {% (string) x y gsave moveto % s - /Helvetica findfont 8 scalefont setfont + /NimbusRomNo9L-Regu findfont 8 scalefont setfont dup % s s stringwidth pop 2 div neg 0 % s -dx/2 rmoveto 0.2 setgray show grestore } bind def -%------------------------- Setzen der Zahlen f\"{u}r die cm-Einteilungen ----------------------------------------------------------------- +%------------------------- Setzen der Zahlen für die cm-Einteilungen ----------------------------------------------------------------- 0 1 30 { /MZ exch def MZ 2 string cvs MZ cm -0.78 cm cmshow } for %---------------- Zahlen 0 bis 30 (nach rechts) %------------------------------------------------------------------------------------------------------------- %-------------------------------------------------------------------------------------------------------------------------------------------------- @@ -768,7 +770,7 @@ grestore \def\psCompass@i#1(#2){\@ifnextchar(% {\psCompass@ii{0}(#2)}% {\psCompass@ii{#1}(#2)(#2)}}% -\def\psCompass@ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q f\"{u}r Winkel +\def\psCompass@ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q für Winkel \begin@SpecialObj \pst@killglue \begingroup% @@ -784,9 +786,9 @@ grestore skal dup scale % -------- Skaliere das ganze Geodreieck /sysfill {systemdict /fill get exec} def /SLg \pst@PoCLength def - /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird - \pst@tempA\tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt) - \pst@tempB\tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung ben\"{o}tigt) + /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als Längeneinheit mit der multipliziert wird + \pst@tempA\tx@UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt) + \pst@tempB\tx@UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung benötigt) \pst@tempA\pst@coor /@y3 ED /@x3 ED @y1 @y2 sub dup mul @x1 @x2 sub dup mul add faktor dup mul mul /quadlg ED quadlg 0 eq { 180 } { @y1 @y2 sub @x1 @x2 sub atan } ifelse /@delta ED %------------ Winkelberechnung |