[Octave-cvsupdate] SF.net SVN: octave:[10678] trunk/octave-forge/main/vrml/inst/vrml_Shape.m

[<et...@us...>]

Revision: 10678
          http://octave.svn.sourceforge.net/octave/?rev=10678&view=rev
Author:   etienne
Date:     2012-06-24 05:35:16 +0000 (Sun, 24 Jun 2012)
Log Message:
-----------
Fill in vrml_Shape

Added Paths:
-----------
    trunk/octave-forge/main/vrml/inst/vrml_Shape.m

Added: trunk/octave-forge/main/vrml/inst/vrml_Shape.m
===================================================================
--- trunk/octave-forge/main/vrml/inst/vrml_Shape.m	                        (rev 0)
+++ trunk/octave-forge/main/vrml/inst/vrml_Shape.m	2012-06-24 05:35:16 UTC (rev 10678)
@@ -0,0 +1,45 @@
+## Copyright (C) 2012 Etienne Grossmann <et...@eg...>
+##
+## This program is free software; you can redistribute it and/or modify it under
+## the terms of the GNU General Public License as published by the Free Software
+## Foundation; either version 3 of the License, or (at your option) any later
+## version.
+##
+## This program is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+## details.
+##
+## You should have received a copy of the GNU General Public License along with
+## this program; if not, see <http://www.gnu.org/licenses/>.
+##
+## s = vrml_Shape (s_geometry, s_appearance) - VRML code for a shape node
+##
+## Example: An orange flat box
+## 
+##  vrml_browse (vrml_Shape (vrml_Box ([3 2 0.2]),vrml_material([1 .5 0])))
+function s = vrml_Shape (s_geometry, s_appearance)
+
+if nargin < 1, s_geometry =   ""; end
+if nargin < 2, s_appearance = ""; end
+
+if !isempty (s_geometry),
+  s_geometry = ["\n  geometry ",s_geometry];
+end
+if !isempty (s_appearance),
+
+				# Check whether a "material" is passed. If yes,
+				# wrap it in an Appearance
+  is_material = strfind (s_appearance,"material");
+  if !isempty (is_material), 
+    is_material = is_material(1) != 1 || all (s_appearance(1:is_material(1)-1) == " ");
+  end
+  if is_material
+    s_appearance = ["Appearance {\n",s_appearance,"}\n"];
+  end
+
+  s_appearance = ["\n  appearance ",s_appearance];
+
+end
+
+s = ["Shape {",s_appearance,s_geometry,"}\n"];

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.