Re: Polygon Filling algorithm in Perl

[hossman]

totally random thought...

I notice you defined all of your y coords based on the height .. but you used subtraction, so you're still making an assumption about the minimum height. Any time you can define some constraint on a value given another value, you should consider doing so in your code. That way if someone says "Hey this is cool, but it's a little big so i'll change the size to 50x60" your code can deal with the change flawlessly...

my $A = new Vector2D( int($width * 0.3125),  int($height * 0.65) );
my $B = new Vector2D( int($width * 0.46875), int($height * 0.75) );
my $C = new Vector2D( int($width * 0.65625), int($height * 0.55) );
my $D = new Vector2D( int($width * 0.65625), int($height * 0.25) );
my $E = new Vector2D( int($width * 0.46875), int($height * 0.45) );
my $F = new Vector2D( int($width * 0.3125),  int($height * 0.35) );