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

use lib qw(Core);
use lib qw(Classes);

use ImagesManager;

my $protein_pdb = '/data/CASP8/TARGETS/T0387.pdb';
my $output_big_image_png = '/home/zenyk/T0387.big.png';
my $output_small_image_png = '/home/zenyk/T0387.small.png';

my $images_manager = new ImagesManager();
$images_manager->protein_image($protein_pdb, $output_big_image_png, 500, 500);
$images_manager->protein_image($protein_pdb, $output_small_image_png, 74, 74);

print 1;