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