Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Polygon Filling algorithm in Perl

by rbc (Curate)
on Sep 27, 2002 at 21:52 UTC ( #201359=perlcraft: print w/ replies, xml ) Need Help??

Comment on Polygon Filling algorithm in Perl
Download Code
Re: Polygon Filling algorithm in Perl
by hossman (Prior) on Sep 28, 2002 at 08:55 UTC

    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) );

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlcraft [id://201359]
Approved by ignatz
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (10)
As of 2014-10-20 10:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (75 votes), past polls