;---------;---------;---------;---------;---------;---------;---------;--------:
;File/Program exportWindowToGif
;2006/03/24 WCC
;This subprogram takes a Window object produced with Object Graphics and
; creates a GIF file.
;

;---------;---------;---------;---------;---------;---------;---------;--------:
PRO exportWindowToGif,oWindow,filename


oImage = oWindow->Read()			;create an image object from the window
oImage->GetProperty,DATA=image		;retrieve the data into image
image2D = COLOR_QUAN(image,1,R,G,B)	;convert image into indexed color
WRITE_GIF,filename,image2D,R,G,B	;create the GIF file
OBJ_DESTROY,oImage
END

;---------;---------;---------;---------;---------;---------;---------;--------: