WebSVN – gelsvn – Diff – /trunk/apps/RangeScanViewer/plyfile.c


/*
 
The interface routines for reading and writing PLY polygon files.
 
Greg Turk, February 1994
 
---------------------------------------------------------------
 
A PLY file contains a single polygonal _object_.
 
An object is composed of lists of _elements_.  Typical elements are
vertices, faces, edges and materials.
 
Each type of element for a given object has one or more _properties_
associated with the element type.  For instance, a vertex element may
have as properties the floating-point values x,y,z and the three unsigned
chars representing red, green and blue.
 
---------------------------------------------------------------
 
Copyright (c) 1994 The Board of Trustees of The Leland Stanford
Junior University.  All rights reserved.   
  
Permission to use, copy, modify and distribute this software and its   
documentation for any purpose is hereby granted without fee, provided   
that the above copyright notice and this permission notice appear in   
all copies of this software and that you do not sell the software.   
  
THE SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND,   
EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY   
WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.   
 
*/
 
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
#include <fcntl.h>
#include "ply.h"
 
#ifdef __cplusplus
extern "C" {
#endif
 
char *type_names[] = {
"invalid",
"char", "short", "int",
"uchar", "ushort", "uint",
"float", "double",
};
 
int ply_type_size[] = {
  0, 1, 2, 4, 1, 2, 4, 4, 8
};
 
#define NO_OTHER_PROPS  -1
 
#define DONT_STORE_PROP  0
#define STORE_PROP       1
 
#define OTHER_PROP       0
#define NAMED_PROP       1
 
/* memory allocation */
char *my_alloc();
#define myalloc(mem_size) my_alloc((mem_size), __LINE__, __FILE__)
 
/* returns 1 if strings are equal, 0 if not */
int equal_strings(char *, char *);
 
/* find an element in a plyfile's list */
PlyElement *find_element(PlyFile *, char *);
 
/* find a property in an element's list */
PlyProperty *find_property(PlyElement *, char *, int *);
 
/* write to a file the word describing a PLY file data type */
void write_scalar_type (FILE *, int);
 
/* read a line from a file and break it up into separate words */
char **get_words(FILE *, int *, char **);
char **old_get_words(FILE *, int *);
 
/* write an item to a file */
void write_binary_item(FILE *, int, unsigned int, double, int, int);
void write_ascii_item(FILE *, int, unsigned int, double, int);
double old_write_ascii_item(FILE *, char *, int);
 
/* add information to a PLY file descriptor */
void add_element(PlyFile *, char **, int);
void add_property(PlyFile *, char **, int);
void add_comment(PlyFile *, char *);
void add_obj_info(PlyFile *, char *);
 
/* copy a property */
void copy_property(PlyProperty *, PlyProperty *);
 
/* store a value into where a pointer and a type specify */
void store_item(char *, int, int, unsigned int, double);
 
/* return the value of a stored item */
void get_stored_item( void *, int, int *, unsigned int *, double *);
 
/* return the value stored in an item, given ptr to it and its type */
double get_item_value(char *, int);
 
/* get binary or ascii item and store it according to ptr and type */
void get_ascii_item(char *, int, int *, unsigned int *, double *);
void get_binary_item(FILE *, int, int *, unsigned int *, double *, int);
 
/* get a bunch of elements from a file */
void ascii_get_element(PlyFile *, char *, int);
void binary_get_element(PlyFile *, char *, int);
 
 
/*************/
/*  Writing  */
/*************/
 
 
/******************************************************************************
Given a file pointer, get ready to write PLY data to the file.
 
Entry:
  fp         - the given file pointer
  nelems     - number of elements in object
  elem_names - list of element names
  file_type  - file type, either ascii or binary
 
Exit:
  returns a pointer to a PlyFile, used to refer to this file, or NULL if error
******************************************************************************/
 
PlyFile *ply_write(
  FILE *fp,
  int nelems,
  char **elem_names,
  int file_type
)
{
  int i;
  PlyFile *plyfile;
  PlyElement *elem;
 
  /* check for NULL file pointer */
  if (fp == NULL)
    return (NULL);
 
#ifdef WIN32
  /* Make sure file has the correct (ascii/binary) mode */
  if (file_type == PLY_ASCII)
    setmode(fileno(fp), _O_TEXT);
  else
    setmode(fileno(fp), _O_BINARY);
#endif
 
  /* create a record for this object */
 
  plyfile = (PlyFile *) myalloc (sizeof (PlyFile));
  plyfile->file_type = file_type;
  plyfile->num_comments = 0;
  plyfile->num_obj_info = 0;
  plyfile->nelems = nelems;
  plyfile->version = 1.0;
  plyfile->fp = fp;
  plyfile->other_elems = NULL;
 
  /* tuck aside the names of the elements */
 
  plyfile->elems = (PlyElement **) myalloc (sizeof (PlyElement *) * nelems);
  for (i = 0; i < nelems; i++) {
    elem = (PlyElement *) myalloc (sizeof (PlyElement));
    plyfile->elems[i] = elem;
    elem->name = strdup (elem_names[i]);
    elem->num = 0;
    elem->nprops = 0;
  }
 
  /* return pointer to the file descriptor */
  return (plyfile);
}
 
 
/******************************************************************************
Open a polygon file for writing.
 
Entry:
  filename   - name of file to read from
  nelems     - number of elements in object
  elem_names - list of element names
  file_type  - file type, either ascii or binary
 
Exit:
  version - version number of PLY file
  returns a file identifier, used to refer to this file, or NULL if error
******************************************************************************/
 
PlyFile *ply_open_for_writing(
  const char *filename,
  int nelems,
  char **elem_names,
  int file_type,
  float *version
)
{
 
  PlyFile *plyfile;
 
  char *name;
  FILE *fp;
 
  /* tack on the extension .ply, if necessary */
 
  name = (char *) myalloc (sizeof (char) * (strlen (filename) + 5));
  strcpy (name, filename);
  if (strlen (name) < 4 ||
      strcmp (name + strlen (name) - 4, ".ply") != 0)
      strcat (name, ".ply");
 
  /* open the file for writing */
 
  fp = fopen (name, "w");
  if (fp == NULL) {
    return (NULL);
  }
 
  /* create the actual PlyFile structure */
 
  plyfile = ply_write (fp, nelems, elem_names, file_type);
  if (plyfile == NULL)
    return (NULL);
 
  /* say what PLY file version number we're writing */
  *version = plyfile->version;
 
  /* return pointer to the file descriptor */
  return (plyfile);
}
 
 
/******************************************************************************
Describe an element, including its properties and how many will be written
to the file.
 
Entry:
  plyfile   - file identifier
  elem_name - name of element that information is being specified about
  nelems    - number of elements of this type to be written
  nprops    - number of properties contained in the element
  prop_list - list of properties
******************************************************************************/
 
void ply_describe_element(
  PlyFile *plyfile,
  char *elem_name,
  int nelems,
  int nprops,
  PlyProperty *prop_list
)
{
  int i;
  PlyElement *elem;
  PlyProperty *prop;
 
  /* look for appropriate element */
  elem = find_element (plyfile, elem_name);
  if (elem == NULL) {
    fprintf(stderr,"ply_describe_element: can't find element '%s'\n",elem_name);
    exit (-1);
  }
 
  elem->num = nelems;
 
  /* copy the list of properties */
 
  elem->nprops = nprops;
  elem->props = (PlyProperty **) myalloc (sizeof (PlyProperty *) * nprops);
  elem->store_prop = (char *) myalloc (sizeof (char) * nprops);
 
  for (i = 0; i < nprops; i++) {
    prop = (PlyProperty *) myalloc (sizeof (PlyProperty));
    elem->props[i] = prop;
    elem->store_prop[i] = NAMED_PROP;
    copy_property (prop, &prop_list[i]);
  }
}
 
 
/******************************************************************************
Describe a property of an element.
 
Entry:
  plyfile   - file identifier
  elem_name - name of element that information is being specified about
  prop      - the new property
******************************************************************************/
 
void ply_describe_property(
  PlyFile *plyfile,
  char *elem_name,
  PlyProperty *prop
)
{
  PlyElement *elem;
  PlyProperty *elem_prop;
 
  /* look for appropriate element */
  elem = find_element (plyfile, elem_name);
  if (elem == NULL) {
    fprintf(stderr, "ply_describe_property: can't find element '%s'\n",
            elem_name);
    return;
  }
 
  /* create room for new property */
 
  if (elem->nprops == 0) {
    elem->props = (PlyProperty **) myalloc (sizeof (PlyProperty *));
    elem->store_prop = (char *) myalloc (sizeof (char));
    elem->nprops = 1;
  }
  else {
    elem->nprops++;
    elem->props = (PlyProperty **)
                  realloc (elem->props, sizeof (PlyProperty *) * elem->nprops);
    elem->store_prop = (char *)
                  realloc (elem->store_prop, sizeof (char) * elem->nprops);
  }
 
  /* copy the new property */
 
  elem_prop = (PlyProperty *) myalloc (sizeof (PlyProperty));
  elem->props[elem->nprops - 1] = elem_prop;
  elem->store_prop[elem->nprops - 1] = NAMED_PROP;
  copy_property (elem_prop, prop);
}
 
 
/******************************************************************************
Describe what the "other" properties are that are to be stored, and where
they are in an element.
******************************************************************************/
 
void ply_describe_other_properties(
  PlyFile *plyfile,
  PlyOtherProp *other,
  int offset
)
{
  int i;
  PlyElement *elem;
  PlyProperty *prop;
 
  /* look for appropriate element */
  elem = find_element (plyfile, other->name);
  if (elem == NULL) {
    fprintf(stderr, "ply_describe_other_properties: can't find element '%s'\n",
            other->name);
    return;
  }
 
  /* create room for other properties */
 
  if (elem->nprops == 0) {
    elem->props = (PlyProperty **)
                  myalloc (sizeof (PlyProperty *) * other->nprops);
    elem->store_prop = (char *) myalloc (sizeof (char) * other->nprops);
    elem->nprops = 0;
  }
  else {
    int newsize;
    newsize = elem->nprops + other->nprops;
    elem->props = (PlyProperty **)
                  realloc (elem->props, sizeof (PlyProperty *) * newsize);
    elem->store_prop = (char *)
                  realloc (elem->store_prop, sizeof (char) * newsize);
  }
 
  /* copy the other properties */
 
  for (i = 0; i < other->nprops; i++) {
    prop = (PlyProperty *) myalloc (sizeof (PlyProperty));
    copy_property (prop, other->props[i]);
    elem->props[elem->nprops] = prop;
    elem->store_prop[elem->nprops] = OTHER_PROP;
    elem->nprops++;
  }
 
  /* save other info about other properties */
  elem->other_size = other->size;
  elem->other_offset = offset;
}
 
 
/******************************************************************************
State how many of a given element will be written.
 
Entry:
  plyfile   - file identifier
  elem_name - name of element that information is being specified about
  nelems    - number of elements of this type to be written
******************************************************************************/
 
void ply_element_count(
  PlyFile *plyfile,
  char *elem_name,
  int nelems
)
{
 
  PlyElement *elem;
 
 
  /* look for appropriate element */
  elem = find_element (plyfile, elem_name);
  if (elem == NULL) {
    fprintf(stderr,"ply_element_count: can't find element '%s'\n",elem_name);
    exit (-1);
  }
 
  elem->num = nelems;
}
 
 
/******************************************************************************
Signal that we've described everything a PLY file's header and that the
header should be written to the file.
 
Entry:
  plyfile - file identifier
******************************************************************************/
 
void ply_header_complete(PlyFile *plyfile)
{
  int i,j;
  FILE *fp = plyfile->fp;
  PlyElement *elem;
  PlyProperty *prop;
 
  fprintf (fp, "ply\n");
 
  switch (plyfile->file_type) {
    case PLY_ASCII:
      fprintf (fp, "format ascii 1.0\n");
      break;
    case PLY_BINARY_BE:
      fprintf (fp, "format binary_big_endian 1.0\n");
      break;
    case PLY_BINARY_LE:
      fprintf (fp, "format binary_little_endian 1.0\n");
      break;
    default:
      fprintf (stderr, "ply_header_complete: bad file type = %d\n",
               plyfile->file_type);
      exit (-1);
  }
 
  /* write out the comments */
 
  for (i = 0; i < plyfile->num_comments; i++)
    fprintf (fp, "comment %s\n", plyfile->comments[i]);
 
  /* write out object information */
 
  for (i = 0; i < plyfile->num_obj_info; i++)
    fprintf (fp, "obj_info %s\n", plyfile->obj_info[i]);
 
  /* write out information about each element */
 
  for (i = 0; i < plyfile->nelems; i++) {
 
    elem = plyfile->elems[i];
    fprintf (fp, "element %s %d\n", elem->name, elem->num);
 
    /* write out each property */
    for (j = 0; j < elem->nprops; j++) {
      prop = elem->props[j];
      if (prop->is_list) {
        fprintf (fp, "property list ");
        write_scalar_type (fp, prop->count_external);
        fprintf (fp, " ");
        write_scalar_type (fp, prop->external_type);
        fprintf (fp, " %s\n", prop->name);
      }
      else {
        fprintf (fp, "property ");
        write_scalar_type (fp, prop->external_type);
        fprintf (fp, " %s\n", prop->name);
      }
    }
  }
 
  fprintf (fp, "end_header\n");
}
 
 
/******************************************************************************
Specify which elements are going to be written.  This should be called
before a call to the routine ply_put_element().
 
Entry:
  plyfile   - file identifier
  elem_name - name of element we're talking about
******************************************************************************/
 
void ply_put_element_setup(PlyFile *plyfile, char *elem_name)
{
  PlyElement *elem;
 
  elem = find_element (plyfile, elem_name);
  if (elem == NULL) {
    fprintf(stderr, "ply_elements_setup: can't find element '%s'\n", elem_name);
    exit (-1);
  }
 
  plyfile->which_elem = elem;
}
 
 
/******************************************************************************
Write an element to the file.  This routine assumes that we're
writing the type of element specified in the last call to the routine
ply_put_element_setup().
 
Entry:
  plyfile  - file identifier
  elem_ptr - pointer to the element
******************************************************************************/
 
void ply_put_element(PlyFile *plyfile, void *elem_ptr)
{
  int j,k;
  FILE *fp = plyfile->fp;
  PlyElement *elem;
  PlyProperty *prop;
  char *elem_data,*item;
  char **item_ptr;
  int list_count;
  int item_size;
  int int_val;
  unsigned int uint_val;
  double double_val;
  char **other_ptr;
 
  elem = plyfile->which_elem;
  elem_data = elem_ptr;
  other_ptr = (char **) (((char *) elem_ptr) + elem->other_offset);
 
  /* write out either to an ascii or binary file */
 
  if (plyfile->file_type == PLY_ASCII) {
 
    /* write an ascii file */
 
    /* write out each property of the element */
    for (j = 0; j < elem->nprops; j++) {
      prop = elem->props[j];
      if (elem->store_prop[j] == OTHER_PROP)
        elem_data = *other_ptr;
      else
        elem_data = elem_ptr;
      if (prop->is_list) {
        item = elem_data + prop->count_offset;
        get_stored_item ((void *) item, prop->count_internal,
                         &int_val, &uint_val, &double_val);
        write_ascii_item (fp, int_val, uint_val, double_val,
                          prop->count_external);
        list_count = uint_val;
        item_ptr = (char **) (elem_data + prop->offset);
        item = item_ptr[0];
       item_size = ply_type_size[prop->internal_type];
        for (k = 0; k < list_count; k++) {
          get_stored_item ((void *) item, prop->internal_type,
                           &int_val, &uint_val, &double_val);
          write_ascii_item (fp, int_val, uint_val, double_val,
                            prop->external_type);
          item += item_size;
        }
      }
      else {
        item = elem_data + prop->offset;
        get_stored_item ((void *) item, prop->internal_type,
                         &int_val, &uint_val, &double_val);
        write_ascii_item (fp, int_val, uint_val, double_val,
                          prop->external_type);
      }
    }
 
    fprintf (fp, "\n");
  }
  else {
 
    /* write a binary file */
 
    /* write out each property of the element */
    for (j = 0; j < elem->nprops; j++) {
      prop = elem->props[j];
      if (elem->store_prop[j] == OTHER_PROP)
        elem_data = *other_ptr;
      else
        elem_data = elem_ptr;
      if (prop->is_list) {
        item = elem_data + prop->count_offset;
        item_size = ply_type_size[prop->count_internal];
        get_stored_item ((void *) item, prop->count_internal,
                         &int_val, &uint_val, &double_val);
        write_binary_item (fp, int_val, uint_val, double_val,
                           prop->count_external, plyfile->file_type);
        list_count = uint_val;
        item_ptr = (char **) (elem_data + prop->offset);
        item = item_ptr[0];
        item_size = ply_type_size[prop->internal_type];
        for (k = 0; k < list_count; k++) {
          get_stored_item ((void *) item, prop->internal_type,
                           &int_val, &uint_val, &double_val);
          write_binary_item (fp, int_val, uint_val, double_val,
                             prop->external_type, plyfile->file_type);
          item += item_size;
        }
      }
      else {
        item = elem_data + prop->offset;
        item_size = ply_type_size[prop->internal_type];
        get_stored_item ((void *) item, prop->internal_type,
                         &int_val, &uint_val, &double_val);
        write_binary_item (fp, int_val, uint_val, double_val,
                           prop->external_type, plyfile->file_type);
      }
    }
 
  }
}
 
 
/******************************************************************************
Specify a comment that will be written in the header.
 
Entry:
  plyfile - file identifier
  comment - the comment to be written
******************************************************************************/
 
void ply_put_comment(PlyFile *plyfile, char *comment)
{
  /* (re)allocate space for new comment */
  if (plyfile->num_comments == 0)
    plyfile->comments = (char **) myalloc (sizeof (char *));
  else
    plyfile->comments = (char **) realloc (plyfile->comments,
                         sizeof (char *) * (plyfile->num_comments + 1));
 
  /* add comment to list */
  plyfile->comments[plyfile->num_comments] = strdup (comment);
  plyfile->num_comments++;
}
 
 
/******************************************************************************
Specify a piece of object information (arbitrary text) that will be written
in the header.
 
Entry:
  plyfile  - file identifier
  obj_info - the text information to be written
******************************************************************************/
 
void ply_put_obj_info(PlyFile *plyfile, char *obj_info)
{
  /* (re)allocate space for new info */
  if (plyfile->num_obj_info == 0)
    plyfile->obj_info = (char **) myalloc (sizeof (char *));
  else
    plyfile->obj_info = (char **) realloc (plyfile->obj_info,
                         sizeof (char *) * (plyfile->num_obj_info + 1));
 
  /* add info to list */
  plyfile->obj_info[plyfile->num_obj_info] = strdup (obj_info);
  plyfile->num_obj_info++;
}
 
 
 
 
 
 
 
/*************/
/*  Reading  */
/*************/
 
 
 
/******************************************************************************
Given a file pointer, get ready to read PLY data from the file.
 
Entry:
  fp - the given file pointer
 
Exit:
  nelems     - number of elements in object
  elem_names - list of element names
  returns a pointer to a PlyFile, used to refer to this file, or NULL if error
******************************************************************************/
 
PlyFile *ply_read(FILE *fp, int *nelems, char ***elem_names)
{
  int i,j;
  PlyFile *plyfile;
  int nwords;
  char **words;
  int found_format = 0;
  char **elist;
  PlyElement *elem;
  char *orig_line;
 
  /* check for NULL file pointer */
  if (fp == NULL)
    return (NULL);
 
#ifdef WIN32
  /* Make sure file is in ASCII mode, at least for the header */
  setmode(fileno(fp), _O_TEXT);
#endif
 
  /* create record for this object */
 
  plyfile = (PlyFile *) myalloc (sizeof (PlyFile));
  plyfile->nelems = 0;
  plyfile->comments = NULL;
  plyfile->num_comments = 0;
  plyfile->obj_info = NULL;
  plyfile->num_obj_info = 0;
  plyfile->fp = fp;
  plyfile->other_elems = NULL;
 
  /* read and parse the file's header */
 
  words = get_words (plyfile->fp, &nwords, &orig_line);
  if (!words || !equal_strings (words[0], "ply"))
    return (NULL);
 
  while (words) {
 
    /* parse words */
 
    if (equal_strings (words[0], "format")) {
      if (nwords != 3)
        return (NULL);
      if (equal_strings (words[1], "ascii"))
        plyfile->file_type = PLY_ASCII;
      else if (equal_strings (words[1], "binary_big_endian"))
        plyfile->file_type = PLY_BINARY_BE;
      else if (equal_strings (words[1], "binary_little_endian"))
        plyfile->file_type = PLY_BINARY_LE;
      else
        return (NULL);
      plyfile->version = (float)atof(words[2]);
      found_format = 1;
    }
    else if (equal_strings (words[0], "element"))
      add_element (plyfile, words, nwords);
    else if (equal_strings (words[0], "property"))
      add_property (plyfile, words, nwords);
    else if (equal_strings (words[0], "comment"))
      add_comment (plyfile, orig_line);
    else if (equal_strings (words[0], "obj_info"))
      add_obj_info (plyfile, orig_line);
    else if (equal_strings (words[0], "end_header"))
      break;
 
    /* free up words space */
    free (words);
 
    words = get_words (plyfile->fp, &nwords, &orig_line);
  }
 
#ifdef WIN32
  /* Make sure file has the correct (ascii/binary) mode */
  if (plyfile->file_type == PLY_ASCII)
    setmode(fileno(fp), _O_TEXT);
  else
    setmode(fileno(fp), _O_BINARY);
#endif
 
 
  /* create tags for each property of each element, to be used */
  /* later to say whether or not to store each property for the user */
 
  for (i = 0; i < plyfile->nelems; i++) {
    elem = plyfile->elems[i];
    elem->store_prop = (char *) myalloc (sizeof (char) * elem->nprops);
    for (j = 0; j < elem->nprops; j++)
      elem->store_prop[j] = DONT_STORE_PROP;
    elem->other_offset = NO_OTHER_PROPS; /* no "other" props by default */
  }
 
  /* set return values about the elements */
 
  elist = (char **) myalloc (sizeof (char *) * plyfile->nelems);
  for (i = 0; i < plyfile->nelems; i++)
    elist[i] = strdup (plyfile->elems[i]->name);
 
  *elem_names = elist;
  *nelems = plyfile->nelems;
 
  /* return a pointer to the file's information */
 
  return (plyfile);
}
 
 
/******************************************************************************
Open a polygon file for reading.
 
Entry:
  filename - name of file to read from
 
Exit:
  nelems     - number of elements in object
  elem_names - list of element names
  file_type  - file type, either ascii or binary
  version    - version number of PLY file
  returns a file identifier, used to refer to this file, or NULL if error
******************************************************************************/
 
PlyFile *ply_open_for_reading(
  const char *filename,
  int *nelems,
  char ***elem_names,
  int *file_type,
  float *version
)
{
  FILE *fp;
  PlyFile *plyfile;
  char *name;
 
  /* tack on the extension .ply, if necessary */
 
  name = (char *) myalloc (sizeof (char) * (strlen (filename) + 5));
  strcpy (name, filename);
  if (strlen (name) < 4 ||
      strcmp (name + strlen (name) - 4, ".ply") != 0)
      strcat (name, ".ply");
 
  /* open the file for reading */
 
  fp = fopen (name, "r");
  if (fp == NULL)
    return (NULL);
 
  /* create the PlyFile data structure */
 
  plyfile = ply_read (fp, nelems, elem_names);
 
  /* determine the file type and version */
 
  *file_type = plyfile->file_type;
  *version = plyfile->version;
 
  /* return a pointer to the file's information */
 
  return (plyfile);
}
 
 
/******************************************************************************
Get information about a particular element.
 
Entry:
  plyfile   - file identifier
  elem_name - name of element to get information about
 
Exit:
  nelems   - number of elements of this type in the file
  nprops   - number of properties
  returns a list of properties, or NULL if the file doesn't contain that elem
******************************************************************************/
 
PlyProperty **ply_get_element_description(
  PlyFile *plyfile,
  char *elem_name,
  int *nelems,
  int *nprops
)
{
  int i;
  PlyElement *elem;
  PlyProperty *prop;
  PlyProperty **prop_list;
 
  /* find information about the element */
  elem = find_element (plyfile, elem_name);
  if (elem == NULL)
    return (NULL);
 
  *nelems = elem->num;
  *nprops = elem->nprops;
 
  /* make a copy of the element's property list */
  prop_list = (PlyProperty **) myalloc (sizeof (PlyProperty *) * elem->nprops);
  for (i = 0; i < elem->nprops; i++) {
    prop = (PlyProperty *) myalloc (sizeof (PlyProperty));
    copy_property (prop, elem->props[i]);
    prop_list[i] = prop;
  }
 
  /* return this duplicate property list */
  return (prop_list);
}
 
 
/******************************************************************************
Specify which properties of an element are to be returned.  This should be
called before a call to the routine ply_get_element().
 
Entry:
  plyfile   - file identifier
  elem_name - which element we're talking about
  nprops    - number of properties
  prop_list - list of properties
******************************************************************************/
 
void ply_get_element_setup(
  PlyFile *plyfile,
  char *elem_name,
  int nprops,
  PlyProperty *prop_list
)
{
  int i;
  PlyElement *elem;
  PlyProperty *prop;
  int index;
 
  /* find information about the element */
  elem = find_element (plyfile, elem_name);
  plyfile->which_elem = elem;
 
  /* deposit the property information into the element's description */
  for (i = 0; i < nprops; i++) {
 
    /* look for actual property */
    prop = find_property (elem, prop_list[i].name, &index);
    if (prop == NULL) {
      fprintf (stderr, "Warning:  Can't find property '%s' in element '%s'\n",
               prop_list[i].name, elem_name);
      continue;
    }
 
    /* store its description */
    prop->internal_type = prop_list[i].internal_type;
    prop->offset = prop_list[i].offset;
    prop->count_internal = prop_list[i].count_internal;
    prop->count_offset = prop_list[i].count_offset;
 
    /* specify that the user wants this property */
    elem->store_prop[index] = STORE_PROP;
  }
}
 
 
/******************************************************************************
Specify a property of an element that is to be returned.  This should be
called (usually multiple times) before a call to the routine ply_get_element().
This routine should be used in preference to the less flexible old routine
called ply_get_element_setup().
 
Entry:
  plyfile   - file identifier
  elem_name - which element we're talking about
  prop      - property to add to those that will be returned
******************************************************************************/
 
void ply_get_property(
  PlyFile *plyfile,
  char *elem_name,
  PlyProperty *prop
)
{
  PlyElement *elem;
  PlyProperty *prop_ptr;
  int index;
 
  /* find information about the element */
  elem = find_element (plyfile, elem_name);
  plyfile->which_elem = elem;
 
  /* deposit the property information into the element's description */
 
  prop_ptr = find_property (elem, prop->name, &index);
  if (prop_ptr == NULL) {
    fprintf (stderr, "Warning:  Can't find property '%s' in element '%s'\n",
             prop->name, elem_name);
    return;
  }
  prop_ptr->internal_type  = prop->internal_type;
  prop_ptr->offset         = prop->offset;
  prop_ptr->count_internal = prop->count_internal;
  prop_ptr->count_offset   = prop->count_offset;
 
  /* specify that the user wants this property */
  elem->store_prop[index] = STORE_PROP;
}
 
 
/******************************************************************************
Read one element from the file.  This routine assumes that we're reading
the type of element specified in the last call to the routine
ply_get_element_setup().
 
Entry:
  plyfile  - file identifier
  elem_ptr - pointer to location where the element information should be put
******************************************************************************/
 
void
ply_get_element(PlyFile *plyfile, void *elem_ptr)
{
  if (plyfile->file_type == PLY_ASCII)
    ascii_get_element (plyfile, (char *) elem_ptr, 0);
  else
    binary_get_element (plyfile, (char *) elem_ptr, 0);
}
 
 
void
ply_get_element_noalloc(PlyFile *plyfile, void *elem_ptr)
{
  if (plyfile->file_type == PLY_ASCII)
    ascii_get_element (plyfile, (char *) elem_ptr, 1);
  else
    binary_get_element (plyfile, (char *) elem_ptr, 1);
}
 
 
/******************************************************************************
Extract the comments from the header information of a PLY file.
 
Entry:
  plyfile - file identifier
 
Exit:
  num_comments - number of comments returned
  returns a pointer to a list of comments
******************************************************************************/
 
char **ply_get_comments(PlyFile *plyfile, int *num_comments)
{
  *num_comments = plyfile->num_comments;
  return (plyfile->comments);
}
 
 
/******************************************************************************
Extract the object information (arbitrary text) from the header information
of a PLY file.
 
Entry:
  plyfile - file identifier
 
Exit:
  num_obj_info - number of lines of text information returned
  returns a pointer to a list of object info lines
******************************************************************************/
 
char **ply_get_obj_info(PlyFile *plyfile, int *num_obj_info)
{
  *num_obj_info = plyfile->num_obj_info;
  return (plyfile->obj_info);
}
 
 
/******************************************************************************
Make ready for "other" properties of an element-- those properties that
the user has not explicitly asked for, but that are to be stashed away
in a special structure to be carried along with the element's other
information.
 
Entry:
  plyfile - file identifier
  elem    - element for which we want to save away other properties
******************************************************************************/
 
void setup_other_props(PlyFile *plyfile, PlyElement *elem)
{
  int i;
  PlyProperty *prop;
  int size = 0;
  int type_size;
 
  /* Examine each property in decreasing order of size. */
  /* We do this so that all data types will be aligned by */
  /* word, half-word, or whatever within the structure. */
 
  for (type_size = 8; type_size > 0; type_size /= 2) {
 
    /* add up the space taken by each property, and save this information */
    /* away in the property descriptor */
 
    for (i = 0; i < elem->nprops; i++) {
 
      /* don't bother with properties we've been asked to store explicitly */
      if (elem->store_prop[i])
        continue;
 
      prop = elem->props[i];
 
      /* internal types will be same as external */
      prop->internal_type = prop->external_type;
      prop->count_internal = prop->count_external;
 
      /* check list case */
      if (prop->is_list) {
 
        /* pointer to list */
        if (type_size == sizeof (void *)) {
          prop->offset = size;
          size += sizeof (void *);    /* always use size of a pointer here */
        }
 
        /* count of number of list elements */
        if (type_size == ply_type_size[prop->count_external]) {
          prop->count_offset = size;
          size += ply_type_size[prop->count_external];
        }
      }
      /* not list */
      else if (type_size == ply_type_size[prop->external_type]) {
        prop->offset = size;
        size += ply_type_size[prop->external_type];
      }
    }
 
  }
 
  /* save the size for the other_props structure */
  elem->other_size = size;
}
 
 
/******************************************************************************
Specify that we want the "other" properties of an element to be tucked
away within the user's structure.  The user needn't be concerned for how
these properties are stored.
 
Entry:
  plyfile   - file identifier
  elem_name - name of element that we want to store other_props in
  offset    - offset to where other_props will be stored inside user's structure
 
Exit:
  returns pointer to structure containing description of other_props
******************************************************************************/
 
PlyOtherProp *ply_get_other_properties(
  PlyFile *plyfile,
  char *elem_name,
  int offset
)
{
  int i;
  PlyElement *elem;
  PlyOtherProp *other;
  PlyProperty *prop;
  int nprops;
 
  /* find information about the element */
  elem = find_element (plyfile, elem_name);
  if (elem == NULL) {
    fprintf (stderr, "ply_get_other_properties: Can't find element '%s'\n",
             elem_name);
    return (NULL);
  }
 
  /* remember that this is the "current" element */
  plyfile->which_elem = elem;
 
  /* save the offset to where to store the other_props */
  elem->other_offset = offset;
 
  /* place the appropriate pointers, etc. in the element's property list */
  setup_other_props (plyfile, elem);
 
  /* create structure for describing other_props */
  other = (PlyOtherProp *) myalloc (sizeof (PlyOtherProp));
  other->name = strdup (elem_name);
#if 0
  if (elem->other_offset == NO_OTHER_PROPS) {
    other->size = 0;
    other->props = NULL;
    other->nprops = 0;
    return (other);
  }
#endif
  other->size = elem->other_size;
  other->props = (PlyProperty **) myalloc (sizeof(PlyProperty) * elem->nprops);
  
  /* save descriptions of each "other" property */
  nprops = 0;
  for (i = 0; i < elem->nprops; i++) {
    if (elem->store_prop[i])
      continue;
    prop = (PlyProperty *) myalloc (sizeof (PlyProperty));
    copy_property (prop, elem->props[i]);
    other->props[nprops] = prop;
    nprops++;
  }
  other->nprops = nprops;
 
#if 1
  /* set other_offset pointer appropriately if there are NO other properties */
  if (other->nprops == 0) {
    elem->other_offset = NO_OTHER_PROPS;
  }
#endif
  
  /* return structure */
  return (other);
}
 
 
 
 
/*************************/
/*  Other Element Stuff  */
/*************************/
 
 
 
 
/******************************************************************************
Grab all the data for an element that a user does not want to explicitly
read in.
 
Entry:
  plyfile    - pointer to file
  elem_name  - name of element whose data is to be read in
  elem_count - number of instances of this element stored in the file
 
Exit:
  returns pointer to ALL the "other" element data for this PLY file
******************************************************************************/
 
PlyOtherElems *ply_get_other_element (
  PlyFile *plyfile,
  char *elem_name,
  int elem_count
)
{
  int i;
  PlyElement *elem;
  PlyOtherElems *other_elems;
  OtherElem *other;
 
 
  /* look for appropriate element */
  elem = find_element (plyfile, elem_name);
  if (elem == NULL) {
    fprintf (stderr,
             "ply_get_other_element: can't find element '%s'\n", elem_name);
    exit (-1);
  }
 
  /* create room for the new "other" element, initializing the */
  /* other data structure if necessary */
 
  if (plyfile->other_elems == NULL) {
    plyfile->other_elems = (PlyOtherElems *) myalloc (sizeof (PlyOtherElems));
    other_elems = plyfile->other_elems;
    other_elems->other_list = (OtherElem *) myalloc (sizeof (OtherElem));
    other = &(other_elems->other_list[0]);
    other_elems->num_elems = 1;
  }
  else {
    other_elems = plyfile->other_elems;
    other_elems->other_list = (OtherElem *) realloc (other_elems->other_list,
                              sizeof (OtherElem) * other_elems->num_elems + 1);
    other = &(other_elems->other_list[other_elems->num_elems]);
    other_elems->num_elems++;
  }
 
  /* count of element instances in file */
  other->elem_count = elem_count;
 
  /* save name of element */
  other->elem_name = strdup (elem_name);
 
  /* create a list to hold all the current elements */
  other->other_data = (OtherData **)
                  malloc (sizeof (OtherData *) * other->elem_count);
 
  /* set up for getting elements */
  other->other_props = ply_get_other_properties (plyfile, elem_name,
                         offsetof(OtherData,other_props));
 
  /* grab all these elements */
  for (i = 0; i < other->elem_count; i++) {
    /* grab and element from the file */
    other->other_data[i] = (OtherData *) malloc (sizeof (OtherData));
    ply_get_element (plyfile, (void *) other->other_data[i]);
  }
 
  /* return pointer to the other elements data */
  return (other_elems);
}
 
 
/******************************************************************************
Pass along a pointer to "other" elements that we want to save in a given
PLY file.  These other elements were presumably read from another PLY file.
 
Entry:
  plyfile     - file pointer in which to store this other element info
  other_elems - info about other elements that we want to store
******************************************************************************/
 
void ply_describe_other_elements (
  PlyFile *plyfile,
  PlyOtherElems *other_elems
)
{
  int i;
  OtherElem *other;
 
  /* ignore this call if there is no other element */
  if (other_elems == NULL)
    return;
 
  /* save pointer to this information */
  plyfile->other_elems = other_elems;
 
  /* describe the other properties of this element */
 
  for (i = 0; i < other_elems->num_elems; i++) {
    other = &(other_elems->other_list[i]);
    ply_element_count (plyfile, other->elem_name, other->elem_count);
    ply_describe_other_properties (plyfile, other->other_props,
                                   offsetof(OtherData,other_props));
  }
}
 
 
/******************************************************************************
Write out the "other" elements specified for this PLY file.
 
Entry:
  plyfile - pointer to PLY file to write out other elements for
******************************************************************************/
 
void ply_put_other_elements (PlyFile *plyfile)
{
  int i,j;
  OtherElem *other;
 
  /* make sure we have other elements to write */
  if (plyfile->other_elems == NULL)
    return;
 
  /* write out the data for each "other" element */
 
  for (i = 0; i < plyfile->other_elems->num_elems; i++) {
 
    other = &(plyfile->other_elems->other_list[i]);
    ply_put_element_setup (plyfile, other->elem_name);
 
    /* write out each instance of the current element */
    for (j = 0; j < other->elem_count; j++)
      ply_put_element (plyfile, (void *) other->other_data[j]);
  }
}
 
 
/******************************************************************************
Free up storage used by an "other" elements data structure.
 
Entry:
  other_elems - data structure to free up
******************************************************************************/
 
void ply_free_other_elements (PlyOtherElems *other_elems)
{
 
}
 
 
 
/*******************/
/*  Miscellaneous  */
/*******************/
 
 
 
/******************************************************************************
Close a PLY file.
 
Entry:
  plyfile - identifier of file to close
******************************************************************************/
 
void ply_close(PlyFile *plyfile)
{
  fclose (plyfile->fp);
 
  /* free up memory associated with the PLY file */
  free (plyfile);
}
 
 
/******************************************************************************
Get version number and file type of a PlyFile.
 
Entry:
  ply - pointer to PLY file
 
Exit:
  version - version of the file
  file_type - PLY_ASCII, PLY_BINARY_BE, or PLY_BINARY_LE
******************************************************************************/
 
void ply_get_info(PlyFile *ply, float *version, int *file_type)
{
  if (ply == NULL)
    return;
 
  *version = ply->version;
  *file_type = ply->file_type;
}
 
 
/******************************************************************************
Compare two strings.  Returns 1 if they are the same, 0 if not.
******************************************************************************/
 
int equal_strings(char *s1, char *s2)
{
 
 
  while (*s1 && *s2)
    if (*s1++ != *s2++)
      return (0);
 
  if (*s1 != *s2)
    return (0);
  else
    return (1);
}
 
 
/******************************************************************************
Find an element from the element list of a given PLY object.
 
Entry:
  plyfile - file id for PLY file
  element - name of element we're looking for
 
Exit:
  returns the element, or NULL if not found
******************************************************************************/
 
PlyElement *find_element(PlyFile *plyfile, char *element)
{
  int i;
 
  for (i = 0; i < plyfile->nelems; i++)
    if (equal_strings (element, plyfile->elems[i]->name))
      return (plyfile->elems[i]);
 
  return (NULL);
}
 
 
/******************************************************************************
Find a property in the list of properties of a given element.
 
Entry:
  elem      - pointer to element in which we want to find the property
  prop_name - name of property to find
 
Exit:
  index - index to position in list
  returns a pointer to the property, or NULL if not found
******************************************************************************/
 
PlyProperty *find_property(PlyElement *elem, char *prop_name, int *index)
{
  int i;
 
  for (i = 0; i < elem->nprops; i++)
    if (equal_strings (prop_name, elem->props[i]->name)) {
      *index = i;
      return (elem->props[i]);
    }
 
  *index = -1;
  return (NULL);
}
 
 
/******************************************************************************
Read an element from an ascii file.
 
Entry:
  plyfile  - file identifier
  elem_ptr - pointer to element
******************************************************************************/
 
void ascii_get_element(PlyFile *plyfile, char *elem_ptr, 
		       int use_provided_storage)
{
  int j,k;
  PlyElement *elem;
  PlyProperty *prop;
  char **words;
  int nwords;
  int which_word;
  FILE *fp = plyfile->fp;
  char *elem_data,*item;
  char *item_ptr;
  int item_size;
  int int_val;
  unsigned int uint_val;
  double double_val;
  int list_count;
  int store_it;
  char **store_array;
  char *orig_line;
  char *other_data;
  int other_flag;
 
  /* the kind of element we're reading currently */
  elem = plyfile->which_elem;
 
  /* do we need to setup for other_props? */
 
  if (elem->other_offset != NO_OTHER_PROPS) {
    char **ptr;
    other_flag = 1;
    /* make room for other_props */
    other_data = (char *) myalloc (elem->other_size);
    /* store pointer in user's structure to the other_props */
    ptr = (char **) (elem_ptr + elem->other_offset);
    *ptr = other_data;
  }
  else
    other_flag = 0;
 
  /* read in the element */
 
  words = get_words (plyfile->fp, &nwords, &orig_line);
  if (words == NULL) {
    fprintf (stderr, "ply_get_element: unexpected end of file\n");
    exit (-1);
  }
 
  which_word = 0;
 
  for (j = 0; j < elem->nprops; j++) {
 
    prop = elem->props[j];
    store_it = (elem->store_prop[j] | other_flag);
 
    /* store either in the user's structure or in other_props */
    if (elem->store_prop[j])
      elem_data = elem_ptr;
    else
      elem_data = other_data;
 
    if (prop->is_list) {       /* a list */
 
      /* get and store the number of items in the list */
      get_ascii_item (words[which_word++], prop->count_external,
                      &int_val, &uint_val, &double_val);
      if (store_it) {
        item = elem_data + prop->count_offset;
        store_item(item, prop->count_internal, int_val, uint_val, double_val);
      }
 
      /* allocate space for an array of items and store a ptr to the array */
      list_count = int_val;
      item_size = ply_type_size[prop->internal_type];
      store_array = (char **) (elem_data + prop->offset);
 
      if (list_count == 0) {
        if (store_it && !use_provided_storage)
          *store_array = NULL;
      }
      else {
        if (store_it) {
	    if (use_provided_storage) {
	       item_ptr = *store_array;
	       item = item_ptr;
	    } else {	    
	        item_ptr = (char *) myalloc 
		    (sizeof (char) * item_size * list_count);
		item = item_ptr;
		*store_array = item_ptr;
	    }
        }
 
        /* read items and store them into the array */
        for (k = 0; k < list_count; k++) {
          get_ascii_item (words[which_word++], prop->external_type,
                          &int_val, &uint_val, &double_val);
          if (store_it) {
            store_item (item, prop->internal_type,
                        int_val, uint_val, double_val);
            item += item_size;
          }
        }
      }
 
    }
    else {                     /* not a list */
      get_ascii_item (words[which_word++], prop->external_type,
                      &int_val, &uint_val, &double_val);
      if (store_it) {
        item = elem_data + prop->offset;
        store_item (item, prop->internal_type, int_val, uint_val, double_val);
      }
    }
 
  }
 
  free (words);
}
 
 
/******************************************************************************
Read an element from a binary file.
 
Entry:
  plyfile  - file identifier
  elem_ptr - pointer to an element
******************************************************************************/
 
void binary_get_element(PlyFile *plyfile, char *elem_ptr, 
			int use_provided_storage)
{
  int j,k;
  PlyElement *elem;
  PlyProperty *prop;
  FILE *fp = plyfile->fp;
  char *elem_data,*item;
  char *item_ptr;
  int item_size;
  int int_val;
  unsigned int uint_val;
  double double_val;
  int list_count;
  int store_it;
  char **store_array;
  char *other_data;
  int other_flag;
 
  /* the kind of element we're reading currently */
  elem = plyfile->which_elem;
 
  /* do we need to setup for other_props? */
 
  if (elem->other_offset != NO_OTHER_PROPS) {
    char **ptr;
    other_flag = 1;
    /* make room for other_props */
    other_data = (char *) myalloc (elem->other_size);
    /* store pointer in user's structure to the other_props */
    ptr = (char **) (elem_ptr + elem->other_offset);
    *ptr = other_data;
  }
  else
    other_flag = 0;
 
  /* read in a number of elements */
 
  for (j = 0; j < elem->nprops; j++) {
 
    prop = elem->props[j];
    store_it = (elem->store_prop[j] | other_flag);
 
    /* store either in the user's structure or in other_props */
    if (elem->store_prop[j])
      elem_data = elem_ptr;
    else
      elem_data = other_data;
 
    if (prop->is_list) {       /* a list */
 
      /* get and store the number of items in the list */
      get_binary_item (fp, prop->count_external,
                      &int_val, &uint_val, &double_val, plyfile->file_type);
      if (store_it) {
        item = elem_data + prop->count_offset;
        store_item(item, prop->count_internal, int_val, uint_val, double_val);
      }
 
      /* allocate space for an array of items and store a ptr to the array */
      list_count = int_val;
      /* The "if" was added by Afra Zomorodian 8/22/95
       * so that zipper won't crash reading plies that have additional
       * properties.
       */ 
      if (store_it) {
	item_size = ply_type_size[prop->internal_type];
      }
      store_array = (char **) (elem_data + prop->offset);
      if (list_count == 0) {
        if (store_it && !use_provided_storage)
          *store_array = NULL;
      }
      else {
        if (store_it) {
	    if (use_provided_storage) {
		item_ptr = *store_array;
		item = item_ptr;
	    } else {
		item_ptr = (char *) myalloc 
		    (sizeof (char) * item_size * list_count);
		item = item_ptr;
		*store_array = item_ptr;
	    }
        }
 
        /* read items and store them into the array */
        for (k = 0; k < list_count; k++) {
          get_binary_item (fp, prop->external_type,
                          &int_val, &uint_val, &double_val, 
			   plyfile->file_type);
          if (store_it) {
            store_item (item, prop->internal_type,
                        int_val, uint_val, double_val);
            item += item_size;
          }
        }
      }
 
    }
    else {                     /* not a list */
      get_binary_item (fp, prop->external_type,
                      &int_val, &uint_val, &double_val, plyfile->file_type);
      if (store_it) {
        item = elem_data + prop->offset;
        store_item (item, prop->internal_type, int_val, uint_val, double_val);
      }
    }
 
  }
}
 
 
/******************************************************************************
Write to a file the word that represents a PLY data type.
 
Entry:
  fp   - file pointer
  code - code for type
******************************************************************************/
 
void write_scalar_type (FILE *fp, int code)
{
  /* make sure this is a valid code */
 
  if (code <= PLY_START_TYPE || code >= PLY_END_TYPE) {
    fprintf (stderr, "write_scalar_type: bad data code = %d\n", code);
    exit (-1);
  }
 
  /* write the code to a file */
 
  fprintf (fp, "%s", type_names[code]);
}
 
 
/******************************************************************************
Get a text line from a file and break it up into words.
 
IMPORTANT: The calling routine call "free" on the returned pointer once
finished with it.
 
Entry:
  fp - file to read from
 
Exit:
  nwords    - number of words returned
  orig_line - the original line of characters
  returns a list of words from the line, or NULL if end-of-file
******************************************************************************/
 
char **get_words(FILE *fp, int *nwords, char **orig_line)
{
#define BIG_STRING 4096
 
  static char str[BIG_STRING];
  static char str_copy[BIG_STRING];
  char **words;
  int max_words = 10;
  int num_words = 0;
  char *ptr,*ptr2;
  char *result;
 
  words = (char **) myalloc (sizeof (char *) * max_words);
 
  /* read in a line */
  result = fgets (str, BIG_STRING, fp);
  if (result == NULL) {
    *nwords = 0;
    *orig_line = NULL;
    return (NULL);
  }
 
  /* convert line-feed and tabs into spaces */
  /* (this guarentees that there will be a space before the */
  /*  null character at the end of the string) */
 
  str[BIG_STRING-2] = ' ';
  str[BIG_STRING-1] = '\0';
 
  for (ptr = str, ptr2 = str_copy; *ptr != '\0'; ptr++, ptr2++) {
    *ptr2 = *ptr;
    if (*ptr == '\t') {
      *ptr = ' ';
      *ptr2 = ' ';
    }
    else if (*ptr == '\n') {
      *ptr = ' ';
      *ptr2 = '\0';
      break;
    }
  }
 
  /* find the words in the line */
 
  ptr = str;
  while (*ptr != '\0') {
 
    /* jump over leading spaces */
    while (*ptr == ' ')
      ptr++;
 
    /* break if we reach the end */
    if (*ptr == '\0')
      break;
 
    /* save pointer to beginning of word */
    if (num_words >= max_words) {
      max_words += 10;
      words = (char **) realloc (words, sizeof (char *) * max_words);
    }
    words[num_words++] = ptr;
 
    /* jump over non-spaces */
    while (*ptr != ' ')
      ptr++;
 
    /* place a null character here to mark the end of the word */
    *ptr++ = '\0';
  }
 
  /* return the list of words */
  *nwords = num_words;
  *orig_line = str_copy;
  return (words);
}
 
 
/******************************************************************************
Return the value of an item, given a pointer to it and its type.
 
Entry:
  item - pointer to item
  type - data type that "item" points to
 
Exit:
  returns a double-precision float that contains the value of the item
******************************************************************************/
 
double get_item_value(char *item, int type)
{
  unsigned char *puchar;
  char *pchar;
  short int *pshort;
  unsigned short int *pushort;
  int *pint;
  unsigned int *puint;
  float *pfloat;
  double *pdouble;
  int int_value;
  unsigned int uint_value;
  double double_value;
 
  switch (type) {
    case PLY_CHAR:
      pchar = (char *) item;
      int_value = *pchar;
      return ((double) int_value);
    case PLY_UCHAR:
      puchar = (unsigned char *) item;
      int_value = *puchar;
      return ((double) int_value);
    case PLY_SHORT:
      pshort = (short int *) item;
      int_value = *pshort;
      return ((double) int_value);
    case PLY_USHORT:
      pushort = (unsigned short int *) item;
      int_value = *pushort;
      return ((double) int_value);
    case PLY_INT:
      pint = (int *) item;
      int_value = *pint;
      return ((double) int_value);
    case PLY_UINT:
      puint = (unsigned int *) item;
      uint_value = *puint;
      return ((double) uint_value);
    case PLY_FLOAT:
      pfloat = (float *) item;
      double_value = *pfloat;
      return (double_value);
    case PLY_DOUBLE:
      pdouble = (double *) item;
      double_value = *pdouble;
      return (double_value);
    default:
      fprintf (stderr, "get_item_value: bad type = %d\n", type);
      exit (-1);
  }
 
  /* It never gets here, but avoid compiler warning... */
  return(-1);
}
 
 
/******************************************************************************
Write out an item to a file as raw binary bytes.
 
Entry:
  fp         - file to write to
  int_val    - integer version of item
  uint_val   - unsigned integer version of item
  double_val - double-precision float version of item
  type       - data type to write out
******************************************************************************/
 
void write_binary_item(
  FILE *fp,
  int int_val,
  unsigned int uint_val,
  double double_val,
  int type,
  int file_type
)
{
  unsigned char uchar_val;
  char char_val;
  unsigned short ushort_val;
  short short_val;
  float float_val;
 
 
  switch (type) {
    case PLY_CHAR:
      char_val = int_val;
      fwrite (&char_val, 1, 1, fp);
      break;
    case PLY_SHORT:
      short_val = int_val;
      SWAP_TO_ENDIAN2(&short_val, file_type);
      fwrite (&short_val, 2, 1, fp);
      break;
    case PLY_INT:
      SWAP_TO_ENDIAN4(&int_val, file_type);
      fwrite (&int_val, 4, 1, fp);
      break;
    case PLY_UCHAR:
      uchar_val = uint_val;
      fwrite (&uchar_val, 1, 1, fp);
      break;
    case PLY_USHORT:
      ushort_val = uint_val;
      SWAP_TO_ENDIAN2(&ushort_val, file_type);
      fwrite (&ushort_val, 2, 1, fp);
      break;
    case PLY_UINT:
      SWAP_TO_ENDIAN4(&uint_val, file_type);
      fwrite (&uint_val, 4, 1, fp);
      break;
    case PLY_FLOAT:
      float_val = (float)double_val;
      SWAP_TO_ENDIAN4(&float_val, file_type);
      fwrite (&float_val, 4, 1, fp);
      break;
    case PLY_DOUBLE:
      SWAP_TO_ENDIAN8(&double_val, file_type);
      fwrite (&double_val, 8, 1, fp);
      break;
    default:
      fprintf (stderr, "write_binary_item: bad type = %d\n", type);
      exit (-1);
  }
}
 
 
/******************************************************************************
Write out an item to a file as ascii characters.
 
Entry:
  fp         - file to write to
  int_val    - integer version of item
  uint_val   - unsigned integer version of item
  double_val - double-precision float version of item
  type       - data type to write out
******************************************************************************/
 
void write_ascii_item(
  FILE *fp,
  int int_val,
  unsigned int uint_val,
  double double_val,
  int type
)
{
  switch (type) {
    case PLY_CHAR:
    case PLY_SHORT:
    case PLY_INT:
      fprintf (fp, "%d ", int_val);
      break;
    case PLY_UCHAR:
    case PLY_USHORT:
    case PLY_UINT:
      fprintf (fp, "%u ", uint_val);
      break;
    case PLY_FLOAT:
    case PLY_DOUBLE:
      fprintf (fp, "%g ", double_val);
      break;
    default:
      fprintf (stderr, "write_ascii_item: bad type = %d\n", type);
      exit (-1);
  }
}
 
 
/******************************************************************************
Write out an item to a file as ascii characters.
 
Entry:
  fp   - file to write to
  item - pointer to item to write
  type - data type that "item" points to
 
Exit:
  returns a double-precision float that contains the value of the written item
******************************************************************************/
 
double old_write_ascii_item(FILE *fp, char *item, int type)
{
  unsigned char *puchar;
  char *pchar;
  short int *pshort;
  unsigned short int *pushort;
  int *pint;
  unsigned int *puint;
  float *pfloat;
  double *pdouble;
  int int_value;
  unsigned int uint_value;
  double double_value;
 
  switch (type) {
    case PLY_CHAR:
      pchar = (char *) item;
      int_value = *pchar;
      fprintf (fp, "%d ", int_value);
      return ((double) int_value);
    case PLY_UCHAR:
      puchar = (unsigned char *) item;
      int_value = *puchar;
      fprintf (fp, "%d ", int_value);
      return ((double) int_value);
    case PLY_SHORT:
      pshort = (short int *) item;
      int_value = *pshort;
      fprintf (fp, "%d ", int_value);
      return ((double) int_value);
    case PLY_USHORT:
      pushort = (unsigned short int *) item;
      int_value = *pushort;
      fprintf (fp, "%d ", int_value);
      return ((double) int_value);
    case PLY_INT:
      pint = (int *) item;
      int_value = *pint;
      fprintf (fp, "%d ", int_value);
      return ((double) int_value);
    case PLY_UINT:
      puint = (unsigned int *) item;
      uint_value = *puint;
      fprintf (fp, "%u ", uint_value);
      return ((double) uint_value);
    case PLY_FLOAT:
      pfloat = (float *) item;
      double_value = *pfloat;
      fprintf (fp, "%g ", double_value);
      return (double_value);
    case PLY_DOUBLE:
      pdouble = (double *) item;
      double_value = *pdouble;
      fprintf (fp, "%g ", double_value);
      return (double_value);
    default:
      fprintf (stderr, "old_write_ascii_item: bad type = %d\n", type);
      exit (-1);
  }
 
  /* It never gets here, but avoid compiler warning... */
  return(-1);
}
 
 
/******************************************************************************
Get the value of an item that is in memory, and place the result
into an integer, an unsigned integer and a double.
 
Entry:
  ptr  - pointer to the item
  type - data type supposedly in the item
 
Exit:
  int_val    - integer value
  uint_val   - unsigned integer value
  double_val - double-precision floating point value
******************************************************************************/
 
void get_stored_item(
  void *ptr,
  int type,
  int *int_val,
  unsigned int *uint_val,
  double *double_val
)
{
  switch (type) {
    case PLY_CHAR:
      *int_val = *((char *) ptr);
      *uint_val = *int_val;
      *double_val = *int_val;
      break;
    case PLY_UCHAR:
      *uint_val = *((unsigned char *) ptr);
      *int_val = *uint_val;
      *double_val = *uint_val;
      break;
    case PLY_SHORT:
      *int_val = *((short int *) ptr);
      *uint_val = *int_val;
      *double_val = *int_val;
      break;
    case PLY_USHORT:
      *uint_val = *((unsigned short int *) ptr);
      *int_val = *uint_val;
      *double_val = *uint_val;
      break;
    case PLY_INT:
      *int_val = *((int *) ptr);
      *uint_val = *int_val;
      *double_val = *int_val;
      break;
    case PLY_UINT:
      *uint_val = *((unsigned int *) ptr);
      *int_val = *uint_val;
      *double_val = *uint_val;
      break;
    case PLY_FLOAT:
      *double_val = *((float *) ptr);
      *int_val = (int)*double_val;
      *uint_val = (unsigned int)*double_val;
      break;
    case PLY_DOUBLE:
      *double_val = *((double *) ptr);
      *int_val = (int)*double_val;
      *uint_val = (unsigned int)*double_val;
      break;
    default:
      fprintf (stderr, "get_stored_item: bad type = %d\n", type);
      exit (-1);
  }
}
 
 
/******************************************************************************
Get the value of an item from a binary file, and place the result
into an integer, an unsigned integer and a double.
 
Entry:
  fp   - file to get item from
  type - data type supposedly in the word
 
Exit:
  int_val    - integer value
  uint_val   - unsigned integer value
  double_val - double-precision floating point value
******************************************************************************/
 
void get_binary_item(
  FILE *fp,
  int type,
  int *int_val,
  unsigned int *uint_val,
  double *double_val,
  int file_type
)
{
  char c[8];
  void *ptr;
 
  ptr = (void *) c;
 
  switch (type) {
    case PLY_CHAR:
      fread (ptr, 1, 1, fp);
      *int_val = *((char *) ptr);
      *uint_val = *int_val;
      *double_val = *int_val;
      break;
    case PLY_UCHAR:
      fread (ptr, 1, 1, fp);
      *uint_val = *((unsigned char *) ptr);
      *int_val = *uint_val;
      *double_val = *uint_val;
      break;
    case PLY_SHORT:
      fread (ptr, 2, 1, fp); 
      SWAP_TO_ENDIAN2(ptr, file_type);
     *int_val = *((short int *) ptr);
      *uint_val = *int_val;
      *double_val = *int_val;
      break;
    case PLY_USHORT:
      fread (ptr, 2, 1, fp);
      SWAP_TO_ENDIAN2(ptr, file_type);
      *uint_val = *((unsigned short int *) ptr);
      *int_val = *uint_val;
      *double_val = *uint_val;
      break;
    case PLY_INT:
      fread (ptr, 4, 1, fp);
      SWAP_TO_ENDIAN4(ptr, file_type);
      *int_val = *((int *) ptr);
      *uint_val = *int_val;
      *double_val = *int_val;
      break;
    case PLY_UINT:
      fread (ptr, 4, 1, fp);
      SWAP_TO_ENDIAN4(ptr, file_type);
      *uint_val = *((unsigned int *) ptr);
      *int_val = *uint_val;
      *double_val = *uint_val;
      break;
    case PLY_FLOAT:
      fread (ptr, 4, 1, fp);
      SWAP_TO_ENDIAN4(ptr, file_type);
      *double_val = *((float *) ptr);
      *int_val = (int)*double_val;
      *uint_val = (unsigned int)*double_val;
      break;
    case PLY_DOUBLE:
      fread (ptr, 8, 1, fp);
      SWAP_TO_ENDIAN8(ptr, file_type);
      *double_val = *((double *) ptr);
      *int_val = (int)*double_val;
      *uint_val = (unsigned int)*double_val;
      break;
    default:
      fprintf (stderr, "get_binary_item: bad type = %d\n", type);
      exit (-1);
  }
}
 
 
/******************************************************************************
Extract the value of an item from an ascii word, and place the result
into an integer, an unsigned integer and a double.
 
Entry:
  word - word to extract value from
  type - data type supposedly in the word
 
Exit:
  int_val    - integer value
  uint_val   - unsigned integer value
  double_val - double-precision floating point value
******************************************************************************/
 
void get_ascii_item(
  char *word,
  int type,
  int *int_val,
  unsigned int *uint_val,
  double *double_val
)
{
  switch (type) {
    case PLY_CHAR:
    case PLY_UCHAR:
    case PLY_SHORT:
    case PLY_USHORT:
    case PLY_INT:
      *int_val = atoi (word);
      *uint_val = *int_val;
      *double_val = *int_val;
      break;
 
    case PLY_UINT:
      *uint_val = strtoul (word, (char **) NULL, 10);
      *int_val = *uint_val;
      *double_val = *uint_val;
      break;
 
    case PLY_FLOAT:
    case PLY_DOUBLE:
      *double_val = atof (word);
      *int_val = (int) *double_val;
      *uint_val = (unsigned int) *double_val;
      break;
 
    default:
      fprintf (stderr, "get_ascii_item: bad type = %d\n", type);
      exit (-1);
  }
}
 
 
/******************************************************************************
Store a value into a place being pointed to, guided by a data type.
 
Entry:
  item       - place to store value
  type       - data type
  int_val    - integer version of value
  uint_val   - unsigned integer version of value
  double_val - double version of value
 
Exit:
  item - pointer to stored value
******************************************************************************/
 
void store_item (
  char *item,
  int type,
  int int_val,
  unsigned int uint_val,
  double double_val
)
{
  unsigned char *puchar;
  short int *pshort;
  unsigned short int *pushort;
  int *pint;
  unsigned int *puint;
  float *pfloat;
  double *pdouble;
 
  switch (type) {
    case PLY_CHAR:
      *item = int_val;
      break;
    case PLY_UCHAR:
      puchar = (unsigned char *) item;
      *puchar = uint_val;
      break;
    case PLY_SHORT:
      pshort = (short *) item;
      *pshort = int_val;
      break;
    case PLY_USHORT:
      pushort = (unsigned short *) item;
      *pushort = uint_val;
      break;
    case PLY_INT:
      pint = (int *) item;
      *pint = int_val;
      break;
    case PLY_UINT:
      puint = (unsigned int *) item;
      *puint = uint_val;
      break;
    case PLY_FLOAT:
      pfloat = (float *) item;
      *pfloat = (float)double_val;
      break;
    case PLY_DOUBLE:
      pdouble = (double *) item;
      *pdouble = double_val;
      break;
    default:
      fprintf (stderr, "store_item: bad type = %d\n", type);
      exit (-1);
  }
}
 
 
/******************************************************************************
Add an element to a PLY file descriptor.
 
Entry:
  plyfile - PLY file descriptor
  words   - list of words describing the element
  nwords  - number of words in the list
******************************************************************************/
 
void add_element (PlyFile *plyfile, char **words, int nwords)
{
  PlyElement *elem;
 
  /* create the new element */
  elem = (PlyElement *) myalloc (sizeof (PlyElement));
  elem->name = strdup (words[1]);
  elem->num = atoi (words[2]);
  elem->nprops = 0;
 
  /* make room for new element in the object's list of elements */
  if (plyfile->nelems == 0)
    plyfile->elems = (PlyElement **) myalloc (sizeof (PlyElement *));
  else
    plyfile->elems = (PlyElement **) realloc (plyfile->elems,
                     sizeof (PlyElement *) * (plyfile->nelems + 1));
 
  /* add the new element to the object's list */
  plyfile->elems[plyfile->nelems] = elem;
  plyfile->nelems++;
}
 
 
/******************************************************************************
Return the type of a property, given the name of the property.
 
Entry:
  name - name of property type
 
Exit:
  returns integer code for property, or 0 if not found
******************************************************************************/
 
int get_prop_type(char *type_name)
{
  int i;
 
  for (i = PLY_START_TYPE + 1; i < PLY_END_TYPE; i++)
    if (equal_strings (type_name, type_names[i]))
      return (i);
 
  /* if we get here, we didn't find the type */
  return (0);
}
 
 
/******************************************************************************
Add a property to a PLY file descriptor.
 
Entry:
  plyfile - PLY file descriptor
  words   - list of words describing the property
  nwords  - number of words in the list
******************************************************************************/
 
void add_property (PlyFile *plyfile, char **words, int nwords)
{
 
 
  PlyProperty *prop;
  PlyElement *elem;
 
  /* create the new property */
 
  prop = (PlyProperty *) myalloc (sizeof (PlyProperty));
 
  if (equal_strings (words[1], "list")) {       /* is a list */
    prop->count_external = get_prop_type (words[2]);
    prop->external_type = get_prop_type (words[3]);
    prop->name = strdup (words[4]);
    prop->is_list = 1;
  }
  else {                                        /* not a list */
    prop->external_type = get_prop_type (words[1]);
    prop->name = strdup (words[2]);
    prop->is_list = 0;
  }
 
  /* add this property to the list of properties of the current element */
 
  elem = plyfile->elems[plyfile->nelems - 1];
 
  if (elem->nprops == 0)
    elem->props = (PlyProperty **) myalloc (sizeof (PlyProperty *));
  else
    elem->props = (PlyProperty **) realloc (elem->props,
                  sizeof (PlyProperty *) * (elem->nprops + 1));
 
  elem->props[elem->nprops] = prop;
  elem->nprops++;
}
 
 
/******************************************************************************
Add a comment to a PLY file descriptor.
 
Entry:
  plyfile - PLY file descriptor
  line    - line containing comment
******************************************************************************/
 
void add_comment (PlyFile *plyfile, char *line)
{
  int i;
 
  /* skip over "comment" and leading spaces and tabs */
  i = 7;
  while (line[i] == ' ' || line[i] == '\t')
    i++;
 
  ply_put_comment (plyfile, &line[i]);
}
 
 
/******************************************************************************
Add a some object information to a PLY file descriptor.
 
Entry:
  plyfile - PLY file descriptor
  line    - line containing text info
******************************************************************************/
 
void add_obj_info (PlyFile *plyfile, char *line)
{
  int i;
 
  /* skip over "obj_info" and leading spaces and tabs */
  i = 8;
  while (line[i] == ' ' || line[i] == '\t')
    i++;
 
  ply_put_obj_info (plyfile, &line[i]);
}
 
 
/******************************************************************************
Copy a property.
******************************************************************************/
 
void copy_property(PlyProperty *dest, PlyProperty *src)
{
  dest->name = strdup (src->name);
  dest->external_type = src->external_type;
  dest->internal_type = src->internal_type;
  dest->offset = src->offset;
 
  dest->is_list = src->is_list;
  dest->count_external = src->count_external;
  dest->count_internal = src->count_internal;
  dest->count_offset = src->count_offset;
}
 
 
/******************************************************************************
Allocate some memory.
 
Entry:
  size  - amount of memory requested (in bytes)
  lnum  - line number from which memory was requested
  fname - file name from which memory was requested
******************************************************************************/
 
char *my_alloc(int size, int lnum, char *fname)
{
  char *ptr;
 
  ptr = (char *) malloc (size);
 
  if (ptr == 0) {
    fprintf(stderr, "Memory allocation bombed on line %d in %s\n", lnum, fname);
  }
 
  return (ptr);
}
 
 
/******************************************************************************
Determine whether a property currently exists for an element.
 
Entry:
  plyfile   - file identifier
  elem_name - name of element that information is being specified about
  prop_name - name of property to find
******************************************************************************/
 
int 
ply_is_valid_property(PlyFile *plyfile, char *elem_name, char *prop_name)
{
 
  PlyElement *elem;
  PlyProperty *prop;
  int index;
 
  /* find information about the element */
  elem = find_element (plyfile, elem_name);
  plyfile->which_elem = elem;
  prop = find_property (elem, prop_name, &index);
  
  return (prop!=NULL);
}
 
#ifdef __cplusplus 
} 
#endif
 

Rev 333	Rev 373
1	`/*`	1	`/*`
2		2
3	`The interface routines for reading and writing PLY polygon files.`	3	`The interface routines for reading and writing PLY polygon files.`
4		4
5	`Greg Turk, February 1994`	5	`Greg Turk, February 1994`
6		6
7	`---------------------------------------------------------------`	7	`---------------------------------------------------------------`
8		8
9	`A PLY file contains a single polygonal _object_.`	9	`A PLY file contains a single polygonal _object_.`
10		10
11	`An object is composed of lists of _elements_. Typical elements are`	11	`An object is composed of lists of _elements_. Typical elements are`
12	`vertices, faces, edges and materials.`	12	`vertices, faces, edges and materials.`
13		13
14	`Each type of element for a given object has one or more _properties_`	14	`Each type of element for a given object has one or more _properties_`
15	`associated with the element type. For instance, a vertex element may`	15	`associated with the element type. For instance, a vertex element may`
16	`have as properties the floating-point values x,y,z and the three unsigned`	16	`have as properties the floating-point values x,y,z and the three unsigned`
17	`chars representing red, green and blue.`	17	`chars representing red, green and blue.`
18		18
19	`---------------------------------------------------------------`	19	`---------------------------------------------------------------`
20		20
21	`Copyright (c) 1994 The Board of Trustees of The Leland Stanford`	21	`Copyright (c) 1994 The Board of Trustees of The Leland Stanford`
22	`Junior University. All rights reserved.`	22	`Junior University. All rights reserved.`
23		23
24	`Permission to use, copy, modify and distribute this software and its`	24	`Permission to use, copy, modify and distribute this software and its`
25	`documentation for any purpose is hereby granted without fee, provided`	25	`documentation for any purpose is hereby granted without fee, provided`
26	`that the above copyright notice and this permission notice appear in`	26	`that the above copyright notice and this permission notice appear in`
27	`all copies of this software and that you do not sell the software.`	27	`all copies of this software and that you do not sell the software.`
28		28
29	`THE SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND,`	29	`THE SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND,`
30	`EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY`	30	`EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY`
31	`WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.`	31	`WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.`
32		32
33	`*/`	33	`*/`
34		34
35	`#include <stdio.h>`	35	`#include <stdio.h>`
36	`#include <stdlib.h>`	36	`#include <stdlib.h>`
37	`#include <math.h>`	37	`#include <math.h>`
38	`#include <string.h>`	38	`#include <string.h>`
39	`#include <fcntl.h>`	39	`#include <fcntl.h>`
40	`#include "ply.h"`	40	`#include "ply.h"`
41		41
42	`#ifdef __cplusplus`	42	`#ifdef __cplusplus`
43	`extern "C" {`	43	`extern "C" {`
44	`#endif`	44	`#endif`
45		45
46	`char *type_names[] = {`	46	`char *type_names[] = {`
47	`"invalid",`	47	`"invalid",`
48	`"char", "short", "int",`	48	`"char", "short", "int",`
49	`"uchar", "ushort", "uint",`	49	`"uchar", "ushort", "uint",`
50	`"float", "double",`	50	`"float", "double",`
51	`};`	51	`};`
52		52
53	`int ply_type_size[] = {`	53	`int ply_type_size[] = {`
54	`0, 1, 2, 4, 1, 2, 4, 4, 8`	54	`0, 1, 2, 4, 1, 2, 4, 4, 8`
55	`};`	55	`};`
56		56
57	`#define NO_OTHER_PROPS -1`	57	`#define NO_OTHER_PROPS -1`
58		58
59	`#define DONT_STORE_PROP 0`	59	`#define DONT_STORE_PROP 0`
60	`#define STORE_PROP 1`	60	`#define STORE_PROP 1`
61		61
62	`#define OTHER_PROP 0`	62	`#define OTHER_PROP 0`
63	`#define NAMED_PROP 1`	63	`#define NAMED_PROP 1`
64		64
65	`/* memory allocation */`	65	`/* memory allocation */`
66	`char *my_alloc();`	66	`char *my_alloc();`
67	`#define myalloc(mem_size) my_alloc((mem_size), __LINE__, __FILE__)`	67	`#define myalloc(mem_size) my_alloc((mem_size), __LINE__, __FILE__)`
68		68
69	`/* returns 1 if strings are equal, 0 if not */`	69	`/* returns 1 if strings are equal, 0 if not */`
70	`int equal_strings(char , char );`	70	`int equal_strings(char , char );`
71		71
72	`/* find an element in a plyfile's list */`	72	`/* find an element in a plyfile's list */`
73	`PlyElement find_element(PlyFile , char *);`	73	`PlyElement find_element(PlyFile , char *);`
74		74
75	`/* find a property in an element's list */`	75	`/* find a property in an element's list */`
76	`PlyProperty find_property(PlyElement , char , int );`	76	`PlyProperty find_property(PlyElement , char , int );`
77		77
78	`/* write to a file the word describing a PLY file data type */`	78	`/* write to a file the word describing a PLY file data type */`
79	`void write_scalar_type (FILE *, int);`	79	`void write_scalar_type (FILE *, int);`
80		80
81	`/* read a line from a file and break it up into separate words */`	81	`/* read a line from a file and break it up into separate words */`
82	`char *get_words(FILE , int , char *);`	82	`char *get_words(FILE , int , char *);`
83	`char *old_get_words(FILE , int *);`	83	`char *old_get_words(FILE , int *);`
84		84
85	`/* write an item to a file */`	85	`/* write an item to a file */`
86	`void write_binary_item(FILE *, int, unsigned int, double, int, int);`	86	`void write_binary_item(FILE *, int, unsigned int, double, int, int);`
87	`void write_ascii_item(FILE *, int, unsigned int, double, int);`	87	`void write_ascii_item(FILE *, int, unsigned int, double, int);`
88	`double old_write_ascii_item(FILE , char , int);`	88	`double old_write_ascii_item(FILE , char , int);`
89		89
90	`/* add information to a PLY file descriptor */`	90	`/* add information to a PLY file descriptor */`
91	`void add_element(PlyFile , char *, int);`	91	`void add_element(PlyFile , char *, int);`
92	`void add_property(PlyFile , char *, int);`	92	`void add_property(PlyFile , char *, int);`
93	`void add_comment(PlyFile , char );`	93	`void add_comment(PlyFile , char );`
94	`void add_obj_info(PlyFile , char );`	94	`void add_obj_info(PlyFile , char );`
95		95
96	`/* copy a property */`	96	`/* copy a property */`
97	`void copy_property(PlyProperty , PlyProperty );`	97	`void copy_property(PlyProperty , PlyProperty );`
98		98
99	`/* store a value into where a pointer and a type specify */`	99	`/* store a value into where a pointer and a type specify */`
100	`void store_item(char *, int, int, unsigned int, double);`	100	`void store_item(char *, int, int, unsigned int, double);`
101		101
102	`/* return the value of a stored item */`	102	`/* return the value of a stored item */`
103	`void get_stored_item( void , int, int , unsigned int , double );`	103	`void get_stored_item( void , int, int , unsigned int , double );`
104		104
105	`/* return the value stored in an item, given ptr to it and its type */`	105	`/* return the value stored in an item, given ptr to it and its type */`
106	`double get_item_value(char *, int);`	106	`double get_item_value(char *, int);`
107		107
108	`/* get binary or ascii item and store it according to ptr and type */`	108	`/* get binary or ascii item and store it according to ptr and type */`
109	`void get_ascii_item(char , int, int , unsigned int , double );`	109	`void get_ascii_item(char , int, int , unsigned int , double );`
110	`void get_binary_item(FILE , int, int , unsigned int , double , int);`	110	`void get_binary_item(FILE , int, int , unsigned int , double , int);`
111		111
112	`/* get a bunch of elements from a file */`	112	`/* get a bunch of elements from a file */`
113	`void ascii_get_element(PlyFile , char , int);`	113	`void ascii_get_element(PlyFile , char , int);`
114	`void binary_get_element(PlyFile , char , int);`	114	`void binary_get_element(PlyFile , char , int);`
115		115
116		116
117	`/*************/`	117	`/*************/`
118	`/* Writing */`	118	`/* Writing */`
119	`/*************/`	119	`/*************/`
120		120
121		121
122	`/******************************************************************************`	122	`/******************************************************************************`
123	`Given a file pointer, get ready to write PLY data to the file.`	123	`Given a file pointer, get ready to write PLY data to the file.`
124		124
125	`Entry:`	125	`Entry:`
126	`fp - the given file pointer`	126	`fp - the given file pointer`
127	`nelems - number of elements in object`	127	`nelems - number of elements in object`
128	`elem_names - list of element names`	128	`elem_names - list of element names`
129	`file_type - file type, either ascii or binary`	129	`file_type - file type, either ascii or binary`
130		130
131	`Exit:`	131	`Exit:`
132	`returns a pointer to a PlyFile, used to refer to this file, or NULL if error`	132	`returns a pointer to a PlyFile, used to refer to this file, or NULL if error`
133	`******************************************************************************/`	133	`******************************************************************************/`
134		134
135	`PlyFile *ply_write(`	135	`PlyFile *ply_write(`
136	`FILE *fp,`	136	`FILE *fp,`
137	`int nelems,`	137	`int nelems,`
138	`char **elem_names,`	138	`char **elem_names,`
139	`int file_type`	139	`int file_type`
140	`)`	140	`)`
141	`{`	141	`{`
142	`int i;`	142	`int i;`
143	`PlyFile *plyfile;`	143	`PlyFile *plyfile;`
144	`PlyElement *elem;`	144	`PlyElement *elem;`
145		145
146	`/* check for NULL file pointer */`	146	`/* check for NULL file pointer */`
147	`if (fp == NULL)`	147	`if (fp == NULL)`
148	`return (NULL);`	148	`return (NULL);`
149		149
150	`#ifdef WIN32`	150	`#ifdef WIN32`
151	`/* Make sure file has the correct (ascii/binary) mode */`	151	`/* Make sure file has the correct (ascii/binary) mode */`
152	`if (file_type == PLY_ASCII)`	152	`if (file_type == PLY_ASCII)`
153	`setmode(fileno(fp), _O_TEXT);`	153	`setmode(fileno(fp), _O_TEXT);`
154	`else`	154	`else`
155	`setmode(fileno(fp), _O_BINARY);`	155	`setmode(fileno(fp), _O_BINARY);`
156	`#endif`	156	`#endif`
157		157
158	`/* create a record for this object */`	158	`/* create a record for this object */`
159		159
160	`plyfile = (PlyFile *) myalloc (sizeof (PlyFile));`	160	`plyfile = (PlyFile *) myalloc (sizeof (PlyFile));`
161	`plyfile->file_type = file_type;`	161	`plyfile->file_type = file_type;`
162	`plyfile->num_comments = 0;`	162	`plyfile->num_comments = 0;`
163	`plyfile->num_obj_info = 0;`	163	`plyfile->num_obj_info = 0;`
164	`plyfile->nelems = nelems;`	164	`plyfile->nelems = nelems;`
165	`plyfile->version = 1.0;`	165	`plyfile->version = 1.0;`
166	`plyfile->fp = fp;`	166	`plyfile->fp = fp;`
167	`plyfile->other_elems = NULL;`	167	`plyfile->other_elems = NULL;`
168		168
169	`/* tuck aside the names of the elements */`	169	`/* tuck aside the names of the elements */`
170		170
171	`plyfile->elems = (PlyElement *) myalloc (sizeof (PlyElement ) * nelems);`	171	`plyfile->elems = (PlyElement *) myalloc (sizeof (PlyElement ) * nelems);`
172	`for (i = 0; i < nelems; i++) {`	172	`for (i = 0; i < nelems; i++) {`
173	`elem = (PlyElement *) myalloc (sizeof (PlyElement));`	173	`elem = (PlyElement *) myalloc (sizeof (PlyElement));`
174	`plyfile->elems[i] = elem;`	174	`plyfile->elems[i] = elem;`
175	`elem->name = strdup (elem_names[i]);`	175	`elem->name = strdup (elem_names[i]);`
176	`elem->num = 0;`	176	`elem->num = 0;`
177	`elem->nprops = 0;`	177	`elem->nprops = 0;`
178	`}`	178	`}`
179		179
180	`/* return pointer to the file descriptor */`	180	`/* return pointer to the file descriptor */`
181	`return (plyfile);`	181	`return (plyfile);`
182	`}`	182	`}`
183		183
184		184
185	`/******************************************************************************`	185	`/******************************************************************************`
186	`Open a polygon file for writing.`	186	`Open a polygon file for writing.`
187		187
188	`Entry:`	188	`Entry:`
189	`filename - name of file to read from`	189	`filename - name of file to read from`
190	`nelems - number of elements in object`	190	`nelems - number of elements in object`
191	`elem_names - list of element names`	191	`elem_names - list of element names`
192	`file_type - file type, either ascii or binary`	192	`file_type - file type, either ascii or binary`
193		193
194	`Exit:`	194	`Exit:`
195	`version - version number of PLY file`	195	`version - version number of PLY file`
196	`returns a file identifier, used to refer to this file, or NULL if error`	196	`returns a file identifier, used to refer to this file, or NULL if error`
197	`******************************************************************************/`	197	`******************************************************************************/`
198		198
199	`PlyFile *ply_open_for_writing(`	199	`PlyFile *ply_open_for_writing(`
200	`const char *filename,`	200	`const char *filename,`
201	`int nelems,`	201	`int nelems,`
202	`char **elem_names,`	202	`char **elem_names,`
203	`int file_type,`	203	`int file_type,`
204	`float *version`	204	`float *version`
205	`)`	205	`)`
206	`{`	206	`{`
207	`int i;`	-
208	`PlyFile *plyfile;`	207	`PlyFile *plyfile;`
209	`PlyElement *elem;`	-
210	`char *name;`	208	`char *name;`
211	`FILE *fp;`	209	`FILE *fp;`
212		210
213	`/* tack on the extension .ply, if necessary */`	211	`/* tack on the extension .ply, if necessary */`
214		212
215	`name = (char ) myalloc (sizeof (char) (strlen (filename) + 5));`	213	`name = (char ) myalloc (sizeof (char) (strlen (filename) + 5));`
216	`strcpy (name, filename);`	214	`strcpy (name, filename);`
217	`if (strlen (name) < 4 \|\|`	215	`if (strlen (name) < 4 \|\|`
218	`strcmp (name + strlen (name) - 4, ".ply") != 0)`	216	`strcmp (name + strlen (name) - 4, ".ply") != 0)`
219	`strcat (name, ".ply");`	217	`strcat (name, ".ply");`
220		218
221	`/* open the file for writing */`	219	`/* open the file for writing */`
222		220
223	`fp = fopen (name, "w");`	221	`fp = fopen (name, "w");`
224	`if (fp == NULL) {`	222	`if (fp == NULL) {`
225	`return (NULL);`	223	`return (NULL);`
226	`}`	224	`}`
227		225
228	`/* create the actual PlyFile structure */`	226	`/* create the actual PlyFile structure */`
229		227
230	`plyfile = ply_write (fp, nelems, elem_names, file_type);`	228	`plyfile = ply_write (fp, nelems, elem_names, file_type);`
231	`if (plyfile == NULL)`	229	`if (plyfile == NULL)`
232	`return (NULL);`	230	`return (NULL);`
233		231
234	`/* say what PLY file version number we're writing */`	232	`/* say what PLY file version number we're writing */`
235	`*version = plyfile->version;`	233	`*version = plyfile->version;`
236		234
237	`/* return pointer to the file descriptor */`	235	`/* return pointer to the file descriptor */`
238	`return (plyfile);`	236	`return (plyfile);`
239	`}`	237	`}`
240		238
241		239
242	`/******************************************************************************`	240	`/******************************************************************************`
243	`Describe an element, including its properties and how many will be written`	241	`Describe an element, including its properties and how many will be written`
244	`to the file.`	242	`to the file.`
245		243
246	`Entry:`	244	`Entry:`
247	`plyfile - file identifier`	245	`plyfile - file identifier`
248	`elem_name - name of element that information is being specified about`	246	`elem_name - name of element that information is being specified about`
249	`nelems - number of elements of this type to be written`	247	`nelems - number of elements of this type to be written`
250	`nprops - number of properties contained in the element`	248	`nprops - number of properties contained in the element`
251	`prop_list - list of properties`	249	`prop_list - list of properties`
252	`******************************************************************************/`	250	`******************************************************************************/`
253		251
254	`void ply_describe_element(`	252	`void ply_describe_element(`
255	`PlyFile *plyfile,`	253	`PlyFile *plyfile,`
256	`char *elem_name,`	254	`char *elem_name,`
257	`int nelems,`	255	`int nelems,`
258	`int nprops,`	256	`int nprops,`
259	`PlyProperty *prop_list`	257	`PlyProperty *prop_list`
260	`)`	258	`)`
261	`{`	259	`{`
262	`int i;`	260	`int i;`
263	`PlyElement *elem;`	261	`PlyElement *elem;`
264	`PlyProperty *prop;`	262	`PlyProperty *prop;`
265		263
266	`/* look for appropriate element */`	264	`/* look for appropriate element */`
267	`elem = find_element (plyfile, elem_name);`	265	`elem = find_element (plyfile, elem_name);`
268	`if (elem == NULL) {`	266	`if (elem == NULL) {`
269	`fprintf(stderr,"ply_describe_element: can't find element '%s'\n",elem_name);`	267	`fprintf(stderr,"ply_describe_element: can't find element '%s'\n",elem_name);`
270	`exit (-1);`	268	`exit (-1);`
271	`}`	269	`}`
272		270
273	`elem->num = nelems;`	271	`elem->num = nelems;`
274		272
275	`/* copy the list of properties */`	273	`/* copy the list of properties */`
276		274
277	`elem->nprops = nprops;`	275	`elem->nprops = nprops;`
278	`elem->props = (PlyProperty *) myalloc (sizeof (PlyProperty ) * nprops);`	276	`elem->props = (PlyProperty *) myalloc (sizeof (PlyProperty ) * nprops);`
279	`elem->store_prop = (char ) myalloc (sizeof (char) nprops);`	277	`elem->store_prop = (char ) myalloc (sizeof (char) nprops);`
280		278
281	`for (i = 0; i < nprops; i++) {`	279	`for (i = 0; i < nprops; i++) {`
282	`prop = (PlyProperty *) myalloc (sizeof (PlyProperty));`	280	`prop = (PlyProperty *) myalloc (sizeof (PlyProperty));`
283	`elem->props[i] = prop;`	281	`elem->props[i] = prop;`
284	`elem->store_prop[i] = NAMED_PROP;`	282	`elem->store_prop[i] = NAMED_PROP;`
285	`copy_property (prop, &prop_list[i]);`	283	`copy_property (prop, &prop_list[i]);`
286	`}`	284	`}`
287	`}`	285	`}`
288		286
289		287
290	`/******************************************************************************`	288	`/******************************************************************************`
291	`Describe a property of an element.`	289	`Describe a property of an element.`
292		290
293	`Entry:`	291	`Entry:`
294	`plyfile - file identifier`	292	`plyfile - file identifier`
295	`elem_name - name of element that information is being specified about`	293	`elem_name - name of element that information is being specified about`
296	`prop - the new property`	294	`prop - the new property`
297	`******************************************************************************/`	295	`******************************************************************************/`
298		296
299	`void ply_describe_property(`	297	`void ply_describe_property(`
300	`PlyFile *plyfile,`	298	`PlyFile *plyfile,`
301	`char *elem_name,`	299	`char *elem_name,`
302	`PlyProperty *prop`	300	`PlyProperty *prop`
303	`)`	301	`)`
304	`{`	302	`{`
305	`PlyElement *elem;`	303	`PlyElement *elem;`
306	`PlyProperty *elem_prop;`	304	`PlyProperty *elem_prop;`
307		305
308	`/* look for appropriate element */`	306	`/* look for appropriate element */`
309	`elem = find_element (plyfile, elem_name);`	307	`elem = find_element (plyfile, elem_name);`
310	`if (elem == NULL) {`	308	`if (elem == NULL) {`
311	`fprintf(stderr, "ply_describe_property: can't find element '%s'\n",`	309	`fprintf(stderr, "ply_describe_property: can't find element '%s'\n",`
312	`elem_name);`	310	`elem_name);`
313	`return;`	311	`return;`
314	`}`	312	`}`
315		313
316	`/* create room for new property */`	314	`/* create room for new property */`
317		315
318	`if (elem->nprops == 0) {`	316	`if (elem->nprops == 0) {`
319	`elem->props = (PlyProperty *) myalloc (sizeof (PlyProperty ));`	317	`elem->props = (PlyProperty *) myalloc (sizeof (PlyProperty ));`
320	`elem->store_prop = (char *) myalloc (sizeof (char));`	318	`elem->store_prop = (char *) myalloc (sizeof (char));`
321	`elem->nprops = 1;`	319	`elem->nprops = 1;`
322	`}`	320	`}`
323	`else {`	321	`else {`
324	`elem->nprops++;`	322	`elem->nprops++;`
325	`elem->props = (PlyProperty **)`	323	`elem->props = (PlyProperty **)`
326	`realloc (elem->props, sizeof (PlyProperty ) elem->nprops);`	324	`realloc (elem->props, sizeof (PlyProperty ) elem->nprops);`
327	`elem->store_prop = (char *)`	325	`elem->store_prop = (char *)`
328	`realloc (elem->store_prop, sizeof (char) * elem->nprops);`	326	`realloc (elem->store_prop, sizeof (char) * elem->nprops);`
329	`}`	327	`}`
330		328
331	`/* copy the new property */`	329	`/* copy the new property */`
332		330
333	`elem_prop = (PlyProperty *) myalloc (sizeof (PlyProperty));`	331	`elem_prop = (PlyProperty *) myalloc (sizeof (PlyProperty));`
334	`elem->props[elem->nprops - 1] = elem_prop;`	332	`elem->props[elem->nprops - 1] = elem_prop;`
335	`elem->store_prop[elem->nprops - 1] = NAMED_PROP;`	333	`elem->store_prop[elem->nprops - 1] = NAMED_PROP;`
336	`copy_property (elem_prop, prop);`	334	`copy_property (elem_prop, prop);`
337	`}`	335	`}`
338		336
339		337
340	`/******************************************************************************`	338	`/******************************************************************************`
341	`Describe what the "other" properties are that are to be stored, and where`	339	`Describe what the "other" properties are that are to be stored, and where`
342	`they are in an element.`	340	`they are in an element.`
343	`******************************************************************************/`	341	`******************************************************************************/`
344		342
345	`void ply_describe_other_properties(`	343	`void ply_describe_other_properties(`
346	`PlyFile *plyfile,`	344	`PlyFile *plyfile,`
347	`PlyOtherProp *other,`	345	`PlyOtherProp *other,`
348	`int offset`	346	`int offset`
349	`)`	347	`)`
350	`{`	348	`{`
351	`int i;`	349	`int i;`
352	`PlyElement *elem;`	350	`PlyElement *elem;`
353	`PlyProperty *prop;`	351	`PlyProperty *prop;`
354		352
355	`/* look for appropriate element */`	353	`/* look for appropriate element */`
356	`elem = find_element (plyfile, other->name);`	354	`elem = find_element (plyfile, other->name);`
357	`if (elem == NULL) {`	355	`if (elem == NULL) {`
358	`fprintf(stderr, "ply_describe_other_properties: can't find element '%s'\n",`	356	`fprintf(stderr, "ply_describe_other_properties: can't find element '%s'\n",`
359	`other->name);`	357	`other->name);`
360	`return;`	358	`return;`
361	`}`	359	`}`
362		360
363	`/* create room for other properties */`	361	`/* create room for other properties */`
364		362
365	`if (elem->nprops == 0) {`	363	`if (elem->nprops == 0) {`
366	`elem->props = (PlyProperty **)`	364	`elem->props = (PlyProperty **)`
367	`myalloc (sizeof (PlyProperty ) other->nprops);`	365	`myalloc (sizeof (PlyProperty ) other->nprops);`
368	`elem->store_prop = (char ) myalloc (sizeof (char) other->nprops);`	366	`elem->store_prop = (char ) myalloc (sizeof (char) other->nprops);`
369	`elem->nprops = 0;`	367	`elem->nprops = 0;`
370	`}`	368	`}`
371	`else {`	369	`else {`
372	`int newsize;`	370	`int newsize;`
373	`newsize = elem->nprops + other->nprops;`	371	`newsize = elem->nprops + other->nprops;`
374	`elem->props = (PlyProperty **)`	372	`elem->props = (PlyProperty **)`
375	`realloc (elem->props, sizeof (PlyProperty ) newsize);`	373	`realloc (elem->props, sizeof (PlyProperty ) newsize);`
376	`elem->store_prop = (char *)`	374	`elem->store_prop = (char *)`
377	`realloc (elem->store_prop, sizeof (char) * newsize);`	375	`realloc (elem->store_prop, sizeof (char) * newsize);`
378	`}`	376	`}`
379		377
380	`/* copy the other properties */`	378	`/* copy the other properties */`
381		379
382	`for (i = 0; i < other->nprops; i++) {`	380	`for (i = 0; i < other->nprops; i++) {`
383	`prop = (PlyProperty *) myalloc (sizeof (PlyProperty));`	381	`prop = (PlyProperty *) myalloc (sizeof (PlyProperty));`
384	`copy_property (prop, other->props[i]);`	382	`copy_property (prop, other->props[i]);`
385	`elem->props[elem->nprops] = prop;`	383	`elem->props[elem->nprops] = prop;`
386	`elem->store_prop[elem->nprops] = OTHER_PROP;`	384	`elem->store_prop[elem->nprops] = OTHER_PROP;`
387	`elem->nprops++;`	385	`elem->nprops++;`
388	`}`	386	`}`
389		387
390	`/* save other info about other properties */`	388	`/* save other info about other properties */`
391	`elem->other_size = other->size;`	389	`elem->other_size = other->size;`
392	`elem->other_offset = offset;`	390	`elem->other_offset = offset;`
393	`}`	391	`}`
394		392
395		393
396	`/******************************************************************************`	394	`/******************************************************************************`
397	`State how many of a given element will be written.`	395	`State how many of a given element will be written.`
398		396
399	`Entry:`	397	`Entry:`
400	`plyfile - file identifier`	398	`plyfile - file identifier`
401	`elem_name - name of element that information is being specified about`	399	`elem_name - name of element that information is being specified about`
402	`nelems - number of elements of this type to be written`	400	`nelems - number of elements of this type to be written`
403	`******************************************************************************/`	401	`******************************************************************************/`
404		402
405	`void ply_element_count(`	403	`void ply_element_count(`
406	`PlyFile *plyfile,`	404	`PlyFile *plyfile,`
407	`char *elem_name,`	405	`char *elem_name,`
408	`int nelems`	406	`int nelems`
409	`)`	407	`)`
410	`{`	408	`{`
411	`int i;`	-
412	`PlyElement *elem;`	409	`PlyElement *elem;`
413	`PlyProperty *prop;`	-
414		410
415	`/* look for appropriate element */`	411	`/* look for appropriate element */`
416	`elem = find_element (plyfile, elem_name);`	412	`elem = find_element (plyfile, elem_name);`
417	`if (elem == NULL) {`	413	`if (elem == NULL) {`
418	`fprintf(stderr,"ply_element_count: can't find element '%s'\n",elem_name);`	414	`fprintf(stderr,"ply_element_count: can't find element '%s'\n",elem_name);`
419	`exit (-1);`	415	`exit (-1);`
420	`}`	416	`}`
421		417
422	`elem->num = nelems;`	418	`elem->num = nelems;`
423	`}`	419	`}`
424		420
425		421
426	`/******************************************************************************`	422	`/******************************************************************************`
427	`Signal that we've described everything a PLY file's header and that the`	423	`Signal that we've described everything a PLY file's header and that the`
428	`header should be written to the file.`	424	`header should be written to the file.`
429		425
430	`Entry:`	426	`Entry:`
431	`plyfile - file identifier`	427	`plyfile - file identifier`
432	`******************************************************************************/`	428	`******************************************************************************/`
433		429
434	`void ply_header_complete(PlyFile *plyfile)`	430	`void ply_header_complete(PlyFile *plyfile)`
435	`{`	431	`{`
436	`int i,j;`	432	`int i,j;`
437	`FILE *fp = plyfile->fp;`	433	`FILE *fp = plyfile->fp;`
438	`PlyElement *elem;`	434	`PlyElement *elem;`
439	`PlyProperty *prop;`	435	`PlyProperty *prop;`
440		436
441	`fprintf (fp, "ply\n");`	437	`fprintf (fp, "ply\n");`
442		438
443	`switch (plyfile->file_type) {`	439	`switch (plyfile->file_type) {`
444	`case PLY_ASCII:`	440	`case PLY_ASCII:`
445	`fprintf (fp, "format ascii 1.0\n");`	441	`fprintf (fp, "format ascii 1.0\n");`
446	`break;`	442	`break;`
447	`case PLY_BINARY_BE:`	443	`case PLY_BINARY_BE:`
448	`fprintf (fp, "format binary_big_endian 1.0\n");`	444	`fprintf (fp, "format binary_big_endian 1.0\n");`
449	`break;`	445	`break;`
450	`case PLY_BINARY_LE:`	446	`case PLY_BINARY_LE:`
451	`fprintf (fp, "format binary_little_endian 1.0\n");`	447	`fprintf (fp, "format binary_little_endian 1.0\n");`
452	`break;`	448	`break;`
453	`default:`	449	`default:`
454	`fprintf (stderr, "ply_header_complete: bad file type = %d\n",`	450	`fprintf (stderr, "ply_header_complete: bad file type = %d\n",`
455	`plyfile->file_type);`	451	`plyfile->file_type);`
456	`exit (-1);`	452	`exit (-1);`
457	`}`	453	`}`
458		454
459	`/* write out the comments */`	455	`/* write out the comments */`
460		456
461	`for (i = 0; i < plyfile->num_comments; i++)`	457	`for (i = 0; i < plyfile->num_comments; i++)`
462	`fprintf (fp, "comment %s\n", plyfile->comments[i]);`	458	`fprintf (fp, "comment %s\n", plyfile->comments[i]);`
463		459
464	`/* write out object information */`	460	`/* write out object information */`
465		461
466	`for (i = 0; i < plyfile->num_obj_info; i++)`	462	`for (i = 0; i < plyfile->num_obj_info; i++)`
467	`fprintf (fp, "obj_info %s\n", plyfile->obj_info[i]);`	463	`fprintf (fp, "obj_info %s\n", plyfile->obj_info[i]);`
468		464
469	`/* write out information about each element */`	465	`/* write out information about each element */`
470		466
471	`for (i = 0; i < plyfile->nelems; i++) {`	467	`for (i = 0; i < plyfile->nelems; i++) {`
472		468
473	`elem = plyfile->elems[i];`	469	`elem = plyfile->elems[i];`
474	`fprintf (fp, "element %s %d\n", elem->name, elem->num);`	470	`fprintf (fp, "element %s %d\n", elem->name, elem->num);`
475		471
476	`/* write out each property */`	472	`/* write out each property */`
477	`for (j = 0; j < elem->nprops; j++) {`	473	`for (j = 0; j < elem->nprops; j++) {`
478	`prop = elem->props[j];`	474	`prop = elem->props[j];`
479	`if (prop->is_list) {`	475	`if (prop->is_list) {`
480	`fprintf (fp, "property list ");`	476	`fprintf (fp, "property list ");`
481	`write_scalar_type (fp, prop->count_external);`	477	`write_scalar_type (fp, prop->count_external);`
482	`fprintf (fp, " ");`	478	`fprintf (fp, " ");`
483	`write_scalar_type (fp, prop->external_type);`	479	`write_scalar_type (fp, prop->external_type);`
484	`fprintf (fp, " %s\n", prop->name);`	480	`fprintf (fp, " %s\n", prop->name);`
485	`}`	481	`}`
486	`else {`	482	`else {`
487	`fprintf (fp, "property ");`	483	`fprintf (fp, "property ");`
488	`write_scalar_type (fp, prop->external_type);`	484	`write_scalar_type (fp, prop->external_type);`
489	`fprintf (fp, " %s\n", prop->name);`	485	`fprintf (fp, " %s\n", prop->name);`
490	`}`	486	`}`
491	`}`	487	`}`
492	`}`	488	`}`
493		489
494	`fprintf (fp, "end_header\n");`	490	`fprintf (fp, "end_header\n");`
495	`}`	491	`}`
496		492
497		493
498	`/******************************************************************************`	494	`/******************************************************************************`
499	`Specify which elements are going to be written. This should be called`	495	`Specify which elements are going to be written. This should be called`
500	`before a call to the routine ply_put_element().`	496	`before a call to the routine ply_put_element().`

Subversion Repositories gelsvn

(root)/trunk/apps/RangeScanViewer/plyfile.c @ 536 – Rev 333 → 373