% Example of using PLcairo's PostScript Backend.
% Copyright (C) GNU Free Documentation License 1.3
% Keri Harris <keri.harris@gentoo.org>, 2015.



:- use_module(library(plcairo)).

main :-
	cairo_ps_surface_create('/tmp/plcairo-psfile.ps', 504, 648, Surface),
	cairo_create(Surface, CairoContext),

	cairo_set_source_rgb(CairoContext, 0, 0, 0),
	cairo_select_font_face(CairoContext, 'Sans', 'CAIRO_FONT_SLANT_NORMAL', 'CAIRO_FONT_WEIGHT_NORMAL'),
	cairo_set_font_size(CairoContext, 40.0),

	cairo_move_to(CairoContext, 10.0, 50.0),
	cairo_show_text(CairoContext, 'SWI-Prolog'),

	cairo_show_page(CairoContext),
	cairo_surface_finish(Surface),
	format('/tmp/plcairo-psfile.ps created~n', []),
	halt.

:- main.