Shell demo: remove drawlater and drawnow 73/8473/2
Adeline CARNIS [Wed, 1 Aug 2012 13:53:52 +0000 (15:53 +0200)]
Change-Id: I9029c86874cd697fda91df56c1b380054e1062b5

scilab/modules/graphics/demos/anim/anim7/anim7.sce

index 40bfdc6..bb611ff 100644 (file)
-//
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-// Copyright (C) DIGITEO - 2010 - Allan CORNET
-//
-// This file is distributed under the same license as the Scilab package.
-//
-
-// =============================================================================
-// Demonstrate animation based on the dynamic of a chain
-// =============================================================================
-
-function demo_anim7()
-
-  // compute color of a set of facets, relative to the distance to the origin
-  function [colors] = computeFacetsColor(xx, yy, zz, colormapSize)
-    nbFacets = size(xx);
-    colors = zeros(nbFacets(1), nbFacets(2));
-    for i=1:nbFacets(1)
-      for j=1:nbFacets(2)
-        colors(i,j) = norm([xx(i,j), yy(i,j), zz(i,j)]) * colormapSize / 15;
-      end
-    end
-
-  endfunction
-
-  curFig             = scf(100001);
-  clf(curFig,"reset");
-  demo_viewCode("anim7.sce");
-
-  show_window(); //raise the graphic window
-
-  drawlater();
-
-
-  //Create the data
-  //---------------
-  colormapSize = 128;
-  n=60;
-  U = linspace(0,3*%pi,n);
-  v = linspace(0,2*%pi,20);
-
-  u = U(1:20);
-  X = (cos(u).*u)'*(1+cos(v)/2);
-  Y = (u/2)'*sin(v);
-  Z = (sin(u).*u)'*(1+cos(v)/2);
-
-  curFig.color_map = coppercolormap(colormapSize);
-  
-  [xx,yy,zz]=nf3d(X,Y,Z);//build facets
-
-
-  // generate colors
-  // colors depending on z, between 1 and colormap size
-  facetsColors = computeFacetsColor(xx, yy, zz, colormapSize);
-
-
-  //Creates and set graphical entities which represent the surface
-  //--------------------------------------------------------------
-
-  plot3d(xx,yy,list(zz,facetsColors)) //creates a Fac3d entity
-  e = gce();
-  data=e.data;
-  title("shell","fontsize",3)
-
-  curAxe=gca();
-  // set 3D boundaries
-  curAxe.data_bounds=[-15 -5 -10; 10  5  12];
-  //set view angles
-  curAxe.rotation_angles=[103 138];
-  curAxe.isoView = "on";
-
-  drawnow();
-
-
-  //animation loop
-  //--------------
-  //use realtime to slow down the loop
-  K=20:4:n;
-  realtimeinit(0.1);//set time step (0.1 seconds)  and date reference
-  for k=2:size(K,'*')
-    
-    if ~is_handle_valid(curFig) then
-      break;
-    end
-
-    realtime(k);
-    
-    drawlater();
-
-    //compute more facets
-    u=U(K(k-1):K(k));
-    X= (cos(u).*u)'*(1+cos(v)/2);
-    Y= (u/2)'*sin(v);
-    Z= (sin(u).*u)'*(1+cos(v)/2);
-    [xx,yy,zz] = nf3d(X,Y,Z);//build facets
-
-    //append new facets to the data data structure
-    data.x=[data.x xx];
-    data.y=[data.y yy];
-    data.z=[data.z zz];
-    data.color = [data.color, computeFacetsColor(xx, yy, zz, colormapSize)];
-
-    if is_handle_valid(e) then
-      e.data = data;// update the Fac3d entity
-    end
-
-    drawnow();
-  end
-
-  if is_handle_valid(curFig) then
-    delete(curFig);
-  end
-
-endfunction
-
-
-demo_anim7();
-clear demo_anim7;
\ No newline at end of file
+//\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) INRIA\r
+// Copyright (C) DIGITEO - 2010 - Allan CORNET\r
+//\r
+// This file is distributed under the same license as the Scilab package.\r
+//\r
+\r
+// =============================================================================\r
+// Demonstrate animation based on the dynamic of a chain\r
+// =============================================================================\r
+\r
+function demo_anim7()\r
+\r
+  // compute color of a set of facets, relative to the distance to the origin\r
+  function [colors] = computeFacetsColor(xx, yy, zz, colormapSize)\r
+    nbFacets = size(xx);\r
+    colors = zeros(nbFacets(1), nbFacets(2));\r
+    for i=1:nbFacets(1)\r
+      for j=1:nbFacets(2)\r
+        colors(i,j) = norm([xx(i,j), yy(i,j), zz(i,j)]) * colormapSize / 15;\r
+      end\r
+    end\r
+\r
+  endfunction\r
+\r
+  curFig             = scf(100001);\r
+  clf(curFig,"reset");\r
+  demo_viewCode("anim7.sce");\r
+\r
+  show_window(); //raise the graphic window\r
+\r
+\r
+  //Create the data\r
+  //---------------\r
+  colormapSize = 128;\r
+  n=60;\r
+  U = linspace(0,3*%pi,n);\r
+  v = linspace(0,2*%pi,20);\r
+\r
+  u = U(1:20);\r
+  X = (cos(u).*u)'*(1+cos(v)/2);\r
+  Y = (u/2)'*sin(v);\r
+  Z = (sin(u).*u)'*(1+cos(v)/2);\r
+\r
+  curFig.color_map = coppercolormap(colormapSize);\r
+  \r
+  [xx,yy,zz]=nf3d(X,Y,Z);//build facets\r
+\r
+\r
+  // generate colors\r
+  // colors depending on z, between 1 and colormap size\r
+  facetsColors = computeFacetsColor(xx, yy, zz, colormapSize);\r
+\r
+\r
+  //Creates and set graphical entities which represent the surface\r
+  //--------------------------------------------------------------\r
+\r
+  plot3d(xx,yy,list(zz,facetsColors)) //creates a Fac3d entity\r
+  e = gce();\r
+  data=e.data;\r
+  title("shell","fontsize",3)\r
+\r
+  curAxe=gca();\r
+  // set 3D boundaries\r
+  curAxe.data_bounds=[-15 -5 -10; 10  5  12];\r
+  //set view angles\r
+  curAxe.rotation_angles=[103 138];\r
+  curAxe.isoView = "on";\r
+\r
+\r
+  //animation loop\r
+  //--------------\r
+  //use realtime to slow down the loop\r
+  K=20:4:n;\r
+  realtimeinit(0.1);//set time step (0.1 seconds)  and date reference\r
+  for k=2:size(K,'*')\r
+    \r
+    if ~is_handle_valid(curFig) then\r
+      break;\r
+    end\r
+\r
+    realtime(k);\r
+\r
+    //compute more facets\r
+    u=U(K(k-1):K(k));\r
+    X= (cos(u).*u)'*(1+cos(v)/2);\r
+    Y= (u/2)'*sin(v);\r
+    Z= (sin(u).*u)'*(1+cos(v)/2);\r
+    [xx,yy,zz] = nf3d(X,Y,Z);//build facets\r
+\r
+    //append new facets to the data data structure\r
+    data.x=[data.x xx];\r
+    data.y=[data.y yy];\r
+    data.z=[data.z zz];\r
+    data.color = [data.color, computeFacetsColor(xx, yy, zz, colormapSize)];\r
+\r
+    if is_handle_valid(e) then\r
+      e.data = data;// update the Fac3d entity\r
+    end\r
+\r
+  end\r
+\r
+  if is_handle_valid(curFig) then\r
+    delete(curFig);\r
+  end\r
+\r
+endfunction\r
+\r
+\r
+demo_anim7();\r
+clear demo_anim7;\r\r