Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
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??

Replies are listed 'Best First'.
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 having an uproarious good time at the Monastery: (11)
As of 2016-06-25 18:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (326 votes). Check out past polls.