Geodreick und Zirkel als Makro?

[Immuneman]

Tag allerseits!
Als angehender Mathe-Lehrer interessiert mich LaTeX vor allem wegen der tollen Kombinationsmöglichkeiten zwischen PSTricks und beamer/powerdot.
Zu diesem Zweck hatte ich die Idee ein eigenes Makro zu entwickeln (bzw. mittels \pscustom eines zu erstellen) um ein "Geodreieck" in die Präsentationen einzubinden.
??? Oder hatte bereits jemand diese Idee und hat sie umgesetzt????

Analog würde ich auch gerne mal einen "Zirkel" in Präsentationen einbinden
??? Oder hatte bereits jemand diese Idee und hat sie umgesetzt????

So long!

[KarlMarx]

Moin Immunemam!

Und wo liegt das Problem?

Gruß - Marx.

[Immuneman]

Das Thema hat sich erledigt! Eigentlich!!!
Wenn ich versuch das Geodreieck zu drehen, dreht sich das Koordinatensystem mit.
Jemand ne Idee, wie ich das beheben kann?

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage[frenchstyle]{kpfonts}
\usepackage{pstricks,pst-all}
%\usepackage[distiller]{pstricks}
\usepackage{multido}
\def\git{\psgrid[gridwidth=1pt,gridlabels=0,gridcolor=lightgray,subgridwidth=1pt,subgriddiv=2,subgridcolor=lightgray]}

\def\protrace{%
\psset{unit=1,dimen=middle}
\SpecialCoor
%
\scriptsize
%%%%%%%%%%%%%%%%%%%%%%%%%Farbegesamt%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{psclip}%
{\pspolygon[linestyle=none,linewidth=0pt,fillstyle=solid,fillcolor=white,opacity=0.3](-4.675,0.125)(4.675,0.125)(0,4.8)}%FarbeohneRand
\pspolygon[linewidth=0pt,fillstyle=solid,fillcolor=lightgray!30,linestyle=none,opacity=0.4](-5,0)(5,0)(0,5)%FarbermitRand
\end{psclip}%
%%%%%%%%%%%%%%%%%%%%%Winkel 0bis90 subticks%%%%%%%%%%%%%%%%%%%%%%%
\begin{psclip}%
{\pspolygon[linestyle=none](5,0)(4.85,0)(-0.15,5)(0,5)}%
\multido{\n=1+1}{89}{%
\rput[l]{\n}(!\n\space dup sin exch cos div dup 1 add 5 exch div exch 1 index mul)%
{\psline[linewidth=.25\pslinewidth](0,0)(-.2,0)}%
}%
\end{psclip}%
%%%%%%%%%%%%%%%%%%%%%Linealrechts%%%%%%%%%%%%%%%%%%%%%%%%
\begin{psclip}%
{\pspolygon[linestyle=none](-5,0)(-4.85,0)(0.15,5)(0,5)}%
\multido{\n=1+1}{89}{%
\rput[l]{-\n}(!\n\space dup sin exch cos div dup 1 add 5 exch div neg exch 1 index mul neg)%
{\psline[linewidth=.25\pslinewidth](0,0)(.2,0)}%
}%
\end{psclip}%
\multido{\n=5+10}{9}{%
\rput[l]{\n}(!\n\space dup sin exch cos div dup 1 add 5 exch div exch 1 index mul)%
{\psline[linewidth=.5\pslinewidth](0,0)(-.4,0)}%
\rput[l]{-\n}(!\n\space dup sin exch cos div dup 1 add 5 exch div neg exch 1 index mul neg)%
{\psline[linewidth=.5\pslinewidth](0,0)(.4,0)}%
}%
\multido{\n=10+10}{8}{%
\psline(3.15;\n)(!\n\space dup sin exch cos div dup 1 add 5 exch div exch 1 index mul)%
\psline(-3.15;-\n)(!\n\space dup sin exch cos div dup 1 add 5 exch div neg exch 1 index mul neg)%
}%
\multido{\n=6+1}{84}{%
\psline[linewidth=.5\pslinewidth](-2.77;-\n)(-2.7;-\n)%
\psline[linewidth=.5\pslinewidth](2.77;\n)(2.7;\n)%
}%
\multido{\n=5+5}{17}{%
\psline(2.81;\n)(2.7;\n)%
\psline(-2.81;-\n)(-2.7;-\n)%
}
\psline[linestyle=dashed,dash=7pt 4pt](-2.6;-45)(-.5;-45)%
\psline[linestyle=dashed,dash=7pt 4pt](2.6;45)(.5;45)%
%
\pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=0.6]{%
\psarc(0,0){2.85}{7}{173}%
\psarcn(0,0){3.15}{173}{7}%
}%
{\multido{\n=10+10}{17}{\rput{0}(3;\n){\n}}}%
\multido{\n=0+1}{8}{\rput{180}(!\n\space 0.625 mul 0.25){\n}}%
\multido{\n=1+1}{7}{\rput{180}(!\n\space 0.625 mul neg 0.25){\n}}%
\multido{\n=-70+1}{141}{\rput{180}(!\n\space 0.0625 mul neg 0){\psline[linewidth=0.5\pslinewidth](0,0)(0,-0.08)}}%
\multido{\n=-14+1}{29}{\rput{180}(!\n\space 0.3125 mul neg 0){\psline(0,0)(0,-0.13)}}%
%
\multido{\n=3+1}{30}{\rput{180}(!0 \n\space 0.0625 mul 0.03 add){%
\psline[linewidth=0.5\pslinewidth](-1.625,0)(-1.5,0)%
\psline[linewidth=0.5\pslinewidth](1.625,0)(1.5,0)%
}}%
%
\begin{psclip}%
{\pscircle[linestyle=none](0,0){2.6}}%
\multido{\n=1+1}{7}{\rput{180}(!0 \n\space 0.3125 mul 0.03 add){%
\psline(-2.6,0)(-1.69,0)%
\psline(2.6,0)(1.69,0)%
\psline(1.625,0)(1.4375,0)%
\psline(-1.625,0)(-1.4375,0)%
\psline(1.1875,0)(0.15,0)%
\psline(-1.1875,0)(-0.15,0)%
}}%
\multido{\n=1+1}{3}{%
\rput{180}(!1.3 \n\space 0.625 mul 0.03 add){\n}%
\rput{180}(!-1.3 \n\space 0.625 mul 0.03 add){\n}%
}%
\end{psclip}%
%
\psline(0.4;90)(2.85;90)%
\psline(3.15;90)(5;90)%
\pspolygon(5,0)(0,5)(-5,0)%
}

\begin{document}
\begin{center}
\begin{pspicture}(-5,0)(5,5)
\git
\protrace
\end{pspicture}
\end{center}
\begin{center}
\psscalebox{.5 .5}{%
\begin{pspicture}(-8,-8)(8,8)
\git
%\psaxes{->}(0,0)(-3.5,-3.5)(3.5,3.5)
\psline[linewidth=3pt](-8,0)(8,0)
\rput{90}(0,0){
\psscalebox{1.61}{%
\protrace%
}}%
\end{pspicture}}
\end{center}
\end{document}