1 files changed, 55 insertions, 0 deletions
diff --git a/36114-t/images/sources/032.xp b/36114-t/images/sources/032.xp
new file mode 100644
index 0000000..b432064
--- /dev/null
+++ b/36114-t/images/sources/032.xp
@@ -0,0 +1,55 @@
+/* -*-ePiX-*- */
+#include "epix.h"
+using namespace ePiX;
+
+double dx(0.5), dy(0.05), sc(0.8);
+
+void veloc(const P& loc, const P& off,
+	   const std::string& msg, epix_label_posn A)
+{
+  arrow(loc, loc + P(0.5*dx,0));
+  label(loc, off, msg, A);
+}
+
+int main()
+{
+  picture(P(0,0), P(1.5,1), "2.4 x 1.6in");
+
+  begin();
+  bold();
+  arrow_inset(0.5);
+  arrow_ratio(2);
+  arrow_width(2);
+
+  P O1(0,0), O2(dx, dy),
+    pX1(xmax(), 0), pX2(xmax(), dy),
+    pY1(sc*dx, sc*dx), pY2(O2 + pY1),
+    pZ1(0,ymax()), pZ2(O2 + pZ1);
+
+  line(O1, pX1);
+  line(O1, pY1);
+  line(O1, pZ1);
+
+  line(O2, pX2);
+  line(O2, pY2);
+  line(O2, pZ2);
+
+  veloc(O2 + P(3*dy, dy), P(6,2), "$v$", tr);
+  veloc(pY2 + P( 0, -dy), P(2,-4), "$v$", br);
+  veloc(pZ2 + P(dy, -dy), P(2,-4), "$v$", br);
+
+  label(O1, P(0,-4), "$K$", b);
+  label(O2 - P(0, dy), P(0,-4), "$K'$", b);
+
+  label(pX1, P(2,-2), "$x$", br);
+  label(pX2, P(2, 2), "$x'$", tr);
+
+  label(pY1, P(-2, 2), "$y$", tl);
+  label(pY2, P(-2, 2), "$y'$", tl);
+
+  label(pZ1, P(0, 2), "$z$", t);
+  label(pZ2, P(0, 2), "$z'$", t);
+
+  tikz_format();
+  end();
+}