package Karl::Fractals::Mandelbrot;

use Moo;
use strictures 1;
use namespace::clean;
use Inline C => 'DATA';

sub reckon {
    my ( $self, $x, $y ) = @_;
    mandelbrot( $x, $y );
}

has iterations => ( is => 'ro', default => 20 );
has width      => ( is => 'ro', default => 1280 );
has height     => ( is => 'ro', default => 1024 );

1;

__DATA__
__C__
/* fake */
int mandelbrot(int x, int y) {
  return x*y;
}