Keywords: Coppernicus 079.svg de à ber die Kreisbewegungen der Weltkörper 79 File Kreisbewegungen-Coppernicus-0 djvu p 232 1879 w Nicolaus Copernicus File Coppernicus_079 png PD-old-100 De revolutionibus drawings LaTeX Source Code <syntaxhighlight lang latex > complile with »pdflatex« \documentclasstikz convert pdf2svg standalone \usepackage tkz-euclide \usetkzobj all \begin document \begin tikzpicture \tkzSetUpLineline width 0 4pt \pgfmathsetmacro \DB 2 ; \pgfmathsetmacro \DK 3 91 \DB ; \pgfmathsetmacro \KF 0 43 \DB ; \pgfmathsetmacro \KL 1 06 \DB ; \tkzDefPoint 180 \DB A \tkzDefPoint -90 \DB-\KF B' \tkzDefPoint 0 \DB C \tkzDefPoint 0 0 D \tkzDefPoint \KF -\DK E \tkzDefPoint -\KF -\DK G \tkzDefPoint 0 -\DK K \tkzDefPoint 0 -\DK+\KL L \tkzDefPoint 0 -\DK-\KL M \begin pgfinterruptboundingbox \tkzInterLC K D D A \tkzGetPoints B S2 \tkzInterLC K D K E \tkzGetPoints F2 F \tkzTangentfrom K D B' \tkzGetPoints T1 T2 \tkzInterLC D T1 D B \tkzGetPoints A C' \tkzInterLC D T2 D B \tkzGetPoints C A' \tkzDefLineparallel through C' T1 K \tkzGetPoint E' \tkzDefLineparallel through A' T2 K \tkzGetPoint G' \tkzInterLL A' G' C' E' \tkzGetPoint S \tkzTangentfrom K D B \tkzGetPoints C A \tkzInterLC D K D B \tkzGetPoints B2 B \tkzDefLineparallel through L E G \tkzGetPoint L2 \tkzDefLineparallel through M E G \tkzGetPoint M2 \tkzInterLL L L2 K A \tkzGetPoint N \tkzInterLL L L2 K C \tkzGetPoint O \tkzInterLL L L2 S C' \tkzGetPoint P \tkzInterLL M M2 S A' \tkzGetPoint Q \tkzInterLL M M2 S C' \tkzGetPoint R \end pgfinterruptboundingbox \tkzDrawCircle D B \tkzDrawCircle K G \draw A -- C ; \draw G -- E ; \draw A' -- S ; \draw C' -- S ; \draw A -- K ; \draw C -- K ; \draw B2 -- S ; \draw N -- P ; \draw Q -- R ; \draw A + 180 0 2 node a ; \draw B + -50 0 2 node b ; \draw C + 0 0 2 node c ; \draw D + -50 0 2 node d ; \draw E + 0 0 2 node e ; \draw F + 60 0 25 node f ; \draw G + 180 0 2 node g ; \draw K + -45 0 2 node k ; \draw L + 60 0 2 node l ; \draw M + 35 0 2 node m ; \draw N + 180 0 2 node n ; \draw O + 40 0 2 node o ; \draw P + 0 0 2 node p ; \draw Q + 180 0 2 node q ; \draw R + 0 0 2 node r ; \draw S + -90 0 2 node s ; \end tikzpicture \end document </syntaxhighlight> Coppernicus 080.svg de à ber die Kreisbewegungen der Weltkörper 80 File Kreisbewegungen-Coppernicus-0 djvu p 234 1879 w Nicolaus Copernicus File Coppernicus_080 png PD-old-100 De revolutionibus drawings LaTeX Source Code <syntaxhighlight lang latex > complile with »pdflatex« \documentclasstikz convert pdf2svg standalone \usepackage tkz-euclide \usetkzobj all \begin document \begin tikzpicture \tkzSetUpLineline width 0 4pt \pgfmathsetmacro \DB 2 ; \pgfmathsetmacro \DK 3 91 \DB ; \pgfmathsetmacro \KF 0 43 \DB ; \pgfmathsetmacro \KL 1 06 \DB ; \tkzDefPoint 180 \DB A \tkzDefPoint -90 \DB-\KF B' \tkzDefPoint 0 \DB C \tkzDefPoint 0 0 D \tkzDefPoint \KF -\DK E \tkzDefPoint -\KF -\DK G \tkzDefPoint 0 -\DK K \tkzDefPoint 0 -\DK+\KL L \tkzDefPoint 0 -\DK-\KL M \begin pgfinterruptboundingbox \tkzInterLC K D D A \tkzGetPoints B S2 \tkzInterLC K D K E \tkzGetPoints F2 F \tkzTangentfrom K D B' \tkzGetPoints T1 T2 \tkzInterLC D T1 D B \tkzGetPoints A C' \tkzInterLC D T2 D B \tkzGetPoints C A' \tkzDefLineparallel through C' T1 K \tkzGetPoint E' \tkzDefLineparallel through A' T2 K \tkzGetPoint G' \tkzInterLL A' G' C' E' \tkzGetPoint S \tkzTangentfrom K D B \tkzGetPoints C A \tkzInterLC D K D B \tkzGetPoints B2 B \tkzDefLineparallel through L E G \tkzGetPoint L2 \tkzDefLineparallel through M E G \tkzGetPoint M2 \tkzInterLL L L2 K A \tkzGetPoint N \tkzInterLL L L2 K C \tkzGetPoint O \tkzInterLL L L2 S C' \tkzGetPoint P \tkzInterLL M M2 S A' \tkzGetPoint Q \tkzInterLL M M2 S C' \tkzGetPoint R \end pgfinterruptboundingbox \tkzDrawCircle D B \tkzDrawCircle K G \draw A -- C ; \draw G -- E ; \draw A' -- S ; \draw C' -- S ; \draw A -- K ; \draw C -- K ; \draw B2 -- S ; \draw N -- P ; \draw Q -- R ; \draw A + 180 0 2 node a ; \draw B + -50 0 2 node b ; \draw C + 0 0 2 node c ; \draw D + -50 0 2 node d ; \draw E + 0 0 2 node e ; \draw F + 60 0 25 node f ; \draw G + 180 0 2 node g ; \draw K + -45 0 2 node k ; \draw L + 60 0 2 node l ; \draw M + 35 0 2 node m ; \draw N + 180 0 2 node n ; \draw O + 40 0 2 node o ; \draw P + 0 0 2 node p ; \draw Q + 180 0 2 node q ; \draw R + 0 0 2 node r ; \draw S + -90 0 2 node s ; \end tikzpicture \end document </syntaxhighlight> |