Commit 66effd64 authored by ludi's avatar ludi

mpost improvisation

parent 36a0f8ab
......@@ -3,7 +3,7 @@
# z2 =
# z3 =
points = [(1, 0), (1, 2), (0, 2)]
points = [(1, 0), (1, 2), (0, 2), (0, 0), (0, 1)]
import random
......
u := 1cm;
pair p[];
beginfig(1)
p0 = (1u, 0u);
p1 = (1u, 2u);
p2 = (0u, 2u);
p3 = (0u, 0u);
p4 = (0u, 1u);
draw p2{dir20}..p1{dir-45}..{down}p0;
draw p3--p4;
for i=0 upto 4: draw p[i] withpen pencircle scaled .15u;endfor;
endfig;
end;
u := 1cm;
pair p[];
beginfig(1)
p0 = (1u, 0u);
p1 = (1u, 2u);
p2 = (0u, 2u);
p3 = (0u, 0u);
p4 = (0u, 1u);
draw p2--p1--p0;
draw p3--p4;
for i=0 upto 4: draw p[i] withpen pencircle scaled .15u;endfor;
endfig;
end;
u := 1cm;
pair p[];
beginfig(1)
p0 = (1u, 0u);
p1 = (1u, 2u);
p2 = (0u, 2u);
p3 = (0u, 0u);
p4 = (0u, 1u);
draw p0{left}..p0{right}..p4{up}..p3{down};
for i=0 upto 4: draw p[i] withpen pencircle scaled .15u;endfor;
endfig;
end;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment