Gauss-Krümmung beim Torus

tikz/torus-gauss-kruemmung/Makefile

@@ -0,0 +1,31 @@
+SOURCE = torus-gauss-kruemmung
+DELAY = 80
+DENSITY = 300
+WIDTH = 512
+
+make:
+	pdflatex $(SOURCE).tex -output-format=pdf
+	make clean
+
+clean:
+	rm -rf  $(TARGET) *.class *.html *.log *.aux *.data *.gnuplot
+
+gif:
+	pdfcrop $(SOURCE).pdf
+	convert -verbose -delay $(DELAY) -loop 0 -density $(DENSITY) $(SOURCE)-crop.pdf $(SOURCE).gif
+	make clean
+
+png:
+	make
+	make svg
+	inkscape $(SOURCE).svg -w $(WIDTH) --export-png=$(SOURCE).png
+
+transparentGif:
+	convert $(SOURCE).pdf -transparent white result.gif
+	make clean
+
+svg:
+	#inkscape $(SOURCE).pdf --export-plain-svg=$(SOURCE).svg
+	pdf2svg $(SOURCE).pdf $(SOURCE).svg
+	# Necessary, as pdf2svg does not always create valid svgs:
+	inkscape $(SOURCE).svg --export-plain-svg=$(SOURCE).svg

tikz/torus-gauss-kruemmung/Readme.md

@@ -0,0 +1,3 @@
+Compiled example
+----------------
+![Example](torus-gauss-kruemmung.png)

tikz/torus-gauss-kruemmung/torus-gauss-kruemmung.tex

@@ -0,0 +1,28 @@
+% The following answers were used to create this image:
+% - http://tex.stackexchange.com/a/373/5645 - Torus
+\documentclass[border=2pt]{standalone}
+\usepackage{amsmath,amssymb}
+\usepackage{tikz}
+\usetikzlibrary{patterns,arrows,positioning}
+
+\begin{document}
+\begin{tikzpicture}
+\tikzstyle{point}=[circle,thick,draw=black,fill=black,inner sep=0pt,minimum width=4pt,minimum height=4pt]
+
+\draw (-3.5,0) .. controls (-3.5,2) and (-1.5,2.5) .. (0,2.5);
+\draw[xscale=-1] (-3.5,0) .. controls (-3.5,2) and (-1.5,2.5) .. (0,2.5);
+\draw[rotate=180] (-3.5,0) .. controls (-3.5,2) and (-1.5,2.5) .. (0,2.5);
+\draw[yscale=-1] (-3.5,0) .. controls (-3.5,2) and (-1.5,2.5) .. (0,2.5);
+
+\draw (-2,.2) .. controls (-1.5,-0.3) and (-1,-0.5) .. (0,-.5) .. controls (1,-0.5) and (1.5,-0.3) .. (2,0.2);
+\draw (-1.75,0) .. controls (-1.5,0.3) and (-1,0.5) .. (0,.5) .. controls (1,0.5) and (1.5,0.3) .. (1.75,0);
+
+\draw[dashed] (0,-1.5) ellipse (0.5cm and 1cm);
+\draw (0,-0.5) arc (-270:-90:0.5 and 1);
+
+\node (s1)[point,orange,label={[label distance=0mm]90:\color{orange}$s_1$}] at (0,-0.5) {};
+\node (s2)[point,red,label={[label distance=0mm]120:\color{red}$s_2$}] at (-0.5,-1.4) {};
+\node (s3)[point,green,label={[label distance=0mm]90:\color{green}$s_3$}] at (0,-2.5) {};
+\draw[red] (0,0.07) ellipse (3cm and 1.5cm);
+\end{tikzpicture}
+\end{document}