#!c:\strawberry\perl\bin\perl.exe -w

use diagnostics;
use autodie;
use Data::Dumper;
use Getopt::Long;               # We process long commandline options, better to read, longer time to think over it.
use Config::Tiny;               # simple configurations
use Math::Polygon::Calc;
use CAD::Calc;
use strict;


print "huhu\n";

#my $poly = Math::Polygon->new( [0, 0], [3, 2], [2, 3.5], [0.5, 6], [0, 8], [-0.5, 6], [-2, 3.5], [-3, 2], [0, 0]);
my @apoly = ( [0, 0], [3, 2], [2, 3.5], [0.5, 6], [0, 8], [-0.5, 6], [-2, 3.5], [-3, 2], [0, 0]);
my $bpoly=\@apoly;

print "\n";
if (checkforoffset($bpoly,[0,1],0.1))
{
        print "1,1: drin\n";
}
else
{
        print "1,1: draußen\n";
}

exit 0;



sub checkforoffset
{
        my $pref=shift;
        my $pt=shift;
        my $dist=shift;
        print "checkforoffset called:\n";
        print Dumper($pref);
        
        for (my $idx=1; $idx < scalar(@$pref);  ++$idx)
        {
                my $ldist=getdistance($pref->[$idx-1], $pref->[$idx], $pt);
                print "dist $ldist \n";
                if ($dist >= $ldist)
                {
                        return (1==0);
                }
        }       
        return (1==1);
}

sub getdistance
{
        print "getdistance called:\n";
        print Dumper(\@_);
        my ($p0,$p1,$pt)=shift;
        print Dumper($p0);
        print Dumper($p1);
        print Dumper($pt);
        my $vx=$p1->[0]-$p0->[0];
        my $vy=$p1->[1]-$p0->[0];
        print "$vx $vy \n";
        return (
                abs($vy*$pt->[0] - $vx*$pt->[1] + $p1->[0]*$p0->[1] - $p1->[1]*$p0->[0]) /
                sqrt($vy**2 + $vx**2)
                );
}