Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: New Module - Image::Tileset

by zentara (Archbishop)
on Jan 16, 2010 at 12:28 UTC ( #817758=note: print w/replies, xml ) Need Help??


in reply to New Module - Image::Tileset

Hi, this sounds like a cool idea, but your demo didn't display any Tk window, and there wasn't any Mainloop statement in the tk demo.... perhaps you forgot to manually pump the Tk eventloop?

Otherwise, this seems like such a cool idea for making tv ads and small mpg videos for displays.... simple and easy to modify

My idea to contribute, is a way to make mpeg movies out of the frames you assemble. For instance, you could create a canvas, based on a 32-by-32 tile size, move the sprites around, then take a snaphot.... then assemble those frames into a mpg movie, possibly synchronizing with sound.

For a way I experimented with the concept, see z-charcoal-video-converter


I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku

Replies are listed 'Best First'.
Re^2: New Module - Image::Tileset
by Kirsle (Pilgrim) on Jan 16, 2010 at 23:33 UTC
    Aha, thanks for pointing that out.

    Earlier in the coding, the animations() function would accept the ID of a specific animation and only return the info for that animation. I'd changed the function though to be "animation()" (singular), to keep the naming consistent with the tiles/tile methods. But then I didn't update the tk-animate.pl script.

    I've fixed it and repackaged it at the same URL. To fix it manually, just edit line 40 of tk-animate.pl

    - $pngs->{$id} = $ts->animations($id); + $pngs->{$id} = $ts->animation($id);

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://817758]
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: (6)
As of 2021-10-19 15:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (77 votes). Check out past polls.

    Notices?