Download raw (2.8 KB)

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

ote:=300;
laje=.7ote;

input param

soufle:=(.1laje*val/15);

% 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;
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

% È  tankou  Èdek → Pierre  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -

beginfig(32);

endfig;

beginfig(70);

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 ... {right}z15 -- z12 -- z13 -- z14 -- z16 .. {up}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]);
desine (x19+.05laje,y19)--(x19+soufle,y19);
desine (x20+.05laje,y20)--(x20+.9soufle,y20);
vape:=soufle/3;
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;

end