balsamine.2012-2013
clone your own copy | download snapshot

Snapshots | iceberg

Inside this repository

sylvestre.mp
text/plain

Download raw (1.2 KB)

prologues := 3;     % sortie EPS
beginfig(1);
    z1 = (0,0);
    z2 = (150,0);
    dotlabels.top(1,2);
    draw z1 .. {down}z2{right}  .. z1;
endfig;

beginfig(2);
    z1 = (0,0);
    z2 = (150,200);
    z3 = (300,0);
    dotlabels.top(1,2,3);
    draw z1 .. z2 {z1-z3} .. z3 .. z1;
endfig;

beginfig(3);
    z1 = (0,0);
    z2 = (-100,200);
    z3 = (400,200);
    z4 = (300,0);
    dotlabels.top(1,2,3,4);
    draw z1 .. z2 {z1-z3} .. z3{z2-z4} .. z4 .. z1;
    %draw z4 .. z2 {z4-z3} .. z3 .. z1;
endfig;

beginfig(4);
    z1 = (0,0);
    z2 = (200,100);
    z3 = (400,0);
    z4 = (300,-100);
    z5 = (100, -100);
    dotlabels.top(1,2,3,4,5);
    draw z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5 .. z1;
endfig;

beginfig(5);
    z1 = (0,0);
    z2 = (100,100);
    z3 = (300,100);
    z4 = (400,0);
    z5 = (300, -100);
    z6 = (100, -100);
    dotlabels.top(1,2,3,4,5,6);
    draw z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5{z4-z6} .. z6 .. z1;
endfig;

beginfig(6);
    z1 = (0,0);
    z2 = (50,100);
    z3 = (150,200);
    z4 = (250,100);
    z5 = (300, 0);
    z6 = (250, -100);
    z7 = (100, -100);
    dotlabels.top(1,2,3,4,5,6,7);
    draw z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5{z4-z6} .. z6{z5-z7} .. z7 .. z1;
endfig;

end