diff --git a/pr/thermostrahler/GNUmakefile b/pr/thermostrahler/GNUmakefile
new file mode 100644
index 0000000..a1ef75e
--- /dev/null
+++ b/pr/thermostrahler/GNUmakefile
@@ -0,0 +1,18 @@
+# what's where?
+include GNUmakevars
+
+all: \
+	test-se.png \
+	test-thermostrahler.png \
+
+clean:
+	rm *.png
+
+%.png: %.pov
+	$(POVRAY) +V -I$< +L$(POVINC) +D
+
+%.pov: make%
+	$< > $@
+
+test-thermostrahler.png: test-thermostrahler.pov thermostrahler.pov \
+    T_BlackMetal.pov
diff --git a/pr/thermostrahler/T_BlackMetal.pov b/pr/thermostrahler/T_BlackMetal.pov
new file mode 100644
index 0000000..d57b688
--- /dev/null
+++ b/pr/thermostrahler/T_BlackMetal.pov
@@ -0,0 +1,13 @@
+#version unofficial MegaPov 0.5;
+
+#include "metals.inc"
+#declare T_BlackMetal =
+    texture {
+	pigment {
+	    color rgb <0.1, 0.1, 0.1>
+	}
+	finish {
+	    F_MetalB
+	    reflect_metallic
+	}
+    }
diff --git a/pr/thermostrahler/magazin.obj b/pr/thermostrahler/magazin.obj
new file mode 100644
index 0000000..1f59e03
--- /dev/null
+++ b/pr/thermostrahler/magazin.obj
@@ -0,0 +1,35 @@
+%TGIF 4.1.34
+state(0,37,100.000,0,218,0,16,1,9,1,1,0,0,1,0,1,0,'Courier',0,80640,0,0,1,10,0,0,1,1,0,16,0,0,1,1,1,1,1088,1408,1,0,2880,0).
+%
+% @(#)$Header$
+% %W%
+%
+unit("1 pixel/pixel").
+color_info(11,65535,0,[
+	"magenta", 65535, 0, 65535, 65535, 0, 65535, 1,
+	"red", 65535, 0, 0, 65535, 0, 0, 1,
+	"green", 0, 65535, 0, 0, 65535, 0, 1,
+	"blue", 0, 0, 65535, 0, 0, 65535, 1,
+	"yellow", 65535, 65535, 0, 65535, 65535, 0, 1,
+	"pink", 65535, 49344, 52171, 65535, 49344, 52171, 1,
+	"cyan", 0, 65535, 65535, 0, 65535, 65535, 1,
+	"CadetBlue", 24415, 40606, 41120, 24415, 40606, 41120, 1,
+	"white", 65535, 65535, 65535, 65535, 65535, 65535, 1,
+	"black", 0, 0, 0, 0, 0, 0, 1,
+	"DarkSlateGray", 12079, 20303, 20303, 12079, 20303, 20303, 1
+]).
+script_frac("0.6").
+fg_bg_colors('black','white').
+page(1,"",1,'').
+oval('black','',250,150,550,450,0,1,1,0,0,0,0,0,0,'1',0,[
+]).
+oval('black','',300,200,500,400,0,1,1,1,0,0,0,0,0,'1',0,[
+]).
+box('black','',300,400,500,700,0,1,1,2,0,0,0,0,0,'1',0,[
+]).
+arc('black','',0,1,1,0,250,100,400,300,250,300,550,300,0,300,400,-11520,11520,3,0,1,8,3,0,0,0,'1','8','3',0,[
+]).
+oval('black','',500,410,520,430,0,1,1,5,0,0,0,0,0,'1',0,[
+]).
+oval('black','',280,410,300,430,0,1,1,6,0,0,0,0,0,'1',0,[
+]).
diff --git a/pr/thermostrahler/povray.ini b/pr/thermostrahler/povray.ini
new file mode 100644
index 0000000..3124195
--- /dev/null
+++ b/pr/thermostrahler/povray.ini
@@ -0,0 +1,8 @@
++A
++AM2
++QR
++HTP
++w320 +h240
+display_gamma = 2.2
++D
++FN
diff --git a/pr/thermostrahler/test-se.pov b/pr/thermostrahler/test-se.pov
new file mode 100644
index 0000000..46c5397
--- /dev/null
+++ b/pr/thermostrahler/test-se.pov
@@ -0,0 +1,74 @@
+#include "colors.inc"
+#include "shapes.inc"
+#include "textures.inc"
+#include "metals.inc"
+#include "stones.inc"
+
+global_settings {
+        assumed_gamma 1.0
+        ambient_light rgb<0, 0, 0>
+	radiosity {}
+}
+
+light_source {
+    <2000, 2000, 2000>
+    color White
+}
+
+light_source {
+    <-2000, 2000, -2000>
+    color rgb <0.8, 0.8, 1>
+}
+
+camera {
+        location <0.9, 0, -0>
+        look_at <.60, 0, 0>
+	angle 20
+	orthographic
+}
+
+#declare cm=0.01;
+
+	union {
+	    intersection {
+		superellipsoid {
+		    <0.25, 0.25>
+		    scale <2.5, 1, 3>
+		}
+		cylinder {
+		    <-2.5, 0, 0> <2.5, 0, 0> 3.2
+		}
+		rotate <30, 0, 0>
+		translate <60.0, 0, 0>
+		pigment {
+		    checker color Yellow, color Red
+		    scale 10
+		}
+	    }
+	    difference {
+		cylinder {
+		    <0.1, 0, 0> <65, 0, 0> 3
+		    pigment { color Blue }
+		}
+		cylinder {
+		    <0, 0, 0> <65.1, 0, 0> 3-0.1
+		    pigment { color Blue }
+		}
+	    }
+	    difference {
+		cylinder {
+		    <0.1, 0, 0> <65, 0, 0> 2
+		    pigment { color Blue }
+		}
+		cylinder {
+		    <0, 0, 0> <65.1, 0, 0> 2-0.1
+		    pigment { color Blue }
+		}
+	    }
+
+
+	    scale cm
+
+	}
+
+background { color rgb<0.2, 0.4, 0.8>  }
diff --git a/pr/thermostrahler/test-thermostrahler.pov b/pr/thermostrahler/test-thermostrahler.pov
new file mode 100644
index 0000000..4b1b397
--- /dev/null
+++ b/pr/thermostrahler/test-thermostrahler.pov
@@ -0,0 +1,53 @@
+#include "colors.inc"
+#include "shapes.inc"
+#include "textures.inc"
+#include "metals.inc"
+#include "stones.inc"
+
+global_settings {
+        assumed_gamma 1.0
+        ambient_light rgb<0, 0, 0>
+	radiosity {}
+}
+
+light_source {
+    <2000, 2000, 2000>
+    color White
+}
+
+light_source {
+    <-2000, 2000, -2000>
+    color rgb <0.8, 0.8, 1>
+}
+
+camera {
+        location <0.6, 0, -2>
+        look_at <.60, 0, 0>
+	angle 20
+}
+
+
+#include "thermostrahler.pov"
+
+object {
+    thermostrahler
+}
+
+
+#if (1)
+background { color rgb<0.2, 0.4, 0.8>  }
+plane {
+    <0, 1, 0>, 0
+    pigment {
+	checker color White*0.7, color White*0.5
+    }
+    translate <0.5, -0.5, 0.5>
+}
+plane {
+    <0, 0, -2>, 0
+    pigment {
+	checker color White*0.7, color White*0.5
+    }
+    translate <0.5, -0.5, 0.5>
+}
+#end
diff --git a/pr/thermostrahler/thermostrahler.obj b/pr/thermostrahler/thermostrahler.obj
new file mode 100644
index 0000000..b425bb4
--- /dev/null
+++ b/pr/thermostrahler/thermostrahler.obj
@@ -0,0 +1,214 @@
+%TGIF 4.1.34
+state(1,37,100.000,0,0,0,16,1,9,1,1,0,0,0,0,1,1,'Courier',0,80640,0,0,1,10,0,0,1,1,0,16,0,0,1,1,1,1,1408,1088,1,0,960,0).
+%
+% @(#)$Header$
+% %W%
+%
+unit("1 pixel/pixel").
+color_info(11,65535,0,[
+	"magenta", 65535, 0, 65535, 65535, 0, 65535, 1,
+	"red", 65535, 0, 0, 65535, 0, 0, 1,
+	"green", 0, 65535, 0, 0, 65535, 0, 1,
+	"blue", 0, 0, 65535, 0, 0, 65535, 1,
+	"yellow", 65535, 65535, 0, 65535, 65535, 0, 1,
+	"pink", 65535, 49344, 52171, 65535, 49344, 52171, 1,
+	"cyan", 0, 65535, 65535, 0, 65535, 65535, 1,
+	"CadetBlue", 24415, 40606, 41120, 24415, 40606, 41120, 1,
+	"white", 65535, 65535, 65535, 65535, 65535, 65535, 1,
+	"black", 0, 0, 0, 0, 0, 0, 1,
+	"DarkSlateGray", 12079, 20303, 20303, 12079, 20303, 20303, 1
+]).
+script_frac("0.6").
+fg_bg_colors('black','white').
+page(1,"",1,'').
+poly('black','',2,[
+	100,140,100,150],1,1,1,0,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	200,140,200,150],1,1,1,1,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	300,140,300,150],1,1,1,2,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	400,140,400,150],1,1,1,3,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	500,140,500,150],1,1,1,4,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	600,140,600,150],1,1,1,5,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	700,140,700,150],1,1,1,6,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	800,140,800,150],1,1,1,7,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	900,140,900,150],1,1,1,8,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	1000,140,1000,150],1,1,1,9,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	1100,140,1100,150],0,1,1,10,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	100,150,1100,150],0,1,1,12,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+text('black',100,107,1,1,1,9,16,13,13,3,0,0,0,0,2,9,16,0,0,"",0,0,0,0,120,'',[
+minilines(9,16,0,0,1,0,0,[
+mini_line(9,13,3,0,0,0,[
+str_block(0,9,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,9,13,3,0,-2,0,0,0,0,0,
+	"0")])
+])
+])]).
+text('black',200,107,1,1,1,18,16,15,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"10")])
+])
+])]).
+text('black',300,107,1,1,1,18,16,16,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"20")])
+])
+])]).
+text('black',400,107,1,1,1,18,16,17,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"30")])
+])
+])]).
+text('black',500,107,1,1,1,18,16,18,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"40")])
+])
+])]).
+text('black',600,107,1,1,1,18,16,19,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"50")])
+])
+])]).
+text('black',700,107,1,1,1,18,16,20,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"60")])
+])
+])]).
+text('black',800,107,1,1,1,18,16,21,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"70")])
+])
+])]).
+text('black',900,107,1,1,1,18,16,22,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"80")])
+])
+])]).
+text('black',1000,107,1,1,1,18,16,23,13,3,0,0,0,0,2,18,16,0,0,"",0,0,0,0,120,'',[
+minilines(18,16,0,0,1,0,0,[
+mini_line(18,13,3,0,0,0,[
+str_block(0,18,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,18,13,3,0,-2,0,0,0,0,0,
+	"90")])
+])
+])]).
+text('black',1100,107,1,1,1,27,16,24,13,3,0,0,0,0,2,27,16,0,0,"",0,0,0,0,120,'',[
+minilines(27,16,0,0,1,0,0,[
+mini_line(27,13,3,0,0,0,[
+str_block(0,27,13,3,0,-2,0,0,0,[
+str_seg('black','Courier',0,80640,27,13,3,0,-2,0,0,0,0,0,
+	"100")])
+])
+])]).
+box('black','',100,290,700,310,0,1,1,36,0,0,0,0,0,'1',0,[
+]).
+polygon('black','',4,[
+	800,300,1100,200,1100,400,800,300],0,1,1,0,37,0,0,0,0,0,'1',0,
+    "0",[
+]).
+poly('black','',2,[
+	700,330,700,350],0,1,1,38,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+poly('black','',2,[
+	699,339,699,459],0,1,1,39,0,0,0,0,0,1,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+	699,339,699,339,699,459,866.025,-500,500,866.025,1,-11],[
+]).
+poly('black','',2,[
+	749,339,749,459],0,1,1,42,0,0,0,0,0,1,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+	749,339,749,339,749,459,866.025,-500,500,866.025,1,-11],[
+]).
+poly('black','',2,[
+	760,430,810,430],0,1,1,43,0,0,0,0,0,0,0,'1',0,0,
+    "0","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+oval('black','',750,300,800,340,0,1,1,44,0,0,0,0,0,'1',0,[
+]).
+oval('black','',760,320,770,330,0,1,1,45,0,0,0,0,0,'1',0,[
+]).
+poly('black','',5,[
+	650,310,650,350,660,360,710,360,720,360],0,1,1,46,0,0,0,0,0,0,0,'1',0,0,
+    "00","",[
+    0,8,3,0,'8','3','0'],[0,8,3,0,'8','3','0'],[
+]).
+box('black','',300,270,800,330,0,1,1,47,0,0,0,0,0,'1',0,[
+]).
+oval('black','',790,270,810,330,0,1,1,49,0,0,0,0,0,'1',0,[
+]).
+box('black','',500,330,650,400,0,1,1,51,0,0,0,0,0,'1',0,[
+]).