Changeset 0615d9 in git
- Timestamp:
- Nov 25, 2013, 11:13:47 AM (9 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'ad2543eab51733612ba7d118afc77edca719600e')
- Children:
- 7bb7da5db82ebe13b1923654fb861e84c6c3ec65
- Parents:
- 40971d53362e3fb612b5ee52d46dc9023f52e8cd
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-11-25 11:13:47+01:00
- git-committer:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-11-25 11:17:40+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/resgraph.lib
r40971d r0615d9 7 7 AUTHOR: A. Fruehbis-Krueger, anne@mathematik.uni-kl.de, 8 8 9 NOTE: This library uses the external programs surf, graphviz and xv.9 NOTE: This library uses the external programs surf, graphviz and imagemagick. 10 10 @* Input data is assumed to originate from resolve.lib and reszeta.lib 11 11 12 12 PROCEDURES: 13 InterDiv(M[,name]) dual graph of resolution of a surface (uses graphviz, xv)14 ResTree(L,M[,name]) tree of charts of resolution (uses graphviz, xv)13 InterDiv(M[,name]) dual graph of resolution of a surface (uses graphviz,imagemagick) 14 ResTree(L,M[,name]) tree of charts of resolution (uses graphviz,imagemagick) 15 15 finalCharts(L,...) pictures of final charts of surface (uses surf) 16 16 "; … … 27 27 @* if filename is given 28 28 NOTE: only available on UNIX-type systems and programs 29 @* ' xv' (X11/Xorgpackage) and 'dot' (Graphviz package) need to29 @* 'display' (imagemagick package) and 'dot' (Graphviz package) need to 30 30 @* be in the standard search PATH 31 31 RETURN: nothing, only generating graphics output in separate window … … 85 85 close(eing); 86 86 //--------------------------------------------------------------------------- 87 // produce graphics output using the programs dot and xv87 // produce graphics output using the programs dot and display 88 88 //--------------------------------------------------------------------------- 89 89 string outfile=@filename + ".jpg"; 90 90 if(!find(outfile,"/")) 91 91 { 92 //--- xvneeds fully qualified path to file92 //--- display needs fully qualified path to file 93 93 outfile=system("getenv","PWD") + "/" + outfile; 94 94 } 95 95 j=system("sh","dot -Tjpg " + @filename + " -o "+ outfile); 96 j=system("sh"," xv" + outfile + " &");96 j=system("sh","display " + outfile + " &"); 97 97 //--------------------------------------------------------------------------- 98 98 // clean up if necessary … … 160 160 @* if filename is given 161 161 NOTE: only available on UNIX-type systems and programs 162 @* ' xv' (X11/Xorgpackage) and 'dot' (Graphviz package) need to162 @* 'display' (imagemagick package) and 'dot' (Graphviz package) need to 163 163 @* be in the standard search PATH 164 164 RETURN: nothing, only generating graphics output in separate window … … 271 271 close(eing); 272 272 //--------------------------------------------------------------------------- 273 // Create the graphics output using the programs dot and xv273 // Create the graphics output using the programs dot and display 274 274 //--------------------------------------------------------------------------- 275 275 string outfile=@filename + ".jpg"; 276 276 if(!find(outfile,"/")) 277 277 { 278 //--- xvneeds fully qualified path to file278 //--- display needs fully qualified path to file 279 279 outfile=system("getenv","PWD") + "/" + outfile; 280 280 } 281 281 j=system("sh", "dot -Tjpg " + @filename + " -o "+ outfile); 282 j=system("sh"," /usr/bin/X11/xv" + outfile + "&");282 j=system("sh","display " + outfile + "&"); 283 283 //--------------------------------------------------------------------------- 284 284 // Clean up public directories if necessary … … 310 310 @* - several '.ras' files in the directory in which 'name' resides 311 311 NOTE: only available on UNIX-type systems 312 @* external programs 'surf' and ' xv' (X11/Xorgpackage) need to be312 @* external programs 'surf' and 'display' (imagemagick package) need to be 313 313 @* in the standard search PATH 314 314 RETURN: nothing, only generating graphics output in separate window … … 556 556 if(!find(fnamebase,"/")) 557 557 { 558 //--- xvneeds fully qualified path to file558 //--- display needs fully qualified path to file 559 559 if(defined(outfile)) {kill outfile;} 560 560 string outfile=system("getenv","PWD") + "/" + fnamebase; … … 577 577 if(!defined(outfile)) 578 578 { 579 j=system("sh"," /usr/bin/X11/xv" + fnamebase579 j=system("sh","display " + fnamebase 580 580 + string(endCharts[i]) + ".ras &"); 581 581 } 582 582 else 583 583 { 584 j=system("sh"," /usr/bin/X11/xv" + outfile584 j=system("sh","display " + outfile 585 585 + string(endCharts[i]) + ".ras &"); 586 586 kill outfile;
Note: See TracChangeset
for help on using the changeset viewer.