static void initPostScriptPage () {
/*
* Save the driver's state.
*/
Printer_postScript_printf (nullptr, "/PraatPictureSaveObject save def\n");
/*
* The LaserWriter driver puts the coordinates upside down.
* According to the PostScript Reference Manual,
* "There are few situations in which a PostScript language program
* should execute initgraphics explicitly."
* This is one of them.
BUG: it probably is *not* one of them. Just do something like
currentmatrix [1 0 -1 0 0 0] mul setmatrix
or whatever it is.
*/
#if 1
Printer_postScript_printf (nullptr, "initmatrix initclip\n");
#else
Printer_postScript_printf (nullptr, "8 8 scale initclip\n");
#endif
}
static void exitPostScriptPage () {
Printer_postScript_printf (nullptr, "PraatPictureSaveObject restore\n");
}
static void exitPostScriptPage (void) {
Printer_postScript_printf (NULL, "PraatPictureSaveObject restore\n");
}
