Description: Replace deprecated functions finite and findstr by isfinite and strfind
Author: Rafael Laboissière <rafael@debian.org>
Forwarded: https://savannah.gnu.org/bugs/index.php?66898
Last-Update: 2025-03-11

--- octave-vrml-1.0.14.orig/inst/save_vrml.m
+++ octave-vrml-1.0.14/inst/save_vrml.m
@@ -91,8 +91,8 @@ while --args,
 end
 bg_node = [bg_node, lightstr];
 ## No path.
-if findstr(outname,"/"),
-  outname = outname(max(findstr(outname,"/"))+1:size(outname,2)) ;
+if strfind(outname,"/"),
+  outname = outname(max(strfind(outname,"/"))+1:size(outname,2)) ;
 end
 
 if append, fid = fopen(fname,"at");		# Saving.
--- octave-vrml-1.0.14.orig/inst/vrml_surf.m
+++ octave-vrml-1.0.14/inst/vrml_surf.m
@@ -267,7 +267,7 @@ end
 
 pts = [x(:)';y(:)';z(:)'];
 
-keepp = all (!isnan(pts) & finite(pts)) ;
+keepp = all (!isnan(pts) & isfinite(pts)) ;
 keepip = find (keepp);
 if tex
   [texX,texY] = meshgrid (linspace (0,1,C), linspace (0,1,R));
--- octave-vrml-1.0.14.orig/inst/vrml_thick_surf.m
+++ octave-vrml-1.0.14/inst/vrml_thick_surf.m
@@ -90,7 +90,7 @@ if any (size (y) == 1), y = y(:)*ones(1,
 
 pts = [x(:)';y(:)';z(:)'];
 
-keepp = all (!isnan(pts) & finite(pts)) ;
+keepp = all (!isnan(pts) & isfinite(pts)) ;
 
 trgs = zeros(3,4*(R-1)*(C-1)) ;