1 files changed, 66 insertions, 0 deletions
diff --git a/windows/hl/src/ex_images.c b/windows/hl/src/ex_images.c
new file mode 100755
index 0000000..f987796
--- /dev/null
+++ b/windows/hl/src/ex_images.c
@@ -0,0 +1,66 @@
+/****************************************************************************
+ * NCSA HDF                                                                 *
+ * Scientific Data Technologies                                             *
+ * National Center for Supercomputing Applications                          *
+ * University of Illinois at Urbana-Champaign                               *
+ * 605 E. Springfield, Champaign IL 61820                                   *
+ *                                                                          *
+ * For conditions of distribution and use, see the accompanying             *
+ * hdf/COPYING f.                                                        *
+ *                                                                          *
+ ****************************************************************************/
+
+
+#include "H5IM.h"
+
+
+#define WIDTH  (hsize_t)500
+#define HEIGHT (hsize_t)200
+unsigned char data [ WIDTH*HEIGHT ];
+
+
+int main( void )
+{
+ hid_t         file_id;
+ herr_t        status;
+ hsize_t       pal_dims[] = {9,3};
+ hsize_t       i;
+ /* create a 9 entry palette */
+ unsigned char pal[9*3] = {0, 0, 168,
+  0, 0, 252,
+  0, 168, 252,
+  84, 252, 252,
+  168, 252, 168,
+  0, 252, 168,
+  252, 252, 84,
+  252, 168, 0,
+  252, 0, 0};
+
+	EXAMPLE("make indexed image");
+ 
+ 
+ for (i = 0; i < WIDTH*HEIGHT; i++ )
+  data[i] = (unsigned char)i;
+ 
+ /* Create a new HDF5 file using default properties. */
+ file_id = H5Fcreate( "ex_image1.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT );
+ 
+ /* Write image */
+ status = H5IMmake_image_8bit( file_id, "Image1", WIDTH, HEIGHT, data );
+ 
+ /* Make a palette */
+ status = H5IMmake_palette( file_id, "Pallete", pal_dims, pal );
+ 
+ /* Attach a palette to the image dataset */
+ status = H5IMlink_palette( file_id, "Image1", "Pallete" );
+ 
+ /* Close the file. */
+ status = H5Fclose( file_id );
+
+	PASSED();
+ 
+ return 0;
+ 
+ 
+}
+