* Bug #11659 fixed - twinkle displayed warning messages about show_pixmap function.
[scilab.git] / scilab / modules / graphics / macros / twinkle.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // This file must be used under the terms of the CeCILL.
4 // This source file is licensed as described in the file COPYING, which
5 // you should have received as part of this distribution.  The terms
6 // are also available at
7 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
8
9 function twinkle(h,n)
10
11 [lhs,rhs]=argn(0)
12 if rhs==1 then
13   if (type(h)<>9 | size(h,"*")<>1) then
14     error(msprintf(gettext("%s: Wrong type for input argument #%d: Graphic handle expected.\n"), "twinkle", 1));
15   end
16   n=5;
17 elseif rhs==2 then
18   if (type(h)<>9 | size(h,"*")<>1) then
19     error(msprintf(gettext("%s: Wrong type for input argument #%d: Graphic handle expected.\n"), "twinkle", 1));
20   end
21   if (type(n)<>1 | size(n,"*")<>1) then
22     error(msprintf(gettext("%s: Wrong type for input argument #%d: Scalar expected.\n"), "twinkle", 2));
23   end
24 else
25   error(msprintf(gettext("%s: Wrong number of input arguments: %d or %d expected.\n"), "twinkle", 1, 2));
26 end
27
28 f=h;
29 while f.type<>"Figure"
30   f=f.parent;
31 end
32 realtimeinit(0.2);
33 realtime(0);
34 k=0;
35
36 v=h.visible;
37 for i=1:n
38   k=k+2;
39   h.visible="off";
40   realtime(k);
41   h.visible="on";
42   realtime(k+1);
43 end
44 h.visible=v;
45
46 endfunction