#!/usr/bin/perl
use strict;

#my $device	="/dev/ttyUSB0";
my $device	="test2.plt";

my $XOffset	=100;
my $YOffset	=100;
my $ScaleX	=7;
my $ScaleY	=7;
my $pencorr	=3;



my $maxx	=0;
my $maxy	=0;
my $newline	="";
#system("stty 9600 cs8 -parenb -parodd crtscts -ixon -ixoff -F $device");
 


open(OUT,'>'.$device);						# Öffne Ausgabe
open(IN,'<'."Zeichnung.ppm");	# Öffne Eingabe
init();


my $count	=0;
my $error	=0;
# Die ersten 3 Zeilen einer PPM Datei einlesen und auswerten. 
while(<IN>){
  my $data=$_;
  if ($count==0) {if ($data eq "P6\n") {$error=0;} else {$error=1;}  } 	# W 
enn nicht P6 dann scheisse. 
  if ($count==1) {print $data; ($maxx,$maxy)=split(/ /,$data);}		# Hier kri 
egen wir hoffentlich die Maße des Bildes... 
  if ($count==2) {print $data;last}					# Ich könnte noch den Farbraum über 
prüfen.. schreibe aber lieber blödsinn... 
  $count++;								# Ich kann auch zählen !!!
}

binmode (IN);

my $y		=0;	# Aktuelle Y-Position
my $ox		=0;	# Alter X Wert
my $oc		=0;	# Alter Farbwerb default Weiss, Schwarz wäre dann wohl logisch  
1... 
my $data	=0;	# Temp Variable 
my $format	="";
for my $i (1..$maxx) { # Es wird die $format Variable mit dem Format für de 
n unpack Befehl in der nächsten schleife forbereitet (gefüllt)
  $format=$format."I3";
}
while (read(IN,$data,$maxx*3)){ # Y-Schleife, die Daten für eine X-Zeile la 
nden $data. 
  my @data=unpack($format,$data); # hier wird $data auseinander genommen :  
jeweils 3 Bytes(Farbwerte) werden zusammengefasst und in ein Array geschmis 
sen

  my $x=0;	# Zu beginn ist X natürlich 0
  pu();		# Stift heben
  $oc=0;	# Alter Farbwert default 0 (weiss)
  pa($x,$y);	# Fahre den angehobenen Stift zur neuen Position
  $ox=$x;	# alex x ist neues x
  
  foreach (@data){ # X-Schleife
    my $test=$_*1;

    if ($test>3000000) { 	# Weisses Pixel wurde detektiert 
      if ($oc==1){ 		# Ist war der vorherige Pixel Schwarz
	  strich($ox,$y,$x,$y);	# Strich ziehen und zwar 
      }
	  $oc=0;
    
    } else { # Schwarzes Pixel wurde detektiert
      if ($oc==0){ # War der vorherige Pixel Weis ?
	    $ox=$x;
      }
	    $oc=1;

    }

    $x++;
    
  }
  if ($oc==1) { strich($ox,$y,$y,$maxx); } #Linie zuende ziehen

  $y++;
  print OUT "\n";
}

close IN;
close OUT;

sub init {
 print OUT "IN;";
 print OUT "VS20;";
}


sub pa {
  my $x	= shift;
  my $y	= shift;
  $x=$x*$ScaleX+$XOffset;
  $y=$y*$ScaleY+$YOffset;

  #print OUT "PA$x,$y; $newline";
  print OUT "PA$y,$x; $newline";

}

sub strich {
  my $x1 = shift;
  my $y1 = shift;
  my $x2 = shift;
  my $y2 = shift;
  
  pa($x1,$y1);
  pd();
  pa($x2-1,$y2);
  pu();
}

sub pu {
  print OUT "PU;$newline";
}

sub pd {
  print OUT "PD;$newline";
}