Geodreick und Zirkel als Makro?

Antwort erstellen


Diese Frage dient dazu, das automatisierte Versenden von Formularen durch Spam-Bots zu verhindern.
Smilies
:D :) :( :o :shock: :? 8) :lol: :-x :P :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas

Ich habe die Datenschutzerklärung gelesen und bin damit einverstanden.

   

Wenn du eine Datei oder mehrere Dateien anhängen möchtest, gib die Details unten ein.

Ansicht erweitern Die letzten Beiträge des Themas: Geodreick und Zirkel als Makro?

Eledigt. Auch wenn dies nicht mein Verdienst ist.

von Immuneman » Di 26. Nov 2013, 13:09

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}

von KarlMarx » So 18. Dez 2011, 08:01

Moin Immunemam!

Und wo liegt das Problem?

Gruß - Marx.

Geodreick und Zirkel als Makro?

von Immuneman » Sa 17. Dez 2011, 17:11

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!

Nach oben