texlive[45319] Master/texmf-dist: pst-geometrictools (16sep17)
commits+karl at tug.org
commits+karl at tug.org
Sat Sep 16 22:46:25 CEST 2017
Revision: 45319
http://tug.org/svn/texlive?view=revision&revision=45319
Author: karl
Date: 2017-09-16 22:46:25 +0200 (Sat, 16 Sep 2017)
Log Message:
-----------
pst-geometrictools (16sep17)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt
trunk/Master/texmf-dist/doc/generic/pst-geometrictools/README.md
trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex
trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex
trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex
Modified: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt 2017-09-16 20:46:02 UTC (rev 45318)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt 2017-09-16 20:46:25 UTC (rev 45319)
@@ -1,3 +1,5 @@
pst-geometrictools.tex ----------------
+1.1 2017/09/16
+- choose fonts for some tools
1.0 2017/06/29
Modified: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-geometrictools/README.md 2017-09-16 20:46:02 UTC (rev 45318)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/README.md 2017-09-16 20:46:25 UTC (rev 45319)
@@ -2,7 +2,7 @@
`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:
Modified: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex 2017-09-16 20:46:02 UTC (rev 45318)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex 2017-09-16 20:46:25 UTC (rev 45319)
@@ -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 @@
\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 @@
\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 @@
\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.
%
Modified: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex 2017-09-16 20:46:02 UTC (rev 45318)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex 2017-09-16 20:46:25 UTC (rev 45319)
@@ -44,7 +44,7 @@
%\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)
Modified: trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex 2017-09-16 20:46:02 UTC (rev 45318)
+++ trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex 2017-09-16 20:46:25 UTC (rev 45319)
@@ -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,10 +35,12 @@
\define at key[psset]{pst-geometrictools}{MadeTxt}[made in NES]{\def\pst at MadeTxt{#1}}%
\define at key[psset]{pst-geometrictools}{PSfontO}[Symbol]{\def\pst at PSfontO{/#1 }}
\define at key[psset]{pst-geometrictools}{fontsizeO}[10]{\def\pst at fontsizeO{#1 }}
-\define at key[psset]{pst-geometrictools}{PSfontM}[Times-Roman]{\def\pst at PSfontM{/#1 }}
+\define at key[psset]{pst-geometrictools}{PSfontM}[NimbusRomNo9L-Regu]{\def\pst at PSfontM{/#1 }}
\define at key[psset]{pst-geometrictools}{fontsizeM}[6]{\def\pst at fontsizeM{#1 }}
\define at key[psset]{pst-geometrictools}{country}[Germany]{\def\pst at 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 at par{}\pst at object{psProtractor}}
@@ -45,7 +47,7 @@
\def\psProtractor at i#1(#2){\@ifnextchar(%
{\psProtractor at ii{#1}(#2)}%
{\psProtractor at ii{#1}(#2)(#2)}}%
-\def\psProtractor at ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q f\"{u}r Winkel
+\def\psProtractor at ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q für Winkel
\begin at SpecialObj
\pst at killglue
\begingroup%
@@ -57,9 +59,9 @@
\addto at pscode{%
/sysfill {systemdict /fill get exec} def
/Country (\pst at country) def
- /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird
- \pst at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt)
- \pst at tempB \tx at 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 at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt)
+ \pst at tempB \tx at 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 at tempA \pst at coor T % ------------------------------------ Tranformiere den Koordinatenursprung in P
@delta #1 add 180 add rotate % ------------------------------ Drehe das gesamte Geodreieck
@@ -68,7 +70,7 @@
\ifPst at 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 @@
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 @@
{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,27 +361,27 @@
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
@@ -386,8 +388,8 @@
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
%---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -394,7 +396,7 @@
/TSshow {% (string) x y
gsave
moveto 180 rotate % s
- \pst at PSfontO findfont \pst at fontsizeO scalefont setfont
+ \pst at PSfontO\space findfont \pst at fontsizeO scalefont setfont
dup % s s
stringwidth pop 2 div neg 0 % s -dx/2
rmoveto 0.4 setgray show
@@ -407,7 +409,7 @@
/MadeShow {% (string) x y
gsave
moveto 180 rotate % s
- \pst at PSfontM findfont \pst at fontsizeM scalefont setfont
+ \pst at PSfontM\space findfont \pst at fontsizeM scalefont setfont
dup % s s
stringwidth pop 2 div neg 0 % s -dx/2
rmoveto 0.7 setgray show
@@ -454,9 +456,9 @@
\fi
}%
\pnode(!
- /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird
- \pst at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt)
- \pst at tempB \tx at 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 at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt)
+ \pst at tempB \tx at 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 @@
\def\psPencil at i#1(#2){%------------------------------- #1 Winkel, #2 Ursprung P
\begin at SpecialObj
\pst at killglue
-\begingroup%
+\begingroup
\pnode(#2){@PGD}%
-\use at par%
+\use at par
\pst at getcoor{@PGD}\pst at tempA % -------------------------- Hohle die Koordinaten und speichere sie in \pst at tempA
-\addto at pscode{%
+\addto at pscode{
/sysfill {systemdict /fill get exec} def
%/Country (\pst at 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 at PenLength def
-% \pst at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt)
+% \pst at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt)
\pst at tempA \pst at coor T % ------------------------------------ Tranformiere den Koordinatenursprung in P
#1 rotate % ------------------------------ Drehe das gesamte Geodreieck
\pst at PenScale dup scale % -------- Skaliere das ganze Geodreieck
@@ -613,7 +615,7 @@
%--------------------------------------------------------------------------------------------------------
grestore
}%
-\endgroup%
+\endgroup
\end at SpecialObj\ignorespaces
}%
@@ -626,7 +628,7 @@
\def\psRuler at i#1(#2){\@ifnextchar(%
{\psRuler at ii{#1}(#2)}%
{\psRuler at ii{#1}(#2)(#2)}}%
-\def\psRuler at ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q f\"{u}r Winkel
+\def\psRuler at ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q für Winkel
\begin at SpecialObj
\pst at killglue
\begingroup%
@@ -635,11 +637,11 @@
\use at par%
\pst at getcoor{@QGD}\pst at tempB % -------------------------- Hohle die Koordinaten und speichere sie in \pst at tempB
\pst at getcoor{@PGD}\pst at tempA % -------------------------- Hohle die Koordinaten und speichere sie in \pst at tempA
-\addto at pscode{%
+\addto at pscode{
/sysfill {systemdict /fill get exec} def
- /cm {28.45274 mul} def % --------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird
- \pst at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt)
- \pst at tempB \tx at 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 at tempA \tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt)
+ \pst at tempB \tx at 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 at tempA \pst at coor T % ------------------------------------ Tranformiere den Koordinatenursprung in P
@delta #1 add 180 add rotate % ------------------------------ Drehe das gesamte Geodreieck
@@ -647,7 +649,7 @@
%-------------------------------------------------------------------------------------------------------------
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 @@
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 @@
\def\psCompass at i#1(#2){\@ifnextchar(%
{\psCompass at ii{0}(#2)}%
{\psCompass at ii{#1}(#2)(#2)}}%
-\def\psCompass at ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q f\"{u}r Winkel
+\def\psCompass at ii#1(#2)(#3){%------------------------------- #1 Winkel, #2 Ursprung P, zweiter Punkt Q für Winkel
\begin at SpecialObj
\pst at killglue
\begingroup%
@@ -784,9 +786,9 @@
skal dup scale % -------- Skaliere das ganze Geodreieck
/sysfill {systemdict /fill get exec} def
/SLg \pst at PoCLength def
- /cm {28.45274 mul} def % ---------------------------------------- Definiere cm als L\"{a}ngeneinheit mit der multipliziert wird
- \pst at tempA\tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung ben\"{o}tigt)
- \pst at tempB\tx at 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 at tempA\tx at UserCoor /@y1 ED /@x1 ED % ---------- Definiere die Koordinaten des Ursprungs (zur Winkelberechnung benötigt)
+ \pst at tempB\tx at UserCoor /@y2 ED /@x2 ED % ---------- Definiere die Koordinaten des zweiten Punktes (zur Winkelberechnung benötigt)
\pst at tempA\pst at 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
More information about the tex-live-commits
mailing list