GifEncoder Class

public class GifEncoder : ImageEncoder

Public Class GifEncoder
	Inherits ImageEncoder

private void CreateAnimatedGif(string fileName, ImageCollection images)
{
    // Find the maximum size of the animation.
    int width = 0;
    int height = 0;
    foreach(AtalaImage img in images)
    {
        if (img.Width > width)
            width = img.Width;

        if (img.Height > height)
            height = img.Height;
    }

    // Create the frame collection.
    GifFrameCollection col = new GifFrameCollection();
    col.Width = width;
    col.Height = height;
    col.LoopCount = 0;  // infinite
    col.TransparentIndex = -1;  // no transparency

    // Center each image.
    foreach(AtalaImage img in images)
    {
        GifFrame frame = new GifFrame(img, new Point((width - img.Width) / 2, (height - img.Height) / 2));
        col.Add(frame);
    }

    // Save the image.
    FileStream fs = new FileStream(fileName, FileMode.Create, FileAccess.Write);
    GifEncoder encoder = new GifEncoder();
    encoder.Save(fs, col, null);
    fs.Close();

    // Free the collection.
    col.Dispose();
}

Private  Sub CreateAnimatedGif(ByVal fileName As String, ByVal images As ImageCollection)
    ' Find the maximum size of the animation.
    Dim width As Integer =  0 
    Dim height As Integer =  0 
    Dim img As AtalaImage
    For Each img In images
        If img.Width > width Then
            width = img.Width
        End If

        If img.Height > height Then
            height = img.Height
        End If
    Next

    ' Create the frame collection.
    Dim col As GifFrameCollection =  New GifFrameCollection() 
    col.Width = width
    col.Height = height
    col.LoopCount = 0  ' infinite
    col.TransparentIndex = -1  ' no transparency

    ' Center each image.
    Dim img As AtalaImage
    For Each img In images
        Dim frame As GifFrame =  New GifFrame(img, New Point((width - img.Width) / 2,(height - img.Height) / 2)) 
        col.Add(frame)
    Next

    ' Save the image.
    Dim fs As FileStream =  New FileStream(fileName,FileMode.Create,FileAccess.Write) 
    Dim encoder As GifEncoder =  New GifEncoder() 
    encoder.Save(fs, col, Nothing)
    fs.Close()

    ' Free the collection.
    col.Dispose()
End Sub