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