Help language development. Donate to The Perl Foundation

Font::FreeType cpan:WARRINGD last updated on 2020-10-24

examples/cairo
use Cairo;
use Font::FreeType;
use Font::FreeType::Face;

# use a FreeType font from Cairo
given Cairo::Image.create(Cairo::FORMAT_ARGB32, 256, 256) {
    given Cairo::Context.new($_) {

        my Font::FreeType $freetype .= new;

        # load a FreeType Face
        my Font::FreeType::Face $face = $freetype.face('t/fonts/DejaVuSans.ttf');
        # construct a Cairo Font
        my Cairo::Font $font .= create(
            $face.struct, :free-type,
        );

        # use it to display text
        .set_font_size(90.0);
        .set_font_face($font);
        .move_to(10.0, 135.0);
        .show_text("Hello");

        .move_to(70.0, 165.0);
        .text_path("font");
        .rgb(0.5, 0.5, 1);
        .fill(:preserve);
        .rgb(0, 0, 0);
        .line_width = 2.56;
        .stroke;

        # draw helping lines
        .rgba(1, 0.2, 0.2, 0.6);
        .arc(10.0, 135.0, 5.12, 0, 2*pi);
        .close_path;
        .arc(70.0, 165.0, 5.12, 0, 2*pi);
        .fill;
    }
    .write_png("cairo.png");
}