texlive[61430] Master/texmf-dist: pst-geometrictools (28dec21)

[commits+karl at tug.org]

Revision: 61430
          http://tug.org/svn/texlive?view=revision&revision=61430
Author:   karl
Date:     2021-12-28 23:49:15 +0100 (Tue, 28 Dec 2021)
Log Message:
-----------
pst-geometrictools (28dec21)

Modified Paths:
--------------
    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.pdf
    trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex
    trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex

Added Paths:
-----------
    trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes

Removed Paths:
-------------
    trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt

Added: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes	                        (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes	2021-12-28 22:49:15 UTC (rev 61430)
@@ -0,0 +1,6 @@
+pst-geometrictools.tex ----------------
+
+1.3 2021/12/28  - more fixes for lualatex (hv)
+1.2 2021/11/17  - fixes for lualatex (hv)
+1.1 2017/09/16  - choose fonts for some tools
+1.0 2017/06/29

Deleted: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt	2021-12-28 22:48:51 UTC (rev 61429)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/Changes.txt	2021-12-28 22:49:15 UTC (rev 61430)
@@ -1,5 +0,0 @@
-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	2021-12-28 22:48:51 UTC (rev 61429)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/README.md	2021-12-28 22:49:15 UTC (rev 61430)
@@ -1,8 +1,8 @@
 The pst-geometrictools package Author: Thomas Söll
 
-`pst-geometrictools' is a PSTricks package to draw a protractor, a ruler, a compass and pencils 
+"pst-geometrictools" is a PSTricks package to draw a protractor, a ruler, a compass and pencils 
 
-Dated: 2017/09/16 Version 1.1
+Dated: 2021/12/28 Version 1.3
 
 pst-geometrictools contains the following:
 
@@ -18,15 +18,15 @@
 local TeX tree.
 Then do not forget to run texhash to update this tree.
 For more information  see the documentation of your LATEX distribution 
-on installing packages into your local TeX system or read the 
-TeX Frequently Asked Questions:
-(http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages).
+on installing packages into your local TeX system
 
 pst-geometrictools needs pst-eucl, pstricks-xkey and pstricks, which should 
 be part of your local TeX installation, otherwise get it from a 
-CTAN server, http://mirror.ctan.org
+CTAN server, https://mirror.ctan.org
 
-PSTricks is PostScript Tricks, the documentation cannot be run
-with pdftex, use the sequence latex->dvips->ps2pdf or latex->dvips->distiller.
+PSTricks is PostScript Tricks, the documentation cannot be run with pdftex, 
+use the sequence latex->dvips->ps2pdf or latex->dvips->distiller or lualatex.
 
 T. Söll
+
+(Bugfixes by Herbert Voß hvoss at tug.org)

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	2021-12-28 22:48:51 UTC (rev 61429)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-doc.tex	2021-12-28 22:49:15 UTC (rev 61430)
@@ -20,33 +20,16 @@
 
 
 \listfiles
+\RequirePackage{pdfmanagement-testphase}
+\DeclareDocumentMetadata{}
+%% $Id: pst-venn-doc.tex 848 2018-12-04 09:25:49Z herbert $
+\documentclass[fontsize=11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small,
+    headinclude=false,footinclude=false,oneside]{pst-doc}
 
-\documentclass[%
-11pt,
-english,
-BCOR10mm,
-DIV12,
-bibliography=totoc,
-parskip=false,
-fleqn,
-smallheadings,
-headexclude,
-footexclude,
-oneside,
-dvipsnames,
-svgnames,
-x11names,
-distiller
-]{pst-doc}
-
 \usepackage[autostyle]{csquotes}
-\usepackage{biblatex}
-%\usepackage[style=dtk]{biblatex}
-\addbibresource{pst-geometrictools-doc.bib}
-\usepackage[utf8]{inputenc}
+%\addbibresource{pst-geometrictools-doc.bib}
 \let\pstpersFV\fileversion
-\usepackage{pst-geometrictools,pst-node,pst-eucl,pst-pers,pstricks-add,animate}
-\usepackage{etex} % increase the number of registers  (otherwise only 256)
+\usepackage{pst-geometrictools,pst-node,pstricks-add,animate}
 
 \let\belowcaptionskip\abovecaptionskip
 
@@ -71,22 +54,18 @@
 
 \begin{document}
 
-\title{pst-geometrictools v 1.1}
+\title{pst-geometrictools v 1.3}
 \subtitle{A PSTricks package to draw a protractor, a ruler, a compass and pencils}
-\author{Thomas \textsc{Söll}}
+\author{Thomas Söll\\Herbert Voß (bugfix)}
 \date{\today}
 
-\maketitle
+\settitle
 
 \tableofcontents
-\psset{unit=1cm}
 
-
-\clearpage
-
-
 \begin{abstract}
-The package \LPack{pst-geometrictools} offers some customizable options to setup a \emph{protractor}, a \emph{ruler}, a \emph{compass} and \emph{pencils} to the users'  wishes. Some geometric tools are predefined
+The package \LPack{pst-geometrictools} offers some customizable options to setup a \emph{protractor}, a \emph{ruler}, 
+a \emph{compass} and \emph{pencils} to the users'  wishes. Some geometric tools are predefined
  and ready-to-use for the customer to be able to present some pixel-free graphics showing the handling of some geometric tools.
 
 The geometric tools can be scaled, rotated, positioned, colored as wanted, even labeled---if wanted.
@@ -97,12 +76,13 @@
 
 Have fun to use it!
 
-\vfill
+\bigskip
 This program can redistributed and/or modified under the terms of the LaTeX Project Public License Distributed from CTAN archives in directory macros/latex/base/lppl.txt; 
 either version 1.3c of the License, or (at your option) any later version.
 \end{abstract}
 
 
+
 \clearpage
 
 
@@ -111,8 +91,7 @@
 \subsection{\textbackslash psProtractor}
 
 \begin{BDef}
-\Lcs{psProtractor}\OptArgs\Largb{angle}\Largr{coordinates of the origin}
-\\
+\Lcs{psProtractor}\OptArgs\Largb{angle}\Largr{coordinates of the origin}\\
 \Lcs{psProtractor}\OptArgs\Largb{angle}\Largr{coordinates of the origin}\Largr{coordinates of a second point}
 \end{BDef}
 
@@ -181,8 +160,7 @@
 \subsection{\textbackslash psCompass}
 
 \begin{BDef}
-\Lcs{psCompass}\OptArgs\Largb{radius}\Largr{coordinates of  origin}
-\\
+\Lcs{psCompass}\OptArgs\Largb{radius}\Largr{coordinates of  origin}\\
 \Lcs{psCompass}\OptArgs\Largb{radius}\Largr{coordinates of origin}\Largr{coordinates of a second point}
 \end{BDef}
 
@@ -238,13 +216,14 @@
 \newpage
 
 
+
 \subsection{\textbackslash psParallels (Idea and realization by \emph{Manuel Luque})}
 
 \begin{BDef}
-\Lcs{psParallels}\OptArgs\Largr{pointA}\Largr{pointB}\Largr{pointC}\Largb{angle}
+\Lcs{psParallels}\OptArgs\Largr{pointA}\Largr{pointB}\Largr{pointC}
 \end{BDef}
 
-The command \Lcs{psParallels} contains the option \nxLkeyword{DistCoeff=}.
+The command \Lcs{psParallels} contains the option \nxLkeyword{DistCoeff}.
 
 \begin{quote}
 \begin{tabularx}{\linewidth}{ @{} l >{\ttfamily}l X @{} }\toprule
@@ -254,20 +233,38 @@
 \end{tabularx}
 \end{quote}
 
-This command is made to directly draw a line parallel to the line containing \texttt{pointA} and \texttt{pointB} intersecting at point \texttt{pointC}.
+This command is made to directly draw a line parallel to the line containing \texttt{pointA} and \texttt{pointB} 
+intersecting at point \texttt{pointC}.
 
-\begin{LTXexample}[pos=t,width=17cm]
-\begin{pspicture}(-11,-10)(6,2.5)
-\psParallels[DistCoeff=1](-6,-1)(1,2)(2,0)
-\end{pspicture}
+
+\begin{LTXexample}[pos=t,width=\linewidth]
+\psscalebox{0.5}{%
+\begin{pspicture}[showgrid=false](-15,-10)(5,3)%
+  \pnode(-6,1){A}\uput[100](A){A}
+  \pnode(1,2){B}\uput[100](B){B}
+  \pnode(2,0){C}\uput[90](C){C}
+  \pcline[linecolor=BrickRed,nodesepA=-2,nodesepB=-2](A)(B)%
+  \psParallels[style=Parallelen,RulerScale=0.5,ProScale=1,DistCoeff=1](A)(B)(C)
+  \pcline[linecolor=BrickRed](GeodrB)(GeodrA)%
+  \midAB(GeodrB)(GeodrA){M}%
+  \psPencil[PenLength=5,pencilColA=red,PenScale=0.5]{60}(M)
+  \end{pspicture}}
 \end{LTXexample}
 
-The command \verb+\psParallels[DistCoeff=1](A)(B)(C){angle}+ allows to draw a parallel through the point C with the help of a ruler and protractor. The angle is the one between the pencil and the vertical. 
-The command uses the option [DistCoef=] as within pst-eucl. If [DistCoef=0] the hypotenuse of the protractor lays on the line (AB), the ruler automatically positions below the protractor.
 
-For an animation, we vary [DistCoef=0..1], the protractor moves along the ruler letting the hypotenuse parallel to the line (AB). If [DistCoef=1], the protractor intersects with the point C. We can now draw the parallel to (AB) intersecting C.
+The command \verb+\psParallels[DistCoeff=1](A)(B)(C){angle}+ allows to draw a parallel through the 
+point C with the help of a ruler and protractor. The angle is the one between the pencil and the vertical. 
+The command uses the option [DistCoef=] as within pst-eucl. If [DistCoef=0] the hypotenuse of the 
+protractor lays on the line (AB), the ruler automatically positions below the protractor.
 
+For an animation, we vary [DistCoef=0..1], the protractor moves along the ruler letting the 
+hypotenuse parallel to the line (AB). If [DistCoef=1], the protractor intersects with the point C. 
+We can now draw the parallel to (AB) intersecting C.
 
+
+
+
+
 \newpage
 
 
@@ -274,12 +271,13 @@
 \section{Basic Examples}
 
 \begin{LTXexample}[pos=t,width=16cm]
-\begin{pspicture}*(-6,-5.5)(10,7)
+\psscalebox{0.7}{%
+\begin{pspicture}[showgrid=false](-6,-5.5)(10,7)
 \psProtractor{0}(0,0)% origin of the protractor
 \psRuler{0}(0,0)% origin of the ruler
 \psPencil{-30}(6,0)% origin of the pencil
 \psCompass{3}(2,0)% origin of the compass
-\end{pspicture}
+\end{pspicture}}
 \end{LTXexample}
 
 We see, that the origins of the \emph{protractor} and \emph{ruler}, \emph{compass} and respectively the \emph{cone end of the pencil} are positioned at $(0|0)$, $(2|0)$, $(6|0)$. Adding an angle rotates the objects around their origins.
@@ -473,11 +471,11 @@
 \clearpage
 
 
-\nocite{*}
-\bgroup
-\RaggedRight
-\printbibliography
-\egroup
+%\nocite{*}
+%\bgroup
+%\RaggedRight
+%\printbibliography
+%\egroup
 
 
 \printindex

Modified: trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.pdf
===================================================================
(Binary files differ)

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	2021-12-28 22:48:51 UTC (rev 61429)
+++ trunk/Master/texmf-dist/doc/generic/pst-geometrictools/pst-geometrictools-fr-doc.tex	2021-12-28 22:49:15 UTC (rev 61430)
@@ -21,32 +21,18 @@
 
 \listfiles
 
-\documentclass[%
-11pt,
-english,
-BCOR10mm,
-DIV12,
-bibliography=totoc,
-parskip=false,
-fleqn,
-smallheadings,
-headexclude,
-footexclude,
-oneside,
-dvipsnames,
-svgnames,
-x11names,
-distiller
-]{pst-doc}
+\RequirePackage{pdfmanagement-testphase}
+\DeclareDocumentMetadata{}
+%% $Id: pst-venn-doc.tex 848 2018-12-04 09:25:49Z herbert $
+\documentclass[fontsize=11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small,
+    headinclude=false,footinclude=false,oneside]{pst-doc}
 
 \usepackage[autostyle]{csquotes}
 \usepackage{biblatex}
 %\usepackage[style=dtk]{biblatex}
-\addbibresource{pst-geometrictools-doc.bib}
-\usepackage[utf8]{inputenc}
+%\addbibresource{pst-geometrictools-doc.bib}
 \let\pstgeometrictoolsFV\fileversion
-\usepackage{pst-geometrictools,pst-node,pst-eucl,pstricks-add}
-\usepackage{etex} % increase the number of registers  (otherwise only 256)
+\usepackage{pst-geometrictools,pst-node,pstricks-add}
 
 \let\belowcaptionskip\abovecaptionskip
 
@@ -70,20 +56,15 @@
 
 \begin{document}
 
-\title{pst-geometrictools v 1.0}
+\title{pst-geometrictools v 1.3}
 \subtitle{Package de PSTricks pour dessiner un rapporteur, une r\'{e}glette et un crayon}
-\author{Thomas \textsc{S\"{o}ll}}
+\author{Thomas Söll\\Herbert Voß (bugfixes)}
 \date{\today}
 
-\maketitle
+\settitle
 
 \tableofcontents
-\psset{unit=1cm}
 
-
-\clearpage
-
-
 \begin{abstract}
 Pour illustrer des notions de g\'{e}om\'{e}trie \'{e}l\'{e}mentaire le package pst-geometrictools dispose des outils suivants :
 \begin{itemize}
@@ -93,7 +74,7 @@
 \end{itemize}
 Les arguments et options des commandes d\'{e}di\'{e}es permettent de les positionner ainsi que de les personnaliser. Vous remarquerez dans les exemples qui illustrent la documentation le soin tout professionnel qui a \'{e}t\'{e} apport\'{e} au dessin et aux d\'{e}tails des outils. L'utilisation du package pst-eucl de Dominique Rodriguez est vivement conseill\'{e} car ses commandes sont particuli\`{e}rement efficaces pour cr\'{e}er facilement des animations et des illustrations.
 
-\vfill
+\bigskip
 This program can redistributed and/or modified under the terms of the LaTeX Project Public License Distributed from CTAN archives in directory macros/latex/base/lppl.txt; either version 1.3c of the License, or (at your option) any later version.
 \end{abstract}
 
@@ -223,30 +204,43 @@
 
 Cette commande permet de tracer la parrall\`{e}le passant par le point \texttt{pointC} \`{a} la droite d\'{e}finie par les points \texttt{pointA} and \texttt{pointB}. Le rapporteur et la r`{e}gle sont plac\'{e}s automatiquement.
 
-\begin{LTXexample}[pos=t,width=18cm]
-\begin{pspicture}[showgrid](-11,-4)(7,8)%
-\pstGeonode[PosAngle=135,linecolor=red](5,5){A}
-\pstGeonode[PosAngle=135,linecolor=Green](-8,1){B}
-\pstGeonode[PosAngle=-45,linecolor=blue](3,3){C}
-\pcline[linecolor=BrickRed,nodesepA=-2,nodesepB=-2](A)(B)%
-\psParallels[style=Parallelen,RulerScale=0.75,ProScale=0.75](A)(B)(C)
-\pcline[linecolor=BrickRed](GeodrB)(GeodrA)%
-\midAB(GeodrB)(GeodrA){M}%
-\psPencil[PenLength=5,pencilColA=red,PenScale=0.5]{60}(M)
+
+\begin{LTXexample}[pos=t,width=17cm]
+\begin{pspicture}(-11,-10)(6,2.5)
+\psParallels[DistCoeff=1,ProScale=.75,RulerScale=0.7](-6,-1)(1,2)(2,0)
 \end{pspicture}
 \end{LTXexample}
 
-Pour une animation, on utilisera la commande \verb+\multido{}{N}{...+ en fixant uniquement le nombre de pas souhait\'{e} pour que l'hypoth\'{e}nuse du rapporteur passe de la position o\`{u} il est tout pr\`{e}s de (AB) et parall\'{e}le \`{a} celle-ci au point C.
 
+\psset{unit=1cm}
+
+\begin{LTXexample}[pos=t,width=18cm]
+\psscalebox{0.5}{%
+\begin{pspicture}[showgrid](-11,-1)(11,20)% 
+\pnode(5,5){A}\uput[90](A){A}
+\pnode(-8,1){B}\uput[90](B){B}
+\pnode(3,3){C}\uput[250](C){C} 
+\pcline[linecolor=BrickRed,nodesepA=-2,nodesepB=-2](A)(B) 
+\psParallels[style=Parallelen,RulerScale=0.75,ProScale=0.75](A)(B)(C) 
+\pcline[linecolor=BrickRed](GeodrB)(GeodrA)% 
+\midAB(GeodrB)(GeodrA){M}% 
+\psPencil[PenLength=5,pencilColA=red,PenScale=0.5]{60}(M) 
+\end{pspicture}}
+\end{LTXexample}
+
+Pour une animation, on utilisera la commande \verb+\multido{}{N}{...+ en fixant uniquement 
+le nombre de pas souhait\'{e} pour que l'hypothénuse du rapporteur passe de la position 
+où il est tout près de (AB) et parallèle à celle-ci au point C.
+
 \begin{verbatim}
-\multido{}{40}{
-\begin{pspicture}[showgrid](-11,-4)(7,8)%
-\pstGeonode[PosAngle=135,linecolor=red](-2,6){A}
-\pstGeonode[PosAngle=135,linecolor=Green](-8,1){B}
-\pstGeonode[PosAngle=-45,linecolor=blue](0,3){C}
-\pcline[linecolor=BrickRed,nodesepA=-2,nodesepB=-2](A)(B)%
-\psParallels[style=Parallelen,RulerScale=0.75,ProScale=0.75](A)(B)(C)
-\end{pspicture}
+\multido{}{40}{%
+  \begin{pspicture}[showgrid](-11,-4)(7,8)%
+  \pstGeonode[PosAngle=135,linecolor=red](-2,6){A}
+  \pstGeonode[PosAngle=135,linecolor=Green](-8,1){B}
+  \pstGeonode[PosAngle=-45,linecolor=blue](0,3){C}
+  \pcline[linecolor=BrickRed,nodesepA=-2,nodesepB=-2](A)(B)%
+  \psParallels[style=Parallelen,RulerScale=0.75,ProScale=0.75](A)(B)(C)
+  \end{pspicture}%
 }
 \end{verbatim}
 
@@ -404,11 +398,11 @@
 \clearpage
 
 
-\nocite{*}
-\bgroup
-\RaggedRight
-\printbibliography
-\egroup
+%\nocite{*}
+%\bgroup
+%\RaggedRight
+%\printbibliography
+%\egroup
 
 
 \printindex

Modified: trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex	2021-12-28 22:48:51 UTC (rev 61429)
+++ trunk/Master/texmf-dist/tex/generic/pst-geometrictools/pst-geometrictools.tex	2021-12-28 22:49:15 UTC (rev 61430)
@@ -1,6 +1,7 @@
 %% This is file `pst-geometrictools.tex',
 %%
 %% Thomas Söll
+%% fixes for lualatex by Herbert Voß
 %%
 %% This program can redistributed and/or modified under %%
 %% the terms of the LaTeX Project Public License        %%
@@ -15,18 +16,17 @@
 \csname PSTgeometrictoolsLoaded\endcsname
 \let\PSTgeometrictoolsLoaded\endinput
 % Requires PSTricks, pst-xkey, pst-node packages
-\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.1}
-\def\filedate{2017/09/16}
+\ifx\PSTricksLoaded\endinput  \else\input pstricks.tex\fi
+\ifx\PSTXKeyLoaded\endinput   \else\input pst-xkey.tex\fi
+\ifx\PSTEuclideLoaded\endinput\else\input pst-eucl.tex\fi
+\ifx\PSTnodeLoaded\endinput   \else\input pst-node.tex\fi
+\def\fileversion{1.3}
+\def\filedate{2021/12/28}
 \message{`PST' v\fileversion, \filedate}
 
 \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
-
-
 \pst at addfams{pst-geometrictools}
-
+%
 \define at boolkey[psset]{pst-geometrictools}[Pst@]{Ghost}[true]{}
 \define at key[psset]{pst-geometrictools}{ProLineCol}[cyan]{\pst at getcolor{#1}\ProLineCol}
 \define at key[psset]{pst-geometrictools}{ProFillCol}[gray!60]{\pst at getcolor{#1}\ProFillCol}
@@ -44,62 +44,60 @@
 
 
 \def\psProtractor{\def\pst at par{}\pst at object{psProtractor}}
-\def\psProtractor at i#1(#2){\@ifnextchar(%
-{\psProtractor at ii{#1}(#2)}%
-{\psProtractor at ii{#1}(#2)(#2)}}%
+\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ür Winkel
-\begin at SpecialObj
-\pst at killglue
-\begingroup%
-\pnode(#2){@PGD}%
-\pnode(#3){@QGD}%
-\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{%
-/sysfill {systemdict /fill get exec} def
-/Country (\pst at country) def
+  \begin at SpecialObj
+  \pst at killglue
+%  \begingroup
+  \pnode(#2){@PGD}%
+  \pnode(#3){@QGD}%
+  \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{%
+    /sysfill {systemdict /fill get exec} def
+    /Country (\pst at country) def
     /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
+    @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
-   \pst at ProScale dup scale % --------    Skaliere das ganze Geodreieck
-%-------------------------------------------------------------------------------------------------------------
-\ifPst at Ghost\else
-gsave
-%-------------------------------------------------------------------------------------------------------------
-%-------------- Äußere Begrenzung des Geodreiecks -----------------------------------------------
-gsave
-     newpath
+    \pst at ProScale dup scale % --------    Skaliere das ganze Geodreieck
+    %-------------------------------------------------------------------------------------------------------------
+    gsave
+    \ifPst at Ghost\else
+    %-------------- Äußere Begrenzung des Geodreiecks -----------------------------------------------
+    gsave
+    newpath
        -8 cm 0 moveto
        16 cm 0 rlineto
        -8 cm 8 cm rlineto
-       closepath
-     gsave
-       0.7 setlinewidth
-       0.1 setgray
-       stroke
+    closepath
+%     gsave
+    0.7 setlinewidth
+    0.1 setgray
+    stroke
+%   grestore
     grestore
-grestore
 %-------------------------------------------------------------------------------------------------------------
 %-------------- Gefüllter innerer Teil des Geodreiecks -----------------------------------------------
-gsave
+    gsave
     newpath
         -7.5 cm 0.5 22.5 tan mul cm moveto
        15 cm 0 rlineto
        -7.5 cm 7.5 cm rlineto
     closepath
-    gsave
+%    gsave
          \pst at usecolor\ProFillCol
-       [ /ca .1 /SetTransparency  pdfmark %    set  transparency
+%       [ /ca .1 /SetTransparency  pdfmark %    set  transparency
        0.1 .setopacityalpha sysfill
+%    grestore
     grestore
-grestore
 %-------------------------------------------------------------------------------------------------------------
 %-------------- Millimetereinteilung auf der Grundseite -------------------------------------------
- /mmBlinie { newpath
+    /mmBlinie { newpath
                    -7 cm 0 cm moveto
                     0 cm 0.17 cm rlineto
 %                   closepath
@@ -185,12 +183,12 @@
                       0 0 5.1 cm 6 174 arc
                       0 0 4.8 cm 174 6 arcn
                  closepath
-                   gsave
+%                   gsave
                     \pst at usecolor\ProLineCol
-                      [ /ca .4 /SetTransparency  pdfmark %    set  transparency
+%                      [ /ca .4 /SetTransparency  pdfmark %    set  transparency
                        0.4 .setopacityalpha
                        sysfill
-                 grestore
+%                 grestore
    grestore
 %---------------------------------------------------------------------------------------------------------------------------------------------
 %--------------- 1-Grad-Winkeleinteilung an der linken Kathete -----------------------------------------------------------------
@@ -428,7 +426,7 @@
                              0 -1 rlineto
                              closepath
                              setrgbcolor
-                             [ /ca .5 /SetTransparency  pdfmark %    set  transparency
+%                             [ /ca .5 /SetTransparency  pdfmark %    set  transparency
                               0.5 .setopacityalpha sysfill
                            } def
 Country (France) eq {
@@ -452,8 +450,8 @@
   grestore
 %--------------------------------------------------------------------------------------------------------------------------------------------------
 %--------------- Ende nur grestore von gsave ganz am Anfang ------------------
+\fi
 grestore
-\fi
 }%
 \pnode(!
     /cm {28.45274 mul} def %  ----------------------------------------  Definiere cm als Längeneinheit mit der multipliziert wird
@@ -474,11 +472,11 @@
     @delta #1 add 180 add rotate % ------------------------------     Drehe die rechte untere Ecke des Geodreiecks
    \pst at ProScale\space \pst at ProScale\space scale % --------    Skalieren!
    8 0){GeodrB}%
-\endgroup%
-\end at SpecialObj\ignorespaces
+%\endgroup%
+  \end at SpecialObj
+  \ignorespaces
 }%
 
-
 \definecolor{HolzCol}{rgb}{1,0.937,0.835}%
 \define at key[psset]{pst-geometrictools}{PenScale}[1]{\def\pst at PenScale{#1 }}%
 \define at key[psset]{pst-geometrictools}{PenLength}[5]{\def\pst at PenLength{#1 }}%
@@ -485,6 +483,7 @@
 \define at key[psset]{pst-geometrictools}{pencilColA}[red]{\pst at getcolor{#1}\pencilColA}
 \define at key[psset]{pst-geometrictools}{pencilColB}[HolzCol]{\pst at getcolor{#1}\pencilColB}
 \psset[pst-geometrictools]{PenLength=5,pencilColA=red,pencilColB=HolzCol,PenScale=1}
+
 \def\psPencil{\def\pst at par{}\pst at object{psPencil}}
 \def\psPencil at i#1(#2){%-------------------------------    #1 Winkel,  #2 Ursprung P
 \begin at SpecialObj
@@ -659,7 +658,7 @@
        closepath
         gsave
          \pst at usecolor\RulerFillCol
-       [ /ca .25 /SetTransparency  pdfmark %    set  transparency
+%       [ /ca .25 /SetTransparency  pdfmark %    set  transparency
        0.25 .setopacityalpha sysfill
     grestore
 grestore
@@ -676,7 +675,7 @@
      closepath
     gsave
          \pst at usecolor\RulerFillCol
-       [ /ca .15 /SetTransparency  pdfmark %    set  transparency
+%       [ /ca .15 /SetTransparency  pdfmark %    set  transparency
        0.15 .setopacityalpha sysfill
     grestore
          gsave
@@ -1151,28 +1150,34 @@
 %
 \def\psParallels{\def\pst at par{}\pst at object{psParallels}}
 \def\psParallels at i(#1)(#2)(#3){%
-\begin at SpecialObj %
-\pnode(#1){pointA}%
-\pnode(#2){pointB}%
-\pnode(#3){pointC}%
-\pcline[nodesep=-3](pointA)(pointB)
-\psdots(pointA)(pointB)(pointC)
-\uput[l](pointA){A}
-\uput[l](pointB){B}
-\uput[r](pointC){C}
+%  \begin at SpecialObj
+  \pst at killglue
+  \begingroup
+  \use at par
+  \pnode(#1){pointA}%
+  \pnode(#2){pointB}%
+  \pnode(#3){pointC}%
+  \pcline[nodesep=-3](pointA)(pointB)
+  \psdots(pointA)(pointB)(pointC)
+%  \uput[l](pointA){A}\uput[l](pointB){B}\uput[r](pointC){C}
 %
-\psProtractor[Ghost]{0}(pointA)%
-\psAngleAB(pointA)(pointB){alpha1}
-\psAngleAB(pointA)(GeodrA){alpha2}
-\psProtractor[Ghost]{alpha1 alpha2 sub}(pointA)%
-\psRuler{0}(GeodrB)(GeodrC)
+  \psProtractor[Ghost]{0}(pointA)%
+  \psAngleAB(pointA)(pointB){alpha1}
+  \psAngleAB(pointA)(GeodrA){alpha2}
+%  \psdot(GeodrA)\uput[-90](GeodrA){A'}% right edge of triangle
+  \psProtractor[Ghost]{alpha1 alpha2 sub }(pointA)%
+%  \psdot(GeodrA)\uput[-90](GeodrA){A''}% right edge of triangle
+%  \psdot(GeodrB)\uput[-90](GeodrB){B''}% left edge of triangle
+%  \psdot(GeodrC)\uput[-90](GeodrC){C''}% bottom  edge of triangle
+  \psRuler{0}(GeodrB)(GeodrC)
 %
-\pstProjection[PointName={},PointSymbol=none]{pointA}{pointB}{pointC}[pointI]%
-\pstRotation[RotAngle=45,PointSymbol=none,PointName={}]{pointC}{pointI}[pointJ]%
-\pstInterLL[PointSymbol=none,PointName={}]{pointA}{pointB}{pointC}{pointJ}{pointK}%
-\pstTranslation[PointSymbol=none,PointName={},DistCoef=\pst at DistCoeff]{pointK}{pointC}{pointA}[pointA*]
-\psProtractor{alpha1 alpha2 sub}(pointA*)%
-\end at SpecialObj\ignorespaces%
+  \pstProjection[PointName={},PointSymbol=none]{pointA}{pointB}{pointC}[pointI]%
+  \pstRotation[RotAngle=45,PointSymbol=none,PointName={}]{pointC}{pointI}[pointJ]%
+  \pstInterLL[PointSymbol=none,PointName={}]{pointA}{pointB}{pointC}{pointJ}{pointK}%
+  \pstTranslation[PointSymbol=none,PointName={},DistCoef=\pst at DistCoeff]{pointK}{pointC}{pointA}[pointA*]
+  \psProtractor{alpha1 alpha2 sub}(pointA*)%
+  \endgroup
+  \ignorespaces%
 }%
 
 %\define at boolkey[psset]{pst-geometrictools}[Pst@]{Ruler}[true]{}