%prologues:=3; % This is needed to produce eps
%outputtemplate := "%j-%c.svg"; % To produce svg instead of eps
%outputformat := "svg"; % To produce svg instead of eps

% D'autres exemples sur http://192.168.0.100:9001/p/copions

ini:=10;

def bos (suffix avan, apwe)=
..(0.25[avan,apwe])..(0.5[avan,apwe])..(0.75[avan,apwe])..
enddef;

% Diksyonè san aksan - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
def desine=draw enddef;
def femen=cycle enddef;
def bouk=for enddef;
% def finibouk=endfor enddef; ne marche pas
def ak_koule=withcolor enddef;
def rouj=red enddef;
def ble=blue enddef;
def vet=green enddef;
def nwa=black enddef;
def oranj=(1,0.7,0) enddef;
def pran_plim_kare_a_ki_gro=pickup pensquare scaled 8; enddef;
def pran_plim_kare_a_ki_pi_gro=pickup pensquare scaled 18; enddef;
def pran_plim_kare_a_ki_pi_fen=pickup pensquare scaled 3; enddef;
def pran_plim_kare_a_ki_mwen_gro=pickup pensquare scaled 6; enddef;
def tansyon=tension enddef;
def agrandi=scaled enddef;
def chemen=path enddef;
%def direksyon=dir enddef;
%def adwat=right enddef;
%def agoch=left enddef;
%def anwo=up enddef;
%def anba=down enddef;
def jiska=upto enddef;
def deplase=shifted enddef;
def vire=rotated enddef;
def foto=picture enddef;
def nouvofoto=currentpicture enddef;
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


% A comme Abriko → Jean-Marc 
beginfig(65);
% pickup pencircle scaled 3;
desine (0,40)..(40,0)..(80,40)..(40,80) withcolor oranj;
desine (0,40)..(20,55)..(30,50) withcolor oranj;
desine (30,50)..(30,60)..(40,80) withcolor oranj;

z1 = (0,40);
z2 = (10,30);
z3 = (55,20);
z5 = (60,60);
z6 = (40,80);

path p;
p := z1..z2..z3..z5..z6;

desine p withcolor oranj;

z7 = point 2 of p;
z8 = (30,50);

path q;
q := z7--z8;

desine q  withcolor oranj;

z9 = (40,35);
z10 = (45,40);
z11 = (40,45);
z12 = (35,40);
Z13 = (40,35); 
pickup pencircle scaled 12;
path r;
r := z9..z10..z11..z12..z9;

desine r;


endfig;

% AN tankou ?  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(66);
%pran_plim_kare_a_ki_gro;

% desine ban
z1 := (20,0);
z2 :=(20,35);
z3 :=(90,35);
z4 :=(90,0);
desine z1--z2--z3--z4 withcolor red;

% desine po flè
z5 := .5[z2, z3] + (-20, 35);
z6 := .5[z2, z3] + (20, 35);
z5 - z7 = (-10, 20);
z6 -z8 = (10,20);

desine z5--z6--z8--z7--femen;

%dotlabels.top(1,2,3,4, 5, 6, 7,8);

%desine flè
z10 =
z11 =
z12 =
z13 =
endfig;

% B  tankou  Bato → Olrich  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(67);
longè:=600;
z1=(30,0);
z2=(10, 40);
z3=(longè/2, 30);
z4=(longè, 50);
z5=(longè-10, 0);
z6=(30, 10);
z7=(100, 50);
%z8=(50, 100);
x8  = x3;
y8 = 600;

z9=(longè, 90);
z10=(10, 90);
z11=(0, 0);
z12=(10, 10);
z13=(20, 0);
z14=(30, 15);

%pickup pencircle scaled 30;
desine z1--z2..z3..z4--z5--cycle withcolor red;
desine z3--z8--z9--z10--z8 withcolor blue;

%dotlabels.top(1, 2, 3, 4, 5,6,7,8,9,10,11,12,13,14);

path p;
p := z11..z12..z13..z14;
path q;
    q := p shifted (-10mm, -10mm);

u:=20mm;
%for i=0 upto 17:
for i=0 step u until longè:
desine p withcolor blue;
desine q withcolor blue;
    %p := p shifted (20mm, 0mm);
    p := p shifted (20mm, 0mm);
    q := q shifted (20mm, 0mm);

%desine p withcolor blue;
%desine p shifted (20mm, 0mm);

endfor;

endfig;

% CH  tankou  Chèz - Stéphanie  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(68);

% pran_plim_kare_a_ki_gro;

lajè := 250;
otè := 500;

z1= (lajè,otè / 2);
z2=(lajè/2,otè);
z3=(0,otè/2);
z4=(lajè/2,0);

path p;
p = z1..z2..z3..z4..cycle;

path cé;
cé:=subpath (0.5,3.5) of  p;
desine cé scaled 0.5 shifted (0.75lajè,450);

% desine chèz
z5=(0,0);
z6=(0,otè); 

z7=(0,otè/2);
z8=(lajè,otè/2);
z9=(lajè,0);

path q;
q=z5--z6;

path r;
r = z7--z8--z9;

desine q shifted (lajè,0);
desine r  shifted (lajè,0);

desine r  shifted (lajè + 20,20)withcolor blue;
desine (z7--z6) shifted (lajè + 20, 20) withcolor blue;

%dotlabels.lft(1,2,3,4,5,6,7,8,9)
endfig;


% D  tankou Danmijann→Fabrice  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(69);

% pran_plim_kare_a_ki_pi_fen
lajè:=100;
otè:=300;

y8=y1=otè;
y7=y2=0.9*otè;
y6=y3=0.1*otè;
x1=0.1*lajè;
x2=x3=0;
x4=0.2*lajè;
x5=0.8lajè;
x6=x7=lajè;
x8=0.9lajè;
chemen ko;
ko:=z1..z2..z3..z4{dir right}..z5{dir right}..z6..z7..z8;
desine ko;

y9=y12=otè;
y10=y11=1.1otè;
x9 = x10 = 0.05lajè;
x11 = x12 = 0.95lajè;
chemen arebobouchon;
arebobouchon=z9--z12--z11--z10--cycle;
chemen tre;
tre = z9--z10;

foto bouchon;
desine arebobouchon withcolor red;
for i=0 step lajè/20 until x11:

    desine tre shifted(i,0) withcolor red;

endfor;
bouchon:=currentpicture;
desine bouchon vire -45 deplase (0.2lajé,0.6lajé);
desine bouchon vire -90 deplase (0.9lajé,lajè);

%for i=1 upto 12:
%dotlabels.bot([i]);
%endfor;

endfig;

% È  tankou  Èdek → Pierre  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(70);
ote:=300;
laje=.7ote;
draw fullcircle xscaled laje yscaled ote deplase (laje/2,ote/2);
z1=(.95laje,.9ote);
z2=(.97laje,.7ote);
z3=(.15laje,.65ote);
z4=(.95laje,.6ote);
z5=(.1laje,.55ote);
z6=(.95laje,.5ote);
z7=(.15laje,.45ote);
z12=(1.3laje,0);
z13=(1.55laje,0);
z14=(1.2laje,y2);
z15=(1.1laje,.4ote);
z16=(1.11laje,y2);
z17=(.97laje,y1);
desine z1{dir 245} .. z2 -- z2{left} ... z3 ... {right}z4 -- z4{left} ... z5 ... {right}z6 -- z6{left} ... z7 ... {dir right}z15 -- z12 -- z13 -- z14 -- z16 .. {dir 90}z17 -- femen;
z8=(.2laje,.35ote);
z9=(.8laje,.35ote);
desine z8--z9;
chemen zye;
z10=(.35laje,.35ote);
z11=(.35laje,.3ote);
zye:=z10--z11;
desine zye;
desine zye deplase (.3laje,0);
z18=(.5laje,.25ote);
z19=(.65laje,.2ote);
z20=(x19,.15ote);
z21=(x18,.1ote);
desine z18..{right}z19--z20{left}..{dir 225}z21;
z22=(.65laje,.9ote);
z23=(.35laje,y22);
z24=(x23,.75ote);
z25=(x22,y24);
desine z22--z23--z24--z25;
desine (x23,.5[y23,y24])--(x22,.5[y23,y24]);
soufle:=.3laje;
desine (x19+.05laje,y19)--(x19+soufle,y19);
desine (x20+.05laje,y20)--(x20+.9soufle,y20);
vape:=.1ote;
desine (x19+soufle+.05laje,y19)..(x19+soufle+vape,y19+vape)..(x19+soufle+vape,y19+vape/3) -- (x19+soufle+vape,y19+vape/3)..(x19+soufle+1.5vape,y20+((y19-y20)/2))..(x19+soufle+vape,y20-vape/3) -- (x19+.9soufle+vape,y20-vape/3)..(x19+.9soufle+vape,y20-vape)..(x19+.9soufle+.05laje,y20);
%for i=1 upto 30:
%dotlabels.bot([i]);
%endfor;
endfig;

% E tankou-Elastik- manu  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(71);
% pickup pencircle scaled 3;
z1 = (10,40);
z2 = (30,40);
z3 = (10,50);
z4 = (20,70);
z5 = (0,20);
z6 = (10,60);
z7 = (60,30);
z8 = (10,40);
z9 = (20,10);
z10 = (20,50);
z11 = (50,45);
z12 = (25,36);
z13 = (50,30);
z14 = (25,26);
z15 = (34,12);
path p;
p := z1..z2..z3..z4..z5..z6..z8;
desine p withcolor nwa;
path q;
q:= z2..z5..z1..z2;
desine q withcolor oranj;
path t;
t := z9..z10..z11..z12..z13..z14..z15..z9;
desine t withcolor vet;
path r;
r := z3..z2..z6..z4..z3;
desine r withcolor ble;
path s;
s := z2..z6..z4..z7..z2;
desine s withcolor rouj;

endfig;

%EN tankou  enbesil -  -  -  -  -  -  -  -  -  -  - Stéphanie
beginfig(72);

% pickup pensquare scaled 7;

draw (0,0)--(0,40)--(30,0)--(30,40) withcolor blue; 
    picture èn ;
    èn := currentpicture;
    currentpicture := nullpicture;

    draw èn shifted (55,0);

draw (0,0)--(0,20)--(0,40) withcolor black;
draw (0,0)--(30,0);
draw (0,40)--(30,40);
draw (0,20)--(15,20);

endfig;

% F tankou Fanal →   -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(73);
%EErntz
u:=1.5;
draw (0,2u)--(50u,0)..(50u,50u)--(25u,75u)--(0,50u)--(0,2u) withcolor red;
draw (50u,50u)--(60u,40u)--(60u,0)--(0,2u) withcolor blue;
draw (0u,50u)--(50u,50u) withcolor yellow;
draw (10u,50u)..(25u,65u)..(40u,50u) withcolor red;
draw (20u,0u)--(20u,20u)..(20u,22u)..(30u,20u)--(30u,0u) withcolor green;
draw (25u,75u)--(90u,70u)--(130u,35u) withcolor black;
draw (60u,0)--(125u,5u) withcolor black;
draw (125u,,5u)--(125u,35u) withcolor black;
draw (65u,35u)--(130u,35u)withcolor black;
draw (80u,15u)--(110u,15u)--(110u,35u)--(80u,35u)--(80u,15u) withcolor black;
draw (80u,17.5u)--(110u,17.5u) withcolor black;
draw (80u,20u)--(110u,20u) withcolor red;
draw (80u,22.5u)--(110u,22.5u) withcolor red;
draw (80u,24u)--(110u,24u) withcolor red;
draw (80u,26u)--(110u,26u) withcolor red;
draw (80u,28u)--(110u,28u) withcolor red;
draw (80u,30u)--(110u,30u)  withcolor red;
draw (80u,32u)--(110u,32u)  withcolor red;
draw (80u,34u)--(110u,34u)  withcolor red;
draw (60u,40u)--(65u,35u) withcolor black;
draw (125u,5u)--(125u,35u) withcolor black;
draw (78u,50u)--(78u,60u)--(85u,66u)--(92u,60u)--(92u,50u)--(78u,50u) withcolor black;
draw (78u,50u)--(67u,60u)--(78u,60u) withcolor black;
draw (67u,60u)--(72u,64u)--(85u,66u)withcolor black;
draw (80u,52u)--(80u,60u)..(85u,63u)..(89.5u,60u)--(89.5u,52u)--(80u,52u) withcolor black;
draw (85u,52u)--(85u,63u) withcolor black;
draw (60u,40u)--(50u,40u) withcolor black;
endfig;



% G tankou Gom →  Willy  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(74);
%pran_plim_kare_a_ki_pi_fen
draw (28,18)..(40,12)..(52,18)--(52,88)..(40,94)..(28,88)--(28,16) withcolor blue;
draw (28,52)--(52,52) withcolor red;
% pran_plim_kare_a_ki_fen
draw (70,100)..(38,125)..(16,120)..(70,0)--(70,20);
draw (80,20)--(60,20);
endfig;


% I tankou manu  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(75);
z1 = (60,0);
z2 = (120,60);
z3 = (60,120);
z4 = (0,60);
path p;
p :=z1--z2--z3--z4--z1;
desine p;
path q;
q := z1..z2..z3..z4..z1;
desine q;
path r;
r := z2--z4;
desine r;
path t;
t := z1..z2..z3..z4;
desine t;
%pran_plim_kare_a_ki_gro
path s;
s := z1--z3;
desine s;
endfig;


% J tankou Joumou → Olrich  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(76);
z1 = (60,0);
z2 = (120,60);
z3 = (60,120);
z4 = (0,60);
z5 = point .50 of q;
z6 = (60,60);
% pickup pencircle scaled 1;
desine z5--z6 withcolor vet;
% pickup pencircle scaled 3;
desine z6--z3 withcolor vet;
z7 = point 3.50 of q;
z8 = point 1.50 of q;
path q;
q := z4..z1..z2..z3;
pickup pencircle scaled 3;
desine q withcolor vet;
z9 = (60,60);
z10 = point 1.10 of q;
z11 = point 2.35 of q;
z12 = point 2.12 of q;
z13 = point 2.70 of q;
z14 = point 3.15 of q;
z15 = point 1.20 of q;
z16 = point 1.80 of q;
z17 = point .25 of q;
z18 = point .37 of q;
z19 = point .74 of q;
path u;
u := z10--z9--z11;
pickup pencircle scaled 1;
desine u withcolor vet;
path v;
v := z15--z9--z16;
desine v withcolor vet;
path w;
w := z12--z9--z13;
desine w withcolor vet;
path r;
r := z6--z4;
pickup pencircle scaled 3;
desine r withcolor vet;
path s;
s := z18--z9--z19;
pickup pencircle scaled 1;
desine s withcolor vet;
z20 = (60,58);
z22 = (62,60);
z23 = (60,62);
z24 = (58,60);
path x;
x := z20..z22..z23..z24..z20;
pickup pencircle scaled 7;
desine x withcolor vet;
endfig;


% K tankou kap → Dyapason  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(77);
ote=240;
laje=160;
z1=(x1,y1);
z2=(x2,y2);
z3=(x3,y3);
z4=(x4,y4);
z5=(x5,y5);
z6=(x6,y6);
z7=(x7,y7);
z8=(x8,y8);
z9=(x9,y9);
z10=(x10,y10);
z11=(x11,y11);
z12=(x12,y12);
z13=(x13,y13);
z14=(x14,y14);
z15=(x15,y15);
z16=(x16,y16);
z17=(x17,y17);
z18=(x18,y18);
z19=(x19,y19);
z20=(x20,y20);
z21=(x21,y21);
z22=(x22,y22);
z23=(x23,y23);
z24=(x24,y24);
z25=(x25,y25);
z26=(x26,y26);
z27=(x27,y27);
z28=(x28,y28);
z29=(x29,y29);
z30=(x30,y30);
z31=(x31,y31);
z32=(x32,y32);
z33=(x33,y33);
z34=(x34,y34);
z35=(x35,y35);
z36=(x36,y36);
z37=(x37,y37);
z38=(x38,y38);
z39=(x39,y39);
z40=(x40,y40);
z41=(x41,y41);
z42=(x42,y42);
z43=(x43,y43);
z44=(x44,y44);
z45=(x45,y45);
z46=(x46,y46);
z47=(x47,y47);
z48=(x48,y48);
z49=(x49,y49);
z50=(x50,y50);
z51=(x51,y51);
z52=(x52,y52);
z53=(x53,y53);
z54=(x54,y54);
z55=(x55,y55);
z56=(x56,y56);
z57=(x57,y57);
z58=(x58,y58);
z59=(x59,y59);
z60=(x60,y60);
z61=(x61,y61);
z62=(x62,y62);
z63=(x63,y63);
z64=(x64,y64);
z65=(x65,y65);
z66=(x66,y66);
z67=(x67,y67);
z68=(x68,y68);
z69=(x69,y69);
z70=(x70,y70);
z71=(x71,y71);

x1=x3=86/160 laje;
x2= 78/160 laje;
x4=120/160 laje;
x5=156/160 laje;
x6= 150/160 laje;
x7= 116/160 laje;
x8=x9=104/160 laje;
x10=96/160 laje;
x11=136/160 laje;
x12=106/160 laje;
x13=126/160 laje;
x14=142.5/160 laje;
x15=116/160 laje;
x16=156/160 laje;
x17=100/160 laje;
x18=81/160 laje;
x19=77/160 laje;
x20=78/160 laje;
x21=75/160 laje;
x22=55/160 laje;
x23=40/160 laje;
x24=15/160 laje;
x25=0/160 laje;
x26=12/160 laje;
x27=5/160 laje;
x28=-20/160 laje;
x29=x25=0/160 laje;
x30=8/160 laje;
x31=28/160 laje;
x32=36/160 laje;
x33=60/160 laje;
x34=72/160 laje;
x35=85/160 laje;
x36=73/160 laje;
x37=65/160 laje;
x38=50/160 laje;
x39=148/160 laje;
x40=141/160 laje;
x41=140/160 laje;
x42=130/160 laje;
x43=136/160 laje;
x44=134/160 laje;
x45=124/160 laje;
x46=118/160 laje;
x47=105/160 laje;
x48=127/160 laje;
x49=124/160 laje;
x50=127/160 laje;
x51=119/160 laje;
x52=118/160 laje;
x53=116/160 laje;
x54=104/160 laje;
x55=99/160 laje;
x56=89/160 laje;
x57=84/160 laje;
x58=72/160 laje;
x59=67/160 laje;
x60=55/160 laje;
x61=81/160 laje;
x62=69/160 laje;
x63=63/160 laje;
x64=52/160 laje;
x65=78/160 laje;
x66=70/160 laje;
x67=67/160 laje;
x68=53/160 laje;
x69=130/160 laje;
x70=110/160 laje;
x71=125/160 laje;

y1= 176/240 ote;
y2= 181/240 ote;
y3= 218/240 ote;
y4=237/240 ote;
y5=211/240 ote;
y6=176/240 ote;
y7=156/240 ote;
y8=164/240 ote;
y9=192/240 ote;
y10=189/240 ote;
y11=220/240 ote;
y12=203/240 ote;
y13=228/240 ote;
y14=216/240 ote;
y15=196/240 ote;
y16=190/240 ote;
y17=230/240 ote;
y18=146/240 ote;
y19=148/240 ote;
y20=149/240 ote;
y21=146/240 ote;
y22=128/240 ote;
y23=104/240 ote;
y24=80/240 ote;
y25=46/240 ote;
y26=0/240 ote;
y27=-15/240 ote;
y28=-16/240 ote;
y29=-3/240 ote;
y30=24/240 ote;
y31=54/240 ote;
y32=90/240 ote;
y33=114/240 ote;
y34=142/240 ote;
y35=217/240 ote;
y36=212/240 ote;
y37=195/240 ote;
y38=186/240 ote;
y39=174.5/240 ote;
y40=164/240 ote;
y41=150/240 ote;
y42=138/240 ote;
y43=168/240 ote;
y44=160/240 ote;
y45=150/240 ote;
y46=137/240 ote;
y47=127/240 ote;
y48=163/240 ote;
y49=153/240 ote;
y50=138/240 ote;
y51=128/240 ote;
y52=158/240 ote;
y53=148/240 ote;
y54=140/240 ote;
y55=128/240 ote;
y56=120/240 ote;
y57=207/240 ote;
y58=200/240 ote;
y59=180/240 ote;
y60=174/240 ote;
y61=195/240 ote;
y62=188/240 ote;
y63=175/240 ote;
y64=166/240 ote;
y65=183/240 ote;
y66=173/240 ote;
y67=162/240 ote;
y68=149/240 ote;
y69=213/240 ote;
y70=100/240 ote;
y71=0/240 ote;

desine z2--z3--z4--z5--z6--z7--femen withcolor black;

path ka;
ka:=z8--z9--z10--z1--z2--z4..z11..z5--z15--z7--femen;
desine ka withcolor black;
fill ka withcolor blue;
fill  z14--z12--z13--femen withcolor red;
fill z5--z6--z7--z15--femen withcolor oranj;
fill z8--z9--z10--z1--femen withcolor oranj;
fill z2--z3--z4--femen withcolor oranj;
desine z5..z16..z6;
desine z3..z17..z4;
desine z2--z19..z18--z7;
desine z20..z21..z22..z23..z24..z25..z26..z27;
desine z28..z29..z30..z31..z32..z33..z34;
desine z35..z36..z37..z38;
desine z39..z40..z41..z42;
desine z43..z44..z45..z46..z47;
desine z48..z49..z50..z51;
desine z52..z53..z54..z55..z56;
desine z57..z58..z59..z60;
desine z61..z62..z63..z64;
desine z65..z66..z67..z68;
desine z4--z69--z5;
desine z15--z69..z70..z71;

endfig;


% L tankou Lanmou → Phalonne  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(78);
ote=90;
laje=110;
mitan=((110-20)/2); 
x1=(1/2 laje);
x2=(3/4laje);
x3=(laje);
x4=(1/2laje);
x5=0;
x6=(1/4 laje);
x7=(3/10 laje);
x8=(3/10laje);
x9=(6/10 laje);
y1=(7/8ote);
y2=ote;
y3=(6/8ote);
y4=0;
y5=(6/8ote);
y6=ote;
y7=(6/8ote);
y8=(3/8 ote);
y9=(3/8 ote);
z1=( x1,y1);
z2=(x2,y2);
z3=(x3,y3);
z4=(x4,y4);
z5=(x5,y5);
z6=(x6,y6);
% pran_plim_kare_a_ki_pi_gro;
desine z1{dir 45}..z2..z3{dir 270}..{dir 225}z4{dir 135}..z5..z6..{dir 315}femen;
desine z7--z8--z9 withcolor red;
endfig;


% M tankou Mon → Manu  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(79);
%pickup pencircle scaled 2;
% draw (0,0)--(20,80)--(40,00)--(60,80)--(80,00) withcolor blue;
z1 = (0,0);
z2 = (20,80);
z3 = (40,00);

path p;
p := z1--z2--z3;

draw p;
draw p shifted z3;

z4 = point .60 of p;
z5 = (15,30);
z6 = (20,50);
z7 = (25,30);
z8 = point 1.40 of p;

path q;
q := z4--z5--z6--z7--z8;

draw q;

z9 = point 2.60 of p;
z10 = (15,30);
z11 = (20,50);
z12 = (25,30);
z13 = point 3.40 of p;

draw q shifted z9;

draw z4--z5;

endfig;


% N tankou Ne ou Nich → Sarah  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(80);
%z1=(1,5);
%z2=(3,1);
%z3=(4,5);
%z4=(4,3);
%z5=(5,2);
%z6=(5,3);
%z7=(7,5);

%draw z1--z2 withcolor red;
ote=50;
laje=100;
z1=(0,0);
z2=(2/6ote,1/2laje);
z3=(4/6ote,0);
z4=(ote,1/2laje);

z5=(0,ote/5);
z6=(laje/2,0);
z7=(laje, ote/5);
z8=(laje/2,ote/4);

    numeric brindille;
    brindille:=10;
    path nich;
    %nich := for il=0 upto brindille-1:
        nich:= z5..z6..z7;
        path nich-int;

    nich:= z5..z8..z8..femen;


       %brindille:= z1..z2..z3..z4..femen;
        %((1cm + 10mm*normaldeviate,0) rotated (il*360/brindille)) ..
      %endfor cycle;
      desine nich;
            desine nich-int;

    for il=0 step 2mm until 3cm:
      draw fullcircle scaled il;
    endfor;
    
    clip currentpicture to nich;
    draw nich;

%dotlabels.top(1, 2, 3, 4, 5,6,7);

endfig;

% GN tankou Gnè → Sarah   -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(81);

  pair A[], B[];
  numeric n; n:=6;
  for i=0 upto n-1:
    A[i] = 1cm * right rotated (i*360/n);
    B[i] = 2cm * right rotated (i*360/n);
  endfor;
  A[n] = A[0]; B[n] = B[0];
  for i=0 upto n-1:
    draw B[i+1] -- B[i] -- A[6];
    draw A[i];
    draw B[i];
  endfor;
%dotlabels.top(1, 2, 3, 4, 5,6);

endfig;


% O tankou-olivierdavinci  manu  -  -  - -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  
beginfig(82);
z1 = (60,0);
z2 = (120,60);
z3 = (60,120);
z4 = (0,60);
path q;
q := z1..z2..z3..z4..z1;
desine q;
path r;
r := z2--z4;
desine r;
path s;
s := z1--z3;
desine s;
z5 = point .50 of q;
z6 = point 2.50 of q;
desine z5--z6;
z7 = point 3.50 of q;
z8 = point 1.50 of q;
desine z8--z7;
desine z5--z8--z6--z7--z5;
z9 = (60,60);
z10 = point 1.60 of q;
z11 = point 1.20 of q;
endfig;

Ò  AKSAN FOStankou   - ofelen -  -  -  -  Regina-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(83); 
z1=(10,10);
z2=(0,20);
z3=(10,30);
z4=(20,20);

z5=(0,50);
z6=(10,40);

draw z1..z2..z3..z4..cycle;
draw z5--z6;
endfig;

%  ON takou   -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(84);
ote=30;
laje=100;

z1=(1/2 laje,0);
z2=(0,1/2 ote);
z3=(1/2 laje,ote);
z4=(laje,1/2 ote);

x5=0;
y5=ote;
x6=x5=y6=x7=y9;
y7=3/4ote;
x8=laje;
y8=ote;
x9=laje;

desine z5--z6;
desine z7{dir 45}..{dir 110}z8..z9 withcolor red;
    picture on ;
    on := currentpicture;
    currentpicture := nullpicture;

    draw on shifted (80,0);

    desine z1..z2..z3..z4..femen;

%for i=1 upto 9:
%dotlabels.bot([i]);
%endfor;

endfig;

%  OU tankou   -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(85);
endfig;

%  OUN tankou   -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
ginfig(86);
endfig;

% P tankou Pyramid → First Luck  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(87);
largeur:=125;
hauteur:=250;
x1=x3=largeur;
x2=0;
y1=0;
y2=0.1hauteur;
y3=hauteur;
chemen arebo;
arebo:=z1--z2--z3--cycle;
desine arebo withcolor redt;
% pran_plim_kare_a_ki_gro;
desine arebo reflectedabout(z1,z3);

kontea:=20;
for ia=0 upto kontea:
ja:=ia/kontea;
desine ja[z2,z3]--ja[z1,z3];
%ia:=ia+1;
endfor;
ko:=z1..z2..z3;

z8=(2largeur,y2);
konteb:=9;
for ib=0 upto konteb:
jb:=ib/konteb;
desine jb[z1,z3]--jb[z8,z3];
%ib:=ib+1;
endfor;

z4=(0,0);
z5=(0,18);
z6=(12,15);
z7=(0,10);
chemen pepe;
pepe:=z4--z5{dir 0}..z6..{dir 180}z7;
desine pepe agrandi 7 deplase (10,0.5hauteur);

%for i=1 upto 8:
%dotlabels.bot([i]);
%endfor;

endfig;

% R tankou   Rato-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(88);
z1 =(50, 0);
z2 =(50, 20);
z3 =(20, 50);
z4 =(20, 30);
z5 =(30, 20);
z6 =(30, 40);
z7 =(40, 10);
z8 =(40, 30);
z9 =(35, 35);
z10 =(100, 90);
pran_plim_kare_8;
draw z1--z2--z3--z4;
draw z5--z6;
draw z9--z10;
draw z7--z8;
%dotlabels.top(1, 2, 3, 4, 5,6,7, 8);

endfig;

% S tankou Soup ?  Regina-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(89);

lajè:=400;
otè:=100;

oi:=100;
li:=200;

z1=(0,2oi);
z2=(1li,3oi);
z3=(2li,2oi);
z4=(1li,1oi);
z5=(1li,0);

path oval;
oval = z1...z2...z3...z4...cycle;
draw oval withcolor green;

path bol;
bol = z1{down}...z5...{up}z3;
draw bol withcolor red;
fill buildcycle(oval, bol) withcolor red;
z6=(0,0);
z7=(0,100);
z8=(0,200);
path chimen;
chimen= z6{dir 45}..{dir 225}z7..{dir 45}z8;
%draw chimen rotated -80 shifted (100, 69) scaled .5;
draw chimen shifted (1li, 2oi);
draw chimen shifted (1li - 60, 2oi);
draw chimen shifted (1li, 2oi);
draw chimen shifted (1li + 60, 2oi);
endfig;

% T tankou Tèt → Jimmy  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(90);
%pran_plim_kare_a_ki_mwen_gro

draw (10,50)--(30,50);
draw (20,50)--(20,10)withcolor black;   
picture te ;
    te := currentpicture;
    currentpicture := nullpicture;

    draw te shifted (130,0);

z1 = (0,125);
z2 = (10,0);
z3 = (40, 10);
draw z1{dir 10}..{dir 25}z2..z3;
picture nen;
nen := currentpicture;
currentpicture := nullpicture;


z4=(0,0);
z5=(100,0);
chemen bouch;

bouch:= z4{dir 45}..{dir -45}z5;
desine bouch;

picture bouch;
bouch:= currentpicture;
currentpicture := nullpicture;

ote:=50;
z8=(0,ote);
laje=ote/2;

z9=(laje/4,y8);
z10=(x8,0.2 ote);

path zorèy;
zorèy= z8..z9{dir 280}..{dir 110}z10;
desine zorèy withcolor black;
%dotlabels.lft(8,9,10,16, 17, 21);

z12=(0,40);
z9 - z13 =(10,10);
z14=(0.65laje,35);
z15=(5,25);
picture zorèy;
zorèy:= currentpicture;
currentpicture := nullpicture;


grosè := 250;
longè := 500;


draw fullcircle xscaled 150 yscaled 200;

picture vizaj;
vizaj:= currentpicture;
currentpicture := nullpicture;


desine vizaj shifted (0, 50);
desine nen scaled .75;

desine zorèy shifted (90, 30) rotated 20;
desine zorèy shifted (90, 30) rotated 20 reflectedabout((0, 0), (0, 1));

desine bouch scaled .75 shifted (-35,-30) {left} (180);

lajezye:=50;
otezye:=65
x16=x19=lajezye/2;
y16=0;
x17=0;
y17=y21=0.1otezye;
x18=0.1lajezye;
y18=y20=0.75otezye;
y19=otezye;
x20=0.9lajezye;
x21=lajezye;
path zyeliy;
zyeliy:=z16..z17--z17..z18..z19..z20..z21--z21..femen;
%desine zyeliy;
%desine zyeliy scaled -0.5 shifted (lajezye/-5,0);
%desine zyeliy scaled -0.20 shifted (lajezye/-,0);
def zye(expr boujex, boujey)
desine zyeliy shifted (boujex,boujey); %contour grand
desine zyeliy scaled -0.5 shifted (boujex+(lajezye/1.5),boujey); %contour
fill zyeliy scaled -0.20 shifted (boujex+(lajezye/2),boujey); %pupille
enddef;
zye(-50, 70);
zye(10, 70);

endfig;

% UI tankou Uit → Rosele  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(91);

z1 = (0,0);
z2 = (0, 100);

path p;
p = z1{right}..{right}z2..cycle;

%drawarrow subpath(0,.5) of p;
%drawarrow subpath(.5,1) of p;
%drawarrow subpath(1,1.5) of p;
%drawarro subpath(1.5,2) of p;

z3=(50,0);
z4=(50,100);
z5=(0,50);
z6=(100,50);
z7=(50,50);

%draw z3..z5..z4..z6..cycle;
%draw z6{up}..tansyon 1.25..{down}z7{down}..tansyon 1.25..{up}z5;

%dotlabels.lft(1,2,3,4,5,6,7);

path d;
d=z1{right}..{lft}z14..{lft}z9;

z8=(50,100);
z9=(80,70);
z10=(80,20);
z11=(50,0);
z12=(20,20);
z13=(20,70);
z14=(50,70);
z15=(50,20);

chemen uit;
uit = z13..z8..z9..z12..z11..z10..cycle;

% pickup pencircle scaled 2;
draw uit;
%dotlabels.lft(8,9,11,10,13,12);

chemen anwo;
anwo= z9{up}..tansyon 1.25..{down}z14{down}..tansyon 1.25..{up}z13;
draw anwo;

chemen anba;
anba= z10{up}..tansyon 1.25..{down}z15{down}..tansyon 1.25..{up}z12;

draw anba;

fill buildcycle(uit, anwo) withcolor black;
fill buildcycle(uit, anba) withcolor black;

fill fullcircle scaled 10 shifted .25[z13,z9] withcolor white;
fill fullcircle scaled 10 shifted .75[z13,z9] withcolor black;
fill fullcircle scaled 10 shifted .25[z12,z10] withcolor black;
fill fullcircle scaled 10 shifted .75[z12,z10] withcolor white;

z16= (85,80);
z17= (105,80);
z18= (85,55);
z19= (100,55);
z20= (75,55);
z21= (120,55);
z22= (75,45);

chemen flechdwat;
flechdwat= z16--z17{right}..tansyon 1..{left}z19--z21..tansyon 1..{left}z22{right}..tansyon 1..{left}z20--z18{right}..tansyon 1..{left}z16..cycle;

%draw flechdwat;

fill buildcycle(flechdwat) withcolor red;

%for i=1 upto 22:
%dotlabels.bot([i]);
%endfor;

endfig;

% V tankou Vodou → Alex  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(92);
    numeric pensize, width, height;
    pensize := 5;
    width := 70;
    height := 100;

    % pickup pencircle scaled pensize;

    % V
    y1 = y3 := height;
    y2 = 0;
    x1 := 0;
    x2 = .5[x1, x3];
    x3 = width;

    draw z1--z2--z3;

    % barre sous le V
    z4 = origin;
    z5 = (width, 0);
    
    draw z4--z5;

    % barre au milieu
    z7 = whatever[z1, z2];
    z8 = whatever[z2, z3];
    y7 = y8 = (height / 2);

    %dotlabels.top(1, 2, 3, 4);

    path p;
    p := z7--z8; 

    draw subpath(.3, .7) of p;

    picture dessin ;
    dessin := currentpicture;
    currentpicture := nullpicture;

    % etoile
    z9 = origin;
    z10 = origin + (10, 0);

    for i=0 step 45 until 360:
        draw z9--z10 rotated i;
    endfor;

    picture etoile ;
    etoile := currentpicture;
    currentpicture := nullpicture;

    draw dessin shifted (200, 0);
    draw etoile shifted (100, 0);
endfig;

% W tankou Wozo → Francisco  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(93);
z1=(1,5);
z2=(3,1);
% z3=(4,5);
% z4=(4,3);
% z5=(5,2);
% z6=(5,3);
% z7=(7,5);
% pran_plim_kare_gro_a
draw z1--z2 withcolor red;
endfig;

% Y tankou Yoyo → Robenson  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(94);
z1=(45,70);
z2=(40,65);
z3=(52,60);
z4=(42,53);
z5=(49,33);
z6=(55,40);
z7=(46,26);
z8=(44,23);
z9=(38,31);
z10=(35,28);
z11=(34,42);
z12=(25,52);
z13=(22,45);
z14=(24,31);
z15=(23,23);
z16=(11,16);
z17=(18,16);
z18=(23,9);
z19=(23,2);
z20=(28,16);
z21=(36,16);
z22=(55,30);
z23=(58,59);
z24=(60,69);
z25=(55,67);
z26=(55,59);
z27=(66,47);
draw z1--z2{right}..z4{curve}..z5{right}..z7..z9..z11; % withpen pencircle scaled 2bp;
draw z14..z16..z19..z21..z14; % withpen pencircle scaled 2bp;
draw z11{left}..z14; % withpen pencircle scaled 2bp;
draw z11..z12..z13..z14; % withpen pencircle scaled 2bp;
draw z15..z17..z18..z20..z15; % withpen pencircle scaled 6bp;
draw z1--z3{dir 220}..z6..z26..z25--z24..z23..z27..z22..z8..z10..z11; % withpen pencircle scaled 2bp;

%dotlabels.top(1, 2, 3, 4, 5,6,7);

endfig;

% Z tankou Zwa → Anne Marlyn  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
beginfig(95);

repliye:=0.22;
wotè:=100;
dyamèt:=18;
lajè:=woté;
reyon=dyamèt/2;

x1=x7=((1/repliye)/10)*lajè;
x2=x3=0;
x4=(0.6+repliye)*lajè;
x5=lajè;
x6=x1-dyamèt/2;

y1=(repliye*7)*wotè;
y2=y3=y4=0;
y5=wotè/2;
y6=y1-reyon;
y7=y1-dyamèt;
x8=x9=x6-reyon;
y8=y6+reyon/2;
y9=y6-reyon/2;

epaisseur:=15;
chemen kou,koua;
kou:=(x1-epaisseur,y1-epaisseur/2){right}..{right}(x2,y2);
koua:=(x1,y1){right}..tension 0.8..{right}(x2+2epaisseur,y2+epaisseur);
desine kou withcolor black;
desine koua withcolor black;
% pickup pencircle scaled -1pt;
desine z1..z6..z7..femen;
desine z3--z4{up}..z5--z5{left}..femen;
desine z8--z6--z9;
endfig;

%  exemple  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
% beginfig(96);
% fill fullcircle scaled 50 withcolor blue;
% fill fullcircle scaled 25 withcolor red;
% picture moncercle;
% moncercle := currentpicture;
% currentpicture := nullpicture;
% draw moncercle shifted (100, 100);
% draw moncercle shifted (200, 200);
% endfig;

end