#!/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,
    string_color => 'blue',
    fret_color   => 'darkgray',
    dot_color    => 'gray',
);

$dia->draw();
