Tigr-m2/modula2/examples/headless/headless.mod

MODULE headless;

FROM tigr IMPORT TigrPtr, tigrBitmap, tigrClear, tigrPrint, tigrSaveImage,
                tigrFree, tfont;
FROM helper IMPORT tigrRGB;
FROM InOut IMPORT WriteString, WriteLn;

VAR
    bmp    : TigrPtr;
    result : INTEGER;

BEGIN
    bmp := tigrBitmap(320, 240);
    tigrClear(bmp, tigrRGB(80H, 90H, 0A0H));
    tigrPrint(bmp, tfont, 120, 110, tigrRGB(0FFH, 0FFH, 0FFH), "Hello, world.");
    result := tigrSaveImage("headless.png", bmp);
    IF result = 0 THEN
        WriteString("tigrSaveImage failed");
        WriteLn
    END;
    tigrFree(bmp);
END headless.