Changeset 3739 for branches/1.3/examples/zoo/mesh/mesh.m

Timestamp:

Jul 3, 2013 8:39:28 AM (11 years ago)

Author:

gah

Message:

bandaid R bindings for R 3.0.1

File:

• branches/1.3/examples/zoo/mesh/mesh.m (modified) (1 diff)

branches/1.3/examples/zoo/mesh/mesh.m

@@ -13 +13 @@
 
 switch meshtype 
-  case 'unirect2d' 
-    mesh = 'output.unirect2d';
-    rpLibPutString(lib, 'output.unirect2d.about.label', \
-                   'unirect2d mesh (deprecated)', 0);
-    rpLibPutString(lib, 'output.unirect2d.dim', '2', 0);
-    rpLibPutString(lib, 'output.unirect2d.units', 'm', 0);
-    rpLibPutString(lib, 'output.unirect2d.hide', 'yes', 0);
-
-    % Create a unirect2d mesh.  The mesh will be used in the 'field'
-    % object below. We will specify a mesh and then provide the data
-    % points to the field.
-
-    rpLibPutString(lib, 'output.unirect2d.xaxis.label', 'Fermi-Dirac Factor',0);
-    rpLibPutString(lib, 'output.unirect2d.yaxis.label', 'Energy', 0);
-
-    % The uniform grid that we are specifying is a mesh of 50 points on
-    % the x-axis and 50 points on the y-axis.  The 50 points are
-    % equidistant between 0.0 and 1.0
-
-    % Specify the x-axis of the mesh
-    rpLibPutString(lib, 'output.unirect2d.xaxis.min', '0.0', 0);
-    rpLibPutString(lib, 'output.unirect2d.xaxis.max', '1.0', 0);
-    rpLibPutString(lib, 'output.unirect2d.xaxis.numpoints', '50', 0);
-    
-    % Specify the y-axis of the mesh
-    rpLibPutString(lib, 'output.unirect2d.yaxis.min', '0.0', 0);
-    rpLibPutString(lib, 'output.unirect2d.yaxis.max', '1.0', 0);
-    rpLibPutString(lib, 'output.unirect2d.yaxis.numpoints', '50', 0);
-
-  case 'oldcloud' 
-    mesh = 'output.cloud';
-    rpLibPutString(lib, 'output.cloud.about.label', 'cloud (deprecated)', 0);
-    rpLibPutString(lib, 'output.cloud.dim', '2', 0);
-    rpLibPutString(lib, 'output.cloud.units', 'm', 0);
-    rpLibPutString(lib, 'output.cloud.hide', 'yes', 0);
-
-    xv = linspace(0, 1, 50)
-    for i = 1:50
-      for j = 1:50
-        string = sprintf('%12g  %12g\n', xv(i), xv(j));
-        rpLibPutString(lib, 'output.cloud.points', string, 1);
-      endfor
-    endfor
-
   case 'cloud' 
     mesh = 'output.mesh';