diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/standard/positivecharge.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/standard/positivecharge.mp | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/standard/positivecharge.mp b/Master/texmf-dist/doc/metapost/featpost/example/standard/positivecharge.mp new file mode 100644 index 00000000000..b0fccbc11a3 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/standard/positivecharge.mp @@ -0,0 +1,28 @@ +% positivecharge.mp +% L. Nobre G. +% 2004 + +%input featpost3Dplus2D; + +beginfig(1); + numeric size, num, i, j, coos[]; + string comm, bray; + color fro, tip;; + size = 1.5; + num = 70; + bray = "0.05"; + 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 := "positivecharge(true," & cstr(fro) & "," & bray & ");"; + getready( comm, fro ); + comm := "positivecharge(false," & cstr(tip) & "," & bray & ");"; + getready( comm, tip ); + endfor; + doitnow; +endfig; +end. |