cmd_material.C Source File

00001 /***************************************************************************
00002  *cr
00003  *cr            (C) Copyright 1995-2008 The Board of Trustees of the
00004  *cr                        University of Illinois
00005  *cr                         All Rights Reserved
00006  *cr
00007  ***************************************************************************/
00008 
00009 /***************************************************************************
00010  * RCS INFORMATION:
00011  *
00012  *      $RCSfile: cmd_material.C,v $
00013  *      $Author: johns $        $Locker:  $             $State: Exp $
00014  *      $Revision: 1.24 $       $Date: 2008/03/27 19:36:51 $
00015  *
00016  ***************************************************************************
00017  * DESCRIPTION:
00018  *   text commands for manipulating materials
00019  ***************************************************************************/
00020 
00021 #include "CmdMaterial.h"
00022 #include "MaterialList.h"
00023 #include "config.h"
00024 #include "VMDApp.h"
00025 #include <stdlib.h>
00026 #include <ctype.h>
00027 #include <tcl.h>
00028 
00029 int text_cmd_material(ClientData cd, Tcl_Interp *interp, int argc,
00030                      const char *argv[]) {
00031 
00032   VMDApp *app = (VMDApp *)cd;
00033   MaterialList *mlist = app->materialList; 
00034 
00035   if (argc < 2) {
00036     Tcl_SetResult(interp,
00037       (char *)
00038       "material list\n"
00039       "material settings <name>\n"
00040       "material add [<newname>] [copy <copyfrom>]\n"
00041       "material rename <oldname> <newname>\n"
00042       "material change [ambient|specular|diffuse|shininess|opacity] "
00043       "<name> <value>\n",
00044       TCL_STATIC);
00045     return TCL_ERROR;
00046   }
00047   if (!strupncmp(argv[1], "list", CMDLEN)) {
00048    
00049     for (int i=0; i<mlist->num(); i++) 
00050       Tcl_AppendElement(interp, mlist->material_name(i)); 
00051 
00052   } else if (!strupncmp(argv[1], "settings", CMDLEN) && argc >= 3) {
00053     int ind = mlist->material_index(argv[2]);
00054     if (ind < 0) {
00055       Tcl_AppendResult(interp, 
00056         "material settings: material '", argv[2], 
00057              "' has not been defined", NULL); 
00058       return TCL_OK;
00059     }
00060     char buf[20];
00061     sprintf(buf,"%f",mlist->get_ambient(ind));
00062     Tcl_AppendElement(interp, buf);
00063     sprintf(buf,"%f",mlist->get_specular(ind));
00064     Tcl_AppendElement(interp, buf);
00065     sprintf(buf,"%f",mlist->get_diffuse(ind));
00066     Tcl_AppendElement(interp, buf);
00067     sprintf(buf,"%f",mlist->get_shininess(ind));
00068     Tcl_AppendElement(interp, buf);
00069     sprintf(buf,"%f",mlist->get_opacity(ind));
00070     Tcl_AppendElement(interp, buf);
00071  
00072   } else if (!strupncmp(argv[1], "add", CMDLEN) && argc >= 2) {
00073     // material add
00074     const char *newname = NULL;
00075     const char *copyfrom = NULL;
00076     if (argc == 3) {
00077       // material add <name>
00078       newname = argv[2];
00079     } else if (argc == 4) {
00080       // material add copy <copyfrom>
00081       copyfrom = argv[3];
00082     } else if (argc == 5) {
00083       // material add <name> copy <copyfrom>
00084       newname = argv[2];
00085       copyfrom = argv[4];
00086     }
00087     const char *result = app->material_add(newname, copyfrom);
00088     if (!result) {
00089       Tcl_AppendResult(interp, "Unable to add material.", NULL);
00090       return TCL_ERROR;
00091     }
00092     Tcl_AppendResult(interp, result, NULL);
00093 
00094   } else if (!strupncmp(argv[1], "rename", CMDLEN) && argc >= 4) {
00095     if (!app->material_rename(argv[2], argv[3])) {
00096       Tcl_AppendResult(interp, "Unable to rename material '", argv[2],
00097           "' to '", argv[3], "'.", NULL);
00098       return TCL_ERROR;
00099     }
00100   } else if (!strupncmp(argv[1], "change", CMDLEN) && argc >= 5) {
00101     const char *prop = argv[2];
00102     const char *name = argv[3];
00103     const char *value = argv[4];
00104     int matprop = -1;
00105     if (!strupcmp(prop, "ambient")) matprop = MAT_AMBIENT;
00106     else if (!strupcmp(prop, "specular")) matprop = MAT_SPECULAR; 
00107     else if (!strupcmp(prop, "diffuse")) matprop = MAT_DIFFUSE; 
00108     else if (!strupcmp(prop, "shininess")) matprop = MAT_SHININESS; 
00109     else if (!strupcmp(prop, "opacity")) matprop = MAT_OPACITY; 
00110     if (!app->material_change(name, matprop, (float) atof(value))) {
00111       Tcl_AppendResult(interp, "Unable to change property ", prop,
00112           " of material ", name, " to ", value, NULL);
00113       return TCL_ERROR;
00114     }
00115   } else if (!strupncmp(argv[1], "delete", CMDLEN) && argc == 3) {
00116     if (!app->material_delete(argv[2])) {
00117       Tcl_AppendResult(interp, "Unable to delete material: ", argv[2], NULL);
00118       return TCL_ERROR;
00119     }
00120   } else if (!strupncmp(argv[1], "default", CMDLEN) && argc ==3) {
00121     int id;
00122     if (Tcl_GetInt(interp, argv[2], &id) != TCL_OK) return TCL_ERROR;
00123     if (!app->material_restore_default(id)) {
00124       Tcl_AppendResult(interp, "Unable to restore default for material ",
00125           argv[2], NULL);
00126       return TCL_ERROR;
00127     }
00128   } else 
00129     return TCL_ERROR;
00130   return TCL_OK;
00131 }
00132