unixani/ 40755 1301 144 0 6216337123 11461 5ustar fiedlerusersunixani/PSAnimate.m100644 1301 144 3372 6216332634 13564 0ustar fiedlerusers(***********************************************************************) (* PSAnimate.m *) (* Bernd Fiedler, FB Math/Inf, Universitaet Leipzig, 11.09.1996 *) (* *) (* Tool zur Erzeugung von Animationen unter Mathematica 2.2 fuer *) (* Linux aus Bildern in PostScipt-Files *) (* *) (* email: fiedler@mathematik.uni-leipzig.d400.de *) (* http://www.mathematik.uni-leipzig.de/MI/fiedler/fiedler.html *) (***********************************************************************) (*---------------------- Load Package Files ---------------------------*) BeginPackage["PSAnimate`"]; PSAnimate::usage = "PSAnimate[film] generates an animation from the pictures which are stored as PostScript pictures in the file film." Begin["`Private`"]; $BFMotifString := StringJoin[ "motifps ", If[$AlwaysUsePrivateColorMap,"-privateColormap ","",""], If[NumberQ[$DisplayWidth] || NumberQ[$DisplayHeight] || NumberQ[$DisplayXposition] || NumberQ[$DisplayYposition], "-geometry ", ""], If[NumberQ[$DisplayWidth], ToString[$DisplayWidth], "" ], If[NumberQ[$DisplayHeight],StringJoin["x", ToString[$DisplayHeight]], ""], If[NumberQ[$DisplayXposition] || NumberQ[$DisplayYposition], "+", ""], If[NumberQ[$DisplayXposition], ToString[$DisplayXposition],""], If[NumberQ[$DisplayYposition],StringJoin["+",ToString[$DisplayYposition]], ""], " -title '", ToString[$DisplayTitle], "'"] PSAnimate[film_] := Run[$BFMotifString, film] End[(*"`Private`"*)]; EndPackage[(*"Vectan`"*)]; unixani/unixani.doc100644 1301 144 1604 6216336750 13726 0ustar fiedlerusersB. Fiedler, Department of Mathematics, University of Leipzig, 1996. The tools in unixani.tar.gz can be applied under Mathematica 2.2 for Linux or HP9000 Series 700 with text interface. The files PSAnimate.m ????cat are UNIX text files. You can generate an animation from picture files x1, x2, ... , xn by the following steps: 1. Copy all files x1,...,xn, ????cat, PSAnimate.m in a working directory. The path has to contain the directory of Mathematica. 2. Convert the DOS files x1, x2,... to UNIX files. fromdos x* (under Linux) 3. Run the batch file ????cat to join the files x1, x2, ... . The result is a file film and some files film1, film2,... . The files film1, film2,... can be deleted. 4. Run Mathematica (with text interface), load PSAnimate.m by <