summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/tdcircarrow.mp
blob: 41e35a9dc8d361efecfadb475659b6ca09815af8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.