Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Revenge of the Perl Quilt

by tame1 (Pilgrim)
on Mar 05, 2001 at 20:25 UTC ( #62266=note: print w/replies, xml ) Need Help??

in reply to Revenge of the Perl Quilt

Strange...I d/l'd from the d/l link. When I run this, it just keeps asking me for column and row numbers....over and over.
Of course I did run "perl -pi.bak -e 's/\015//g'" on it to clean out the ^M's

What does this little button do . .<Click>; "USER HAS SIGNED OFF FOR THE DAY"

Replies are listed 'Best First'.
Re: Re: Revenge of the Perl Quilt
by ailie (Friar) on Mar 06, 2001 at 05:47 UTC

    Corion is right - it doesn't run out of the box, since it needs image files of the fabrics. I have a tarball with the script and some sample swatches, so if anyone wants to play with it, /msg me and I'll pass that along.

    Good suggestions for features, Corion - I see this project growing. It's been a great way for me to learn Perl. I'd eventually like to have a web interface for it, where you could click checkboxes on which fabrics you want in the quilt, and enter a weighting factor for each fabric.

Re: Re: Revenge of the Perl Quilt
by Corion (Pope) on Mar 05, 2001 at 20:31 UTC

    This is because the code dosen't run out-of-the-box. You need to supply some "colors" (as numbers and filenames) for the quilt in the hash %numbers_to_fabrics.

    An interesting project would be to add the capability to read a directory full of images and mush them into a quilt. Also interesting would maybe be to add more user/error feedback - both projects can be easily completed by using Perlmonks Super Search (search for "Reading Directory" and/or File::Find) and by looking at the program code and carefully sprinkling print statements here and there.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://62266]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2018-06-21 08:51 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.