#!/usr/bin/env perl
use strict;
use warnings;

use Music::FretboardDiagram;

my $dia = Music::FretboardDiagram->new(
    chord    => '4442',
    position => 3,
    strings  => 4,
    frets    => 6,
    size     => 25,
    outfile  => $0,
    type     => 'bmp',
    #font     => '/path/to/TTF/font.ttf',
    tuning   => [qw/A E C G/],
    horiz    => 1,
    verbose  => 1,
);

$dia->draw();
