Re: [Update REQ 6192]: Question on Maple/Mma support

[daemon]

Though we don't have Maple V release 4 yet, we did recently receive
a patch that makes the geomview MapleVr3 converter work with r4.
As for implicitplot3d, it appears that Maple (Vr3 at least) leaves most of the
work to its graphical front-end, simply feeding it a grid of evaluated mesh
points and letting the front-end discover where the surface lies.  This would
be enough work that we're not very likely to do it, I think.
And though we have Mathematica 3.0, we haven't tried seeing what needs to be
fixed for the geomview converter to work with it.

Here's the gvplot.mapleV3 -> gvplot.mapleV4 patch.  If you don't have
the "patch" program, or have other trouble installing or using it, let us know.

>From loris at klein.math.fsu.edu Fri Mar 28 15:35:33 1997
Date: Fri, 28 Mar 1997 16:35:18 -0500
From: loris at klein.math.fsu.edu (Loris Renggli)
To: slevy at geom.umn.edu
Subject: geomview and Maple

I have made some modifications to "gvplot" for the release 4 of
Maple ("gvplot" that comes with geomview 1.6.1 is broken).

I include below a context diff between "--BEGIN--..." and "--END--..." lines.
(unix command:
    diff -bw -c gvplot.mapleV3 gvplot.mapleV4
)

--BEGIN----BEGIN----BEGIN----BEGIN----BEGIN----BEGIN----BEGIN----BEGIN--


*** gvplot.mapleV3	Sat Oct  5 13:43:06 1996
--- gvplot.mapleV4	Fri Mar 28 12:52:29 1997
***************
*** 23,29 ****
--- 23,32 ----
  ##				backwards compatable to Maple V
  ##	   	fjw   11/29/93	debugging; added color options
  ##
+ ##              lr (renggli at math.fsu.edu) 03/28/97
+ ##                   modifications for Maple VR4 (replaced gc() calls)
  ##
+ ##
  ##    Usage:   	readlib(gvplot);
  ##		  (optional) gvcommand := `geomview  initial-options ...`;
  ##		  (optional) gvdirectories := `/some/dir/ectory:/other/dir...`;
***************
*** 60,66 ****
  writeoogl := proc()
     global  `oogl/lprn`;
     local header, item, ps, zlist, plist, llist, ppoint, pcolor, appear,
! 		i, j, totl, xrange, yrange, nx, ny, oldgc,
  		coloron,colorlist,ccnt, totalverts;
     options `Copyright 1993 by Frederick Wicklin and Stuart Levy, Geometry Center`;
  
--- 63,69 ----
  writeoogl := proc()
     global  `oogl/lprn`;
     local header, item, ps, zlist, plist, llist, ppoint, pcolor, appear,
! 		i, j, totl, xrange, yrange, nx, ny, savedprintbytes,
  		coloron,colorlist,ccnt, totalverts;
     options `Copyright 1993 by Frederick Wicklin and Stuart Levy, Geometry Center`;
  
***************
*** 82,89 ****
     # Therefore suppress GC during writing of GeomView data          #
     ##################################################################
     if nargs = 2 then
!        oldgc := status[5];      # words increment for automatic garbage collection
!        gc(0);			# suppress garbage collection		
         print(`Saving Maple 3D structs to Geomview file`, args[1]);
         writeto(args[1]);
     fi;
--- 85,92 ----
     # Therefore suppress GC during writing of GeomView data          #
     ##################################################################
     if nargs = 2 then
!        savedprintbytes:=kernelopts( printbytes):
!        kernelopts( printbytes=false):
         print(`Saving Maple 3D structs to Geomview file`, args[1]);
         writeto(args[1]);
     fi;
***************
*** 340,353 ****
     lprint( `}`);
     if nargs = 2 then
  	writeto(terminal);
! 	gc(oldgc);
     fi;
  end:
  
  
  gvplot := proc()
     global UsEr_ID__, gvcommand, default_gvcommand, gvdirectories, default_gvdirectories;
!    local gvname, gvcmd, gvdirs, ps, oldgc, tmp_fname;
     options `Copyright 1993 by Frederick Wicklin and Stuart Levy, Geometry Center`;
     ### Set up filename to use as temporary site for data. 	 ###
     ### Take file in /tmp and postfix number which is (hopefully) ###
--- 343,357 ----
     lprint( `}`);
     if nargs = 2 then
       writeto(terminal);
!      kernelopts( printbytes=savedprintbytes):
     fi;
+    NULL;
  end:
  
  
  gvplot := proc()
     global UsEr_ID__, gvcommand, default_gvcommand, gvdirectories, default_gvdirectories;
!    local gvname, gvcmd, gvdirs, ps, savedprintbytes, tmp_fname;
     options `Copyright 1993 by Frederick Wicklin and Stuart Levy, Geometry Center`;
     ### Set up filename to use as temporary site for data. 	 ###
     ### Take file in /tmp and postfix number which is (hopefully) ###
***************
*** 390,409 ****
  	    `try setting the variable "gvdirectories" to the name of the directory where `.
  	    `they're installed (or to a colon-separated list of directories).`);
     fi;
!    oldgc := status[5];  # words increment for automatic garbage collection
!    gc(0);               # suppress garbage collection messages
     writeto(`/tmp/geomview/`.tmp_fname);
     lprint(`(geometry`, gvname);
     writeoogl( ps );
     lprint(`)`);
     writeto(terminal);
!    gc(oldgc);   	# return to previous garbage collection state
! 
  end:
  
  gvcommand := proc()
     global UsEr_ID__, gvcommand, default_gvcommand, gvdirectories, default_gvdirectories;
!    local gvname, gvcmd, gvdirs, ps, oldgc, tmp_fname;
     options `Copyright 1993 by Frederick Wicklin and Stuart Levy, Geometry Center`;
     ### Set up filename to use as temporary site for data. 	 ###
     ### Take file in /tmp and postfix number which is (hopefully) ###
--- 394,413 ----
  	    `try setting the variable "gvdirectories" to the name of the directory where `.
  	    `they're installed (or to a colon-separated list of directories).`);
     fi;
!    savedprintbytes:=kernelopts( printbytes):
!    kernelopts( printbytes=false):
     writeto(`/tmp/geomview/`.tmp_fname);
     lprint(`(geometry`, gvname);
     writeoogl( ps );
     lprint(`)`);
     writeto(terminal);
!    kernelopts( printbytes=savedprintbytes):
!    NULL;
  end:
  
  gvcommand := proc()
     global UsEr_ID__, gvcommand, default_gvcommand, gvdirectories, default_gvdirectories;
!    local gvname, gvcmd, gvdirs, ps, savedprintbytes, tmp_fname;
     options `Copyright 1993 by Frederick Wicklin and Stuart Levy, Geometry Center`;
     ### Set up filename to use as temporary site for data. 	 ###
     ### Take file in /tmp and postfix number which is (hopefully) ###
***************
*** 435,447 ****
  	    `try setting the variable "gvdirectories" to the name of the directory where `.
  	    `they're installed (or to a colon-separated list of directories).`);
     fi;
!    oldgc := status[5];  # words increment for automatic garbage collection
!    gc(0);               # suppress garbage collection messages
     writeto(`/tmp/geomview/`.tmp_fname);
     lprint(args);
     writeto(terminal);
!    gc(oldgc);   	# return to previous garbage collection state
! 
  end:
  
  # possible gvplot enhancements:
--- 439,451 ----
  	    `try setting the variable "gvdirectories" to the name of the directory where `.
  	    `they're installed (or to a colon-separated list of directories).`);
     fi;
!    savedprintbytes:=kernelopts( printbytes):
!    kernelopts( printbytes=false):
     writeto(`/tmp/geomview/`.tmp_fname);
     lprint(args);
     writeto(terminal);
!    kernelopts( printbytes=savedprintbytes):
!    NULL;
  end:
  
  # possible gvplot enhancements:


--END----END----END----END----END----END----END----END----END----END--


-------------------------------------------------------------------
Dr. Loris RENGGLI, Math Dept, Florida State U, Tallahassee, FL32306
e-mail : renggli at math.fsu.edu                  fax : ((555) 555-5555