use strict;
use warnings;
use PDL;
use Prima qw(Application);
use PDL::Graphics::Prima;
use PDL::NiceSlice;

# Create a block with random points set to one:
my $size = 200;
my $values = zeroes($size, $size);

# Set 500 random points to 1
use PDL::NiceSlice;
for (1..500) {
	my ($x, $y) = (int(rand($size)), int(rand($size)));
	$values($x, $y) .= 1;
}

# Smear out the points:
use PDL::Image2D;
my $to_plot = $values->box2d($size/10, $size/10, 1);

# Build the main window in which to display the plot:
my $wDisplay = Prima::MainWindow->create(
	text    => 'Intensity Plot Test',
	size	=> [500, 500],
);

# Build the plot with the points on top and the smear below:
$wDisplay->insert('Plot',
	pack => { fill => 'both', expand => 1},
	-random => ds::Grid($values
		, bounds => [0,1, 1,2]
	),
	-intensity => ds::Grid($to_plot
		, bounds => [0, 0, 1, 1]
		, plotType => pgrid::Matrix(palette => pal::WhiteToHSV(0, 1, 1))
	),
	
);

run Prima;