summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/tdcircarrow.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/tdcircarrow.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/tdcircarrow.mp29
1 files changed, 29 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tdcircarrow.mp b/Master/texmf-dist/doc/metapost/featpost/example/tdcircarrow.mp
new file mode 100644
index 00000000000..41e35a9dc8d
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/tdcircarrow.mp
@@ -0,0 +1,29 @@
+% tdcircarrow.mp
+% L. Nobre G.
+% 2012
+
+input featpost3Dplus2D;
+
+f := (3,5,2);
+Spread := 200;
+TDAtiplen := 0.06;
+TDAhalftipbase := 0.04;
+TDAhalfthick := 0.025;
+
+beginfig(1);
+ setthearena(11,1);
+ numeric i, begsum, amp, margi;
+ margi = 6;
+ begsum = 0;
+ amp = 36;
+ for i=1 upto 4:
+ tdcircarrow( black, blue, 0.6, begsum, amp-margi );
+ begsum := begsum+amp;
+ amp := 36*(i+1);
+ endfor;
+ tdarrow(black,0.6*ncrossprod( -f, blue ));
+ tdarrow(black,0.6*ncrossprod( ccrossprod( -f, blue ), blue ));
+endfig;
+
+end.
+ \ No newline at end of file