Conversion of raster data to GIF89 format.

See also

• The original code (Licence: public domain) was from here

History

• Version 1.01, August 1999, Written by Jos Bergervoet
• 2008 Jan 28: Modified by Clive Page to use stream I/O, array as colourmap.
• Jacob Williams, 7/27/2014. Refactored, updated, added ability to export animated gifs.

---

Contents

Subroutines

write_animated_gif

Subroutines

public subroutine write_animated_gif(filename, pixel, colormap, transparent, delay)

Author

Jacob Williams

Date

7/27/2014

Writes gif89 image, given pixel array and color map This version can create an animated gif:

Read more…

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename	file to create or replace
integer,	intent(in),		dimension(:,:,:)	::	pixel	pixel values [0 to ncol]
integer,	intent(in),		dimension(:,0:)	::	colormap	[r,g,b (0:255)] , [0:ncol] colors
integer,	intent(in),	optional		::	transparent	transparent color
integer,	intent(in),	optional		::	delay	delay time [1/100 of seconds]