1 files changed, 26 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/standard/tdarrow.mp b/Master/texmf-dist/doc/metapost/featpost/example/standard/tdarrow.mp
new file mode 100644
index 00000000000..5ef43d52524
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/standard/tdarrow.mp
@@ -0,0 +1,26 @@
+% tdarrow.mp
+% L. Nobre G.
+% 2004
+
+%input featpost3Dplus2D;
+
+beginfig(1);
+  numeric size, num, i, j, coos[];
+  string comm;
+  color tmpc, fro, tip;;
+  size = 1.5;
+  num = 250;
+  draw rp(black)--rp((size,0,0))--rp((size,size,0))--rp((0,size,0))--cycle;
+  for i=1 upto num:
+    for j=1 upto 6:
+      coos[j] := uniformdeviate(size);
+    endfor;
+    fro := (coos1,coos2,coos3);
+    tip := (coos4,coos5,coos6);
+    comm := "tdarrow(" & cstr(fro) & "," & cstr(tip) & ");";
+    tmpc := 0.5[fro,tip];
+    getready( comm, tmpc );
+  endfor;
+  doitnow;
+endfig;
+end.