Download raw (5.7 KB)

\setuppapersize[A3]


\starttext
\startuseMPgraphic{name}
  %fill fullcircle scaled 5cm withcolor red;
  draw fullcircle xscaled 4.5cm yscaled 5.5cm rotated -30 withcolor red withpen pensquare xscaled 30 yscaled 4 rotated 30;


   

beginfig(0)
 u:=5cm;
 pair A,B,C,D;
 A:=(0.5u,u); B:=(0.5u,0.5u);
 C:=(0,0.5u);
 draw A..B..C..cycle withpen pensquare xscaled 10 yscaled 4 rotated 30;
 draw A--C withpen pensquare xscaled 10 yscaled 4 rotated 30;
endfig;

beginfig(60)
    u:=.5cm;
    pair A,B,C,D;
    A:=(0,0);   B:=(u,5u);
    C:=(4u,3u); D:=(3u,0);
    draw A.. controls B and C .. D
         withpen pencircle scaled 2pt;
    draw B--C dashed evenly;
    drawarrow A--B;
    drawarrow D--C;
endfig;

beginfig(38);
    pickup pencircle scaled .2in yscaled .08 rotated 30;
    x0=x3=x4;
    z1-z0 = .45in*dir 30;
    z2-z3 = whatever*(z1-z0);
    z6-z5 = whatever*(z1-z0);
    z1-z6 = 1.2*(z3-z0);
    rt x3 = lft x2;
    x5 = .55[x4,x6];
    y4 = y6;
    lft x3 = bot y5 = 0;
    top y2 = .9in;
    draw z0--z1--z2--z3--z4--z5--z6 withcolor .7white;
    dotlabels.top(0,1,2,3,4,5,6);
endfig;
%beginfig(150)
  %for i=0 step 1 until 360:
    %pair P;
    %P = 2cm* (sind(2*i), cosd(3*i));
    %fill fullcircle scaled 4mm shifted P withcolor white;
    %draw fullcircle scaled 4mm shifted P;
  %endfor;
%endfig;


\stopuseMPgraphic
\startuseMPgraphic{name2}
beginfig(5)
    Phi=(1+sqrt5)/2;
    w=100;
    h=Phi*w;
    y1=y6=0;
    y3=y4=h;
    y2=y5;
    x1=x2=x3=0;
    x4=Phi*x5=x6=w;
    (y3-y2)=Phi*(y2-y1);

    pickup pensquare xscaled 30 yscaled 4 rotated 30; 
    draw z1..z6..z2 withcolor .8white;
    draw z3..z4 withcolor .6white;
    draw z2..z3 withcolor .4white;
endfig;
%labels(range 1 thru 6);
%for i=1 upto 5:
    %draw z[i]
    %label.top(decimal(i), z[i]);
%endfor
%showit; shipit; end


draw (0, 0)--(350, 275);
\stopuseMPgraphic
\startuseMPgraphic{name3}
beginfig(15);
    % figure 3j page 16
    (x1 , y1 ) = (0, 100);
    (x4 , y4 ) = (0, 0);
    (x2 , y2 ) = (100, 100);
    (x5 , y5 ) = (100, 0);
    (x3 , y3 ) = (200, 100);
    (x6 , y6 ) = (200, 0);
    dotlabels.top(1,2,3,4,5,6);
    draw z4 .. z2 {z3-z4} .. z3;
endfig;
\stopuseMPgraphic
\startuseMPgraphic{name4}
beginfig(15);
    % figure 3j page 16
    (x1 , y1 ) = (0, 100);
    (x4 , y4 ) = (0, 0);
    (x2 , y2 ) = (100, 100);
    (x5 , y5 ) = (100, 0);
    (x3 , y3 ) = (200, 100);
    (x6 , y6 ) = (200, 0);
    dotlabels.top(1,2,3,4,5,6);
    draw z4 .. z2 {z4-z3} .. z3;
endfig;
\stopuseMPgraphic




\startuseMPgraphic{ellipse1}
beginfig(15);
    z1 = (0,0);
    z2 = (150,0);
    dotlabels.top(1,2);
    fill z1 .. {down}z2{right}  .. cycle;
    draw z1 .. {down}z2{right}  .. z1;
endfig;
\stopuseMPgraphic
\startuseMPgraphic{triangle1}
beginfig(15);
    z1 = (0,0);
    z2 = (150,200);
    z3 = (300,0);
    dotlabels.top(1,2,3);
    fill z1 .. z2 {z1-z3} .. z3 .. cycle;
    draw z1 .. z2 {z1-z3} .. z3 .. z1;
endfig;
\stopuseMPgraphic
\startuseMPgraphic{carre1}
beginfig(15);
    z1 = (0,0);
    z2 = (-100,200);
    z3 = (400,200);
    z4 = (300,0);
    dotlabels.top(1,2,3,4);
    fill z1 .. z2 {z1-z3} .. z3{z2-z4} .. z4 .. cycle;
    draw z1 .. z2 {z1-z3} .. z3{z2-z4} .. z4 .. z1;
    %draw z4 .. z2 {z4-z3} .. z3 .. z1;
endfig;
\stopuseMPgraphic
\startuseMPgraphic{pentagone1}
beginfig(15);
    z1 = (0,0);
    z2 = (200,100);
    z3 = (400,0);
    z4 = (300,-100);
    z5 = (100, -100);
    dotlabels.top(1,2,3,4,5);
    fill z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5 .. cycle;
    draw z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5 .. z1;
endfig;
\stopuseMPgraphic
\startuseMPgraphic{hexagone1}
beginfig(15);
    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);
    fill z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5{z4-z6} .. z6 .. cycle;
    draw z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5{z4-z6} .. z6 .. z1;
endfig;
\stopuseMPgraphic
\startuseMPgraphic{septagone1}
beginfig(15);
    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);
    fill z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5{z4-z6} .. z6{z5-z7} .. z7 .. cycle;
    draw z1 .. z2{z1-z3} .. z3{z2-z4} .. z4{z3-z5} .. z5{z4-z6} .. z6{z5-z7} .. z7 .. z1;
endfig;
\stopuseMPgraphic

\startuseMPgraphic{lequatre}
beginfig(15);
    z0 = (0,0);
    z1 = (100,100);
    z2' = (150,50);
    z2 = (200,0);
    z3 = (100,-100);
    dotlabels.top(0,1,2,3);
    draw z3 .. z0 .. z1;
    draw z1 .. z2' .. z2;
    draw z2 -- z0 -- z1 -- z3;
endfig;
\stopuseMPgraphic

\startuseMPgraphic{jour}
beginfig(15);
    z0 = (0,0);
    z1 = (100,100);
    z2 = (200,0);
    z3 = (100,-100);
    dotlabels.top(1,3);
    draw z3 .. z0{down} .. z1;
endfig;
\stopuseMPgraphic

\startuseMPgraphic{mois}
beginfig(15);
    z0 = (0,0);
    z1 = (100,100);
    z2 = (200,0);
    z3 = (100,-100);
    dotlabels.top(1,2);
    draw z1 .. z0{right} .. z2;
endfig;
\stopuseMPgraphic

\startuseMPgraphic{annee}
beginfig(15);
    z0 = (0,0);
    z1 = (100,100);
    z2 = (200,0);
    z3 = (100,-100);
    dotlabels.top(0,1,2);
    draw z2{down} .. {down}z0 .. z1 .. cycle;
endfig;
\stopuseMPgraphic

\startuseMPgraphic{tout}
beginfig(15);
    z0 = (0,0);
    z1 = (100,100);
    z2 = (200,0);
    z3 = (100,-100);
    dotlabels.top(0,1,2,3);
    draw z3 .. z0{down} .. z1;
    draw z1 .. z0{right} .. z2;
    %draw z2 .. z0{down} .. z1{up} .. z2;
    draw z2{down} .. {down}z0 .. z1 .. cycle;
endfig;
\stopuseMPgraphic

%\useMPgraphic{ellipse1}
%\useMPgraphic{triangle1}
%\useMPgraphic{carre1}
%\useMPgraphic{pentagone1}
%\useMPgraphic{hexagone1}
%\useMPgraphic{septagone1}
%\useMPgraphic{lequatre}
\useMPgraphic{jour}

\useMPgraphic{mois}

\useMPgraphic{annee}

\useMPgraphic{tout}



\stoptext