dropped all dependencies apart from SDL into the libs subdir
[summerhack] / libs / lib3ds / material.c
diff --git a/libs/lib3ds/material.c b/libs/lib3ds/material.c
new file mode 100644 (file)
index 0000000..7f93c75
--- /dev/null
@@ -0,0 +1,1084 @@
+/*
+ * The 3D Studio File Format Library
+ * Copyright (C) 1996-2001 by J.E. Hoffmann <je-h@gmx.net>
+ * All rights reserved.
+ *
+ * This program is  free  software;  you can redistribute it and/or modify it
+ * under the terms of the  GNU Lesser General Public License  as published by 
+ * the  Free Software Foundation;  either version 2.1 of the License,  or (at 
+ * your option) any later version.
+ *
+ * This  program  is  distributed in  the  hope that it will  be useful,  but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or  FITNESS FOR A  PARTICULAR PURPOSE.  See the  GNU Lesser General Public  
+ * License for more details.
+ *
+ * You should  have received  a copy of the GNU Lesser General Public License
+ * along with  this program;  if not, write to the  Free Software Foundation,
+ * Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ * $Id: material.c,v 1.18 2004/11/20 08:31:31 efalk Exp $
+ */
+#define LIB3DS_EXPORT
+#include <lib3ds/material.h>
+#include <lib3ds/chunk.h>
+#include <lib3ds/io.h>
+#include <stdlib.h>
+#include <math.h>
+#include <string.h>
+#ifdef WITH_DMALLOC
+#include <dmalloc.h>
+#endif
+
+
+/*!
+ * \defgroup material Materials
+ *
+ * \author J.E. Hoffmann <je-h@gmx.net>
+ */
+
+
+static void
+initialize_texture_map(Lib3dsTextureMap *map)
+{
+  map->flags = 0x10;
+  map->percent = 1.0f;
+  map->scale[0] = 1.0f;
+  map->scale[1] = 1.0f;
+}
+
+
+/*!
+ * Creates and returns a new, empty Lib3dsMaterial object.
+ *
+ * Initial value of the material is a shiny grey.
+ *
+ * \return     A pointer to the Lib3dsMaterial structure.
+ *             If the structure cannot be allocated, NULL is returned.
+ *
+ * \ingroup material
+ */
+Lib3dsMaterial*
+lib3ds_material_new()
+{
+  Lib3dsMaterial *mat;
+
+  mat = (Lib3dsMaterial*)calloc(sizeof(Lib3dsMaterial), 1);
+  if (!mat) {
+    return(0);
+  }
+
+  mat->ambient[0] = mat->ambient[1] = mat->ambient[2] = 0.588235f;
+  mat->diffuse[0] = mat->diffuse[1] = mat->diffuse[2] = 0.588235f;
+  mat->specular[0] = mat->specular[1] = mat->specular[2] = 0.898039f;
+  mat->shininess = 0.1f;
+  mat->wire_size = 1.0f;
+  mat->shading = 3;
+
+  initialize_texture_map(&mat->texture1_map);
+  initialize_texture_map(&mat->texture1_mask);
+  initialize_texture_map(&mat->texture2_map);
+  initialize_texture_map(&mat->texture2_mask);
+  initialize_texture_map(&mat->opacity_map);
+  initialize_texture_map(&mat->opacity_mask);
+  initialize_texture_map(&mat->bump_map);
+  initialize_texture_map(&mat->bump_mask);
+  initialize_texture_map(&mat->specular_map);
+  initialize_texture_map(&mat->specular_mask);
+  initialize_texture_map(&mat->shininess_map);
+  initialize_texture_map(&mat->shininess_mask);
+  initialize_texture_map(&mat->self_illum_map);
+  initialize_texture_map(&mat->self_illum_mask);
+  initialize_texture_map(&mat->reflection_map);
+  initialize_texture_map(&mat->reflection_mask);
+  
+  return(mat);
+}
+
+
+/*!
+ * \ingroup material
+ */
+void
+lib3ds_material_free(Lib3dsMaterial *material)
+{
+  memset(material, 0, sizeof(Lib3dsMaterial));
+  free(material);
+}
+
+
+static Lib3dsBool
+color_read(Lib3dsRgba rgb, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+  Lib3dsWord chunk;
+  Lib3dsBool have_lin=LIB3DS_FALSE;
+
+  if (!lib3ds_chunk_read_start(&c, 0, io)) {
+    return(LIB3DS_FALSE);
+  }
+
+  while ((chunk=lib3ds_chunk_read_next(&c, io))!=0) {
+    switch (chunk) {
+      case LIB3DS_LIN_COLOR_24:
+        {
+          int i;
+          for (i=0; i<3; ++i) {
+            rgb[i]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          }
+          rgb[3]=1.0f;
+        }
+        have_lin=LIB3DS_TRUE;
+        break;
+      case LIB3DS_COLOR_24:
+        /* gamma corrected color chunk
+           replaced in 3ds R3 by LIN_COLOR_24 */
+        if (!have_lin) {
+          int i;
+          for (i=0; i<3; ++i) {
+            rgb[i]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          }
+          rgb[3]=1.0f;
+        }
+        break;
+      default:
+        lib3ds_chunk_unknown(chunk);
+    }
+  }
+  
+  lib3ds_chunk_read_end(&c, io);
+  return(LIB3DS_TRUE);
+}
+
+
+static Lib3dsBool
+int_percentage_read(Lib3dsFloat *p, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+  Lib3dsWord chunk;
+
+  if (!lib3ds_chunk_read_start(&c, 0, io)) {
+    return(LIB3DS_FALSE);
+  }
+
+  while ((chunk=lib3ds_chunk_read_next(&c, io))!=0) {
+    switch (chunk) {
+      case LIB3DS_INT_PERCENTAGE:
+        {
+          Lib3dsIntw i=lib3ds_io_read_intw(io);
+          *p=(Lib3dsFloat)(1.0*i/100.0);
+        }
+        break;
+      default:
+        lib3ds_chunk_unknown(chunk);
+    }
+  }
+  
+  lib3ds_chunk_read_end(&c, io);
+  return(LIB3DS_TRUE);
+}
+
+
+static Lib3dsBool
+texture_map_read(Lib3dsTextureMap *map, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+  Lib3dsWord chunk;
+
+  if (!lib3ds_chunk_read_start(&c, 0, io)) {
+    return(LIB3DS_FALSE);
+  }
+
+  while ((chunk=lib3ds_chunk_read_next(&c, io))!=0) {
+    switch (chunk) {
+      case LIB3DS_INT_PERCENTAGE:
+        {
+          map->percent=1.0f*lib3ds_io_read_intw(io)/100.0f;
+        }
+        break;
+      case LIB3DS_MAT_MAPNAME:
+        {
+          if (!lib3ds_io_read_string(io, map->name, 64)) {
+            return(LIB3DS_FALSE);
+          }
+          lib3ds_chunk_dump_info("  NAME=%s", map->name);
+        }
+        break;
+      case LIB3DS_MAT_MAP_TILING:
+        {
+          map->flags=lib3ds_io_read_word(io);
+        }
+        break;
+      case LIB3DS_MAT_MAP_TEXBLUR:
+        {
+          map->blur=lib3ds_io_read_float(io);
+        }
+        break;
+      case LIB3DS_MAT_MAP_USCALE:
+        {
+          map->scale[0]=lib3ds_io_read_float(io);
+        }
+        break;
+      case LIB3DS_MAT_MAP_VSCALE:
+        {
+          map->scale[1]=lib3ds_io_read_float(io);
+        }
+        break;
+      case LIB3DS_MAT_MAP_UOFFSET:
+        {
+          map->offset[0]=lib3ds_io_read_float(io);
+        }
+        break;
+      case LIB3DS_MAT_MAP_VOFFSET:
+        {
+          map->offset[1]=lib3ds_io_read_float(io);
+        }
+        break;
+      case LIB3DS_MAT_MAP_ANG:
+        {
+          map->rotation=lib3ds_io_read_float(io);
+        }
+        break;
+      case LIB3DS_MAT_MAP_COL1:
+        {
+          map->tint_1[0]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_1[1]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_1[2]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+        }
+        break;
+      case LIB3DS_MAT_MAP_COL2:
+        {
+          map->tint_2[0]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_2[1]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_2[2]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+        }
+        break;
+      case LIB3DS_MAT_MAP_RCOL:
+        {
+          map->tint_r[0]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_r[1]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_r[2]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+        }
+        break;
+      case LIB3DS_MAT_MAP_GCOL:
+        {
+          map->tint_g[0]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_g[1]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_g[2]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+        }
+        break;
+      case LIB3DS_MAT_MAP_BCOL:
+        {
+          map->tint_b[0]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_b[1]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+          map->tint_b[2]=1.0f*lib3ds_io_read_byte(io)/255.0f;
+        }
+        break;
+      default:
+        lib3ds_chunk_unknown(chunk);
+    }
+  }
+  
+  lib3ds_chunk_read_end(&c, io);
+  return(LIB3DS_TRUE);
+}
+
+
+/*!
+ * \ingroup material
+ */
+static void
+texture_dump(const char *maptype, Lib3dsTextureMap *texture)
+{
+  ASSERT(texture);
+  if (strlen(texture->name)==0) {
+    return;
+  }
+  printf("  %s:\n", maptype);
+  printf("    name:        %s\n", texture->name);
+  printf("    flags:       %X\n", (unsigned)texture->flags);
+  printf("    percent:     %f\n", texture->percent);
+  printf("    blur:        %f\n", texture->blur);
+  printf("    scale:       (%f, %f)\n", texture->scale[0], texture->scale[1]);
+  printf("    offset:      (%f, %f)\n", texture->offset[0], texture->offset[1]);
+  printf("    rotation:    %f\n", texture->rotation);
+  printf("    tint_1:      (%f, %f, %f)\n",
+    texture->tint_1[0], texture->tint_1[1], texture->tint_1[2]);
+  printf("    tint_2:      (%f, %f, %f)\n",
+    texture->tint_2[0], texture->tint_2[1], texture->tint_2[2]);
+  printf("    tint_r:      (%f, %f, %f)\n",
+    texture->tint_r[0], texture->tint_r[1], texture->tint_r[2]);
+  printf("    tint_g:      (%f, %f, %f)\n",
+    texture->tint_g[0], texture->tint_g[1], texture->tint_g[2]);
+  printf("    tint_b:      (%f, %f, %f)\n",
+    texture->tint_b[0], texture->tint_b[1], texture->tint_b[2]);
+}
+
+
+/*!
+ * \ingroup material
+ */
+void
+lib3ds_material_dump(Lib3dsMaterial *material)
+{
+  ASSERT(material);
+  printf("  name:          %s\n", material->name);
+  printf("  ambient:       (%f, %f, %f)\n",
+    material->ambient[0], material->ambient[1], material->ambient[2]);
+  printf("  diffuse:       (%f, %f, %f)\n",
+    material->diffuse[0], material->diffuse[1], material->diffuse[2]);
+  printf("  specular:      (%f, %f, %f)\n",
+    material->specular[0], material->specular[1], material->specular[2]);
+  printf("  shininess:     %f\n", material->shininess);
+  printf("  shin_strength: %f\n", material->shin_strength);
+  printf("  use_blur:      %s\n", material->use_blur ? "yes" : "no");
+  printf("  blur:          %f\n", material->blur);
+  printf("  falloff:       %f\n", material->falloff);
+  printf("  additive:      %s\n", material->additive ? "yes" : "no");
+  printf("  use_falloff:   %s\n", material->use_falloff ? "yes" : "no");
+  printf("  self_illum:    %s\n", material->self_illum ? "yes" : "no");
+  printf("  self_ilpct:    %f\n", material->self_ilpct);
+  printf("  shading:       %d\n", material->shading);
+  printf("  soften:        %s\n", material->soften ? "yes" : "no");
+  printf("  face_map:      %s\n", material->face_map ? "yes" : "no");
+  printf("  two_sided:     %s\n", material->two_sided ? "yes" : "no");
+  printf("  map_decal:     %s\n", material->map_decal ? "yes" : "no");
+  printf("  use_wire:      %s\n", material->use_wire ? "yes" : "no");
+  printf("  use_wire_abs:  %s\n", material->use_wire_abs ? "yes" : "no");
+  printf("  wire_size:     %f\n", material->wire_size);
+  texture_dump("texture1_map", &material->texture1_map);
+  texture_dump("texture1_mask", &material->texture1_mask);
+  texture_dump("texture2_map", &material->texture2_map);
+  texture_dump("texture2_mask", &material->texture2_mask);
+  texture_dump("opacity_map", &material->opacity_map);
+  texture_dump("opacity_mask", &material->opacity_mask);
+  texture_dump("bump_map", &material->bump_map);
+  texture_dump("bump_mask", &material->bump_mask);
+  texture_dump("specular_map", &material->specular_map);
+  texture_dump("specular_mask", &material->specular_mask);
+  texture_dump("shininess_map", &material->shininess_map);
+  texture_dump("shininess_mask", &material->shininess_mask);
+  texture_dump("self_illum_map", &material->self_illum_map);
+  texture_dump("self_illum_mask", &material->self_illum_mask);
+  texture_dump("reflection_map", &material->reflection_map);
+  texture_dump("reflection_mask", &material->reflection_mask);
+  printf("  autorefl_map:\n");
+  printf("    flags        %X\n", (unsigned)material->autorefl_map.flags);
+  printf("    level        %d\n", (int)material->autorefl_map.level);
+  printf("    size         %d\n", (int)material->autorefl_map.size);
+  printf("    frame_step   %d\n", (int)material->autorefl_map.frame_step);
+  printf("\n");
+}
+
+
+/*!
+ * \ingroup material
+ */
+Lib3dsBool
+lib3ds_material_read(Lib3dsMaterial *material, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+  Lib3dsWord chunk;
+
+  ASSERT(material);
+  if (!lib3ds_chunk_read_start(&c, LIB3DS_MAT_ENTRY, io)) {
+    return(LIB3DS_FALSE);
+  }
+
+  while ((chunk=lib3ds_chunk_read_next(&c, io))!=0) {
+    switch (chunk) {
+      case LIB3DS_MAT_NAME:
+        {
+          if (!lib3ds_io_read_string(io, material->name, 64)) {
+            return(LIB3DS_FALSE);
+          }
+          lib3ds_chunk_dump_info("  NAME=%s", material->name);
+        }
+        break;
+      case LIB3DS_MAT_AMBIENT:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!color_read(material->ambient, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_DIFFUSE:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!color_read(material->diffuse, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SPECULAR:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!color_read(material->specular, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SHININESS:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!int_percentage_read(&material->shininess, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SHIN2PCT:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!int_percentage_read(&material->shin_strength, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_TRANSPARENCY:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!int_percentage_read(&material->transparency, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_XPFALL:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!int_percentage_read(&material->falloff, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SELF_ILPCT:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!int_percentage_read(&material->self_ilpct, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_USE_XPFALL:
+        {
+          material->use_falloff=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_REFBLUR:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!int_percentage_read(&material->blur, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_USE_REFBLUR:
+        {
+          material->use_blur=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_SHADING:
+        {
+          material->shading=lib3ds_io_read_intw(io);
+        }
+        break;
+      case LIB3DS_MAT_SELF_ILLUM:
+        {
+          material->self_illum=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_TWO_SIDE:
+        {
+          material->two_sided=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_DECAL:
+        {
+          material->map_decal=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_ADDITIVE:
+        {
+          material->additive=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_FACEMAP:
+        {
+          material->face_map=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_PHONGSOFT:
+        {
+          material->soften=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_WIRE:
+        {
+          material->use_wire=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_WIREABS:
+        {
+          material->use_wire_abs=LIB3DS_TRUE;
+        }
+        break;
+      case LIB3DS_MAT_WIRE_SIZE:
+        {
+          material->wire_size=lib3ds_io_read_float(io);
+        }
+        break;
+      case LIB3DS_MAT_TEXMAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->texture1_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_TEXMASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->texture1_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_TEX2MAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->texture2_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_TEX2MASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->texture2_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_OPACMAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->opacity_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_OPACMASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->opacity_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_BUMPMAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->bump_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_BUMPMASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->bump_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SPECMAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->specular_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SPECMASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->specular_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SHINMAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->shininess_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SHINMASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->shininess_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SELFIMAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->self_illum_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_SELFIMASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->self_illum_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_REFLMAP:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->reflection_map, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_REFLMASK:
+        {
+          lib3ds_chunk_read_reset(&c, io);
+          if (!texture_map_read(&material->reflection_mask, io)) {
+            return(LIB3DS_FALSE);
+          }
+        }
+        break;
+      case LIB3DS_MAT_ACUBIC:
+        {
+          lib3ds_io_read_intb(io);
+          material->autorefl_map.level=lib3ds_io_read_intb(io);
+          material->autorefl_map.flags=lib3ds_io_read_intw(io);
+          material->autorefl_map.size=lib3ds_io_read_intd(io);
+          material->autorefl_map.frame_step=lib3ds_io_read_intd(io);
+        }
+        break;
+      default:
+        lib3ds_chunk_unknown(chunk);
+    }
+  }
+
+  lib3ds_chunk_read_end(&c, io);
+  return(LIB3DS_TRUE);
+}
+
+
+static Lib3dsBool
+color_write(Lib3dsRgba rgb, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+
+  c.chunk=LIB3DS_COLOR_24;
+  c.size=9;
+  lib3ds_chunk_write(&c,io);
+  lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*rgb[0]+0.5));
+  lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*rgb[1]+0.5));
+  lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*rgb[2]+0.5));
+
+  c.chunk=LIB3DS_LIN_COLOR_24;
+  c.size=9;
+  lib3ds_chunk_write(&c,io);
+  lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*rgb[0]+0.5));
+  lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*rgb[1]+0.5));
+  lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*rgb[2]+0.5));
+
+  return(LIB3DS_TRUE);
+}
+
+
+static Lib3dsBool
+int_percentage_write(Lib3dsFloat p, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+
+  c.chunk=LIB3DS_INT_PERCENTAGE;
+  c.size=8;
+  lib3ds_chunk_write(&c,io);
+  lib3ds_io_write_intw(io, (Lib3dsByte)floor(100.0*p+0.5));
+
+  return(LIB3DS_TRUE);
+}
+
+
+static Lib3dsBool
+texture_map_write(Lib3dsWord chunk, Lib3dsTextureMap *map, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+
+  if (strlen(map->name)==0) {
+    return(LIB3DS_TRUE);
+  }
+  c.chunk=chunk;
+  if (!lib3ds_chunk_write_start(&c,io)) {
+    return(LIB3DS_FALSE);
+  }
+  
+  int_percentage_write(map->percent,io);
+
+  { /*---- LIB3DS_MAT_MAPNAME ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAPNAME;
+    c.size=6+strlen(map->name)+1;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_string(io, map->name);
+  }
+
+  { /*---- LIB3DS_MAT_MAP_TILING ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_TILING;
+    c.size=8;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_word(io, (Lib3dsWord)map->flags);
+  }
+  
+  { /*---- LIB3DS_MAT_MAP_TEXBLUR ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_TEXBLUR;
+    c.size=10;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_float(io, map->blur);
+  }
+
+  { /*---- LIB3DS_MAT_MAP_USCALE ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_USCALE;
+    c.size=10;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_float(io, map->scale[0]);
+  }
+
+  { /*---- LIB3DS_MAT_MAP_VSCALE ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_VSCALE;
+    c.size=10;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_float(io, map->scale[1]);
+  }
+
+  { /*---- LIB3DS_MAT_MAP_UOFFSET ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_UOFFSET;
+    c.size=10;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_float(io, map->offset[0]);
+  }
+
+  { /*---- LIB3DS_MAT_MAP_VOFFSET ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_VOFFSET;
+    c.size=10;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_float(io, map->offset[1]);
+  }
+
+  { /*---- LIB3DS_MAT_MAP_ANG ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_ANG;
+    c.size=10;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_float(io, map->rotation);
+  }
+
+  { /*---- LIB3DS_MAT_MAP_COL1 ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_COL1;
+    c.size=9;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_1[0]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_1[1]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_1[2]+0.5));
+  }
+
+  { /*---- LIB3DS_MAT_MAP_COL2 ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_COL2;
+    c.size=9;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_2[0]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_2[1]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_2[2]+0.5));
+  }
+  
+  { /*---- LIB3DS_MAT_MAP_RCOL ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_RCOL;
+    c.size=9;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_r[0]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_r[1]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_r[2]+0.5));
+  }
+
+  { /*---- LIB3DS_MAT_MAP_GCOL ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_GCOL;
+    c.size=9;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_g[0]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_g[1]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_g[2]+0.5));
+  }
+  
+  { /*---- LIB3DS_MAT_MAP_BCOL ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_MAP_BCOL;
+    c.size=9;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_b[0]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_b[1]+0.5));
+    lib3ds_io_write_byte(io, (Lib3dsByte)floor(255.0*map->tint_b[2]+0.5));
+  }
+
+  if (!lib3ds_chunk_write_end(&c,io)) {
+    return(LIB3DS_FALSE);
+  }
+  return(LIB3DS_TRUE);
+}
+
+
+/*!
+ * \ingroup material
+ */
+Lib3dsBool
+lib3ds_material_write(Lib3dsMaterial *material, Lib3dsIo *io)
+{
+  Lib3dsChunk c;
+
+  c.chunk=LIB3DS_MAT_ENTRY;
+  if (!lib3ds_chunk_write_start(&c,io)) {
+    return(LIB3DS_FALSE);
+  }
+
+  { /*---- LIB3DS_MAT_NAME ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_NAME;
+    c.size=6+strlen(material->name)+1;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_string(io, material->name);
+  }
+
+  { /*---- LIB3DS_MAT_AMBIENT ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_AMBIENT;
+    c.size=24;
+    lib3ds_chunk_write(&c,io);
+    color_write(material->ambient,io);
+  }
+
+  { /*---- LIB3DS_MAT_DIFFUSE ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_DIFFUSE;
+    c.size=24;
+    lib3ds_chunk_write(&c,io);
+    color_write(material->diffuse,io);
+  }
+
+  { /*---- LIB3DS_MAT_SPECULAR ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_SPECULAR;
+    c.size=24;
+    lib3ds_chunk_write(&c,io);
+    color_write(material->specular,io);
+  }
+
+  { /*---- LIB3DS_MAT_SHININESS ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_SHININESS;
+    c.size=14;
+    lib3ds_chunk_write(&c,io);
+    int_percentage_write(material->shininess,io);
+  }
+
+  { /*---- LIB3DS_MAT_SHIN2PCT ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_SHIN2PCT;
+    c.size=14;
+    lib3ds_chunk_write(&c,io);
+    int_percentage_write(material->shin_strength,io);
+  }
+
+  { /*---- LIB3DS_MAT_TRANSPARENCY ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_TRANSPARENCY;
+    c.size=14;
+    lib3ds_chunk_write(&c,io);
+    int_percentage_write(material->transparency,io);
+  }
+
+  { /*---- LIB3DS_MAT_XPFALL ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_XPFALL;
+    c.size=14;
+    lib3ds_chunk_write(&c,io);
+    int_percentage_write(material->falloff,io);
+  }
+
+  if (material->use_falloff) { /*---- LIB3DS_MAT_USE_XPFALL ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_USE_XPFALL;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  { /*---- LIB3DS_MAT_SHADING ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_SHADING;
+    c.size=8;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_intw(io, material->shading);
+  }
+
+  { /*---- LIB3DS_MAT_REFBLUR ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_REFBLUR;
+    c.size=14;
+    lib3ds_chunk_write(&c,io);
+    int_percentage_write(material->blur,io);
+  }
+
+  if (material->use_blur) { /*---- LIB3DS_MAT_USE_REFBLUR ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_USE_REFBLUR;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  if (material->self_illum) { /*---- LIB3DS_MAT_SELF_ILLUM ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_SELF_ILLUM;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  if (material->two_sided) { /*---- LIB3DS_MAT_TWO_SIDE ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_TWO_SIDE;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+  
+  if (material->map_decal) { /*---- LIB3DS_MAT_DECAL ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_DECAL;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  if (material->additive) { /*---- LIB3DS_MAT_ADDITIVE ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_ADDITIVE;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  if (material->use_wire) { /*---- LIB3DS_MAT_WIRE ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_WIRE;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  if (material->use_wire_abs) { /*---- LIB3DS_MAT_WIREABS ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_WIREABS;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  { /*---- LIB3DS_MAT_WIRE_SIZE ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_WIRE_SIZE;
+    c.size=10;
+    lib3ds_chunk_write(&c,io);
+    lib3ds_io_write_float(io, material->wire_size);
+  }
+
+  if (material->face_map) { /*---- LIB3DS_MAT_FACEMAP ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_FACEMAP;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  if (material->soften) { /*---- LIB3DS_MAT_PHONGSOFT ----*/
+    Lib3dsChunk c;
+    c.chunk=LIB3DS_MAT_PHONGSOFT;
+    c.size=6;
+    lib3ds_chunk_write(&c,io);
+  }
+
+  if (!texture_map_write(LIB3DS_MAT_TEXMAP, &material->texture1_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_TEXMASK, &material->texture1_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_TEX2MAP, &material->texture2_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_TEX2MASK, &material->texture2_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_OPACMAP, &material->opacity_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_OPACMASK, &material->opacity_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_BUMPMAP, &material->bump_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_BUMPMASK, &material->bump_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_SPECMAP, &material->specular_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_SPECMASK, &material->specular_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_SHINMAP, &material->shininess_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_SHINMASK, &material->shininess_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_SELFIMAP, &material->self_illum_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_SELFIMASK, &material->self_illum_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_REFLMAP,  &material->reflection_map, io)) {
+    return(LIB3DS_FALSE);
+  }
+  if (!texture_map_write(LIB3DS_MAT_REFLMASK,  &material->reflection_mask, io)) {
+    return(LIB3DS_FALSE);
+  }
+
+  if (!lib3ds_chunk_write_end(&c,io)) {
+    return(LIB3DS_FALSE);
+  }
+  return(LIB3DS_TRUE);
+}
+
+
+/*!
+
+\typedef Lib3dsMaterial
+  \ingroup material
+  \sa _Lib3dsMaterial
+
+*/
+