export_diagr(path,fileN,flag)
Load a scicos diagram in a scs_m list and call mdo_export to create eps file of the graphic data.
export_diagr(MODNUM+'/scs_diagr/dyna/lorentz/','lorentz.cos','guide')
//export_diagr
//fonction qui charge un fichier scicos dans une liste
//scs_m et qui exporte le contenu graphique dans un
//fichier grâce à la fonction mdo_export
//Entrée : path : le chemin du fchier à exporter
// fileN : le nom du ficher à exporter
// flag 'html'
// 'guide'
// 'cosguide'
function export_diagr(path,fileN,flag)
//load scicos variable and library
bak=get('figure_style');
set("figure_style","old");
olds=get('old_style');
set('old_style','on');
//load scicos variable and library
load SCI/macros/scicos/lib
exec(loadpallibs,-1)
%scicos_prob=%f;
alreadyran=%f
needcompile=4
%zoom=1.8;
colmap=xget('colormap');
load(path+fileN)
name=basename(fileN);
if strindex(name,'sblock_equiv')<>[] then
if flag=='guide' then flag='sbeq_guide', end;
end
mdo_export(scs_m,name,flag);
//restore figure_style
gg=xget('window') // for bug in figure_style and winsid
xset('window',0) // for bug in figure_style and winsid
set('figure_style',bak);
set('old_style',stripblanks(olds));
xset('window',gg) // for bug in figure_style and winsid
endfunction