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(gettext("xend: xinit must be called before any action."));
  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