print_test.flow

import material/material_ui;

main() {
    setRendererType("html");
    manager = makeMaterialManager([]);
    printPngFn = make(None());

    images = [
        "images/material_test/Kangaroo-Valley-10.jpg"
    ];

    m = MSelect(printPngFn, \mfn -> eitherMap(mfn, \pfn -> MSelect(fasync("", \cb -> pfn(0, cb)), \p -> MPicture(p, [])), TEmpty()));

    mrender(manager, true, m);

    deferred(\ -> ShowMPrintPagesDialog(manager, const(map(enumFromTo(0, 100)), \i ->
        // TRectangle([Fill(if (i % 2 == 0) blue else green), Stroke(red), StrokeWidth(2.0)], TFillXY())
		MPrintPage(
			TZoomToFill(
				TPicture(images[floor(random() * i2d(length(images)))], []),
				TRectangle([Fill(if (i % 2 == 0) blue else green), Stroke(red), StrokeWidth(2.0)], TFillXY()),
				true
			),
			make(None()),
			make(false)
		)
    ), [MPrintExtractPNG(\fn -> next(printPngFn, fn))])
    |> ignore);
}