fix build on windows
[scilab.git] / scilab / modules / graphic_export / macros / xend.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2008 - INRIA - Jean-Baptiste Silvy
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at    
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function xend()
11   // export a file using already set fileName and file Type
12
13   global %exportFileName;
14   global %driverName;
15
16   if (%exportFileName == []) then
17     // filed not already selected : xinit has not been called
18     error(msprintf(gettext("%s: %s must be called before any action.\n"),"xend","xinit"));
19     return;
20   end
21
22   curFig = gcf();
23   curFigId = curFig.figure_id;
24
25   // choose export type depending on driver name
26   // for "Rec" and "X11" drivers thare actually nothing to do
27   select %driverName,
28     case "Pos" then
29       drawnow();
30       xs2ps(curFigId, %exportFileName);
31       // delete figure used for export
32       delete(curFig);
33     case "GIF" then
34       drawnow();
35       xs2gif(curFigId, %exportFileName);
36       // delete figure used for export
37       delete(curFig);
38     case "PPM" then
39       drawnow();
40       xs2ppm(curFigId, %exportFileName);
41       // delete figure used for export
42       delete(curFig);
43     case "Fig" then
44       drawnow();
45       xs2fig(curFigId, %exportFileName);
46       // delete figure used for export
47       delete(curFig);
48   end
49
50   // export done reset exportFileName
51   %exportFileName = [];
52
53 endfunction
54