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