Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2017-09-23 17:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (273 votes). Check out past polls.

    Notices?