autoTableEditor TableEditor_create (const char32 *title, Table table) {
try {
autoTableEditor me = Thing_new (TableEditor);
Editor_init (me.get(), 0, 0, 700, 500, title, table);
#if motif
Melder_assert (XtWindow (my drawingArea -> d_widget));
#endif
my topRow = 1;
my leftColumn = 1;
my selectedColumn = 1;
my selectedRow = 1;
my graphics = Graphics_create_xmdrawingarea (my drawingArea);
double size_pixels = SIZE_INCHES * Graphics_getResolution (my graphics.get());
Graphics_setWsViewport (my graphics.get(), 0.0, size_pixels, 0.0, size_pixels);
Graphics_setWsWindow (my graphics.get(), 0.0, size_pixels, 0.0, size_pixels);
Graphics_setViewport (my graphics.get(), 0.0, size_pixels, 0.0, size_pixels);
Graphics_setFont (my graphics.get(), kGraphics_font_COURIER);
Graphics_setFontSize (my graphics.get(), 12);
Graphics_setUnderscoreIsSubscript (my graphics.get(), false);
Graphics_setAtSignIsLink (my graphics.get(), true);
return me;
} catch (MelderError) {
Melder_throw (U"TableEditor not created.");
}
}
autoPicture Picture_create (GuiDrawingArea drawingArea, bool sensitive) {
try {
autoPicture me = Thing_new (Picture);
my drawingArea = drawingArea;
/*
* The initial viewport is a rectangle 6 inches wide and 4 inches high.
*/
my selx1 = 0.0;
my selx2 = 6.0;
my sely1 = 8.0;
my sely2 = 12.0;
my sensitive = sensitive && drawingArea;
if (drawingArea) {
/* The drawing area must have been realized; see manual at XtWindow. */
my graphics = Graphics_create_xmdrawingarea (my drawingArea);
GuiDrawingArea_setExposeCallback (my drawingArea, gui_drawingarea_cb_expose, me.get());
} else {
/*
* Create a dummy Graphics.
*/
my graphics = Graphics_create (600);
}
Graphics_setWsWindow (my graphics.get(), 0.0, 12.0, 0.0, 12.0);
Graphics_setViewport (my graphics.get(), my selx1, my selx2, my sely1, my sely2);
if (my sensitive) {
my selectionGraphics = Graphics_create_xmdrawingarea (my drawingArea);
Graphics_setWindow (my selectionGraphics.get(), 0, 12, 0, 12);
GuiDrawingArea_setClickCallback (my drawingArea, gui_drawingarea_cb_click, me.get());
}
Graphics_startRecording (my graphics.get());
return me;
} catch (MelderError) {
Melder_throw (U"Picture not created.");
}
}
static void gui_drawingarea_cb_resize (I, GuiDrawingAreaResizeEvent event) {
iam (RunnerMFC);
if (my graphics == NULL) return;
Graphics_setWsViewport (my graphics, 0, event -> width, 0, event -> height);
Graphics_setWsWindow (my graphics, 0, event -> width, 0, event -> height);
Graphics_setViewport (my graphics, 0, event -> width, 0, event -> height);
Graphics_updateWs (my graphics);
}
static void gui_drawingarea_cb_resize (I, GuiDrawingAreaResizeEvent event) {
iam (HyperPage);
if (my g == NULL) return;
Graphics_setWsViewport (my g, 0, event -> width, 0, event -> height);
Graphics_setWsWindow (my g, 0.0, my rightMargin = event -> width / resolution,
PAGE_HEIGHT - event -> height / resolution, PAGE_HEIGHT);
Graphics_updateWs (my g);
updateVerticalScrollBar (me);
}
Graphics Graphics_create_epsfile (MelderFile file, int resolution, enum kGraphicsPostscript_spots spots,
double x1inches, double x2inches, double y1inches, double y2inches, bool includeFonts, bool useSilipaPS)
{
autoGraphicsPostscript me = Thing_new (GraphicsPostscript);
time_t today;
int left, right, top, bottom;
my postScript = true, my languageLevel = 2;
my job = false, my eps = true, my printer = false;
#if defined (macintosh)
/* Replace newlines with carriage returns to be compatible with MS Word 5.1. */
my d_printf = Eps_postScript_printf;
#else
my d_printf = (int (*)(void *, const char*, ...)) fprintf;
#endif
Graphics_init (me.peek(), resolution); // virtual resolution; may differ from that of the printer; OK if always 600 dpi
my photocopyable = spots == kGraphicsPostscript_spots_PHOTOCOPYABLE;
if (my photocopyable) { my spotsDensity = 85; my spotsAngle = 35; }
else { my spotsDensity = 106; my spotsAngle = 46; }
my paperWidth = 7.5, my paperHeight = 11.0;
my landscape = false;
my magnification = 1.0;
my includeFonts = includeFonts;
my useSilipaPS = useSilipaPS;
my d_file = Melder_fopen (file, "w");
my d_x1DC = my d_x1DCmin = 0;
my d_x2DC = my d_x2DCmax = my paperWidth * resolution; // 600 dpi -> 4500 virtual dots
my d_y1DC = my d_y1DCmin = 0;
my d_y2DC = my d_y2DCmax = my paperHeight * resolution; // 600 dpi -> 6600 virtual dots
Graphics_setWsWindow ((Graphics) me.peek(), 0, my paperWidth, 12.0 - my paperHeight, 12.0); // force scaling
/*
* We will honour version 3.0 of the DSC for Encapsulated PostScript files,
* which includes supplying the bounding box information.
*/
left = (int) floor (x1inches * 72);
right = (int) ceil (x2inches * 72);
top = (int) ceil ((y2inches - my d_y1wNDC) * 72);
bottom = (int) floor ((y1inches - my d_y1wNDC) * 72);
my d_printf (my d_file, "%%!PS-Adobe-3.0 EPSF-3.0\n");
my d_printf (my d_file, "%%%%BoundingBox: %d %d %d %d\n", left, bottom, right, top);
my d_printf (my d_file, "%%%%Creator: Praat Shell 5.1\n");
/*
* In an EPS file without screen preview, the file name will be visible anyway.
* This leaves us room to show a warning that should keep users from thinking anything is wrong.
*/
my d_printf (my d_file, "%%%%Title: NO SCREEN PREVIEW, BUT WILL PRINT CORRECTLY\n");
today = time (nullptr);
my d_printf (my d_file, "%%%%CreationDate: %s", ctime (& today)); /* Contains newline symbol. */
my d_printf (my d_file, "%%%%EndComments\n");
downloadPrologAndSetUp (me.peek());
initPage (me.peek());
return (Graphics) me.transfer();
}
static HENHMETAFILE copyToMetafile (Picture me) {
RECT rect;
HDC dc;
PRINTDLG defaultPrinter;
int resolution;
memset (& defaultPrinter, 0, sizeof (PRINTDLG));
defaultPrinter. lStructSize = sizeof (PRINTDLG);
defaultPrinter. Flags = PD_RETURNDEFAULT | PD_RETURNDC;
PrintDlg (& defaultPrinter);
SetRect (& rect, my selx1 * 2540, (12 - my sely2) * 2540, my selx2 * 2540, (12 - my sely1) * 2540);
dc = CreateEnhMetaFile (defaultPrinter. hDC, nullptr, & rect, L"Praat\0");
if (! dc) Melder_throw (U"Cannot create Windows metafile.");
resolution = GetDeviceCaps (dc, LOGPIXELSX); // Virtual PC: 360; Parallels Desktop: 600
//Melder_fatal (U"resolution ", resolution);
if (Melder_debug == 6) {
DEVMODE *devMode = * (DEVMODE **) defaultPrinter. hDevMode;
MelderInfo_open ();
MelderInfo_writeLine (U"DEVICE CAPS:");
MelderInfo_writeLine (U"aspect x ", GetDeviceCaps (dc, ASPECTX),
U" y ", GetDeviceCaps (dc, ASPECTY));
MelderInfo_writeLine (U"res(pixels) hor ", GetDeviceCaps (dc, HORZRES),
U" vert ", GetDeviceCaps (dc, VERTRES));
MelderInfo_writeLine (U"size(mm) hor ", GetDeviceCaps (dc, HORZSIZE),
U" vert ", GetDeviceCaps (dc, VERTSIZE));
MelderInfo_writeLine (U"pixels/inch hor ", GetDeviceCaps (dc, LOGPIXELSX),
U" vert ", GetDeviceCaps (dc, LOGPIXELSY));
MelderInfo_writeLine (U"physicalOffset(pixels) hor ", GetDeviceCaps (dc, PHYSICALOFFSETX),
U" vert ", GetDeviceCaps (dc, PHYSICALOFFSETY));
MelderInfo_writeLine (U"PRINTER:");
MelderInfo_writeLine (U"dmFields ", devMode -> dmFields);
if (devMode -> dmFields & DM_YRESOLUTION)
MelderInfo_writeLine (U"y resolution ", devMode -> dmYResolution);
if (devMode -> dmFields & DM_PRINTQUALITY)
MelderInfo_writeLine (U"print quality ", devMode -> dmPrintQuality);
if (devMode -> dmFields & DM_PAPERWIDTH)
MelderInfo_writeLine (U"paper width ", devMode -> dmPaperWidth);
if (devMode -> dmFields & DM_PAPERLENGTH)
MelderInfo_writeLine (U"paper length ", devMode -> dmPaperLength);
if (devMode -> dmFields & DM_PAPERSIZE)
MelderInfo_writeLine (U"paper size ", devMode -> dmPaperSize);
if (devMode -> dmFields & DM_ORIENTATION)
MelderInfo_writeLine (U"orientation ", devMode -> dmOrientation);
MelderInfo_close ();
}
autoGraphics pictGraphics = Graphics_create_screen ((void *) dc, nullptr, resolution);
Graphics_setWsViewport (pictGraphics.peek(), 0, WIN_WIDTH * resolution, 0, WIN_HEIGHT * resolution);
Graphics_setWsWindow (pictGraphics.peek(), 0.0, WIN_WIDTH, 12.0 - WIN_HEIGHT, 12.0);
Graphics_play (my graphics.get(), pictGraphics.peek());
HENHMETAFILE metafile = CloseEnhMetaFile (dc);
return metafile;
}
Graphics Graphics_create_postscriptjob (MelderFile file, int resolution, enum kGraphicsPostscript_spots spots,
enum kGraphicsPostscript_paperSize paperSize, enum kGraphicsPostscript_orientation rotation, double magnification)
{
autoGraphicsPostscript me = Thing_new (GraphicsPostscript);
time_t today;
my postScript = true, my yIsZeroAtTheTop = false, my languageLevel = 2;
my job = true, my eps = false, my printer = false;
my d_printf = (int (*)(void *, const char*, ...)) fprintf;
Graphics_init (me.peek(), resolution); // virtual resolution; may differ from that of the printer; OK if always 600 dpi
my photocopyable = spots == kGraphicsPostscript_spots_PHOTOCOPYABLE;
if (my photocopyable) { my spotsDensity = 85; my spotsAngle = 35; }
else { my spotsDensity = 106; my spotsAngle = 46; }
if (paperSize == kGraphicsPostscript_paperSize_A3) my paperWidth = 842 / 72.0, my paperHeight = 1191 / 72.0;
else if (paperSize == kGraphicsPostscript_paperSize_US_LETTER) my paperWidth = 612 / 72.0, my paperHeight = 792 / 72.0;
else my paperWidth = 595 / 72.0, my paperHeight = 842 / 72.0;
my landscape = rotation == kGraphicsPostscript_orientation_LANDSCAPE;
my magnification = magnification;
my includeFonts = true;
my d_file = Melder_fopen (file, "w");
/*
* The Device Coordinates are the PostScript user coordinates.
* They are chosen in such a way that a distance of 1 in device coordinates
* equals one dot if the printer's resolution is 'resolution' dots per inch.
* Take a sensible default margin: half an inch on all sides.
*/
my d_x1DC = my d_x1DCmin = resolution / 2;
my d_x2DC = my d_x2DCmax = (my paperWidth - 0.5) * resolution;
my d_y1DC = my d_y1DCmin = resolution / 2;
my d_y2DC = my d_y2DCmax = (my paperHeight - 0.5) * resolution;
/*
* Now don't just set x1wNDC etc, but force computation of the scaling as well.
*/
Graphics_setWsWindow ((Graphics) me.peek(), 0, my paperWidth - 1.0, 13.0 - my paperHeight, 12.0);
/*
* We will adhere to version 3.0 of the Document Structuring Conventions for print jobs.
*/
my d_printf (my d_file, "%%!PS-Adobe-3.0\n");
my d_printf (my d_file, "%%%%Creator: Praat Shell 4.2\n");
my d_printf (my d_file, "%%%%Title: %s\n", Melder_peek32to8 (MelderFile_name (file)));
today = time (nullptr);
my d_printf (my d_file, "%%%%CreationDate: %s", ctime (& today)); // contains newline symbol
my d_printf (my d_file, "%%%%PageOrder: Special\n");
my d_printf (my d_file, "%%%%Pages: (atend)\n");
my d_printf (my d_file, "%%%%EndComments\n");
downloadPrologAndSetUp (me.peek());
initPage (me.peek());
return (Graphics) me.transfer();
}
Graphics Graphics_create_postscriptprinter () {
autoGraphicsPostscript me = Thing_new (GraphicsPostscript);
my postScript = true, my languageLevel = 2;
my job = false, my eps = false, my printer = true;
my d_printf = Printer_postScript_printf;
Graphics_init (me.get(), thePrinter. resolution); // virtual resolution
my photocopyable = thePrinter. spots == kGraphicsPostscript_spots_PHOTOCOPYABLE;
if (my photocopyable) { my spotsDensity = 85; my spotsAngle = 35; }
else { my spotsDensity = 106; my spotsAngle = 46; }
my paperWidth = (double) thePrinter. paperWidth / my resolution;
my paperHeight = (double) thePrinter. paperHeight / my resolution;
my landscape = thePrinter. orientation == kGraphicsPostscript_orientation_LANDSCAPE;
my magnification = thePrinter. magnification;
my includeFonts = true;
my d_x1DC = my d_x1DCmin = my resolution / 2;
my d_x2DC = my d_x2DCmax = (my paperWidth - 0.5) * my resolution;
my d_y1DC = my d_y1DCmin = my resolution / 2;
my d_y2DC = my d_y2DCmax = (my paperHeight - 0.5) * my resolution;
Graphics_setWsWindow (me.get(), 0, my paperWidth - 1.0, 13.0 - my paperHeight, 12.0);
downloadPrologAndSetUp (me.get());
initPage (me.get());
return me.transfer();
}
int HyperPage_script (I, double width_inches, double height_inches, const wchar_t *script) {
iam (HyperPage);
wchar_t *text = Melder_wcsdup_f (script);
Interpreter interpreter = Interpreter_createFromEnvironment (NULL);
double topSpacing = 0.1, bottomSpacing = 0.1, minFooterDistance = 0.0;
kGraphics_font font = my font;
int size = my fontSize;
double true_width_inches = width_inches * ( width_inches < 0.0 ? -1.0 : size / 12.0 );
double true_height_inches = height_inches * ( height_inches < 0.0 ? -1.0 : size / 12.0 );
if (! my printing) {
my d_y -= ( my previousBottomSpacing > topSpacing ? my previousBottomSpacing : topSpacing ) * size / 12.0;
if (my d_y > PAGE_HEIGHT + true_height_inches || my d_y < PAGE_HEIGHT - SCREEN_HEIGHT) {
my d_y -= true_height_inches;
} else {
my d_y -= true_height_inches;
Graphics_setFont (my g, font);
Graphics_setFontStyle (my g, 0);
Graphics_setFontSize (my g, size);
my d_x = true_width_inches > my rightMargin ? 0 : 0.5 * (my rightMargin - true_width_inches);
Graphics_setWrapWidth (my g, 0);
long x1DCold, x2DCold, y1DCold, y2DCold;
Graphics_inqWsViewport (my g, & x1DCold, & x2DCold, & y1DCold, & y2DCold);
double x1NDCold, x2NDCold, y1NDCold, y2NDCold;
Graphics_inqWsWindow (my g, & x1NDCold, & x2NDCold, & y1NDCold, & y2NDCold);
{
if (my praatApplication == NULL) my praatApplication = Melder_calloc_f (structPraatApplication, 1);
if (my praatObjects == NULL) my praatObjects = Melder_calloc_f (structPraatObjects, 1);
if (my praatPicture == NULL) my praatPicture = Melder_calloc_f (structPraatPicture, 1);
theCurrentPraatApplication = (PraatApplication) my praatApplication;
theCurrentPraatApplication -> batch = true; // prevent creation of editor windows
theCurrentPraatApplication -> topShell = theForegroundPraatApplication. topShell; // needed for UiForm_create () in dialogs
theCurrentPraatObjects = (PraatObjects) my praatObjects;
theCurrentPraatPicture = (PraatPicture) my praatPicture;
theCurrentPraatPicture -> graphics = my g; // has to draw into HyperPage rather than Picture window
theCurrentPraatPicture -> font = font;
theCurrentPraatPicture -> fontSize = size;
theCurrentPraatPicture -> lineType = Graphics_DRAWN;
theCurrentPraatPicture -> colour = Graphics_BLACK;
theCurrentPraatPicture -> lineWidth = 1.0;
theCurrentPraatPicture -> arrowSize = 1.0;
theCurrentPraatPicture -> x1NDC = my d_x;
theCurrentPraatPicture -> x2NDC = my d_x + true_width_inches;
theCurrentPraatPicture -> y1NDC = my d_y;
theCurrentPraatPicture -> y2NDC = my d_y + true_height_inches;
Graphics_setViewport (my g, theCurrentPraatPicture -> x1NDC, theCurrentPraatPicture -> x2NDC, theCurrentPraatPicture -> y1NDC, theCurrentPraatPicture -> y2NDC);
Graphics_setWindow (my g, 0.0, 1.0, 0.0, 1.0);
long x1DC, y1DC, x2DC, y2DC;
Graphics_WCtoDC (my g, 0.0, 0.0, & x1DC, & y2DC);
Graphics_WCtoDC (my g, 1.0, 1.0, & x2DC, & y1DC);
Graphics_resetWsViewport (my g, x1DC, x2DC, y1DC, y2DC);
Graphics_setWsWindow (my g, 0, width_inches, 0, height_inches);
theCurrentPraatPicture -> x1NDC = 0;
theCurrentPraatPicture -> x2NDC = width_inches;
theCurrentPraatPicture -> y1NDC = 0;
theCurrentPraatPicture -> y2NDC = height_inches;
Graphics_setViewport (my g, theCurrentPraatPicture -> x1NDC, theCurrentPraatPicture -> x2NDC, theCurrentPraatPicture -> y1NDC, theCurrentPraatPicture -> y2NDC);
{ // scope
autoMelderProgressOff progress;
autoMelderWarningOff warning;
autoMelderSaveDefaultDir saveDir;
if (! MelderDir_isNull (& my rootDirectory)) {
Melder_setDefaultDir (& my rootDirectory);
}
try {
Interpreter_run (interpreter, text);
} catch (MelderError) {
if (my scriptErrorHasBeenNotified) {
Melder_clearError ();
} else {
Melder_flushError (NULL);
my scriptErrorHasBeenNotified = true;
}
}
}
Graphics_setLineType (my g, Graphics_DRAWN);
Graphics_setLineWidth (my g, 1.0);
Graphics_setArrowSize (my g, 1.0);
Graphics_setColour (my g, Graphics_BLACK);
/*Graphics_Link *paragraphLinks;
long numberOfParagraphLinks = Graphics_getLinks (& paragraphLinks);
if (my links) for (long ilink = 1; ilink <= numberOfParagraphLinks; ilink ++) {
HyperLink link = HyperLink_create (paragraphLinks [ilink]. name,
paragraphLinks [ilink]. x1, paragraphLinks [ilink]. x2,
paragraphLinks [ilink]. y1, paragraphLinks [ilink]. y2);
Collection_addItem (my links, link);
}*/
theCurrentPraatApplication = & theForegroundPraatApplication;
theCurrentPraatObjects = & theForegroundPraatObjects;
theCurrentPraatPicture = & theForegroundPraatPicture;
}
Graphics_resetWsViewport (my g, x1DCold, x2DCold, y1DCold, y2DCold);
Graphics_setWsWindow (my g, x1NDCold, x2NDCold, y1NDCold, y2NDCold);
Graphics_setViewport (my g, 0, 1, 0, 1);
Graphics_setWindow (my g, 0, 1, 0, 1);
Graphics_setTextAlignment (my g, Graphics_LEFT, Graphics_BOTTOM);
}
} else {
Graphics_setFont (my ps, font);
Graphics_setFontStyle (my ps, 0);
Graphics_setFontSize (my ps, size);
my d_y -= my d_y == PAPER_TOP - TOP_MARGIN ? 0 : ( my previousBottomSpacing > topSpacing ? my previousBottomSpacing : topSpacing ) * size / 12.0;
my d_y -= true_height_inches;
if (my d_y < PAPER_BOTTOM + BOTTOM_MARGIN + minFooterDistance) {
Graphics_nextSheetOfPaper (my ps);
if (my d_printingPageNumber) my d_printingPageNumber ++;
HyperPage_initSheetOfPaper (me);
Graphics_setFont (my ps, font);
Graphics_setFontSize (my ps, size);
my d_y -= true_height_inches;
}
my d_x = 3.7 - 0.5 * true_width_inches;
if (my d_x < 0) my d_x = 0;
Graphics_setWrapWidth (my ps, 0);
long x1DCold, x2DCold, y1DCold, y2DCold;
Graphics_inqWsViewport (my ps, & x1DCold, & x2DCold, & y1DCold, & y2DCold);
double x1NDCold, x2NDCold, y1NDCold, y2NDCold;
Graphics_inqWsWindow (my ps, & x1NDCold, & x2NDCold, & y1NDCold, & y2NDCold);
{
if (my praatApplication == NULL) my praatApplication = Melder_calloc_f (structPraatApplication, 1);
if (my praatObjects == NULL) my praatObjects = Melder_calloc_f (structPraatObjects, 1);
if (my praatPicture == NULL) my praatPicture = Melder_calloc_f (structPraatPicture, 1);
theCurrentPraatApplication = (PraatApplication) my praatApplication;
theCurrentPraatApplication -> batch = true;
theCurrentPraatApplication -> topShell = theForegroundPraatApplication. topShell; // needed for UiForm_create () in dialogs
theCurrentPraatObjects = (PraatObjects) my praatObjects;
theCurrentPraatPicture = (PraatPicture) my praatPicture;
theCurrentPraatPicture -> graphics = my ps;
theCurrentPraatPicture -> font = font;
theCurrentPraatPicture -> fontSize = size;
theCurrentPraatPicture -> lineType = Graphics_DRAWN;
theCurrentPraatPicture -> colour = Graphics_BLACK;
theCurrentPraatPicture -> lineWidth = 1.0;
theCurrentPraatPicture -> arrowSize = 1.0;
theCurrentPraatPicture -> x1NDC = my d_x;
theCurrentPraatPicture -> x2NDC = my d_x + true_width_inches;
theCurrentPraatPicture -> y1NDC = my d_y;
theCurrentPraatPicture -> y2NDC = my d_y + true_height_inches;
Graphics_setViewport (my ps, theCurrentPraatPicture -> x1NDC, theCurrentPraatPicture -> x2NDC, theCurrentPraatPicture -> y1NDC, theCurrentPraatPicture -> y2NDC);
Graphics_setWindow (my ps, 0.0, 1.0, 0.0, 1.0);
long x1DC, y1DC, x2DC, y2DC;
Graphics_WCtoDC (my ps, 0.0, 0.0, & x1DC, & y2DC);
Graphics_WCtoDC (my ps, 1.0, 1.0, & x2DC, & y1DC);
long shift = (long) (Graphics_getResolution (my ps) * true_height_inches) + (y1DCold - y2DCold);
Graphics_resetWsViewport (my ps, x1DC, x2DC, y1DC + shift, y2DC + shift);
Graphics_setWsWindow (my ps, 0, width_inches, 0, height_inches);
theCurrentPraatPicture -> x1NDC = 0;
theCurrentPraatPicture -> x2NDC = width_inches;
theCurrentPraatPicture -> y1NDC = 0;
theCurrentPraatPicture -> y2NDC = height_inches;
Graphics_setViewport (my ps, theCurrentPraatPicture -> x1NDC, theCurrentPraatPicture -> x2NDC, theCurrentPraatPicture -> y1NDC, theCurrentPraatPicture -> y2NDC);
{ // scope
autoMelderProgressOff progress;
autoMelderWarningOff warning;
autoMelderSaveDefaultDir saveDir;
if (! MelderDir_isNull (& my rootDirectory)) {
Melder_setDefaultDir (& my rootDirectory);
}
try {
Interpreter_run (interpreter, text);
} catch (MelderError) {
Melder_clearError ();
}
}
Graphics_setLineType (my ps, Graphics_DRAWN);
Graphics_setLineWidth (my ps, 1.0);
Graphics_setArrowSize (my ps, 1.0);
Graphics_setColour (my ps, Graphics_BLACK);
theCurrentPraatApplication = & theForegroundPraatApplication;
theCurrentPraatObjects = & theForegroundPraatObjects;
theCurrentPraatPicture = & theForegroundPraatPicture;
}
Graphics_resetWsViewport (my ps, x1DCold, x2DCold, y1DCold, y2DCold);
Graphics_setWsWindow (my ps, x1NDCold, x2NDCold, y1NDCold, y2NDCold);
Graphics_setViewport (my ps, 0, 1, 0, 1);
Graphics_setWindow (my ps, 0, 1, 0, 1);
Graphics_setTextAlignment (my ps, Graphics_LEFT, Graphics_BOTTOM);
}
my previousBottomSpacing = bottomSpacing;
forget (interpreter);
Melder_free (text);
return 1;
}
