myers@qtp.ufl.edu (John G. Myers) (10/31/87)
Some of the test programs were generating invalid Postscript files on a Sun 3/50 until I made the following changes: diff -c d/pl.c ./pl.c *** d/pl.c Fri Oct 30 16:04:11 1987 --- ./pl.c Fri Oct 30 15:56:17 1987 *************** *** 38,49 **** void plcout_(c) ! char *c; { /* * send one char to plot file */ ! putc(*c, fp); } void --- 38,54 ---- void plcout_(c) ! int *c; { /* * send one char to plot file */ ! if (*c < 040 || *c > 0176) { ! fprintf(fp, "\\%03o", *c); ! } ! else { ! putc(*c, fp); ! } } void diff -c d/symbol.f ./symbol.f *** d/symbol.f Fri Oct 30 16:04:15 1987 --- ./symbol.f Fri Oct 30 15:53:11 1987 *************** *** 265,271 **** if (intang .ne. 0) then call plsout ("RE\n") else ! call plcout (10) endif C --- 265,271 ---- if (intang .ne. 0) then call plsout ("RE\n") else ! call plsout ("\n") endif C -- --------------------------------------------------------------------------- John G. Myers 364 Williamson Hall ARPA: myers@qtp.ufl.edu University of Florida UUCP: ...!inhp4!codas!ufcsv!ufqtp!myers Gainesville, FL 32611