summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/manjusha.mp
blob: 0fa9d55608914c55a7777aedc64418a830e47f95 (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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

numeric u;
u = 1cm;
pen thin, thick;
thin = pencircle scaled 1pt;
thick= pencircle scaled 3pt;

verbatimtex
\documentclass{article}
\usepackage{palatino}
\begin{document}
etex

beginfig(1);
  pair a, b, c, d;
  a = origin;
  b = (1u,2u);
  c = (4u,2u);
  d = (6u,0);
  path lines, curve;
  lines = a--b--c--d;
  curve = a..controls b and c..d; %%%%%%%%%%% This is quite powerfull.
  draw lines withpen thin withcolor red+blue;
  draw curve withpen thin withcolor blue;
  drawoptions( withpen thick );
  draw a;
  draw b;
  draw c;
  draw d;
endfig;

beginfig(4);
  pair a, b, c, d, e;
  a = origin;
  b = (2.5u,0.5u);
  c = (4u,2u);
  d = (6u,0);
  e = (4u,-0.5u);
  drawoptions( withcolor blue );
  picture thecaption;
  thecaption = btex Degree 3 etex;
  label( thecaption, e );
  path lines, curve;
  lines = a--b--c--d;
  curve = a..controls b and c..d;
  draw lines withpen thin withcolor red+blue;
  draw curve withpen thin withcolor blue;
  drawoptions( withpen thick withcolor red+green );
  draw a;
  draw b;
  draw c;
  draw d;
endfig;

beginfig(6);
  numeric n, i;
  n = 100;
  pair p[];
  for i=1 upto n:
    p[i] = (uniformdeviate(4u),uniformdeviate(3u));
    draw p[i] withpen thick withcolor green;
  endfor;
  path everywhere, convexhull;
  everywhere = p1 for i=2 upto n: --p[i] endfor --cycle;
  convexhull = makepath makepen everywhere; %%%%%%%%%%%%%% Wow!
  draw convexhull withpen thin withcolor red+green;
  for i=1 upto length convexhull:
    draw point i of convexhull withpen thick withcolor blue;
  endfor;
endfig;
    
verbatimtex
\end{document}
etex

end.