ITT Rule IDL Version 7.0 Manual do Utilizador Página 274

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 430
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 273
274 Chapter 10: Creating a File Writer
Example: TIFF File Writer iTool Developer’s Guide
RETURN, 0 ; failure
; Make sure that the object passed to this method is valid.
IF (~ OBJ_VALID(oImageData)) THEN BEGIN
MESSAGE, 'Invalid image data object.', /CONTINUE
RETURN, 0 ; failure
ENDIF
; First, we look for some image data.
oData = (oImageData->GetByType('IDLIMAGEPIXELS'))[0]
; If we did not get any image data, try retrieving a
; 2D array.
IF (~ OBJ_VALID(oData)) THEN BEGIN
oData = (oImageData->GetByType('IDLARRAY2D'))[0]
IF (~ OBJ_VALID(oData)) THEN RETURN, 0
ENDIF
; If we got neither image data nor a 2D array,
; exit with a failure code.
IF (~ oData->GetData(image)) THEN BEGIN
MESSAGE, 'Error retrieving image data.', /CONTINUE
RETURN, 0 ; failure
ENDIF
; Next, try to retrieve a palette object from the selected
; object.
oPalette = (oImageData->GetByType('IDLPALETTE'))[0]
; If we got a palette object, retrive the palette data
; and store the information in the variables red, green,
; and blue.
IF (OBJ_VALID(oPalette)) THEN BEGIN
success = oPalette->GetData(palette)
IF (N_ELEMENTS(palette) GT 0) THEN BEGIN
red = REFORM(palette[0,*])
green = REFORM(palette[1,*])
blue = REFORM(palette[2,*])
ENDIF
ENDIF
; Retrieve the number of dimensions in our image.
ndim = SIZE(image, /N_DIMENSIONS)
; Write the file. The REVERSE ensures that other
; applications will read the image in right side up.
WRITE_TIFF, strFilename, REVERSE(image, ndim), $
RED = red, GREEN = green, BLUE = blue
Vista de página 273
1 2 ... 269 270 271 272 273 274 275 276 277 278 279 ... 429 430

Comentários a estes Manuais

Sem comentários