Graphics, DE, polynomial & XML demos: fix warnings 38/14338/4
Paul Bignier [Fri, 4 Apr 2014 12:42:54 +0000 (14:42 +0200)]
 * "Redefining function" warnings appeared when these demos were launched two times in a row.

Change-Id: Ib7425d07f15d4ca58a1ae62a6ceea292e11321d7

scilab/modules/differential_equations/demos/flow/blackhole.dem.sce
scilab/modules/differential_equations/demos/flow/cylinder.dem.sce
scilab/modules/differential_equations/demos/flow/sphere.dem.sce
scilab/modules/differential_equations/demos/levitron/levitron_gui.sci
scilab/modules/graphics/demos/bezier/Macros.sci
scilab/modules/graphics/demos/cmplxfunc/demo_custom.dem.sce
scilab/modules/polynomials/demos/intro/poly.intro.dem.sce
scilab/modules/xml/demos/diazepam.dem.sce

index ffda587..4eaee87 100644 (file)
@@ -3,6 +3,7 @@
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
+prot = funcprot();
 funcprot(0);
 
 my_demo_path = get_absolute_file_path("blackhole.dem.sce");
@@ -11,4 +12,5 @@ exec(my_demo_path+"blackhole.sci");
 exec(my_demo_path+"blackhole_interface.sci");
 exeblackhole();
 
+funcprot(prot);
 clear my_demo_path;
index 4b1afbe..bf90862 100644 (file)
@@ -3,6 +3,7 @@
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
+prot = funcprot();
 funcprot(0);
 
 my_demo_path = get_absolute_file_path("cylinder.dem.sce");
@@ -11,4 +12,5 @@ exec(my_demo_path+"cylinder.sci");
 exec(my_demo_path+"cylinder_interface.sci");
 execylinder();
 
+funcprot(prot);
 clear my_demo_path;
index 95b119b..61dfc50 100644 (file)
@@ -3,6 +3,7 @@
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
+prot = funcprot();
 funcprot(0);
 
 my_demo_path = get_absolute_file_path("sphere.dem.sce");
@@ -11,6 +12,7 @@ exec(my_demo_path+"sphere.sci");
 exec(my_demo_path+"sphere_interface.sci");
 exesphere();
 
+funcprot(prot);
 clear my_demo_path;
 
 // clearglobal g_pente;
index 6942d50..2ef6547 100644 (file)
@@ -5,6 +5,9 @@
 // This file is distributed under the same license as the Scilab package.
 //
 
+prot = funcprot();
+funcprot(0);
+
 //The graphics objects builder and subsidiaries
 //--------------------------------------------
 function [H]=build_levitron(h)
@@ -412,3 +415,5 @@ function gui_createButtonFrame();
     c = createConstraints("gridbag", [7, 1, 1, 1], [1, 1], "horizontal", "right");
     empty = uicontrol(button_frame, "style", "frame", "backgroundcolor", [1, 1, 1], "constraints", c);
 endfunction
+
+funcprot(prot);
index 28ebf02..678574b 100644 (file)
@@ -5,6 +5,9 @@
 // This file is distributed under the same license as the Scilab package.
 //
 
+prot = funcprot();
+funcprot(0);
+
 function [X,Y]=field(x,y)
     // x and y are two vectors defining a grid
     // X and Y are two matrices which gives the grid point coordinates
@@ -56,7 +59,7 @@ function [z] = bezier(p,t)
 endfunction
 
 
-function bezier3d (p)
+function bezier3d(p)
     // Shows a 3D Bezier curve and its polygon
     t=linspace(0,1,300);
     s=bezier(p,t);
@@ -71,7 +74,7 @@ function bezier3d (p)
 endfunction
 
 
-function [X,Y,Z]=beziersurface (x,y,z,n)
+function [X,Y,Z]=beziersurface(x,y,z,n)
     // Compute a Bezier surface. Return {bx,by,bz}.
     [lhs,rhs]=argn(0);
     if rhs <= 3 ; n=20;end
@@ -94,3 +97,5 @@ function [X,Y,Z]=beziersurface (x,y,z,n)
     end
     X=b1*x*b2';Y=b1*y*b2';Z=b1*z*b2';
 endfunction
+
+funcprot(prot);
index f57f29d..9fe93a1 100644 (file)
@@ -4,6 +4,7 @@
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
+prot = funcprot();
 funcprot(0);
 
 function demo_custom()
@@ -814,7 +815,7 @@ function updateStatusBar(tag,msg, msg_color)
     end
 endfunction
 
-funcprot(1);
+funcprot(prot);
 
 demo_custom();
 
index bffa130..1a88cf3 100644 (file)
@@ -97,4 +97,4 @@ clear derivat; clear    coeff1; clear are12diff; clear are12equal;
 clear      p8; clear        p7; clear        p6; clear p5;
 clear      p4; clear  mymatrix; clear        p3; clear myroots;
 clear      p2; clear   mycoeff; clear        p1; clear x;
-clear       m;
\ No newline at end of file
+clear       m;
index 5f24464..c71f6e1 100644 (file)
@@ -3,9 +3,10 @@
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
-function diazepam_demo()
-
+prot = funcprot();
+funcprot(0);
 
+function diazepam_demo()
 
     my_test_fig = figure(100001);
     my_test_fig.figure_name = "Display of a molecule of diazepam from a CML file (XML)";
@@ -15,9 +16,6 @@ function diazepam_demo()
 
     listDisplayed = struct();
 
-    prot = funcprot();
-    funcprot(0);
-
     function displayAtom(atomName)
         if ~isfield(listDisplayed,atomName) then
 
@@ -41,8 +39,6 @@ function diazepam_demo()
         elemType = xmlXPath(xp(1), "string(string[@builtin=''elementType''])");
     endfunction
 
-    funcprot(prot);
-
     xmlAtomsColors = xmlRead(SCI + "/modules/xml/demos/atoms_colors.xml");
     xmlFile = xmlRead(SCI + "/modules/xml/demos/diazepam.xml");
 
@@ -98,5 +94,7 @@ function diazepam_demo()
 
 endfunction
 
+funcprot(prot);
+
 diazepam_demo();
-clear diazepam_demo;
\ No newline at end of file
+clear diazepam_demo;