iterative_point_recovery/visualisation/Scilab/ptrc_one_sample_vis-2d-anim.sce

animationFileName="animation.gif";
exec("ptrc_one_sample_vis-2d.sce");
convOptSring="";
for i=1:1:length(rts)
    canvas(i); centres(); circles();
    bestGuessPoint(); realPointPoint();
    gw=gcf(); ax0=gw.children(1); ax0.filled="off";
    ax1=gw.children(2); ax1.filled="off";
    ax0.font_style=0;ax1.font_style=0;ax1.title.font_style=0;
    ax1.x_label.font_style=0;ax1.y_label.font_style=0;
    ax0.font_size=fontSize;ax1.font_size=fontSize;ax1.title.font_size=fontSize;
    ax1.x_label.font_size=fontSize;ax1.y_label.font_size=fontSize;
        xtitle([
            strcat(["Maximum of sensors uncertainty: ",string(dat.unc),";"]),
            strcat(["Number of known spheres: ",string(dat.n),";"]),
            strcat(["Final error: ",string(dat.error),";"]),
            strcat(["Start point #",string(i),"; Step #",string(0)])]);
    shotFileName=strcat(["shot_",string(i),"_",string(0),".gif"]);
    xs2gif(graphWindows(i),shotFileName);
    convOptSring=strcat([convOptSring" -delay 10/10 ",shotFileName]);
    startPoint(i);
    shotFileName=strcat(["shot_",string(i),"_",string(1),".gif"]);
    xs2gif(graphWindows(i),shotFileName);
    convOptSring=strcat([convOptSring," ",shotFileName," -delay 2/10"]);
    for j=1:1:length(rts(i).s)
        route(i,j); 
        xtitle([
            strcat(["Maximum of sensors uncertainty: ",string(dat.unc),";"]),
            strcat(["Number of known spheres: ",string(dat.n),";"]),
            strcat(["Final error: ",string(dat.error),";"]),
            strcat(["Start point #",string(i),"; Step #",string(j)])]);
        shotFileName=strcat(["shot_",string(i),"_",string(j+1),".gif"])
        xs2gif(graphWindows(i),shotFileName);
        convOptSring=strcat([convOptSring," ",shotFileName]);
    end
    endPoint(i);
    shotFileName=strcat(["shot_",string(i),"_",string(j+2),".gif"])
    xs2gif(graphWindows(i),shotFileName);
    convOptSring=strcat([convOptSring," -delay 30/10 ",shotFileName]);
end
if getos()<>'Windows' then
    unix(strcat(["convert ",convOptSring," ",animationFileName]));
    unix(strcat(["rm shot_*_*.gif"]));
else
    dos(strcat(["convert ",convOptSring," ",animationFileName]));
    dos(strcat(["del shot_*_*.gif"]));
end