table.c

Go to the documentation of this file.

/*                         T A B L E . C
 * BRL-CAD
 *
 * Copyright (c) 1989-2006 United States Government as represented by
 * the U.S. Army Research Laboratory.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public License
 * as published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this file; see the file named COPYING for more
 * information.
 */

/** @addtogroup g_ */
/*@{*/
/** @file table.c
 *  Tables for the BRL-CAD Package ray-tracing library "librt".
 *
 *  Author -
 *      Michael John Muuss
 *
 *  Source -
 *      SECAD/VLD Computing Consortium, Bldg 394
 *      The U. S. Army Ballistic Research Laboratory
 *      Aberdeen Proving Ground, Maryland  21005
 *
 */
/*@}*/

#ifndef lint
static const char RCStree[] = "@(#)$Header: /cvsroot/brlcad/brlcad/src/librt/table.c,v 14.14 2006/09/16 02:04:26 lbutler Exp $ (BRL)";
#endif

#include "common.h"

#include <stdio.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include <math.h>

#include "tcl.h"

#include "machine.h"
#include "bu.h"
#include "vmath.h"
#include "db.h"
#include "nmg.h"
#include "raytrace.h"
#include "rtgeom.h"
#include "./debug.h"


const struct bu_structparse rt_nul_parse[] = {
        {""}
};

#if __STDC__ && !defined(alliant)
# define RT_DECLARE_INTERFACE(name)     \
        BU_EXTERN(int rt_##name##_prep, (struct soltab *stp, \
                        struct rt_db_internal *ip, struct rt_i *rtip )); \
        BU_EXTERN(int rt_##name##_shot, (struct soltab *stp,\
                        register struct xray *rp, \
                        struct application *ap, struct seg *seghead )); \
        BU_EXTERN(int rt_##name##_piece_shot, (\
                        struct rt_piecestate *psp, \
                        struct rt_piecelist *plp, \
                        double dist_corr, \
                        struct xray *rp, \
                        struct application *ap, \
                        struct seg *seghead )); \
        BU_EXTERN(void rt_##name##_piece_hitsegs, (\
                        struct rt_piecestate *psp, \
                        struct seg *seghead, \
                        struct application *ap)); \
        BU_EXTERN(void rt_##name##_print, (const struct soltab *stp)); \
        BU_EXTERN(void rt_##name##_norm, (struct hit *hitp, \
                        struct soltab *stp, struct xray *rp)); \
        BU_EXTERN(void rt_##name##_uv, (struct application *ap, \
                        struct soltab *stp, struct hit *hitp, \
                        struct uvcoord *uvp)); \
        BU_EXTERN(void rt_##name##_curve, (struct curvature *cvp, \
                        struct hit *hitp, struct soltab *stp)); \
        BU_EXTERN(int rt_##name##_class, ()); \
        BU_EXTERN(void rt_##name##_free, (struct soltab *stp)); \
        BU_EXTERN(int rt_##name##_plot, (struct bu_list *vhead, \
                        struct rt_db_internal *ip, \
                        const struct rt_tess_tol *ttol, \
                        const struct bn_tol *tol)); \
        BU_EXTERN(void rt_##name##_vshot, (struct soltab *stp[], \
                        struct xray *rp[], \
                        struct seg segp[], int n, struct application *ap )); \
        BU_EXTERN(int rt_##name##_tess, (struct nmgregion **r, \
                        struct model *m, struct rt_db_internal *ip, \
                        const struct rt_tess_tol *ttol, \
                        const struct bn_tol *tol)); \
        BU_EXTERN(int rt_##name##_tnurb, (struct nmgregion **r, \
                        struct model *m, struct rt_db_internal *ip, \
                        const struct bn_tol *tol)); \
        BU_EXTERN(int rt_##name##_import5, (struct rt_db_internal *ip, \
                        const struct bu_external *ep, const mat_t mat, \
                        const struct db_i *dbip, struct resource *resp, const int minor_type )); \
        BU_EXTERN(int rt_##name##_export5, (struct bu_external *ep, \
                        const struct rt_db_internal *ip, \
                        double local2mm, const struct db_i *dbip, \
                        struct resource *resp, \
                        const int minor_type)); \
        BU_EXTERN(int rt_##name##_import, (struct rt_db_internal *ip, \
                        const struct bu_external *ep, const mat_t mat, \
                        const struct db_i *dbip, struct resource *resp )); \
        BU_EXTERN(int rt_##name##_export, (struct bu_external *ep, \
                        const struct rt_db_internal *ip, \
                        double local2mm, const struct db_i *dbip, \
                        struct resource *resp )); \
        BU_EXTERN(void rt_##name##_ifree, (struct rt_db_internal *ip, \
                        struct resource *resp)); \
        BU_EXTERN(int rt_##name##_describe, (struct bu_vls *str, \
                        const struct rt_db_internal *ip, \
                        int verbose, \
                        double mm2local, \
                        struct resource *resp, \
                        struct db_i *db_i)); \
        BU_EXTERN(int rt_##name##_xform, (struct rt_db_internal *op, \
                        const mat_t mat, struct rt_db_internal *ip, \
                        int free, struct db_i *dbip, \
                        struct resource *resp)); \
        extern const struct bu_structparse rt_##name##_parse[];
#else
# define RT_DECLARE_INTERFACE(name)     \
        BU_EXTERN(int rt_/**/name/**/_prep, (struct soltab *stp, \
                        struct rt_db_internal *ip, struct rt_i *rtip )); \
        BU_EXTERN(int rt_/**/name/**/_shot, (struct soltab *stp, struct xray *rp, \
                        struct application *ap, struct seg *seghead )); \
        BU_EXTERN(int rt_/**/name/**/_piece_shot, (\
                        struct rt_piecestate *psp, \
                        struct rt_piecelist *plp, \
                        double dist_corr, \
                        struct xray *rp, \
                        struct application *ap, \
                        struct seg *seghead )); \
        BU_EXTERN(void rt_/**/name/**/_piece_hitsegs, (\
                        struct rt_piecestate *psp, \
                        struct seg *seghead, \
                        struct application *ap)); \
        BU_EXTERN(void rt_/**/name/**/_print, (const struct soltab *stp)); \
        BU_EXTERN(void rt_/**/name/**/_norm, (struct hit *hitp, \
                        struct soltab *stp, struct xray *rp)); \
        BU_EXTERN(void rt_/**/name/**/_uv, (struct application *ap, \
                        struct soltab *stp, struct hit *hitp, \
                        struct uvcoord *uvp)); \
        BU_EXTERN(void rt_/**/name/**/_curve, (struct curvature *cvp, \
                        struct hit *hitp, struct soltab *stp)); \
        BU_EXTERN(int rt_/**/name/**/_class, ()); \
        BU_EXTERN(void rt_/**/name/**/_free, (struct soltab *stp)); \
        BU_EXTERN(int rt_/**/name/**/_plot, (struct bu_list *vhead, \
                        struct rt_db_internal *ip, \
                        const struct rt_tess_tol *ttol, \
                        const struct bn_tol *tol)); \
        BU_EXTERN(void rt_/**/name/**/_vshot, (struct soltab *stp[], \
                        struct xray *rp[], \
                        struct seg segp[], int n, struct application *ap )); \
        BU_EXTERN(int rt_/**/name/**/_tess, (struct nmgregion **r, \
                        struct model *m, struct rt_db_internal *ip, \
                        const struct rt_tess_tol *ttol, \
                        const struct bn_tol *tol)); \
        BU_EXTERN(int rt_/**/name/**/_tnurb, (struct nmgregion **r, \
                        struct model *m, struct rt_db_internal *ip, \
                        const struct bn_tol *tol)); \
        BU_EXTERN(int rt_/**/name/**/_import5, (struct rt_db_internal *ip, \
                        const struct bu_external *ep, const mat_t mat, \
                        const struct db_i *dbip, struct resource *resp, const int minor_type )); \
        BU_EXTERN(int rt_/**/name/**/_export5, (struct bu_external *ep, \
                        const struct rt_db_internal *ip, \
                        double local2mm, const struct db_i *dbip, struct resource *resp, \
                        const int minor_type )); \
        BU_EXTERN(int rt_/**/name/**/_import, (struct rt_db_internal *ip, \
                        const struct bu_external *ep, const mat_t mat, \
                        const struct db_i *dbip, struct resource *resp )); \
        BU_EXTERN(int rt_/**/name/**/_export, (struct bu_external *ep, \
                        const struct rt_db_internal *ip, \
                        double local2mm, const struct db_i *dbip, struct resource *resp )); \
        BU_EXTERN(void rt_/**/name/**/_ifree, (struct rt_db_internal *ip, \
                        struct resource *resp)); \
        BU_EXTERN(int rt_/**/name/**/_describe, (struct bu_vls *str, \
                        const struct rt_db_internal *ip, int verbose, \
                        double mm2local, struct resource *resp, \
                                                 struct db_i *db_i)); \
        BU_EXTERN(int rt_/**/name/**/_xform, (struct rt_db_internal *op, \
                        const mat_t mat, struct rt_db_internal *ip, \
                        int free, struct db_i *dbip, \
                        struct resource *resp)); \
        extern const struct bu_structparse rt_/**/name/**/_parse[];
#endif

/* Note:  no semi-colons at the end of these, please */
RT_DECLARE_INTERFACE(nul)

#define rt_tor_xform rt_generic_xform
RT_DECLARE_INTERFACE(tor)

#define rt_tgc_xform rt_generic_xform
RT_DECLARE_INTERFACE(tgc)

#define rt_ell_xform rt_generic_xform
RT_DECLARE_INTERFACE(ell)

#define rt_arb_xform rt_generic_xform
RT_DECLARE_INTERFACE(arb)

#define rt_ars_xform rt_generic_xform
RT_DECLARE_INTERFACE(ars)

RT_DECLARE_INTERFACE(hlf)

#define rt_rec_xform rt_generic_xform
RT_DECLARE_INTERFACE(rec)

#define rt_pg_xform rt_generic_xform
RT_DECLARE_INTERFACE(pg)

#define rt_nurb_xform rt_generic_xform
RT_DECLARE_INTERFACE(nurb)

#define rt_sph_xform rt_generic_xform
RT_DECLARE_INTERFACE(sph)

#define rt_ebm_xform rt_generic_xform
RT_DECLARE_INTERFACE(ebm)

#define rt_vol_xform rt_generic_xform
RT_DECLARE_INTERFACE(vol)

#define rt_arbn_xform rt_generic_xform
RT_DECLARE_INTERFACE(arbn)

#define rt_pipe_xform rt_generic_xform
RT_DECLARE_INTERFACE(pipe)

#define rt_part_xform rt_generic_xform
RT_DECLARE_INTERFACE(part)

#define rt_nmg_xform rt_generic_xform
RT_DECLARE_INTERFACE(nmg)

#define rt_rpc_xform rt_generic_xform
RT_DECLARE_INTERFACE(rpc)

#define rt_rhc_xform rt_generic_xform
RT_DECLARE_INTERFACE(rhc)

#define rt_epa_xform rt_generic_xform
RT_DECLARE_INTERFACE(epa)

#define rt_ehy_xform rt_generic_xform
RT_DECLARE_INTERFACE(ehy)

#define rt_eto_xform rt_generic_xform
RT_DECLARE_INTERFACE(eto)

#define rt_grp_xform rt_generic_xform
RT_DECLARE_INTERFACE(grp)

#define rt_hf_xform rt_generic_xform
RT_DECLARE_INTERFACE(hf)

#define rt_dsp_xform rt_generic_xform
RT_DECLARE_INTERFACE(dsp)

#define rt_sketch_xform rt_generic_xform
RT_DECLARE_INTERFACE(sketch)

RT_DECLARE_INTERFACE(extrude)

#define rt_submodel_xform rt_generic_xform
RT_DECLARE_INTERFACE(submodel)

#define rt_cline_xform rt_generic_xform
RT_DECLARE_INTERFACE(cline)

RT_DECLARE_INTERFACE(bot)

#define rt_superell_xform rt_generic_xform
RT_DECLARE_INTERFACE(superell)

#define rt_metaball_xform rt_generic_xform
RT_DECLARE_INTERFACE(metaball)

/* from db5_comb.c */
int rt_comb_export5(
        struct bu_external              *ep,
        const struct rt_db_internal     *ip,
        double                          local2mm,
        const struct db_i               *dbip,
        struct resource                 *resp,
        const int                       minor_type);
int rt_comb_import5(
        struct rt_db_internal   *ip,
        const struct bu_external *ep,
        const mat_t             mat,
        const struct db_i       *dbip,
        struct resource         *resp,
        const int               minor_type);

/* from db5_bin.c */
BU_EXTERN(int rt_binexpm_import5, (struct rt_db_internal * ip,
                        const struct bu_external *ep,
                        const mat_t mat,
                        const struct db_i *dbip,
                              struct resource *resp,
                        const int minor_type));
BU_EXTERN(int rt_binunif_import5, (struct rt_db_internal * ip,
                        const struct bu_external *ep,
                        const mat_t mat,
                        const struct db_i *dbip,
                              struct resource *resp,
                        const int minor_type));
BU_EXTERN(int rt_binmime_import5, (struct rt_db_internal * ip,
                        const struct bu_external *ep,
                        const mat_t mat,
                        const struct db_i *dbip,
                              struct resource *resp,
                        const int minor_type));

BU_EXTERN(int rt_binexpm_export5, (struct bu_external *ep,
                        const struct rt_db_internal *ip,
                        double local2mm,
                        const struct db_i *dbip,
                        struct resource *resp,
                        const int minor_type));

BU_EXTERN(int rt_binunif_export5, (struct bu_external *ep,
                        const struct rt_db_internal *ip,
                        double local2mm,
                        const struct db_i *dbip,
                        struct resource *resp,
                        const int minor_type));

BU_EXTERN(void rt_binunif_ifree, (struct rt_db_internal *ip,
                struct resource *resp));
BU_EXTERN(int rt_binunif_describe, (struct bu_vls *str,
                const struct rt_db_internal *ip, int verbose,
                double mm2local, struct resource *resp, struct db_i *db_i));
BU_EXTERN( void rt_binunif_make, (const struct rt_functab *ftp,
                                  struct rt_db_internal *intern,
                                  double diameter ) );
BU_EXTERN( int rt_binunif_tclget, (Tcl_Interp *interp,
                                   const struct rt_db_internal *intern,
                                   const char *attr ) );
BU_EXTERN(int rt_binunif_tcladjust, (Tcl_Interp *interp,
                                     struct rt_db_internal *intern,
                                     int argc,
                                     char **argv,
                                     struct resource *resp ) );

/* from tcl.c */
BU_EXTERN(int rt_comb_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *item));
BU_EXTERN(int rt_comb_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));
BU_EXTERN(int rt_comb_tclform, (const struct rt_functab *ftp,
                Tcl_Interp *interp));
BU_EXTERN(void rt_comb_make, (const struct rt_functab *ftp,
                struct rt_db_internal *intern, double diameter));

/* generics for solid */
BU_EXTERN(int rt_parsetab_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_parsetab_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *));
BU_EXTERN(int rt_parsetab_tclform, (const struct rt_functab *ftp,
                Tcl_Interp *interp));
BU_EXTERN(void rt_generic_make, (const struct rt_functab *ftp,
                struct rt_db_internal *intern, double diameter));

/* EBM solid */
BU_EXTERN(int rt_ebm_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_ebm_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));
BU_EXTERN(int rt_ebm_tclform, (const struct rt_functab *ftp,
                Tcl_Interp *interp));
BU_EXTERN(void rt_ebm_make, (const struct rt_functab *, struct rt_db_internal *,
                             double /*diameter*/));

/* ARBN solid */
BU_EXTERN(int rt_arbn_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_arbn_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));

/* ARS solid */
BU_EXTERN(int rt_ars_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_ars_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));

/* DSP solid */
extern int rt_dsp_tclget(Tcl_Interp *interp,
                         const struct rt_db_internal *intern,
                         const char                  *attr);

extern int rt_dsp_tcladjust(Tcl_Interp *interp,
                            struct rt_db_internal *intern,
                            int         argc,
                            char        **argv,
                            struct resource *resp);
BU_EXTERN(void rt_dsp_make, (const struct rt_functab *, struct rt_db_internal *,
                             double /*diameter*/));

/* PIPE solid */
BU_EXTERN(int rt_pipe_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_pipe_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));

/* BSPLINE solid */
BU_EXTERN(int rt_nurb_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_nurb_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));

/* NMG solid */
BU_EXTERN(int rt_nmg_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_nmg_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));
BU_EXTERN(void rt_nmg_make, (const struct rt_functab *, struct rt_db_internal *,
                             double /*diameter*/));

/* BOT solid */
BU_EXTERN(int rt_bot_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_bot_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));
BU_EXTERN(int rt_bot_tclform, (const struct rt_functab *ftp, Tcl_Interp *interp));

/* SKETCH */
BU_EXTERN(int rt_sketch_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_sketch_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));
BU_EXTERN(int rt_sketch_tclform, (const struct rt_functab *ftp, Tcl_Interp *interp));

/* CLINE */
BU_EXTERN(int rt_cline_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_cline_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));
BU_EXTERN(int rt_cline_tclform, (const struct rt_functab *ftp, Tcl_Interp *interp));

/* EXTRUSION */
BU_EXTERN(int rt_extrude_tclget, (Tcl_Interp *interp,
                const struct rt_db_internal *intern, const char *attr));
BU_EXTERN(int rt_extrude_tcladjust, (Tcl_Interp *interp,
                struct rt_db_internal *intern, int argc, char **argv,
                struct resource *resp));
BU_EXTERN(int rt_extrude_tclform, (const struct rt_functab *ftp, Tcl_Interp *interp));

/* XXX from shoot.c / vshoot.c */
BU_EXTERN(void rt_vstub, (struct soltab *stp[], struct xray *rp[],
        struct seg segp[], int n, struct application *ap ));

/* From here in table.c */
BU_EXTERN(int rt_generic_xform, (struct rt_db_internal *op,
        const mat_t mat, struct rt_db_internal *ip,
        int free, struct db_i *dbip, struct resource *resp));

/* Stub Tcl interfaces */
#if __STDC__
int rt_nul_tclget(Tcl_Interp *interp, const struct rt_db_internal *intern, const char *attr)  {
        Tcl_AppendResult(interp, "rt_nul_tclget", (char *)NULL);
        return TCL_ERROR;
}
int rt_nul_tcladjust(Tcl_Interp *interp, struct rt_db_internal *intern, int argc, char **argv, struct resource *resp)  {
        RT_CK_RESOURCE(resp);
        Tcl_AppendResult(interp, "rt_nul_tcladjust", (char *)NULL);
        return TCL_ERROR;
}
int rt_nul_tclform(const struct rt_functab *ftp, Tcl_Interp *interp) {
        Tcl_AppendResult(interp, "rt_nul_tclform", (char *)NULL);
        return TCL_ERROR;
}
void rt_nul_make(const struct rt_functab *ftp, struct rt_db_internal *intern, double diameter) {
        bu_bomb("rt_nul_make invoked\n");
}
#else
int rt_nul_tclget(interp, intern, attr)
Tcl_Interp *interp;
const struct rt_db_internal *intern;
const char *attr;
{
        Tcl_AppendResult(interp, "rt_nul_tclget", (char *)NULL);
        return TCL_ERROR;
}
int rt_nul_tcladjust(interp, intern, argc, argv)
Tcl_Interp *interp;
struct rt_db_internal *intern;
int argc;
char **argv;
{
        Tcl_AppendResult(interp, "rt_nul_tcladjust", (char *)NULL);
        return TCL_ERROR;
}
int rt_nul_tclform(ftp, interp)
const struct rt_functab *ftp;
Tcl_Interp *interp;
{
        Tcl_AppendResult(interp, "rt_nul_tclform", (char *)NULL);
        return TCL_ERROR;
}
void rt_nul_make(ftp, intern, diameter)
const struct rt_functab *ftp;
struct rt_db_internal *intern;
double diameter;
{
        bu_bomb("rt_nul_make invoked\n");
}
#endif

const struct rt_functab rt_functab[] = {
        {RT_FUNCTAB_MAGIC, "ID_NULL", "NULL",
                0,              /* 0: unused, for sanity checking. */
                rt_nul_prep,    rt_nul_shot,    rt_nul_print,   rt_nul_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nul_uv,      rt_nul_curve,   rt_nul_class,   rt_nul_free,
                rt_nul_plot,    rt_nul_vshot,   rt_nul_tess,    rt_nul_tnurb,
                rt_nul_import5, rt_nul_export5,
                rt_nul_import,  rt_nul_export,  rt_nul_ifree,
                rt_nul_describe,rt_nul_xform,   rt_nul_parse,
                0,                              0,
                rt_nul_tclget,  rt_nul_tcladjust, rt_nul_tclform,
                rt_nul_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_TOR", "tor",
                1,              /* 1 */
                rt_tor_prep,    rt_tor_shot,    rt_tor_print,   rt_tor_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_tor_uv,      rt_tor_curve,   rt_tor_class,   rt_tor_free,
                rt_tor_plot,    rt_tor_vshot,   rt_tor_tess,    rt_nul_tnurb,
                rt_tor_import5, rt_tor_export5,
                rt_tor_import,  rt_tor_export,  rt_tor_ifree,
                rt_tor_describe,rt_tor_xform,   rt_tor_parse,
                sizeof(struct rt_tor_internal), RT_TOR_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_TGC", "tgc",
                1,              /* 2 */
                rt_tgc_prep,    rt_tgc_shot,    rt_tgc_print,   rt_tgc_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_tgc_uv,      rt_tgc_curve,   rt_tgc_class,   rt_tgc_free,
                rt_tgc_plot,    rt_tgc_vshot,   rt_tgc_tess,    rt_tgc_tnurb,
                rt_tgc_import5, rt_tgc_export5,
                rt_tgc_import,  rt_tgc_export,  rt_tgc_ifree,
                rt_tgc_describe,rt_tgc_xform,   rt_tgc_parse,
                sizeof(struct rt_tgc_internal), RT_TGC_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_ELL", "ell",
                1,              /* 3 */
                rt_ell_prep,    rt_ell_shot,    rt_ell_print,   rt_ell_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_ell_uv,      rt_ell_curve,   rt_ell_class,   rt_ell_free,
                rt_ell_plot,    rt_ell_vshot,   rt_ell_tess,    rt_ell_tnurb,
                rt_ell_import5, rt_ell_export5,
                rt_ell_import,  rt_ell_export,  rt_ell_ifree,
                rt_ell_describe,rt_ell_xform,   rt_ell_parse,
                sizeof(struct rt_ell_internal), RT_ELL_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_ARB8", "arb8",
                0,              /* 4 */
                rt_arb_prep,    rt_arb_shot,    rt_arb_print,   rt_arb_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_arb_uv,      rt_arb_curve,   rt_arb_class,   rt_arb_free,
                rt_arb_plot,    rt_arb_vshot,   rt_arb_tess,    rt_arb_tnurb,
                rt_arb_import5, rt_arb_export5,
                rt_arb_import,  rt_arb_export,  rt_arb_ifree,
                rt_arb_describe,rt_arb_xform,   rt_arb_parse,
                sizeof(struct rt_arb_internal), RT_ARB_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_ARS", "ars",
                1,              /* 5 */
                rt_ars_prep,    rt_bot_shot,    rt_ars_print,   rt_bot_norm,
                rt_bot_piece_shot, rt_bot_piece_hitsegs,
                rt_ars_uv,      rt_bot_curve,   rt_bot_class,   rt_bot_free,
                rt_ars_plot,    rt_vstub,       rt_ars_tess,    rt_nul_tnurb,
                rt_ars_import5, rt_ars_export5,
                rt_ars_import,  rt_ars_export,  rt_ars_ifree,
                rt_ars_describe,rt_ars_xform,   NULL,
                sizeof(struct rt_ars_internal), RT_ARS_INTERNAL_MAGIC,
                rt_ars_tclget, rt_ars_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_HALF", "half",
                0,              /* 6 */
                rt_hlf_prep,    rt_hlf_shot,    rt_hlf_print,   rt_hlf_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_hlf_uv,      rt_hlf_curve,   rt_hlf_class,   rt_hlf_free,
                rt_hlf_plot,    rt_hlf_vshot,   rt_hlf_tess,    rt_nul_tnurb,
                rt_hlf_import5, rt_hlf_export5,
                rt_hlf_import,  rt_hlf_export,  rt_hlf_ifree,
                rt_hlf_describe,rt_generic_xform, rt_hlf_parse,
                sizeof(struct rt_half_internal), RT_HALF_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_REC", "rec",
                1,              /* 7 */
                rt_rec_prep,    rt_rec_shot,    rt_rec_print,   rt_rec_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_rec_uv,      rt_rec_curve,   rt_rec_class,   rt_rec_free,
                rt_tgc_plot,    rt_rec_vshot,   rt_tgc_tess,    rt_nul_tnurb,
                rt_tgc_import5, rt_tgc_export5,
                rt_tgc_import,  rt_tgc_export,  rt_tgc_ifree,
                rt_tgc_describe,rt_rec_xform,   rt_tgc_parse,
                sizeof(struct rt_tgc_internal), RT_TGC_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_POLY", "poly",
                1,              /* 8 */
                rt_pg_prep,     rt_pg_shot,     rt_pg_print,    rt_pg_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_pg_uv,       rt_pg_curve,    rt_pg_class,    rt_pg_free,
                rt_pg_plot,     rt_vstub,       rt_pg_tess,     rt_nul_tnurb,
                rt_nul_import5, rt_nul_export5,
                rt_pg_import,   rt_pg_export,   rt_pg_ifree,
                rt_pg_describe, rt_pg_xform,    NULL,
                sizeof(struct rt_pg_internal), RT_PG_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_BSPLINE", "bspline",
                1,              /* 9 */
                rt_nurb_prep,   rt_nurb_shot,   rt_nurb_print,  rt_nurb_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nurb_uv,     rt_nurb_curve,  rt_nurb_class,  rt_nurb_free,
                rt_nurb_plot,   rt_vstub,       rt_nurb_tess,   rt_nul_tnurb,
                rt_nurb_import5, rt_nurb_export5,
                rt_nurb_import, rt_nurb_export, rt_nurb_ifree,
                rt_nurb_describe,rt_nurb_xform, NULL,
                sizeof(struct rt_nurb_internal), RT_NURB_INTERNAL_MAGIC,
                rt_nurb_tclget, rt_nurb_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_SPH", "sph",
                0,              /* 10 */
                rt_sph_prep,    rt_sph_shot,    rt_sph_print,   rt_sph_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_sph_uv,      rt_sph_curve,   rt_sph_class,   rt_sph_free,
                rt_ell_plot,    rt_sph_vshot,   rt_ell_tess,    rt_ell_tnurb,
                rt_ell_import5, rt_ell_export5,
                rt_ell_import,  rt_ell_export,  rt_ell_ifree,
                rt_ell_describe,rt_sph_xform,   rt_ell_parse,
                sizeof(struct rt_ell_internal), RT_ELL_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_NMG", "nmg",
                1,              /* 11 */
                rt_nmg_prep,    rt_nmg_shot,    rt_nmg_print,   rt_nmg_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nmg_uv,      rt_nmg_curve,   rt_nmg_class,   rt_nmg_free,
                rt_nmg_plot,    rt_nmg_vshot,   rt_nmg_tess,    rt_nul_tnurb,
                rt_nmg_import5, rt_nmg_export5,
                rt_nmg_import,  rt_nmg_export,  rt_nmg_ifree,
                rt_nmg_describe,rt_nmg_xform,   NULL,
                sizeof(struct model), NMG_MODEL_MAGIC,
                rt_nmg_tclget, rt_nmg_tcladjust, rt_parsetab_tclform,
                rt_nmg_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_EBM", "ebm",
                1,              /* 12 */
                rt_ebm_prep,    rt_ebm_shot,    rt_ebm_print,   rt_ebm_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_ebm_uv,      rt_ebm_curve,   rt_ebm_class,   rt_ebm_free,
                rt_ebm_plot,    rt_vstub,       rt_ebm_tess,    rt_nul_tnurb,
                rt_ebm_import5, rt_ebm_export5,
                rt_ebm_import,  rt_ebm_export,  rt_ebm_ifree,
                rt_ebm_describe,rt_ebm_xform,   rt_ebm_parse,
                sizeof(struct rt_ebm_internal), RT_EBM_INTERNAL_MAGIC,
                rt_ebm_tclget, rt_ebm_tcladjust, rt_ebm_tclform,
                rt_ebm_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_VOL", "vol",
                1,              /* 13 */
                rt_vol_prep,    rt_vol_shot,    rt_vol_print,   rt_vol_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_vol_uv,      rt_vol_curve,   rt_vol_class,   rt_vol_free,
                rt_vol_plot,    rt_vstub,       rt_vol_tess,    rt_nul_tnurb,
                rt_vol_import5, rt_vol_export5,
                rt_vol_import,  rt_vol_export,  rt_vol_ifree,
                rt_vol_describe,rt_vol_xform,   rt_vol_parse,
                sizeof(struct rt_vol_internal), RT_VOL_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_ARBN", "arbn",
                0,              /* 14 */
                rt_arbn_prep,   rt_arbn_shot,   rt_arbn_print,  rt_arbn_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_arbn_uv,     rt_arbn_curve,  rt_arbn_class,  rt_arbn_free,
                rt_arbn_plot,   rt_arbn_vshot,  rt_arbn_tess,   rt_nul_tnurb,
                rt_arbn_import5, rt_arbn_export5,
                rt_arbn_import, rt_arbn_export, rt_arbn_ifree,
                rt_arbn_describe,rt_arbn_xform, NULL,
                sizeof(struct rt_arbn_internal), RT_ARBN_INTERNAL_MAGIC,
                rt_arbn_tclget, rt_arbn_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_PIPE", "pipe",
                1,              /* 15 */
                rt_pipe_prep,   rt_pipe_shot,   rt_pipe_print,  rt_pipe_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_pipe_uv,     rt_pipe_curve,  rt_pipe_class,  rt_pipe_free,
                rt_pipe_plot,   rt_pipe_vshot,  rt_pipe_tess,   rt_nul_tnurb,
                rt_pipe_import5, rt_pipe_export5,
                rt_pipe_import, rt_pipe_export, rt_pipe_ifree,
                rt_pipe_describe,rt_pipe_xform, NULL,
                sizeof(struct rt_pipe_internal), RT_PIPE_INTERNAL_MAGIC,
                rt_pipe_tclget,
                rt_pipe_tcladjust,
                rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_PARTICLE", "part",
                0,              /* 16 */
                rt_part_prep,   rt_part_shot,   rt_part_print,  rt_part_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_part_uv,     rt_part_curve,  rt_part_class,  rt_part_free,
                rt_part_plot,   rt_part_vshot,  rt_part_tess,   rt_nul_tnurb,
                rt_part_import5, rt_part_export5,
                rt_part_import, rt_part_export, rt_part_ifree,
                rt_part_describe,rt_part_xform, rt_part_parse,
                sizeof(struct rt_part_internal), RT_PART_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_RPC", "rpc",
                0,              /* 17 */
                rt_rpc_prep,    rt_rpc_shot,    rt_rpc_print,   rt_rpc_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_rpc_uv,      rt_rpc_curve,   rt_rpc_class,   rt_rpc_free,
                rt_rpc_plot,    rt_rpc_vshot,   rt_rpc_tess,    rt_nul_tnurb,
                rt_rpc_import5, rt_rpc_export5,
                rt_rpc_import,  rt_rpc_export,  rt_rpc_ifree,
                rt_rpc_describe,rt_rpc_xform,   rt_rpc_parse,
                sizeof(struct rt_rpc_internal), RT_RPC_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_RHC", "rhc",
                0,              /* 18 */
                rt_rhc_prep,    rt_rhc_shot,    rt_rhc_print,   rt_rhc_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_rhc_uv,      rt_rhc_curve,   rt_rhc_class,   rt_rhc_free,
                rt_rhc_plot,    rt_rhc_vshot,   rt_rhc_tess,    rt_nul_tnurb,
                rt_rhc_import5, rt_rhc_export5,
                rt_rhc_import,  rt_rhc_export,  rt_rhc_ifree,
                rt_rhc_describe,rt_rhc_xform,   rt_rhc_parse,
                sizeof(struct rt_rhc_internal), RT_RHC_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_EPA", "epa",
                0,              /* 19 */
                rt_epa_prep,    rt_epa_shot,    rt_epa_print,   rt_epa_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_epa_uv,      rt_epa_curve,   rt_epa_class,   rt_epa_free,
                rt_epa_plot,    rt_epa_vshot,   rt_epa_tess,    rt_nul_tnurb,
                rt_epa_import5, rt_epa_export5,
                rt_epa_import,  rt_epa_export,  rt_epa_ifree,
                rt_epa_describe,rt_epa_xform,   rt_epa_parse,
                sizeof(struct rt_epa_internal), RT_EPA_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_EHY", "ehy",
                0,              /* 20 */
                rt_ehy_prep,    rt_ehy_shot,    rt_ehy_print,   rt_ehy_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_ehy_uv,      rt_ehy_curve,   rt_ehy_class,   rt_ehy_free,
                rt_ehy_plot,    rt_ehy_vshot,   rt_ehy_tess,    rt_nul_tnurb,
                rt_ehy_import5, rt_ehy_export5,
                rt_ehy_import,  rt_ehy_export,  rt_ehy_ifree,
                rt_ehy_describe,rt_ehy_xform,   rt_ehy_parse,
                sizeof(struct rt_ehy_internal), RT_EHY_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_ETO", "eto",
                1,              /* 21 */
                rt_eto_prep,    rt_eto_shot,    rt_eto_print,   rt_eto_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_eto_uv,      rt_eto_curve,   rt_eto_class,   rt_eto_free,
                rt_eto_plot,    rt_eto_vshot,   rt_eto_tess,    rt_nul_tnurb,
                rt_eto_import5, rt_eto_export5,
                rt_eto_import,  rt_eto_export,  rt_eto_ifree,
                rt_eto_describe,rt_eto_xform,   rt_eto_parse,
                sizeof(struct rt_eto_internal), RT_ETO_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_GRIP", "grip",
                1,              /* 22 */
                rt_grp_prep,    rt_grp_shot,    rt_grp_print,   rt_grp_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_grp_uv,      rt_grp_curve,   rt_grp_class,   rt_grp_free,
                rt_grp_plot,    rt_grp_vshot,   rt_grp_tess,    rt_nul_tnurb,
                rt_grp_import5, rt_grp_export5,
                rt_grp_import,  rt_grp_export,  rt_grp_ifree,
                rt_grp_describe,rt_grp_xform,   rt_grp_parse,
                sizeof(struct rt_grip_internal), RT_GRIP_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_JOINT", "joint",
                0,              /* 23 -- XXX unimplemented */
                rt_nul_prep,    rt_nul_shot,    rt_nul_print,   rt_nul_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nul_uv,      rt_nul_curve,   rt_nul_class,   rt_nul_free,
                rt_nul_plot,    rt_nul_vshot,   rt_nul_tess,    rt_nul_tnurb,
                rt_nul_import5, rt_nul_export5,
                rt_nul_import,  rt_nul_export,  rt_nul_ifree,
                rt_nul_describe,rt_nul_xform,   NULL,
                0,                              0,
                rt_nul_tclget,  rt_nul_tcladjust, rt_nul_tclform,
                rt_nul_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_HF", "hf",
                0,              /* 24 */
                rt_hf_prep,     rt_hf_shot,     rt_hf_print,    rt_hf_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_hf_uv,       rt_hf_curve,    rt_hf_class,    rt_hf_free,
                rt_hf_plot,     rt_vstub,       rt_hf_tess,     rt_nul_tnurb,
                rt_hf_import5,  rt_hf_export5,
                rt_hf_import,   rt_hf_export,   rt_hf_ifree,
                rt_hf_describe,rt_hf_xform,     rt_hf_parse,
                sizeof(struct rt_hf_internal), RT_HF_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_DSP", "dsp",
                1,              /* 25 Displacement Map (alt. height field) */
                rt_dsp_prep,    rt_dsp_shot,    rt_dsp_print,   rt_dsp_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_dsp_uv,      rt_dsp_curve,   rt_dsp_class,   rt_dsp_free,
                rt_dsp_plot,    rt_vstub,       rt_nul_tess,    rt_nul_tnurb,
                rt_dsp_import5, rt_dsp_export5,
                rt_dsp_import,  rt_dsp_export,  rt_dsp_ifree,
                rt_dsp_describe,rt_dsp_xform,   rt_dsp_parse,
                sizeof(struct rt_dsp_internal), RT_DSP_INTERNAL_MAGIC,
                rt_dsp_tclget,  rt_dsp_tcladjust, rt_nul_tclform,
                rt_dsp_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_SKETCH", "sketch",
                0,              /* 26 2D sketch */
                rt_sketch_prep, rt_sketch_shot, rt_sketch_print, rt_sketch_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_sketch_uv,   rt_sketch_curve, rt_sketch_class,rt_sketch_free,
                rt_sketch_plot, rt_vstub,       rt_nul_tess,    rt_nul_tnurb,
                rt_sketch_import5, rt_sketch_export5,
                rt_sketch_import, rt_sketch_export, rt_sketch_ifree,
                rt_sketch_describe,rt_sketch_xform, NULL,
                sizeof(struct rt_sketch_internal), RT_SKETCH_INTERNAL_MAGIC,
                rt_sketch_tclget, rt_sketch_tcladjust, rt_sketch_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_EXTRUDE", "extrude",
                1,              /* 27 Solid of extrusion */
                rt_extrude_prep,        rt_extrude_shot,        rt_extrude_print,       rt_extrude_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_extrude_uv,          rt_extrude_curve,       rt_extrude_class,       rt_extrude_free,
                rt_extrude_plot,        rt_extrude_vshot,       rt_extrude_tess,        rt_nul_tnurb,
                rt_extrude_import5, rt_extrude_export5,
                rt_extrude_import,      rt_extrude_export,      rt_extrude_ifree,
                rt_extrude_describe,rt_extrude_xform, NULL,
                sizeof(struct rt_extrude_internal), RT_EXTRUDE_INTERNAL_MAGIC,
                rt_extrude_tclget, rt_extrude_tcladjust, rt_extrude_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_SUBMODEL", "submodel",
                1,              /* 28 Instanced submodel */
                rt_submodel_prep,       rt_submodel_shot,       rt_submodel_print,      rt_submodel_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_submodel_uv,         rt_submodel_curve,      rt_submodel_class,      rt_submodel_free,
                rt_submodel_plot,       rt_vstub,               rt_submodel_tess,       rt_nul_tnurb,
                rt_submodel_import5, rt_submodel_export5,
                rt_submodel_import,     rt_submodel_export,     rt_submodel_ifree,
                rt_submodel_describe,   rt_submodel_xform,      rt_submodel_parse,
                sizeof(struct rt_submodel_internal), RT_SUBMODEL_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_CLINE", "cline",
                0,              /* 29 Fastgen cline solid */
                rt_cline_prep,  rt_cline_shot,  rt_cline_print, rt_cline_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_cline_uv,    rt_cline_curve, rt_cline_class, rt_cline_free,
                rt_cline_plot,  rt_cline_vshot, rt_cline_tess,  rt_cline_tnurb,
                rt_cline_import5, rt_cline_export5,
                rt_cline_import,        rt_cline_export,        rt_cline_ifree,
                rt_cline_describe,rt_cline_xform,       rt_cline_parse,
                sizeof(struct rt_cline_internal), RT_CLINE_INTERNAL_MAGIC,
                rt_cline_tclget, rt_cline_tcladjust, rt_cline_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_BOT", "bot",
                0,              /* 30  Bag o' Triangles */
                rt_bot_prep,    rt_bot_shot,    rt_bot_print,   rt_bot_norm,
                rt_bot_piece_shot, rt_bot_piece_hitsegs,
                rt_bot_uv,      rt_bot_curve,   rt_bot_class,   rt_bot_free,
                rt_bot_plot,    rt_bot_vshot,   rt_bot_tess,    rt_bot_tnurb,
                rt_bot_import5, rt_bot_export5,
                rt_bot_import,  rt_bot_export,  rt_bot_ifree,
                rt_bot_describe,rt_bot_xform,   NULL,
                sizeof(struct rt_bot_internal), RT_BOT_INTERNAL_MAGIC,
                rt_bot_tclget, rt_bot_tcladjust, rt_bot_tclform,
                NULL,
        },

        /* ID_MAX_SOLID.  Add new solids _above_ this point */

        {RT_FUNCTAB_MAGIC, "ID_COMBINATION", "comb",
                0,
                rt_nul_prep,    rt_nul_shot,    rt_nul_print,   rt_nul_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nul_uv,      rt_nul_curve,   rt_nul_class,   rt_nul_free,
                rt_nul_plot,    rt_nul_vshot,   rt_nul_tess,    rt_nul_tnurb,
                rt_comb_import5, rt_comb_export5,
                rt_comb_import4, rt_comb_export4, rt_comb_ifree,
                rt_comb_describe,rt_generic_xform, NULL,
                0,                              0,
                rt_comb_tclget, rt_comb_tcladjust, rt_comb_tclform,
                rt_comb_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_BINEXPM", "binexpm",
                0,
                rt_nul_prep,    rt_nul_shot,    rt_nul_print,   rt_nul_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nul_uv,      rt_nul_curve,   rt_nul_class,   rt_nul_free,
                rt_nul_plot,    rt_nul_vshot,   rt_nul_tess,    rt_nul_tnurb,
                rt_binexpm_import5,
         rt_nul_export5,
                rt_nul_import,  rt_nul_export,  rt_nul_ifree,
                rt_nul_describe,rt_generic_xform, NULL,
                0,                              0,
                rt_nul_tclget,  rt_nul_tcladjust, rt_nul_tclform,
                rt_nul_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_BINUNIF", "binunif",
                0,
                rt_nul_prep,    rt_nul_shot,    rt_nul_print,   rt_nul_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nul_uv,      rt_nul_curve,   rt_nul_class,   rt_nul_free,
                rt_nul_plot,    rt_nul_vshot,   rt_nul_tess,    rt_nul_tnurb,
                rt_binunif_import5,
         rt_binunif_export5,
                rt_nul_import,  rt_nul_export,  rt_binunif_ifree,
                rt_binunif_describe, rt_generic_xform, NULL,
                0,                              0,
                rt_binunif_tclget,      rt_binunif_tcladjust, rt_nul_tclform,
                rt_binunif_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_BINMIME", "binmime",
                0,
                rt_nul_prep,    rt_nul_shot,    rt_nul_print,   rt_nul_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nul_uv,      rt_nul_curve,   rt_nul_class,   rt_nul_free,
                rt_nul_plot,    rt_nul_vshot,   rt_nul_tess,    rt_nul_tnurb,
                rt_binmime_import5, rt_nul_export5,
                rt_nul_import,  rt_nul_export,  rt_nul_ifree,
                rt_nul_describe,rt_generic_xform, NULL,
                0,                              0,
                rt_nul_tclget,  rt_nul_tcladjust, rt_nul_tclform,
                rt_nul_make,
        },

        {RT_FUNCTAB_MAGIC, "ID_SUPERELL", "superell",
                1,              /* 35 but "should" be 31 Superquadratic Ellipsoid  */
                rt_superell_prep,       rt_superell_shot,       rt_superell_print,      rt_superell_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_superell_uv, rt_superell_curve,      rt_superell_class,      rt_superell_free,
                rt_superell_plot,       rt_superell_vshot,      rt_superell_tess,       rt_superell_tnurb,
                rt_superell_import5, rt_superell_export5,
                rt_superell_import,     rt_superell_export,     rt_superell_ifree,
                rt_superell_describe,rt_superell_xform, rt_superell_parse,
                sizeof(struct rt_superell_internal), RT_SUPERELL_INTERNAL_MAGIC,
                rt_parsetab_tclget, rt_parsetab_tcladjust, rt_parsetab_tclform,
                NULL,
        },

        {RT_FUNCTAB_MAGIC, "ID_METABALL", "metaball",
                1,              /* 36 but "should" be 32 Metaball  */
                rt_metaball_prep,       rt_metaball_shot,       rt_metaball_print,      rt_metaball_norm,
                rt_nul_piece_shot,      rt_nul_piece_hitsegs,
                rt_metaball_uv,         rt_metaball_curve,      rt_metaball_class,      rt_metaball_free,
                rt_metaball_plot,       rt_nul_vshot,           rt_metaball_tess,       rt_metaball_tnurb,
                rt_metaball_import5,    rt_metaball_export5,
                rt_nul_import,          rt_nul_export,  rt_metaball_ifree,
                rt_metaball_describe,   rt_metaball_xform,      rt_nul_parse,
                sizeof(struct rt_metaball_internal),            RT_METABALL_INTERNAL_MAGIC,
                rt_parsetab_tclget,     rt_parsetab_tcladjust,  rt_parsetab_tclform,
                NULL,
        },

        {0L, ">ID_MAXIMUM", ">id_max",
                0,              /* this entry for sanity only */
                rt_nul_prep,    rt_nul_shot,    rt_nul_print,   rt_nul_norm,
                rt_nul_piece_shot, rt_nul_piece_hitsegs,
                rt_nul_uv,      rt_nul_curve,   rt_nul_class,   rt_nul_free,
                rt_nul_plot,    rt_nul_vshot,   rt_nul_tess,    rt_nul_tnurb,
                rt_nul_import5, rt_nul_export5,
                rt_nul_import,  rt_nul_export,  rt_nul_ifree,
                rt_nul_describe,rt_nul_xform,   NULL,
                0,                              0,
                rt_nul_tclget,  rt_nul_tcladjust, rt_nul_tclform,
                rt_nul_make,
        }
};
const int rt_nfunctab = sizeof(rt_functab)/sizeof(struct rt_functab);

/*
 *  Hooks for unimplemented routines
 */
#if __STDC__
#define DEF(func,args)  func BU_ARGS(args) { \
        bu_log(#func " unimplemented\n"); return; }
#define IDEF(func,args) func BU_ARGS(args) { \
        bu_log(#func " unimplemented\n"); return(0); }
#define NDEF(func,args) func BU_ARGS(args) { \
        bu_log(#func " unimplemented\n"); return(-1); }
#else
#define DEF(func,args)  func BU_ARGS(args) { \
        bu_log("func unimplemented\n"); return; }
#define IDEF(func,args) func BU_ARGS(args) { \
        bu_log("func unimplemented\n"); return(0); }
#define NDEF(func,args) func BU_ARGS(args) { \
        bu_log("func unimplemented\n"); return(-1); }
#endif

int IDEF(rt_nul_prep,(struct soltab *stp,
                        struct rt_db_internal *ip,
                        struct rt_i *rtip))
int IDEF(rt_nul_shot,(struct soltab *stp,
                        struct xray *rp,
                        struct application *ap,
                        struct seg *seghead))
int IDEF(rt_nul_piece_shot,(struct rt_piecestate *psp,
                        struct rt_piecelist *plp,
                        double dist_corr,
                        struct xray *rp,
                        struct application *ap,
                        struct seg *seghead))
void DEF(rt_nul_piece_hitsegs,(struct rt_piecestate *psp,
                        struct seg *seghead,
                        struct application *ap))
void DEF(rt_nul_print,(const struct soltab *stp))
void DEF(rt_nul_norm,(struct hit *hitp,
                        struct soltab *stp,
                        struct xray *rp))
void DEF(rt_nul_uv,(struct application *ap,
                        struct soltab *stp,
                        struct hit *hitp,
                        struct uvcoord *uvp))
void DEF(rt_nul_curve,(struct curvature *cvp,
                        struct hit *hitp,
                        struct soltab *stp))
int IDEF(rt_nul_class,())
void DEF(rt_nul_free,(struct soltab *stp))
int NDEF(rt_nul_plot,(struct bu_list *vhead,
                        struct rt_db_internal *ip,
                        const struct rt_tess_tol *ttol,
                        const struct bn_tol *tol))
void DEF(rt_nul_vshot,(struct soltab *stp[],
                        struct xray *rp[],
                        struct seg segp[], int n,
                        struct application *ap))
int NDEF(rt_nul_tess,(struct nmgregion **r,
                        struct model *m,
                        struct rt_db_internal *ip,
                        const struct rt_tess_tol *ttol,
                        const struct bn_tol *tol))
int NDEF(rt_nul_tnurb,(struct nmgregion **r,
                        struct model *m,
                        struct rt_db_internal *ip,
                        const struct bn_tol *tol))
int NDEF(rt_nul_import5,(struct rt_db_internal *ip,
                        const struct bu_external *ep,
                        const mat_t mat, const struct db_i *dbip,
                        struct resource *resp,
                         const int minot_type))
int NDEF(rt_nul_export5,(struct bu_external *ep,
                        const struct rt_db_internal *ip,
                        double local2mm, const struct db_i *dbip,
                        struct resource *resp,
                        const int minor_type ))
int NDEF(rt_nul_import,(struct rt_db_internal *ip,
                        const struct bu_external *ep,
                        const mat_t mat, const struct db_i *dbip,
                        struct resource *resp ))
int NDEF(rt_nul_export,(struct bu_external *ep,
                        const struct rt_db_internal *ip,
                        double local2mm, const struct db_i *dbip,
                        struct resource *resp ))
void DEF(rt_nul_ifree,(struct rt_db_internal *ip, struct resource *resp))
int NDEF(rt_nul_describe,(struct bu_vls *str,
                        const struct rt_db_internal *ip,
                        int verbose, double mm2local, struct resource *resp,
                          struct db_i *db_i))
int NDEF(rt_nul_xform, (struct rt_db_internal *op,
                        const mat_t mat, struct rt_db_internal *ip,
                        int free, struct db_i *dbip, struct resource *resp))

/* Map for database solidrec objects to internal objects */
static char idmap[] = {
        ID_NULL,        /* undefined, 0 */
        ID_NULL,        /* RPP  1 axis-aligned rectangular parallelopiped */
        ID_NULL,        /* BOX  2 arbitrary rectangular parallelopiped */
        ID_NULL,        /* RAW  3 right-angle wedge */
        ID_NULL,        /* ARB4 4 tetrahedron */
        ID_NULL,        /* ARB5 5 pyramid */
        ID_NULL,        /* ARB6 6 extruded triangle */
        ID_NULL,        /* ARB7 7 weird 7-vertex shape */
        ID_NULL,        /* ARB8 8 hexahedron */
        ID_NULL,        /* ELL  9 ellipsoid */
        ID_NULL,        /* ELL1 10 another ellipsoid ? */
        ID_NULL,        /* SPH  11 sphere */
        ID_NULL,        /* RCC  12 right circular cylinder */
        ID_NULL,        /* REC  13 right elliptic cylinder */
        ID_NULL,        /* TRC  14 truncated regular cone */
        ID_NULL,        /* TEC  15 truncated elliptic cone */
        ID_TOR,         /* TOR  16 toroid */
        ID_NULL,        /* TGC  17 truncated general cone */
        ID_TGC,         /* GENTGC 18 supergeneralized TGC; internal form */
        ID_ELL,         /* GENELL 19: V,A,B,C */
        ID_ARB8,        /* GENARB8 20:  V, and 7 other vectors */
        ID_NULL,        /* HACK: ARS 21: arbitrary triangular-surfaced polyhedron */
        ID_NULL,        /* HACK: ARSCONT 22: extension record type for ARS solid */
        ID_NULL,        /* ELLG 23:  gift-only */
        ID_HALF,        /* HALFSPACE 24:  halfspace */
        ID_NULL,        /* HACK: SPLINE 25 */
        ID_RPC,         /* HACK: RPC 26: right parabolic cylinder */
        ID_RHC,         /* HACK: RHC 27: right hyperbolic cylinder */
        ID_EPA,         /* HACK: EPA 28: elliptical paraboloid */
        ID_EHY,         /* HACK: EHY 29: elliptical hyperboloid */
        ID_ETO,         /* HACK: ETO 29: elliptical torus */
        ID_GRIP,        /* HACK: GRP 30: grip pseudo solid */
        ID_NULL         /* n+1 */
};

/*
 *                      R T _ I D _ S O L I D
 *
 *  Given a database record, determine the proper rt_functab subscript.
 *  Used by MGED as well as internally to librt.
 *
 *  Returns ID_xxx if successful, or ID_NULL upon failure.
 */
int
rt_id_solid(struct bu_external *ep)
{
        register union record *rec;
        register int id;

        BU_CK_EXTERNAL( ep );
        rec = (union record *)ep->ext_buf;

        switch( rec->u_id )  {
        case ID_SOLID:
                id = idmap[(int)(rec->s.s_type)];
                break;
        case ID_ARS_A:
                id = ID_ARS;
                break;
        case ID_P_HEAD:
                id = ID_POLY;
                break;
        case ID_BSOLID:
                id = ID_BSPLINE;
                break;
        case DBID_STRSOL:
                /* XXX This really needs to be some kind of table */
                if( strcmp( rec->ss.ss_keyword, "ebm" ) == 0 )  {
                        id = ID_EBM;
                        break;
                } else if( strcmp( rec->ss.ss_keyword, "vol" ) == 0 )  {
                        id = ID_VOL;
                        break;
                } else if( strcmp( rec->ss.ss_keyword, "hf" ) == 0 )  {
                        id = ID_HF;
                        break;
                } else if( strcmp( rec->ss.ss_keyword, "dsp" ) == 0 )  {
                        id = ID_DSP;
                        break;
                } else if( strcmp( rec->ss.ss_keyword, "submodel" ) == 0 )  {
                        id = ID_SUBMODEL;
                        break;
                }
                bu_log("rt_id_solid(%s):  String solid type '%s' unknown\n",
                        rec->ss.ss_name, rec->ss.ss_keyword );
                id = ID_NULL;           /* BAD */
                break;
        case DBID_ARBN:
                id = ID_ARBN;
                break;
        case DBID_PIPE:
                id = ID_PIPE;
                break;
        case DBID_PARTICLE:
                id = ID_PARTICLE;
                break;
        case DBID_NMG:
                id = ID_NMG;
                break;
        case DBID_SKETCH:
                id = ID_SKETCH;
                break;
        case DBID_EXTR:
                id = ID_EXTRUDE;
                break;
        case DBID_CLINE:
                id = ID_CLINE;
                break;
        case DBID_BOT:
                id = ID_BOT;
                break;
        default:
                bu_log("rt_id_solid:  u_id=x%x unknown\n", rec->u_id);
                id = ID_NULL;           /* BAD */
                break;
        }
        if( id < ID_NULL || id > ID_MAX_SOLID )  {
                bu_log("rt_id_solid: internal error, id=%d?\n", id);
                id = ID_NULL;           /* very BAD */
        }
        return(id);
}

/*
 *              R T _ G E T _ F U N C T A B _ B Y _ L A B E L
 *
 *  Given the Tcl 'label' for a given solid type,
 *  find the appropriate entry in rt_functab[].
 */
const struct rt_functab *
rt_get_functab_by_label(const char *label)
{
        register const struct rt_functab        *ftp;

        for( ftp = rt_functab; ftp->magic != 0; ftp++ )  {
                if( strncmp( label, ftp->ft_label, 8 ) == 0 )
                        return ftp;
        }
        return NULL;
}

/*
 *                      R T _ G E N E R I C _ X F O R M
 *
 *  Apply a 4x4 transformation matrix to the internal form of a solid.
 *
 *  If "free" flag is non-zero, storage for the original solid is released.
 *  If "os" is same as "is", storage for the original solid is
 *  overwritten with the new, transformed solid.
 *
 *
 *  Returns -
 *      -1      FAIL
 *       0      OK
 */
int
rt_generic_xform(
        struct rt_db_internal   *op,
        const mat_t             mat,
        struct rt_db_internal   *ip,
        int                     free,
        struct db_i             *dbip,
        struct resource         *resp)
{
        struct bu_external      ext;
        int                     id;
        struct bu_attribute_value_set avs;


        RT_CK_DB_INTERNAL( ip );
        RT_CK_DBI(dbip);
        RT_CK_RESOURCE(resp);

        id = ip->idb_type;
        BU_INIT_EXTERNAL(&ext);
        /* Scale change on export is 1.0 -- no change */
        switch (dbip->dbi_version) {
        case 4:
            if( rt_functab[id].ft_export( &ext, ip, 1.0, dbip, resp ) < 0 )  {
                bu_log("rt_generic_xform():  %s export failure\n",
                        rt_functab[id].ft_name);
                return -1;                      /* FAIL */
            }
            if( (free || op == ip) )  rt_db_free_internal(ip, resp);

            RT_INIT_DB_INTERNAL(op);
            if( rt_functab[id].ft_import( op, &ext, mat, dbip, resp ) < 0 )  {
                bu_log("rt_generic_xform():  solid import failure\n");
                return -1;                      /* FAIL */
            }
            break;
        case 5:
            avs.magic = -1;

            if( rt_functab[id].ft_export5( &ext, ip, 1.0, dbip, resp, 0 ) < 0 )  {
                bu_log("rt_generic_xform():  %s export failure\n",
                        rt_functab[id].ft_name);
                return -1;                      /* FAIL */
            }

            if( (free || op == ip) ) {
                    if( ip->idb_avs.magic == BU_AVS_MAGIC ) {
                            /* grab the attributes before they are lost
                             * by rt_db_free_internal or RT_INIT_DB_INTERNAL
                             */
                            bu_avs_init( &avs, ip->idb_avs.count, "avs" );
                            bu_avs_merge( &avs, &ip->idb_avs );
                    }
                    rt_db_free_internal(ip, resp);
            }

            RT_INIT_DB_INTERNAL(op);

            if( !free && op != ip ) {
                    /* just copy the attributes from ip to op */
                    if( ip->idb_avs.magic == BU_AVS_MAGIC ) {
                            bu_avs_init( &op->idb_avs, ip->idb_avs.count, "avs" );
                            bu_avs_merge( &op->idb_avs, &ip->idb_avs );
                    }
            } else if( avs.magic == BU_AVS_MAGIC ) {
                    /* put the saved attributes in the output */
                    bu_avs_init( &op->idb_avs, avs.count, "avs" );
                    bu_avs_merge( &op->idb_avs, &avs );
                    bu_avs_free( &avs );
            }

            if( rt_functab[id].ft_import5( op, &ext, mat, dbip, resp, 0 ) < 0 )  {
                bu_log("rt_generic_xform():  solid import failure\n");
                return -1;                      /* FAIL */
            }
            break;
        }

        bu_free_external( &ext );

        RT_CK_DB_INTERNAL( op );
        return 0;                               /* OK */
}

/*
 * Local Variables:
 * mode: C
 * tab-width: 8
 * c-basic-offset: 4
 * indent-tabs-mode: t
 * End:
 * ex: shiftwidth=4 tabstop=8
 */

---