Re: Printing/TeX
- To: mathgroup at smc.vnet.net
- Subject: [mg3499] Re: Printing/TeX
- From: chang at wsu.edu (Ching-Mo Chang)
- Date: Mon, 18 Mar 1996 00:57:45 -0500
- Organization: Washington State University
- Sender: owner-wri-mathgroup at wolfram.com
>>>>> "Tobias" == Tobias Cottmann <cottmann at zmnh.zmnh.uni-hamburg.de> writes:
Tobias> By the way: Does anyone know how to create eps files
Tobias> automatically? Is there something like SaveEPS[filename,
Tobias> graphics] ?
The following (RaPrint.m) define a small function that use `rasterps.exe'
to output mathematica graph to my printer (hpdj560c) or to an eps file.
Note: I am using mathematica 2.2.4 for OS/2.
I put
<<RaPrint.m
im my init.m, and RaPrint.m in `/math/Packages/' directory.
I use
RAPrint[graph]
to print the graph, and
EPSFile[graph,"file.eps"]
to output graph to the eps file `file.eps'.
==== File: RaPrint.m ==========================================================
(* 3/4/1995 Ching-Mo Chang chang at theta.math.wsu.edu *)
(* Using rasterp to print Mathematica graph in OS/2*)
Unprotect[System`RAPrint]
System`RAPrint::usage = "Usage::RAPrint[-graphics-, \"format\", \"file\",
\"Options\"]."
System`RAPrint::Print = "Graphics being printed by \"`1`\".";
Begin["System`Private`"]
RAPrint[g_, fmt_String:"hplj.300", f_String:"lpt1", opt_String:""] :=
Block[{ filename ,RAString},
filename = StringJoin[f, ".ps"];
Display[filename, g] ;
RAString = StringJoin[ "rasterps -format ",fmt," -file ",
f," ", opt," ",filename];
Message[RAPrint::Print,RAString];
Run[RAString];
DeleteFile[filename]]
EPSFile[g_,f_String] := RAPrint[g,"eps",f,"-xdpi 300 -ydpi 300"]
End[]
Protect[RAPrint]
===========================================================================
--
Ching-Mo Chang <chang at wsu.edu> <chang at theta.math.wsu.edu>
==== [MESSAGE SEPARATOR] ====