go to www.geomview.org home page
 
Home

Overview
FAQ
Documentation

Download

Mailing List

Geomview For Windows?

Support
Users
Development

Bug Reporting
Contributing
Contact Us

Sponsors

 

Site Search

 

Advanced
Search

 
About the software@geom archive

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: using Mathematica and Geomview on different machines


  • To: "jvillaci" <jvillaci at cs.indiana.edu>
  • Subject: Re: using Mathematica and Geomview on different machines
  • From: slevy
  • Date: Wed, 2 Feb 94 17:10:16 -0600

OK, let's see.  The problem is that OOGL.m, when it starts the remote
copy of Geomview (on the Sun in this case), sets the DISPLAY environment
variable to just ":0".  This forces geomview to display on the same machine
where it's running.  This is normally the right thing to do... but not in
your case.

So try this.  Here's a patch to the file OOGL.m which allows Geomview[]
to accept an "XDisplay" option.  So you could say

    SetOptions[Geomview, XDisplay -> "your_X_terminal:0"]

and then use mathematica+geomview as intended.

I think it should suffice to put a copy of the modified OOGL.m in
your current directory when you invoke Mathematica.

Here's the patch, in unidiff form.  If you want the complete file,
I could send that instead.

--- /u/geom/lib/mathematica/Packages/OOGL.m     Tue Nov  2 18:43:14 1993
+++ OOGL.m      Wed Feb  2 17:00:58 1994
@@ -118,6 +118,7 @@
 
 Options[Geomview] ^= {DisplayHost->"",
                      MachType->If [$System == "NeXT", "next", "sgi"],
+                     XDisplay -> ":0",
                      GeomviewCommand -> $GeomviewPath};
 
 Begin["`Private`"]
@@ -248,7 +249,7 @@
   newhost
  );
 
-toGV[host_] :=(
+toGV[host_, xdisplay_] :=(
   newhost = remotehost[host];
 
   {rshuser, rshhost} =
@@ -261,7 +262,7 @@
   If[newhost != "",
      StringJoin["rsh ", rshhost, 
                If[StringLength[rshuser] > 0, " -l ", ""], rshuser,
-               " /bin/sh -c \\'' DISPLAY=:0 export DISPLAY; "],
+               " /bin/sh -c \\''DISPLAY=", xdisplay, "; export DISPLAY; "],
      ""
   ]
 );
@@ -269,7 +270,8 @@
 Geomview[ name_String, gobj_, options___] := (
    WriteOut["", gobj, StringJoin[" -togeomview ",name," ",
        GeomviewCommand /. {options} /. Options[Geomview]], 
-         toGV[DisplayHost /. {options} /. Options[Geomview]],
+         toGV[DisplayHost /. {options} /. Options[Geomview],
+             XDisplay /. {options} /. Options[Geomview]],
       options];
    gobj
 );


 
Home | Overview | FAQ | Documentation | Support | Download | Mailing List
Windows? | Development | Bug Reporting | Contributing | Contact Us | Sponsors
 
site hosted by
SourceForge Logo