<pre style='margin:0'>
Marius Schamschula (Schamschula) pushed a commit to branch master
in repository macports-ports.
</pre>
<p><a href="https://github.com/macports/macports-ports/commit/291be68bc9a5b334143b4cee76b19b3ff16133c0">https://github.com/macports/macports-ports/commit/291be68bc9a5b334143b4cee76b19b3ff16133c0</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new 291be68bc9a octave-vrml: update to 1.0.14
</span>291be68bc9a is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 291be68bc9a5b334143b4cee76b19b3ff16133c0
</span>Author: Marius Schamschula <mschamschula@gmail.com>
AuthorDate: Tue Feb 11 05:50:24 2025 -0600
<span style='display:block; white-space:pre;color:#404040;'> octave-vrml: update to 1.0.14
</span>---
octave/octave-vrml/Portfile | 12 +-
octave/octave-vrml/files/patch-octave9.diff | 1220 ---------------------------
2 files changed, 4 insertions(+), 1228 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/octave/octave-vrml/Portfile b/octave/octave-vrml/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index fefa09f3462..0151ed9b779 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/octave/octave-vrml/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/octave/octave-vrml/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3,7 +3,7 @@
</span> PortSystem 1.0
PortGroup octave 1.0
<span style='display:block; white-space:pre;background:#ffe0e0;'>-octave.setup sourceforge octave vrml 1.0.13
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+octave.setup sourceforge octave vrml 1.0.14
</span> revision 6
platforms darwin
license GPL-3+ GFDL
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -11,9 +11,9 @@ maintainers {mps @Schamschula} openmaintainer
</span> description 3D graphics using VRML.
long_description {*}${description}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-checksums rmd160 c07aa8303d29ccdee00c92271088dd9bc3c11267 \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sha256 c45357d47382b22a37dded72888c34a3839ff608baedbfea11ed2950c21ca9d7 \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- size 1115406
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+checksums rmd160 4616ce7fc3c9eee49b3dbe9713102a6e23187db8 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ sha256 55f8f44360b23a2ec2ae98594a5d745efed0c534af59d1a4d186be4a27b0a95e \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ size 1117413
</span>
supported_archs noarch
platforms {darwin any}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -22,7 +22,3 @@ depends_lib-append port:octave-linear-algebra \
</span> port:octave-miscellaneous \
port:octave-struct \
port:octave-statistics
<span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# See https://trac.macports.org/ticket/70167
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# and https://savannah.gnu.org/bugs/?65302
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-patchfiles patch-octave9.diff
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/octave/octave-vrml/files/patch-octave9.diff b/octave/octave-vrml/files/patch-octave9.diff
</span>deleted file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 5dd770cd6b4..00000000000
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/octave/octave-vrml/files/patch-octave9.diff
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,1220 +0,0 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-Description: Adjust ode for Octave 9
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- The continuation lines with '\' has been deprecated since Octave 7.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- In Octave 9, only '...' is allowed.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-Author: Rafael Laboissière <rafael@debian.org>
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-Forwarded: no
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-Last-Update: 2024-02-13
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/best_dir_cov.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/best_dir_cov.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -88,10 +88,10 @@ tmp = zeros(D,D*P) ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # wrt. d and x
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- for i=1:D,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ## d2wx(W+i,(i-1)*P+1:i*P) = \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ## d2wx(W+i,(i-1)*P+1:i*P) = ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## 2*x'*(kron(y(i,:))
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- d2wx(W+i,:) = \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- 2*x'*kron(y(i,:),kron(d,isig)) - \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ d2wx(W+i,:) = ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ 2*x'*kron(y(i,:),kron(d,isig)) - ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- w'*a'*isig*kron(y(i,:),eye(P)) ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/save_vrml.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/save_vrml.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -54,15 +54,15 @@ l_direction = [0.57735 -0.57735 0.577
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- bg_node = sprintf (["Background {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " skyColor %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- bg_col);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- bg_node = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--lightstr = sprintf (["PointLight {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " intensity %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ambientIntensity %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " direction %8.3g %8.3g %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+lightstr = sprintf (["PointLight {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " intensity %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ambientIntensity %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " direction %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- l_intensity, l_ambientIntensity, l_direction);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- lightstr = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/test_moving_surf.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/test_moving_surf.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -59,7 +59,7 @@ if 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s4 = vrml_anim ("Coordinate",[a,b,a],"foo.set_point",[0 0.5 1],tn);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s3 = vrml_faces ([-1 -1 1 1;-1 1 1 -1;0.1 0.1 0.1 0.1],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s3 = vrml_faces ([-1 -1 1 1;-1 1 1 -1;0.1 0.1 0.1 0.1],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- {[1 2 3 4]},"tran",0.4,"col",[0.9 0.4 0.4]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_browse ([s1,s2,s3,s4])
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/test_vmesh.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/test_vmesh.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -46,14 +46,14 @@ vmesh (z);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf ("Press a key.\n"); pause;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf (["The same surface, with checkered stripes ",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf (["The same surface, with checkered stripes ",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "(see the 'checker' option).\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vmesh (z,"checker",-[6,5]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf ("Press a key.\n"); pause;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf (["The same surface, with z-dependent coloring (see 'zrb', 'zgrey'\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf (["The same surface, with z-dependent coloring (see 'zrb', 'zgrey'\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " and 'zcol' options)\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vmesh (z,"zrb");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/test_vrml_faces.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/test_vrml_faces.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -36,7 +36,7 @@ if 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf ("Going to show a tetrahedron\n");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf (["\n If nothing appears, it may be due to problems",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf (["\n If nothing appears, it may be due to problems",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "\n with your FreeWRL installation\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_browse ([slight, s1]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf ("Press a key in this terminal when done\n");pause;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -47,7 +47,7 @@ if 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf ("Going to show almost the same tetrahedron\n");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf (["\n If nothing appears, it may be due to problems",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf (["\n If nothing appears, it may be due to problems",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "\n with your FreeWRL installation\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_browse ([slight, s1]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf ("Press a key in this terminal when done\n");pause;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -104,15 +104,15 @@ if 0
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s1 = vrml_faces (x, trg, "tex",texfile,"imsz",[H,W]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s2 = vrml_faces (x, trg, "tex",texfile);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf (["Tetrahedrons should appear like (R=red, G=green, B=blue)\n\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " R 2\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " /\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " / G\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " G B /\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " 3--------4 B\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " R B \\\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " \\ R\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " G \\\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf (["Tetrahedrons should appear like (R=red, G=green, B=blue)\n\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " R 2\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " /\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " / G\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " G B /\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " 3--------4 B\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " R B \\\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " \\ R\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " G \\\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " 1\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_browse ([slight, s1, vrml_transfo(s2,[2,0,0])]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vmesh.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vmesh.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -108,7 +108,7 @@ surf_args = {x,y,z}; # Arguments that'll
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if numel (varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- op1 = [" tran col checker creaseAngle emit colorPerVertex tex zcol frame ",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ op1 = [" tran col checker creaseAngle emit colorPerVertex tex zcol frame ",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " level lcol ltran bwid "];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- op0 = " smooth zgray zrb normalize steps bars ";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -117,11 +117,11 @@ if numel (varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- opts = read_options (varargin,"op0",op0,"op1",op1,"default",df);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # Identify options for vrml_surf()
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--# all_surf_opts = list ("tran", "col", "checker", "creaseAngle", "emit", \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--# "colorPerVertex", "smooth", "tex",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+# all_surf_opts = list ("tran", "col", "checker", "creaseAngle", "emit", ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+# "colorPerVertex", "smooth", "tex",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # "zgray","zrb","zcol");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- all_surf_opts = {"tran", "col", "checker", "creaseAngle", "emit", \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "colorPerVertex", "smooth", "steps", "bars", "bwid", "tex",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ all_surf_opts = {"tran", "col", "checker", "creaseAngle", "emit", ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "colorPerVertex", "smooth", "steps", "bars", "bwid", "tex",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "zgray","zrb","zcol"};
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- for i = 1:length(all_surf_opts)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -187,16 +187,16 @@ pt2 = pts(:,ii); x2 = x(ii); y2 = y(ii);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # pl = [pl1 pl2];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--pl = [vrml_DirectionalLight("direction",[-1,-1,-1],"intensity",0.75),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_DirectionalLight("direction",[-1, 1,-1],"intensity",0.5),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_DirectionalLight("direction",[ 1,-1,-1],"intensity",0.5),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_DirectionalLight("direction",[ 1, 1,-1],"intensity",0.33),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+pl = [vrml_DirectionalLight("direction",[-1,-1,-1],"intensity",0.75),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_DirectionalLight("direction",[-1, 1,-1],"intensity",0.5),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_DirectionalLight("direction",[ 1,-1,-1],"intensity",0.5),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_DirectionalLight("direction",[ 1, 1,-1],"intensity",0.33),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_DirectionalLight("direction",[ 0, 0, 1],"intensity",0.5)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--# distance = max ([max (x(:)) - min (x(:)),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--# max (y(:)) - min (y(:)),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+# distance = max ([max (x(:)) - min (x(:)),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+# max (y(:)) - min (y(:)),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # max (z(:)) - min (z(:))])
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--# vp = vrml_Viewpoint ("orientation", [1 0 0 -pi/6],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+# vp = vrml_Viewpoint ("orientation", [1 0 0 -pi/6],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # "position", distance*[0 0 5]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- minpts = min (pt2');
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -205,7 +205,7 @@ medpts = (minpts + maxpts)/2;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ptssz = (maxpts - minpts);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ptssz = max (ptssz, max (ptssz/10));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--if frame, fr = vrml_frame (minpts-ptssz/10,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+if frame, fr = vrml_frame (minpts-ptssz/10,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "scale", ptssz * 1.2, "col",(ones(3)+eye(3))/2);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else fr = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -235,10 +235,10 @@ if ! isempty (level)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if prod (size (ltran)) == 1 , ltran = ltran*ones(1,nlev); end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- for i = 1:nlev
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- slevel = [slevel, \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_parallelogram([xmin xmin xmax xmax;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ymin ymax ymax ymin;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- level(i) level(i) level(i) level(i)],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ slevel = [slevel, ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_parallelogram([xmin xmin xmax xmax;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ymin ymax ymax ymin;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ level(i) level(i) level(i) level(i)],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "col",lcol(i,:),"tran",ltran(i))];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_DirectionalLight.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_DirectionalLight.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -39,10 +39,10 @@ for k=1:2:nargin,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- hash = setfield(hash,varargin{k:k+1});
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--tpl = struct ("ambientIntensity", "%8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "intensity", "%8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "direction", "%8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "on", "%s",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+tpl = struct ("ambientIntensity", "%8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "intensity", "%8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "direction", "%8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "on", "%s",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "color", "%8.3f %8.3f %8.3f");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- body = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -55,7 +55,7 @@ for [val,key] = hash,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- error (sprintf ("vrml_PointLight : unknown field '%s'",key));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- body = [body,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ body = [body,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf(" %-20s %s\n",key,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf(getfield (tpl,key), val))];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_PointLight.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_PointLight.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -40,12 +40,12 @@ function s = vrml_PointLight (varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if mod(nargin,2) != 0, print_usage; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- h = struct (varargin{:});
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--tpl = struct ("ambientIntensity", "%8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "intensity", "%8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "radius", "%8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "on", "%s",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "attenuation", "%8.3f %8.3f %8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "color", "%8.3f %8.3f %8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+tpl = struct ("ambientIntensity", "%8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "intensity", "%8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "radius", "%8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "on", "%s",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "attenuation", "%8.3f %8.3f %8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "color", "%8.3f %8.3f %8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "location", "%8.3f %8.3f %8.3f");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- body = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -61,8 +61,8 @@ for [val,key] = h,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- body = [body,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- sprintf(" %-20s %s\n",key, \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ body = [body,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ sprintf(" %-20s %s\n",key, ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf (getfield (tpl,key), val))];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_TimeSensor.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_TimeSensor.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -42,10 +42,10 @@ function s = vrml_TimeSensor (varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- verbose = 0;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--tpl = struct ("cycleInterval", "SFTime",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--"startTime", "SFTime",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--"stopTime", "SFTime",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--"enabled", "SFBool",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+tpl = struct ("cycleInterval", "SFTime",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+"startTime", "SFTime",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+"stopTime", "SFTime",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+"enabled", "SFBool",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "loop", "SFBool"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- );
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -55,7 +55,7 @@ dnode = struct ();
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # Transform varargin into key-value pairs
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- i = j = k = 1; # i:pos in new varargin, j:pos in headpar,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # k:pos is old varargin.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--while i <= length (varargin) && \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+while i <= length (varargin) && ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ! (ischar (varargin{i}) && isfield (tpl, varargin{i}))
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if j <= length (headpar)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -70,7 +70,7 @@ while i <= length (varargin) && \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- i += 2;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- k++;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- error ("vrml_TimeSensor : Argument %i should be string, not '%s'",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ error ("vrml_TimeSensor : Argument %i should be string, not '%s'",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- k,typeinfo (varargin{i}));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -86,11 +86,11 @@ while i < length (varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- k = varargin{i++}; # Read key
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if ! ischar (k)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- error ("vrml_TimeSensor : Arg n. %i should be a string, not a %s.",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ error ("vrml_TimeSensor : Arg n. %i should be a string, not a %s.",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- i-1, typeinfo (k));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if ! isfield (tpl, k) && ! strcmp (k,"DEF")
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- error ("vrml_TimeSensor : Unknown field '%s'. Should be one of :\n%s",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ error ("vrml_TimeSensor : Unknown field '%s'. Should be one of :\n%s",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- k, sprintf (" '%s'\n",fieldnames (tpl)'{:}));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -107,7 +107,7 @@ while i < length (varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else # Add data field
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if verbose
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf ("vrml_TimeSensor : Adding '%s' of type %s, with arg of type %s\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf ("vrml_TimeSensor : Adding '%s' of type %s, with arg of type %s\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- k,getfield(tpl,k),typeinfo (v));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- tmp = getfield(tpl,k);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_Viewpoint.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_Viewpoint.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -42,12 +42,12 @@ if mod(nargin,2) != 0, print_usage; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- h = struct (varargin{:});
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--tpl = struct ("fieldOfView", "%8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "jump", "%s",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "orientation", "%8.3f %8.3f %8.3f %8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "orientation0", "%8.3f %8.3f %8.3f %8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "position", "%8.3f %8.3f %8.3f",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "description", "\"%s\"",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+tpl = struct ("fieldOfView", "%8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "jump", "%s",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "orientation", "%8.3f %8.3f %8.3f %8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "orientation0", "%8.3f %8.3f %8.3f %8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "position", "%8.3f %8.3f %8.3f",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "description", "\"%s\"",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "DEF", "");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEF = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- defaultPos = [0 0 10];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -113,8 +113,8 @@ endif
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- body = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- for [val, key] = h
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- body = [body,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- sprintf(" %-20s %s\n",key, \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ body = [body,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ sprintf(" %-20s %s\n",key, ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf (getfield (tpl,key), val))];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_arrow.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_arrow.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -76,43 +76,43 @@ endfor
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- smat1 = vrml_material (col(:,1), emit);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- smat2 = vrml_material (col(:,2), emit);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--v = sprintf (["Group {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Transform {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " translation %8.3g %8.3g %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- smat1,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n"\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry Cylinder {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " radius %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " height %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Transform {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " translation %8.3g %8.3g %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- smat2,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry Cone { \n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " bottomRadius %8.3g \n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " height %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- [0,(sz(1)-sz(2))/2,0],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- sz(4),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- sz(1)-sz(2),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- [0,sz(2)/2+sz(1)-sz(2),0],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- sz(3),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+v = sprintf (["Group {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Transform {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " translation %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ smat1,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n"...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry Cylinder {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " radius %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " height %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Transform {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " translation %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ smat2,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry Cone { \n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " bottomRadius %8.3g \n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " height %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ [0,(sz(1)-sz(2))/2,0],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ sz(4),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ sz(1)-sz(2),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ [0,sz(2)/2+sz(1)-sz(2),0],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ sz(3),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sz(2));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- endfunction
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_browse.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_browse.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -113,7 +113,7 @@ if vrml_b_pid > 0 # There's already a b
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if verbose
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf ( ["vrml_browse : ",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf ( ["vrml_browse : ",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "browser pid=%d died. I'll spawn another\n"], vrml_b_pid);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_b_pid = -1 ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -138,10 +138,10 @@ if !length (s)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- x /= 4 ; y /= 4 ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## pix = ones (n) ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ## tmp = [1 0 0 1 1 1 0 0 1 1 0 0 0 0 0 1 1 0 0 1 1 1 0 1 0 1 1 0 0 0 ;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ## 0 1 1 0 1 0 1 1 0 1 1 1 0 1 1 1 0 1 1 0 1 1 0 1 0 1 1 0 1 1 ;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ## 0 1 1 0 1 0 1 1 1 1 1 1 0 1 1 1 0 1 1 0 1 1 0 1 0 1 1 0 0 0 ;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ## 0 1 1 0 1 0 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 1 0 1 0 1 1 0 1 1 ;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ## tmp = [1 0 0 1 1 1 0 0 1 1 0 0 0 0 0 1 1 0 0 1 1 1 0 1 0 1 1 0 0 0 ;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ## 0 1 1 0 1 0 1 1 0 1 1 1 0 1 1 1 0 1 1 0 1 1 0 1 0 1 1 0 1 1 ;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ## 0 1 1 0 1 0 1 1 1 1 1 1 0 1 1 1 0 1 1 0 1 1 0 1 0 1 1 0 0 0 ;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ## 0 1 1 0 1 0 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 1 0 1 0 1 1 0 1 1 ;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## 1 0 0 1 1 1 0 0 1 1 1 1 0 1 1 1 0 1 1 0 1 1 1 0 1 1 1 0 0 0 ];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## rtmp = rows(tmp)+2;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -194,7 +194,7 @@ if vrml_b_pid <= 0
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## cmd
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if status,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf("vrml_browse : Can't start browser '%s'. Is it installed?\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf("vrml_browse : Can't start browser '%s'. Is it installed?\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_b_name);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- p = vrml_b_pid ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- return ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_cyl.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_cyl.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -48,7 +48,7 @@ if nargin > 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- op1 = " rad tran col hcol brad emit " ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- op0 = " verbose balls noemit arrow " ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- df = tars (rad, tran, col, hcol, verbose, balls, noemit, arrow, brad, \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ df = tars (rad, tran, col, hcol, verbose, balls, noemit, arrow, brad, ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- emit);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -97,36 +97,36 @@ for i = 2:N
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- smat = vrml_material (col(:,i-1), emitcol(:,i-1), tran(i-1));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # Do a cylinder
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = [s,sprintf(["Transform {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " translation %8.3f %8.3f %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Transform {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " rotation %8.3f %8.3f %8.3f %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " %s",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry Cylinder {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " height %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " radius %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- t,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ax,an,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- smat,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- n,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = [s,sprintf(["Transform {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " translation %8.3f %8.3f %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Transform {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " rotation %8.3f %8.3f %8.3f %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " %s",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry Cylinder {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " height %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " radius %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ t,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ax,an,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ smat,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ n,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- rad)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- t = x(:,i-1) ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if isnan (hcol), hcol = col(:,i); end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- arrowcol = [col(:,i) hcol(1:3)(:)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = [s,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_transfo(vrml_arrow ([n,nan,2*rad/n,rad/n],arrowcol,emit),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = [s,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_transfo(vrml_arrow ([n,nan,2*rad/n,rad/n],arrowcol,emit),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- t, ax*an)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -137,7 +137,7 @@ if balls,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = [s, vrml_points(x,"balls","col",col, "rad",brad,"emit",emit)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- elseif columns(x)>2,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # Make a rounded junction
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = [s, vrml_points(x(:,2:columns(x)-1),"balls","col",col,"rad",rad, \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = [s, vrml_points(x(:,2:columns(x)-1),"balls","col",col,"rad",rad, ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "emit", emit)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_demo_tutorial_1.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_demo_tutorial_1.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -13,19 +13,19 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## You should have received a copy of the GNU General Public License along with
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## this program; if not, see <http://www.gnu.org/licenses/>.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf (["\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " VRML Mini-HOWTO's first listing\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf (["\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " VRML Mini-HOWTO's first listing\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " Display a quadratic surface w/ 31 x 31 points\n\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " q : quit\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " w : switch to walk mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " e : switch to examine mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " h : toggle headlights on or off\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag left mouse : rotate (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag right mouse : zoom (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " q : quit\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " w : switch to walk mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " e : switch to examine mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " h : toggle headlights on or off\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag left mouse : rotate (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag right mouse : zoom (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## Listing 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_demo_tutorial_2.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_demo_tutorial_2.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -16,19 +16,19 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf("vrml_select_points does not work any more. Sorry\n");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- return
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf (["\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " VRML Mini-HOWTO's second listing\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf (["\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " VRML Mini-HOWTO's second listing\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " Show 3D points and select some with the mouse\n\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " q : quit\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " w : switch to walk mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " e : switch to examine mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag left mouse : rotate (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag right mouse : zoom (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " click on box : toggle selection\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " q : quit\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " w : switch to walk mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " e : switch to examine mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag left mouse : rotate (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag right mouse : zoom (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " click on box : toggle selection\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## Listing 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_demo_tutorial_3.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_demo_tutorial_3.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -13,18 +13,18 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## You should have received a copy of the GNU General Public License along with
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## this program; if not, see <http://www.gnu.org/licenses/>.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf (["\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " VRML Mini-HOWTO's second listing\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf (["\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " VRML Mini-HOWTO's second listing\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " Show a XYZ frame with a background\n\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " q : quit\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " w : switch to walk mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " e : switch to examine mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag left mouse : rotate (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag right mouse : zoom (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " q : quit\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " w : switch to walk mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " e : switch to examine mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag left mouse : rotate (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag right mouse : zoom (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## Listing 3
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_demo_tutorial_4.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_demo_tutorial_4.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -13,19 +13,19 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## You should have received a copy of the GNU General Public License along with
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## this program; if not, see <http://www.gnu.org/licenses/>.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf (["\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " VRML Mini-HOWTO's second listing\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf (["\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " VRML Mini-HOWTO's second listing\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " Show a helix of ellipsoids and one consisting of cylinders\n\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " q : quit\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " w : switch to walk mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " e : switch to examine mode\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " h : toggle headlights on or off\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag left mouse : rotate (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " drag right mouse : zoom (examine mode) or translate\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " (walk mode).\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+printf ([" Reminder of FreeWRL keystrokes and mouse actions :\n"...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " q : quit\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " w : switch to walk mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " e : switch to examine mode\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " h : toggle headlights on or off\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag left mouse : rotate (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " drag right mouse : zoom (examine mode) or translate\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " (walk mode).\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "\n"]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## Listing 4
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_ellipsoid.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_ellipsoid.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -48,26 +48,26 @@ d(find(d)) = 1 ./ nze (d) ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- [r,a] = rotparams (u');
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--v = sprintf (["Transform {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " translation 0 0 0\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " rotation %8.3g %8.3g %8.3g %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " scale %8.3g %8.3g %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " material Material {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " diffuseColor %8.3g %8.3g %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " emissiveColor %8.3g %8.3g %8.3g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry Sphere {}\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- r,a,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- d,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+v = sprintf (["Transform {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " translation 0 0 0\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " rotation %8.3g %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " scale %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " material Material {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " diffuseColor %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " emissiveColor %8.3g %8.3g %8.3g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry Sphere {}\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ r,a,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ d,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- col/20);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- endfunction
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_faces.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_faces.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -153,11 +153,11 @@ function s = vrml_faces (x,f,varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- texcoord_point_str = sprintf (" %8.5f %8.5f\n", tcoord);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col_str_2 = sprintf ([" texCoord TextureCoordinate {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " point [\n %s]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n"\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- texcoord_point_str\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col_str_2 = sprintf ([" texCoord TextureCoordinate {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " point [\n %s]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n"...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ texcoord_point_str...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- );
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # If texture has been provided
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -187,14 +187,14 @@ function s = vrml_faces (x,f,varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- tcoord = tcoord (:,1:3*nfaces);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col_str_2 = sprintf ([" texCoord TextureCoordinate {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " point [\n %s]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " texCoordIndex [\n %s]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " coordIndex [\n %s]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- sprintf ("%10.8f %10.8f,\n ",tcoord),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- sprintf ("%-4d, %-4d, %-4d, -1,\n ",0:3*nfaces-1),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col_str_2 = sprintf ([" texCoord TextureCoordinate {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " point [\n %s]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " texCoordIndex [\n %s]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " coordIndex [\n %s]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ sprintf ("%10.8f %10.8f,\n ",tcoord),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ sprintf ("%-4d, %-4d, %-4d, -1,\n ",0:3*nfaces-1),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf ("%-4d, %-4d, %-4d, -1,\n ",f-1)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- );
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -205,7 +205,7 @@ function s = vrml_faces (x,f,varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # surface
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- col_str_1 = [" appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_material(col, emit, tran,DEFcol),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_material(col, emit, tran,DEFcol),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " }\n"];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- col_str_2 = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -219,7 +219,7 @@ function s = vrml_faces (x,f,varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if tran, ts = sprintf ("transparency %8.3f",tran);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else ts = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col_str_1 = ["appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col_str_1 = ["appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " material Material {",ts,"}\n}\n"];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if isnan (colorPerVertex)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -229,13 +229,13 @@ function s = vrml_faces (x,f,varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if colorPerVertex, cPVs = "TRUE"; else cPVs = "FALSE"; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col_str_2 = sprintf ([" colorPerVertex %s\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " color %s Color {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " color [\n%s\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- cPVs,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col_def_str,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col_str_2 = sprintf ([" colorPerVertex %s\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " color %s Color {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " color [\n%s\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ cPVs,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col_def_str,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf(" %8.3f %8.3f %8.3f,\n",col));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_frame.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_frame.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -65,12 +65,12 @@ if args
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- verbose = 0;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## df = tars (col, hcol, diam, scale, verbose);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- df = struct ("dc", dc, \ # Diameter of cone (absolute)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "dr", dr, \ # Diameter of rod (absolute)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "col", col, \ # Color
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "hcol", hcol, \ # Color of head (if different)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "diam", diam, \ # Diameter of cone relative to branch length
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "scale", scale, \ # Lenght of branches
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ df = struct ("dc", dc, ... # Diameter of cone (absolute)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "dr", dr, ... # Diameter of rod (absolute)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "col", col, ... # Color
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "hcol", hcol, ... # Color of head (if different)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "diam", diam, ... # Diameter of cone relative to branch length
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "scale", scale, ... # Lenght of branches
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "verbose",verbose);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- op1 = " col hcol diam scale dc dr ";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- op0 = " verbose ";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -127,17 +127,17 @@ sz(4,:) ./= n;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- tmp = [r2(:,1), null(r2(:,1)')](:,[2,1,3])';
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if det (tmp) < 0, tmp(3,:) *= -1; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--a1 = vrml_transfo (vrml_arrow(sz(:,1),[col(1,:);hcol(1,:)],0),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+a1 = vrml_transfo (vrml_arrow(sz(:,1),[col(1,:);hcol(1,:)],0),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- [0,0,0],tmp);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## keyboard
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- tmp = [r2(:,2), null(r2(:,2)')](:,[2,1,3])';
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if det (tmp) < 0, tmp(3,:) *= -1; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--a2 = vrml_transfo (vrml_arrow(sz(:,2),[col(2,:);hcol(2,:)],0),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+a2 = vrml_transfo (vrml_arrow(sz(:,2),[col(2,:);hcol(2,:)],0),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- [0,0,0],tmp);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- tmp = [r2(:,3), null(r2(:,3)')](:,[2,1,3])';
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if det (tmp) < 0, tmp(3,:) *= -1; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--a3 = vrml_transfo (vrml_arrow(sz(:,3),[col(3,:);hcol(3,:)],0),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+a3 = vrml_transfo (vrml_arrow(sz(:,3),[col(3,:);hcol(3,:)],0),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- [0,0,0],tmp);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- f0 = vrml_group (a1, a2, a3);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_group.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_group.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -34,11 +34,11 @@ end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ni = 4;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = [blanks(ni), strrep(s,"\n",["\n",blanks(ni)])(:)'];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--v = sprintf (["Group {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "%s",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+v = sprintf (["Group {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "%s",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- endfunction
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_interp.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_interp.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -45,12 +45,12 @@ persistent nname = struct ("col"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if isfield (nname, typ)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- typs = nname.(typ);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- elseif ischar(typ)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--# e2 = leval ("sprintf",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+# e2 = leval ("sprintf",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # append (list(" '%s'\n"), fieldnames (nname)));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- e2 = sprintf(" '%s'\n", fieldnames (nname){:});
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- error ("vrml_interp : Unknown type '%s'. Should be in:\n%s",typ,e2);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--# e2 = leval ("sprintf",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+# e2 = leval ("sprintf",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # append (list(" '%s;\n"), fieldnames (nname)));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- e2 = sprintf(" '%s'\n", fieldnames (nname){:});
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- error ("vrml_interp : typ should be a string in:\n%s",typ,e2);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_material.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_material.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -53,10 +53,10 @@ if isempty (DEF), sd = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else sd = ["DEF ",DEF];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--s = sprintf ([" material ",sd," Material {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- se,st,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " diffuseColor %8.3g %8.3g %8.3g \n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+s = sprintf ([" material ",sd," Material {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ se,st,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " diffuseColor %8.3g %8.3g %8.3g \n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- dc);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- endfunction
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_parallelepiped.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_parallelepiped.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -66,15 +66,15 @@ if balls
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--x = [bnds([1 2 2 1 1 2 2 1],1)';\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- bnds([1 1 2 2 1 1 2 2],2)';\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+x = [bnds([1 2 2 1 1 2 2 1],1)';...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ bnds([1 1 2 2 1 1 2 2],2)';...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- bnds([1 1 1 1 2 2 2 2],3)'];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--faces = [1 2 3 4;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- 5 6 7 8;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- 1 2 6 5;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- 2 3 7 6;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- 3 4 8 7;\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+faces = [1 2 3 4;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ 5 6 7 8;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ 1 2 6 5;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ 2 3 7 6;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ 3 4 8 7;...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- 4 1 5 8]';
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # The facet
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -99,8 +99,8 @@ if border
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if isnan (bocol), bocol = col; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if !balls # Make pretty junctions of cylinders
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = [s,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_cyl(x(:,[1:columns(x),1]),"rad",borad,"emit",boemit,"col",col),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = [s,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_cyl(x(:,[1:columns(x),1]),"rad",borad,"emit",boemit,"col",col),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_points(x(:,1),"balls","rad",borad,"emit",boemit,"col",col)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else # but only if balls don't cover them
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = [s,vrml_cyl(x(:,[1:columns(x),1]),"rad",borad,"emit",boemit)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_parallelogram.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_parallelogram.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -86,8 +86,8 @@ if border
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if isnan (bocol), bocol = col; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if !balls # Make pretty junctions of cylinders
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = [s,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_cyl(x(:,[1:columns(x),1]),"rad",borad,"emit",boemit,"col",col),\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = [s,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_cyl(x(:,[1:columns(x),1]),"rad",borad,"emit",boemit,"col",col),...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- vrml_points(x(:,1),"balls","rad",borad,"emit",boemit,"col",col)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else # but only if balls don't cover them
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = [s,vrml_cyl(x(:,[1:columns(x),1]),"rad",borad,"emit",boemit)];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_points.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_points.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -103,19 +103,19 @@ if !balls && !cubes && !nums,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if prod (size (col)) == 3*P # One color per point
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- smat = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- scol = sprintf (" color Color { color [\n %s]\n }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ scol = sprintf (" color Color { color [\n %s]\n }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf (" %8.3f %8.3f %8.3f\n", col));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else # One color
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- smat = [" appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_material(col, emit),"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ smat = [" appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_material(col, emit),"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " }\n"];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- scol = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = sprintf(["Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- smat,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry PointSet {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- scol,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = sprintf(["Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ smat,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry PointSet {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ scol,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- " coord DEF %s Coordinate {\n point [\n " ],name); # ]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -131,28 +131,28 @@ elseif nums,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = "";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if prod (size (col)) == 3, col = col(:) * ones (1,P); end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- for i = 1:P,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s0 = sprintf([\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "Transform {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " translation %10.6g %10.6g %10.6g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\ # ]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Billboard {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\ # ]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- vrml_material(col(:,i), emit, tran),"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry Text {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " string \"%s\"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " fontStyle FontStyle { size 0.25 }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n"],\ # [
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s0 = sprintf([...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "Transform {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " translation %10.6g %10.6g %10.6g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",... # ]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Billboard {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",... # ]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ vrml_material(col(:,i), emit, tran),"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry Text {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " string \"%s\"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " fontStyle FontStyle { size 0.25 }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n"],... # [
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- x(:,i),sprintf("%d",i-1));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## x(:,i),col,col,sprintf("%d",i-1));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ## " emissiveColor %8.3f %8.3f %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ## " emissiveColor %8.3f %8.3f %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## " axisOfRotation 0.0 0.0 0.0\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = sprintf("%s%s",s,s0);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -196,20 +196,20 @@ else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # nodes individually
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if ! all_same_col, colorstr = vrml_material (col(:,i), emit); end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s0 = sprintf([\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "Transform {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " translation %10.6g %10.6g %10.6g\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n",\ # ]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- colorstr,"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry ",shapestr,"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s0 = sprintf([...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "Transform {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " translation %10.6g %10.6g %10.6g\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n",... # ]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ colorstr,"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry ",shapestr,"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- x(:,i));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ## " emissiveColor %8.3f %8.3f %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ## " emissiveColor %8.3f %8.3f %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## x(:,i),col,col,shape);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = sprintf("%s%s",s,s0);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_surf.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_surf.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -118,7 +118,7 @@ if numel (varargin)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- op1 = " tran col creaseAngle emit colorPerVertex checker DEFcoord DEFcol zcol bwid tex ";
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- op0 = " smooth zgray zrb steps bars " ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- default = tars (tran, col, creaseAngle, emit, colorPerVertex, steps, bars, \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ default = tars (tran, col, creaseAngle, emit, colorPerVertex, steps, bars, ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- bwid, DEFcoord, DEFcol, zcol, smooth, checker, zgray, zrb, tex);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s = read_options (varargin,"op0",op0,"op1",op1,"default",default);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -374,7 +374,7 @@ if zgray || zrb || any (zcol(:)) # Treat
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ii = find (ci >= columns (zcol));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if ! isempty (ii), ci(ii) = columns (zcol) - 1; cw(ii) = 1; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- col = zeros (3,R*C);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col(:,keepip) = \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col(:,keepip) = ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- zcol(:,ci) .* ([1;1;1]*(1-cw)) + zcol(:,ci+1) .* ([1;1;1]*cw);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end # EOF zgray zrb and zcol options
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -419,8 +419,8 @@ if ! colorPerVertex
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- col = reshape (col,3, (R-1)*(C-1));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- col = [col, col];
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf(["vrml_surf : ",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " colorPerVertex==0, (R-1)*(C-1)==%i, but col has size [%i,%i]\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf(["vrml_surf : ",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " colorPerVertex==0, (R-1)*(C-1)==%i, but col has size [%i,%i]\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- R*C,size (col));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -441,9 +441,9 @@ if ! all(keepp),
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- keept = all (reshape(keepp(trgs),3,2*(R-1)*(C-1)));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- tmp = reshape (keepp,R,C);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- keept = \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- all (reshape (tmp(trgs(1:2,:)),2,2*(R-1)*(C-1))) & \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- [(tmp(1:R-1,2:C) | tmp(2:R,2:C))(:)', \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ keept = ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ all (reshape (tmp(trgs(1:2,:)),2,2*(R-1)*(C-1))) & ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ [(tmp(1:R-1,2:C) | tmp(2:R,2:C))(:)', ...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- (tmp(1:R-1,1:C-1) | tmp(2:R,1:C-1))(:)'] ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -473,10 +473,10 @@ if ! all(keepp),
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## printf ("Calling vrml_faces\n");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if !tex
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = vrml_faces (pts, trgs, "col", col,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "colorPerVertex",colorPerVertex,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "creaseAngle", creaseAngle,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "tran", tran, "emit", emit,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = vrml_faces (pts, trgs, "col", col,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "colorPerVertex",colorPerVertex,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "creaseAngle", creaseAngle,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "tran", tran, "emit", emit,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "DEFcoord",DEFcoord,"DEFcol",DEFcol);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- texXY = texXY(:,keepip);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -488,8 +488,8 @@ else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # texXY(:,trgs(:))
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # R, C
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # keyboard
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- s = vrml_faces (pts, trgs,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "tran", tran, "tex", tex, "tcoord", texXY,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ s = vrml_faces (pts, trgs,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "tran", tran, "tex", tex, "tcoord", texXY,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- "DEFcoord",DEFcoord,"DEFcol",DEFcol);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## printf ("Done\n");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_text.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_text.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -52,31 +52,31 @@ if nargin > 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- style= s.style;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- verbose= s.verbose;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--s = sprintf (["Shape {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " appearance Appearance {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " material Material {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " diffuseColor %8.3f %8.3f %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " emissiveColor %8.3f %8.3f %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " geometry Text {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " string \"%s\"\n"\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " fontStyle FontStyle {\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " family \"%s\"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " justify \"%s\"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " style \"%s\"\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " size %-8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " }\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- col,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- t,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- family,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- justify,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- style,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- size\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+s = sprintf (["Shape {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " appearance Appearance {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " material Material {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " diffuseColor %8.3f %8.3f %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " emissiveColor %8.3f %8.3f %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " geometry Text {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " string \"%s\"\n"...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " fontStyle FontStyle {\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " family \"%s\"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " justify \"%s\"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " style \"%s\"\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " size %-8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " }\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ col,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ t,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ family,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ justify,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ style,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ size...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- );
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- endfunction
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- inst/vrml_transfo.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ inst/vrml_transfo.m
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -75,8 +75,8 @@ else
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- error ("vrml_transfo : rotation should have size 3x3, 3 or 4\n");
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if verbose,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- printf (["vrml_transfo : %8.3f %8.3f %8.3f %8.3f\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " %8.3f %8.3f %8.3f\n"],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ printf (["vrml_transfo : %8.3f %8.3f %8.3f %8.3f\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " %8.3f %8.3f %8.3f\n"],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- axis,ang,t);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- printf ("length of string is %i\n",prod(size(s)));
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -103,11 +103,11 @@ if any (abs (c - c0)>sqrt (eps))
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if !isempty (DEF), sd = ["DEF ",DEF," "]; end
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--v = sprintf([sd,"Transform {\n",sr,st,ss,\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " children [\n%s\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- " ]\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- "}\n",\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ],\
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+v = sprintf([sd,"Transform {\n",sr,st,ss,...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " children [\n%s\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ " ]\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ "}\n",...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ],...
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- s) ;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ## keyboard
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span></pre><pre style='margin:0'>
</pre>