PACKIMAGE Procedure
Stores an image into an associative array.
Usage
PACKIMAGE, ret_asarr, key_name
Input Parameters
ret_asarr—The associative array that will contain the image. If ret_asarr is undefined, PackImage will create ret_asarr. This image will become an HTML IMG element.
key_name—A scalar string naming the key that will reference the image in ret_asarr.
Keywords
ismap—If present and nonzero, the HTML IMG element generated from the image in ret_asarr will have the ISMAP attribute set.
tags—A scalar string containing additional IMG attributes to set.
Discussion
If ret_asarr is undefined at the time of calling PackImage, ret_asarr is created with two keys. If ret_asarr is defined at the time of calling PackImage, then two keys are added to ret_asarr. The two keys are:
key_name—References the 2D image array.key_namecolorMap—References the 3xN array of RGB color values, where N is the number of colors in the colortable, maximum of 256. The array is defined as:(ret_asarr('key_namecolorMap'))(0,*) = red intensity values(ret_asarr('key_namecolorMap'))(1,*) = green intensity values(ret_asarr('key_namecolorMap'))(2,*) = blue intensity valuesAdditional keys will be added to ret_asarr if the keywords Ismap and/or Tags are set (key_nameismap and key_nametags respectively).
Example
; Use PackImage to return image of surface defined by:
; f(x,y) = xSIN(y) + yCOS(x), -10 <= x,y, <= 10
SetImageSize, 500, 500
LOADCT, 5
x = FINDGEN(101)/5-10
y = x
z = FLTARR(101, 101)
FOR i = 0, 100 DO $
FOR j=0, 100 DO z(i, j)=x(i)*SIN(y(j)) + y(j)*COS(x(i))
SHADE_SURF, z, x, y, Ax=50, XCharsize=2, YCharsize=2, $
ZCharsize=2
XYOUTS, 163, 477, "f(x, y) = x*SIN(y) + y*COS(x)", $
Charsize=2, /Device
PackImage, ret_asarr, 'surface', /Ismap, $
Tags='border="0" allign="center" ' + $
'alt="Surface of f(x,y), Click to Zoom"'
RETURN, ret_asarr
See Also
