sub drawPoly {
	my @p = @_; #Array of  Vector2Ds

	my $start_point = pop( @p );
	while( pop( @p ) ) {
		$can->create( 'line', 
			$start_point->getx(),
			$start_point->gety(),
			$_->getx(),
			$_->gety());
		$start_point = $_;
	}
	
}