test_vmesh

(tmp_for_tar/vrml.doc/test_vmesh.m)

Help text

 Test vmesh.m

 Last modified: December 2000

Listing of file tmp_for_tar/vrml.doc/test_vmesh.m

##
## Test vmesh.m


## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: December 2000

R = 21;
C = 13;

[x,y] = meshgrid (linspace (-1,1,C), linspace (-1,1,R));

z = (cos (x*2*pi) + y.^2)/3;
z(3,3) = nan;			# Bore a hole
				# Bore more holes
z(1+floor(rand(1,5)*R*C)) = nan;

				# Try texture as a file, an "ims" or a
				# matrix. 
tex = "octave-mylib/tools/imgio/test_images/test_col.xpm";
## tex = ims_load ("octave-mylib/tools/imgio/test_images/test_col.jpg");
## tex = kron (ones (4),eye(2));

vmesh (z,"tex",tex);