Re: [perl-win32-gui-users] [win32-gui] DIBitmap and Animated GIFs?

2006-09-27 Thread Brian Millham
I've added my example (with the Coalesce fix added) to the wiki on sourceforge. I didn't add Rob's changes, since I figure that Rob will post his on the Wiki, giving different ways to approach the problem (that's what Perl's all about, right?!) Brian Millham This message traveled at least 44,000

Re: [perl-win32-gui-users] [win32-gui] DIBitmap and Animated GIFs?

2006-09-27 Thread Brian Millham
I'll go ahead an add the example to the Wiki (as soon as I figure out how) BTW, I just created a new project on sourceforge for my Win32::GUI::Skin module. It's currently pending approval. Brian Millham This message traveled at least 44,000 miles to reach you! Creator of the DW6000 Monitor http

Re: [perl-win32-gui-users] [win32-gui] DIBitmap and Animated GIFs?

2006-09-27 Thread Robert May
Brian Millham wrote: I've got a simple script that can display an animated gif. I think that it could be improved. It's a bit slow loading the gif, and it doesn't handle the missing information from some frames (changes from I-frames [in MPEG speak]) and it doesn't handle transparent background

Re: [perl-win32-gui-users] [win32-gui] DIBitmap and Animated GIFs?

2006-09-27 Thread Robert May
Glenn Linderman wrote: On approximately 9/27/2006 11:41 AM, came the following characters from the keyboard of Robert May: Brian Millham wrote: [various snips] Would this be a good script to add as an example script with the Win32::GUI distribution? I have a policy (open for discussio

Re: [perl-win32-gui-users] [win32-gui] DIBitmap and Animated GIFs?

2006-09-27 Thread Robert May
Brian Millham wrote: I've got a simple script that can display an animated gif. [snip] I think that it could be improved. It's a bit slow loading the gif, and it doesn't handle the missing information from some frames (changes from I-frames [in MPEG speak]) and it doesn't handle transparent

Re: [perl-win32-gui-users] [win32-gui] DIBitmap and Animated GIFs?

2006-09-27 Thread Steve Loughran
*cough* while ($temp <= $count) $temp = 0; while (temp <= $count) { #save the *coalesced* image $coalesce->[$temp]->Write(filename => "out-$temp.gif"); $temp++; }

Re: [perl-win32-gui-users] [win32-gui] DIBitmap and Animated GIFs?

2006-09-27 Thread Steve Loughran
I found the answer to the "delta" frames (and all the other problems that I was having: # $multi_image=Image::Magick->new; $multi_image->Read("gif_anim.gif"); $count = $#$multi_image; #coalesce the image $coalesce = $multi_image->Coalesce(); $temp = 0; while (temp <= $count) { #sa