#!/usr/bin/perl

use Image::Magick;

use Device::SerialPort;

my $port = Device::SerialPort->new("/dev/ttyACM0");
$port->databits(8);
$port->baudrate(19200);
$port->parity("none");
$port->stopbits(1);

$count = 0;
$zaehler = 2;
$spalte = 0;
$zeile = 0;
$e = 1;
$rot = 0;
$gruen = 0;

for ($i = 0; $i <= 256; $i++)
  {

my $image = Image::Magick->new;

$image->Set(size=>'256x256');
$image->ReadImage('xc:white');
for ($sp = 0; $sp <= 256*256; $sp++)
  {
            if ($spalte == 256)
                 {
                  $spalte = 0;          # AN DEN ANFANG ZURUECK
                  $zeile = $zeile + 1;  # EINE ZEILE RUNTER

                 }
			
			my $blau=$port->read(3);
			$port->read_const_time(30);	
			$rot =~ s/\R//g;
			$gruen =~ s/\R//g;
			$blau =~ s/\R//g;	

		
	
			$farbe = "hsl(".$rot.",".$gruen.",".$blau.")";
			print "$farbe\n";
			print "$count\n";        
			$image->Draw(primitive=>'point', fill=>"$farbe", points=>"$zeile,$spalte");
			$spalte = $spalte + 1;
      			$zaehler = $zaehler + 1;
			$count = $count + 1;
       
		
  }
 $zeile = 0;
 #$image->display();
 $image->Write("image_$i.jpg");

 print "image_$i.jpg\n";
 }