mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-30 16:54:41 +00:00
7a85f13389
distribution. (For further information see, <http://www.cairographics.org/>.) The binding is currently fairly complete (enough for the cairo sample and tutorial programs to be work in Mercury). The main things missing are: * scaled fonts * a few operations on patterns (grep for NYI) * support for X, Quartz, or Win32 surfaces * font backends other than the builtin toy one TODO: I'll add README files, Makefiles, update the NEWS file, etc in a separate change. extras/graphics/mercury_cairo/*.m: extras/graphics/mercury_cairo/tutorial/*.m: extras/graphics/mercury_cairo/samples/*.m: extras/graphics/mercury_cairo/samples/data/*.png: Add the Mercury cairo binding.
55 lines
1.6 KiB
Mathematica
55 lines
1.6 KiB
Mathematica
:- module text.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module cairo.
|
|
:- import_module cairo.image.
|
|
:- import_module cairo.path.
|
|
:- import_module cairo.png.
|
|
:- import_module cairo.text.
|
|
|
|
:- import_module float.
|
|
:- import_module math.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
main(!IO) :-
|
|
cairo.image.create_surface(format_argb32, 256, 256, Surface, !IO),
|
|
cairo.create_context(Surface, Context, !IO),
|
|
|
|
text.select_font_face(Context, "Sans", slant_normal,
|
|
weight_bold, !IO),
|
|
text.set_font_size(Context, 90.0, !IO),
|
|
|
|
path.move_to(Context, 10.0, 135.0, !IO),
|
|
text.show_text(Context, "Hello", !IO),
|
|
|
|
path.move_to(Context, 70.0, 165.0, !IO),
|
|
path.text_path(Context, "void", !IO),
|
|
cairo.set_source_rgb(Context, 0.5, 0.5, 1.0, !IO),
|
|
cairo.fill_preserve(Context, !IO),
|
|
cairo.set_source_rgb(Context, 0.0, 0.0, 0.0, !IO),
|
|
cairo.set_line_width(Context, 2.56, !IO),
|
|
cairo.stroke(Context, !IO),
|
|
|
|
% Draw helping lines.
|
|
cairo.set_source_rgba(Context, 1.0, 0.2, 0.2, 0.6, !IO),
|
|
path.arc(Context, 10.0, 135.0, 5.12, 0.0, 2.0 * pi, !IO),
|
|
path.close_path(Context, !IO),
|
|
path.arc(Context, 70.0, 165.0, 5.12, 0.0, 2.0 * pi, !IO),
|
|
cairo.fill(Context, !IO),
|
|
|
|
write_surface_to_png(Surface, "text.png", !IO).
|
|
|
|
%----------------------------------------------------------------------------%
|
|
:- end_module text.
|
|
%----------------------------------------------------------------------------%
|