![]() |
HDF User’s GuideVersion 4.2r4 |
[Top] [Prev][Next] |
pal_ex1.c#include "hdf.h" main( ) { uint8 palette_data[768]; intn i; int32 status; /* Initialize the palette to grayscale. */ for (i = 0; i < 256; i++) { palette_data[i * 3] = i; palette_data[i * 3 + 1] = i; palette_data[i * 3 + 2] = i; } /* Write the palette to file. */ status = DFPaddpal("Example1.hdf", (VOIDP)palette_data); }pal_ex1.fPROGRAM WRITE PALETTE integer dpapal, status, i character palette_data(768) C Initialize the palette to greyscale. do 10, i = 1, 256 palette_data((i - 1) * 3 + 1) = char(i - 1) palette_data((i - 1) * 3 + 2) = char(i - 1) palette_data((i - 1) * 3 + 3) = char(i - 1) 10 continue C Write the palette to the HDF file. status = dpapal(`Example1.hdf', palette_data) endpal_ex2.c#include "hdf.h" main( ) { uint8 palette_data[768]; intn status; /* Read the palette data from a file. */ status = DFPgetpal("Example1.hdf", (VOIDP)palette_data); }pal_ex2.f
HDF4.2r4 - February 2009 Copyright |
The HDF Group www.hdfgroup.org ![]() |