This is worldio.c in view mode; [Download] [Up]
/* Copyright (c) 1992 The Geometry Center; University of Minnesota
1300 South Second Street; Minneapolis, MN 55454, USA;
This file is part of geomview/OOGL. geomview/OOGL is free software;
you can redistribute it and/or modify it only under the terms given in
the file COPYING, which you should have received along with this file.
This and other related software may be obtained via anonymous ftp from
geom.umn.edu; email: software@geom.umn.edu. */
/* Authors: Stuart Levy, Tamara Munzner, Mark Phillips,
* Celeste Fowler */
#include "mg.h"
#include "drawer.h"
#include "ui.h"
#include "geom.h"
#include "geomclass.h"
#include "instP.h"
#include "listP.h"
#include "streampool.h"
#include "comm.h"
#include "lang.h"
#include "main.h"
#include "transobj.h"
#include <string.h>
#ifdef NeXT
#include <bsd/libc.h>
#else /* any other reasonable UNIX */
#include <unistd.h>
#endif
void set_emodule_path(char **dirs);
void set_load_path(char **dirs);
static void save_dgeom(Pool *p, DGeom *dg, int doaliens);
static void save_dgeom_geom(Pool *p, DGeom *dg, int world, int wrap, int cum);
static void save_dview(Pool *p, DView *dv);
static int nonidentity(Transform T);
static void maybe_save_xform(Pool *p, char *cmd, char *name, Handle *, Transform T);
static char * normalization_string(int n);
static char * onoff_string(int n);
int
save_world(Pool *p, int id, int comm, int wrap, int to_coords)
{
Appearance *ap;
int i, closeme = 0;
FILE *fp;
Transform T;
DGeom *dg = NULL;
Handle *h = NULL;
if((fp = PoolOutputFile(p)) == NULL)
return 0;
/* Hack -- don't let StreamOut routines write Handle names. */
/* "Temporary" workaround for library reading bug. -slevy */
PoolSetOType(p, PO_DATA);
if(!comm) {
/* Write geometry */
if (wrap) {
if(id == NOID || ISCAM(id)) {
fprintf(fp, "{ # Base appearance\n");
ApStreamOut(p, NULL, drawerstate.ap);
fprintf(fp, "# end base appearance\n");
if(ISCAM(id)) {
fprintf(fp, "}\n");
return !ferror(fp);
} else closeme = 1;
}
}
if(id == NOID) id = WORLDGEOM;
if(ISGEOM(id))
dg = (DGeom *)drawer_get_object(id);
if(id == WORLDGEOM) {
if (wrap) {
save_dgeom_geom(p, dg, 1, wrap, to_coords);
}
fprintf(fp, "{ LIST # World list \n");
for(i = 1; i < dgeom_max; i++) {
dg = (DGeom *)drawer_get_object(GEOMID(i));
if (dg != NULL && dg->citizenship != ALIEN)
save_dgeom_geom(p, dg, 0, 1, WORLDGEOM);
}
fprintf(fp, "} #end of World List\n");
if (wrap) {
fprintf(fp, " } } # end of World and INST\n");
if (closeme) fprintf(fp, "}\n");
}
} else {
save_dgeom_geom(p, dg, 0, wrap, to_coords);
}
return !ferror(fp);
}
/* Write command language */
PoolIncLevel(p, 1); /* Ensure embedded objects have { braces } */
fprintf(fp, "(progn\n");
if(id == NOID || id == WORLDGEOM) {
fprintf(fp, " (merge-baseap ");
ApStreamOut(p, NULL, drawerstate.ap);
fprintf(fp, " ) # end base appearance\n");
if(drawerstate.NDim > 0)
fprintf(fp, "(dimension %d)\n", drawerstate.NDim-1);
}
if(id != NOID && id != WORLDGEOM) {
DObject *dobj = drawer_get_object(id);
if(dobj) {
if(ISGEOM(dobj->id))
save_dgeom(p, (DGeom *)dobj, 1);
else
save_dview(p, (DView *)dobj);
}
} else {
/* save data associated with the World dgeom */
GeomGet( dgeom[0]->Item, CR_AXIS, T );
GeomGet( dgeom[0]->Item, CR_AXISHANDLE, &h );
maybe_save_xform(p, "xform-set", "worldgeom", h, T);
maybe_save_xform(p, "xform-incr", "worldgeom",
dgeom[0]->incrhandle, dgeom[0]->Incr);
GeomGet( dgeom[0]->Item, CR_APPEAR, &ap );
if (ap != NULL) {
fprintf(fp, "(merge-ap \"worldgeom\" ");
ApStreamOut( p, NULL, ap );
fprintf(fp, ") # end appearance \"worldgeom\"\n");
}
/* save the dgeoms. Include aliens if id==NOID. */
for (i=1; i<dgeom_max; ++i)
if (dgeom[i] != NULL) save_dgeom(p, dgeom[i], id==NOID);
/* save the dviews */
for (i=0; i<dview_max; ++i)
if (dview[i] != NULL) save_dview( p, dview[i] );
/* save other stuff here ... */
dg = (DGeom *)drawer_get_object(uistate.targetid);
if (dg) fprintf(fp, "(ui-target \"%s\")\n", dg->name[1]);
}
fprintf(fp, ")\n"); /* terminates the (progn... */
PoolIncLevel(p, -1);
return !ferror(fp);
}
/*
* Save a DGeom as geometry. Emit appearance and transform if wrap.
* if not 'world', also add geometry and close the braces.
*/
static void
save_dgeom_geom(Pool *p, DGeom *dg, int world, int wrap, int to_coords)
{
FILE *fp = PoolOutputFile(p);
Transform T;
Handle *h = NULL;
Geom *g = NULL;
Appearance *ap = NULL;
if(dg == NULL || dg->Item == NULL)
return;
if (wrap) {
fprintf(fp, "{ # %s\n", dg->name[1]);
fprintf(fp, " INST ");
drawer_get_transform(dg->id, T, to_coords);
if(nonidentity(T) || h) /* Could say "transform" here */
TransStreamOut(p, h, T); /* but TransStreamOut does that */
fprintf(fp, " geom {");
GeomGet(dg->Item, CR_APPEAR, &ap);
if(ap) {
ap = ApCopy(ap, NULL);
ap->override = 0;
if (ap->mat) ap->mat->override = 0;
if (ap->lighting) ap->lighting->override = 0;
ApStreamOut(p, NULL, ap);
ApDelete(ap);
}
}
if(!world) {
h = NULL;
GeomGet(dg->Lgeom, CR_GEOM, &g);
GeomGet(dg->Lgeom, CR_GEOMHANDLE, &h);
if (wrap) fprintf(fp, "geom ");
GeomStreamOut(p, h, g);
if (wrap) fprintf(fp, "} } # end (geom and INST) %s\n", dg->name[1]);
}
}
static void
maybe_save_xform(Pool *p, char *cmd, char *name, Handle *h, Transform T)
{
if (h || nonidentity(T)) {
fprintf(PoolOutputFile(p), "(%s \"%s\" ", cmd, name);
TransStreamOut(p, h, T);
fprintf(PoolOutputFile(p), ")\n");
}
}
static void
save_dgeom(Pool *p, DGeom *dg, int doaliens)
{
Geom *g=NULL;
Appearance *ap=NULL;
FILE *fp = PoolOutputFile(p);
Handle *h = NULL;
Transform T;
char name[32];
char *truename = dg->name[1];
sprintf(name, "[%s]", dg->name[0]); /* Temporary name -- unlikely to conflict */
if (dg->citizenship == ALIEN) {
if(!doaliens)
return;
fprintf(fp, "(new-alien");
} else {
fprintf(fp, "(new-geometry");
}
fprintf(fp, " \"%s\" # %s\n", name, truename);
GeomGet( dg->Lgeom, CR_GEOM, &g );
GeomGet( dg->Lgeom, CR_GEOMHANDLE, &h );
GeomStreamOut( p, h, g );
fprintf(fp, ") # end geometry \"%s\" %s\n", name, truename);
GeomGet( dg->Item, CR_APPEAR, &ap );
if (ap != NULL) {
fprintf(fp, "(merge-ap \"%s\" ", name);
ApStreamOut( p, NULL, ap );
fprintf(fp, ") # end appearance \"%s\" %s\n", name, truename);
}
TmIdentity(T);
GeomGet( dg->Item, CR_AXIS, T );
GeomGet( dg->Item, CR_AXISHANDLE, &h );
maybe_save_xform(p, "xform-set", name, h, T);
if(dg->NDT) {
fprintf(fp, "(ND-xform \"%s\" ", name);
TmNPrint(fp, dg->NDT);
fprintf(fp, ")\n");
}
fprintf(fp, "(bbox-draw \"%s\" %s)\n", name, onoff_string(dg->bboxdraw));
if (dg->bboxap && dg->bboxap->mat) {
Color *c = &(dg->bboxap->mat->edgecolor);
fprintf(fp, "(bbox-color \"%s\" %f %f %f)\n", name, c->r, c->g, c->b);
}
fprintf(fp, "(normalization \"%s\" %s)\n", name,
normalization_string(dg->normalization));
fprintf(fp, "(name-object \"%s\" \"%s\")\n\n", name, truename);
}
static void
save_dview(Pool *p, DView *dv)
{
char *name = dv->name[1];
FILE *fp = PoolOutputFile(p);
WnPosition wp;
if(WnGet(dv->win, WN_CURPOS, &wp) > 0) {
WnSet(dv->win, WN_PREFPOS, &wp, WN_END);
fprintf(fp, "(window default { position %d %d %d %d })\n",
wp.xmin,wp.xmax,wp.ymin,wp.ymax);
}
fprintf(fp, "(camera \"%s\" ", name);
CamStreamOut(p, dv->camhandle, dv->cam);
fprintf(fp, ") # camera \"%s\" ...\n", name);
fprintf(fp, "(backcolor \"%s\" %f %f %f)\n",
name, dv->backcolor.r,dv->backcolor.g,dv->backcolor.b);
if (dv->cameradraw)
fprintf(fp, "(camera-draw \"%s\" yes)\n", name);
if (dv->cluster != NULL) {
cmap *cm;
cent *ce;
int i, j;
fprintf(fp, "(dimension %d)\n", drawerstate.NDim-1);
fprintf(fp, "(ND-axes \"%s\" \"%s\" %d %d %d %d)\n",
name, dv->cluster->name,
dv->NDPerm[0], dv->NDPerm[1], dv->NDPerm[2], dv->NDPerm[3]);
if(dv->cluster->C2W != NULL) {
fprintf(fp, "(ND-xform \"%s\" ", name);
TmNPrint(fp, dv->cluster->C2W);
fprintf(fp, ")\n");
}
fprintf(fp, "(ND-color \"%s\" (\n", name);
for(i = 0, cm = dv->NDcmap; i < dv->nNDcmap; i++, cm++) {
fprintf(fp, "\t( (");
fputnf(fp, cm->axis->dim, cm->axis->v, 0);
fprintf(fp, ")\n");
for(j = VVCOUNT(cm->cents), ce = VVEC(cm->cents,cent); --j >= 0; ce++) {
fprintf(fp, "\t\t%g\t", ce->v);
fputnf(fp, 4, (float *)&ce->c, 0);
fputc('\n', fp);
}
fprintf(fp, "\t)\n");
}
fprintf(fp, " ) ) # end ND-color \"%s\"\n", name);
}
fprintf(fp, "(window \"%s\" ", name);
WnStreamOut(p, NULL, dv->win);
fprintf(fp, ")\n");
fprintf(fp, "# end camera %s\n\n", name);
}
static int nonidentity(Transform T)
{
return bcmp(T, TM_IDENTITY, sizeof(TM_IDENTITY));
}
static char *
normalization_string(int n)
{
switch (n) {
case NONE: return "none";
case ALL: return "all";
case EACH: return "each";
default: return "???";
}
}
static char *
onoff_string(int n)
{
if (n) return "on";
else return "off";
}
int worldio(HandleOps *ops, Pool *p, int to_coords, int id)
{
int ok = -1;
Transform T;
int wrap = 1;
if (to_coords == SELF)
wrap = 0;
if(ops == &CommandOps) ok = save_world(p, id, 1, wrap, to_coords);
else if(ops == &GeomOps) ok = save_world(p, id, 0, wrap, to_coords);
else if(ops == &CamOps && ISCAM(id)) {
DView *dv = (DView *)drawer_get_object(id);
if(dv) ok = CamStreamOut(p, dv->camhandle, dv->cam);
} else if(ops == &WindowOps) {
DView *dv = (DView *)drawer_get_object(ISCAM(id) ? id : FOCUSID);
WnWindow *win;
if(dv && dv->mgctx) {
mgctxselect(dv->mgctx);
if((ok = mgctxget(MG_WINDOW, &win)) > 0)
ok = WnStreamOut(p, NULL, win);
}
} else if(ops == &TransOps) {
drawer_get_transform(id, T, to_coords);
ok = TransStreamOut(p, NULL, T);
}
fflush(PoolOutputFile(p));
return ok;
}
LDEFINE(set_load_path, LVOID,
"(set-load-path (PATH1 ... PATHN))\n\
Sets search path for command, geometry, etc. files. The PATHi\n\
are strings giving the pathnames of directories\n\
to be searched.")
{
#define MAXDIRS 100
char *dirs[MAXDIRS];
int i, filepanel;
LList *list;
LDECLARE(("set-load-path", LBEGIN,
LLITERAL, LLIST, &list,
LEND));
i = 0;
while (i<MAXDIRS && list) {
if (list->car) {
dirs[i] = LSTRINGVAL(list->car);
list = list->cdr;
++i;
}
}
dirs[i] = NULL;
set_load_path(dirs);
filepanel = ui_name2panel("Files");
if(ui_panelshown(filepanel)) ui_showpanel(filepanel, 1);
return Lt;
#undef MAXDIRS
}
void set_load_path(char **dirs)
{
int i,n;
n=VVCOUNT(vv_load_path);
for (i=0; i<n; ++i) {
char *s = VVEC(vv_load_path, char *)[i];
free(s);
}
filedirs(dirs); /* inform OOGL/refcomm library */
VVCOUNT(vv_load_path) = 0;
while (dirs && *dirs) {
*VVAPPEND(vv_load_path, char *) = strdup(*dirs);
++dirs;
}
vvtrim(&vv_load_path);
return;
}
LDEFINE(load_path, LLIST,
"(load-path)\n\
Returns the current search path for command, geometry, etc. files.\n\
Note: to actually see the value returned by this function\n\
you should wrap it in a call to echo: (echo (load-path)).\n\
See also set-load-path.")
{
/*
For backward compatibility this command takes an optional argument
which specifies a new load-path. This will disappear in a future version.
*/
LList *list = NULL;
int i;
LDECLARE(("load-path", LBEGIN,
LOPTIONAL,
LLITERAL, LLIST, &list,
LEND));
if (list != NULL) {
gv_set_load_path(list);
return Lt;
}
for (i=0; i<load_path_count; ++i) {
char *dir = strdup(load_path[i]);
list = LListAppend(list, LNew(LSTRING, &dir));
}
return LNew(LLIST, &list);
}
LDEFINE(set_emodule_path, LVOID,
"(set-emodule-path (PATH1 ... PATHN))\n\
Sets the search path for external modules. The PATHi should\n\
be pathnames of directories containing, for each module, the\n\
module's executable file and a .geomview-<modulename> file\n\
which contains an (emodule-define ...) command for that\n\
module. This command implicitly calls (rehash-emodule-path)\n\
to rebuild the application brower from the new path setting.")
{
#define MAXDIRS 100
char *dirs[MAXDIRS];
int i;
LList *list;
LDECLARE(("set-emodule-path", LBEGIN,
LLITERAL, LLIST, &list,
LEND));
i = 0;
while (i<MAXDIRS && list) {
if (list->car) {
dirs[i] = LSTRINGVAL(list->car);
list = list->cdr;
++i;
}
}
dirs[i] = NULL;
set_emodule_path(dirs);
return Lt;
#undef MAXDIRS
}
void set_emodule_path(char **dirs)
{
int i;
for (i=0; i<emodule_path_count; ++i) {
free(emodule_path[i]);
}
emodule_path_count = 0;
while (dirs && *dirs) {
*VVAPPEND(vv_emodule_path, char *) = strdup(*dirs);
++dirs;
}
vvtrim(&vv_emodule_path);
gv_rehash_emodule_path();
return;
}
LDEFINE(rehash_emodule_path, LLIST,
"(rehash-emodule-path)\n\
Rebuilds the application (external module) browser by reading\n\
all .geomview-* files in all directories on the emodule-path.\n\
Primarily intended for internal use; any applications defined\n\
by (emodule-define ...) commands outside of the .geomview-*\n\
files on the emodule-path will be lost. Does not sort the\n\
entries in the brower; see (emodule-sort) for that.")
{
int i;
char pat[512], **files, **fp;
LDECLARE(("rehash-emodule-path", LBEGIN,
LEND));
gv_emodule_clear();
for (i=0; i<emodule_path_count; ++i) {
sprintf(pat, "%s/.geomview-*", emodule_path[i]);
fp = files = ooglglob(pat);
while (fp && *fp) {
if (access(*fp, R_OK) == 0) {
char *emod_dir_saved = uistate.emod_dir;
uistate.emod_dir = emodule_path[i];
loadfile(*fp, &CommandOps, 0);
uistate.emod_dir = emod_dir_saved;
}
++fp;
}
ooglblkfree(files);
free(files);
}
return Lt;
}
LDEFINE(emodule_path, LLIST,
"(emodule-path)\n\
Returns the current search path for external modules.\n\
Note: to actually see the value returned by this function\n\
you should wrap it in a call to echo: (echo (emodule-path)).\n\
See also set-emodule-path.")
{
LList *list = NULL;
int i;
LDECLARE(("emodule-path", LBEGIN,
LEND));
for (i=0; i<emodule_path_count; ++i) {
char *dir = strdup(emodule_path[i]);
list = LListAppend(list, LNew(LSTRING, &dir));
}
return LNew(LLIST, &list);
}
LDEFINE(emodule_defined, LSTRING,
"(emodule-defined \"modulename\")\n\
If the given external-module name is known, returns the name of\n\
the program invoked when it's run as a quoted string; otherwise\n\
returns nil. ``(echo (emodule-defined \"name\"))'' prints the string.")
{
char *name;
emodule *em;
LDECLARE(("emodule-defined", LBEGIN,
LSTRING, &name,
LEND));
return ui_emodule_index(name, &em) < 0 ? Lnil : LTOOBJ(LSTRING)(&em->text);
}
LDEFINE(all, LLIST,
"(all geometry) returns a list of names of all geometry objects.\n\
(all camera) returns a list of names of all cameras.\n\
(all emodule defined) returns a list of all defined external modules.\n\
(all emodule running) returns a list of all running external modules.\n\
Use e.g. ``(echo (all geometry))'' to print such a list.")
{
char *type, *subtype = "";
int i, wantrunning;
DGeom *dg;
DView *dv;
emodule *em;
LList *l = NULL;
LDECLARE(("all", LBEGIN,
LSTRING, &type,
LOPTIONAL,
LSTRING, &subtype,
LEND));
if(strncmp(type, "geom", 4) == 0) {
LOOPGEOMS(i, dg)
l = LListAppend(l, LTOOBJ(LSTRING)(&dg->name[1]));
} else if(strncmp(type, "cam", 3) == 0) {
LOOPVIEWS(i, dv)
l = LListAppend(l, LTOOBJ(LSTRING)(&dv->name[1]));
} else if(strncmp(type, "emodule", 7) == 0) {
wantrunning = (strncmp(subtype, "run", 3) == 0);
em = VVEC(uistate.emod, emodule);
for(i = VVCOUNT(uistate.emod); --i >= 0; em++)
if((em->pid != 0) == wantrunning)
l = LListAppend(l, LTOOBJ(LSTRING)(&em->name));
} else {
OOGLError(0, "all: expected \"geometry\" or \"camera\" or \"emodule defined\" or \"emodule running\", got: %s %s\n",
type, subtype);
return Lnil;
}
return LNew(LLIST, &l);
}
LDEFINE(camera_prop, LVOID,
"(camera-prop { geometry object } [projective])\n\
Specify the object to be shown when drawing other cameras.\n\
By default, this object is drawn with its origin at the camera,\n\
and with the camera looking toward the object's -Z axis.\n\
With the \"projective\" keyword, the camera's viewing projection is\n\
also applied to the object; this places the object's Z=-1 and Z=+1 at\n\
near and far clipping planes, with the viewing area -1<={X,Y}<=+1.\n\
Example: (camera-prop { < cube } projective)")
{
int proj = 0;
GeomStruct *gs = NULL;
LDECLARE(("camera-prop", LBEGIN,
LGEOM, &gs,
LOPTIONAL,
LKEYWORD, &proj,
LEND));
if(gs && gs->geom) {
(void)REFINCR(Geom, gs->geom);
(void)REFINCR(Handle, gs->h);
GeomDelete(drawerstate.camgeom);
drawerstate.camgeom = gs->geom;
drawerstate.camproj = (proj == PROJECTIVE_KEYWORD);
drawerstate.changed = 1;
return Lt;
}
return Lnil;
}
LDEFINE(write, LVOID,
"(write {command,geometry,camera,transform,window} FILENAME [ID|(ID ...)] [self|world|universe|otherID])\n\
write description of ID in given format to FILENAME. Last\n\
parameter chooses coordinate system for geometry & transform:\n\
self: just the object, no transformation or appearance (geometry only)\n\
world: the object as positioned within the World.\n\
universe: object's position in universal coordinates;\n\
includes Worldtransform\n\
other ID: the object transformed to otherID's coordinate system.\n\
\n\
A filename of \"-\" is a special case: data are written to the\n\
stream from which the 'write' command was read. For external\n\
modules, the data are sent to the module's standard input.\n\
For commands not read from an external program, \"-\" means\n\
geomview's standard output. (See also the \"command\"\n\
command.)\n\
\n\
The ID can either be a single id or a parenthesized list of\n\
ids, like \"g0\" or \"(g2 g1 dodec.off)\".")
{
Pool *op, *p;
HandleOps *ops;
char *opsname;
LObject *idobj;
char *fname;
Lake *hiawatha;
int coords = UNIVERSE, val = 1, id, temppool=0;
LDECLARE(("write", LBEGIN,
LLAKE, &hiawatha,
LSTRING, &opsname,
LSTRING, &fname,
LHOLD, LLOBJECT, &idobj,
LOPTIONAL,
LID, &coords,
LEND));
p = POOL(hiawatha);
if ( (ops=str2ops(opsname)) == NULL) {
OOGLError(0, "write: expected one of command|geometry|camera|transform|geometry|window, got \"%s\"", opsname);
return Lnil;
}
if (fname[0] == '-') {
if (PoolOutputFile(p)) {
op = p;
} else {
op = PoolStreamTemp(fname, stdout, 1, &CommandOps);
temppool = 1;
}
} else {
op = PoolStreamTemp(fname, NULL, 1, &CommandOps);
temppool = 1;
}
if(op == NULL || PoolOutputFile(op) == NULL) {
fprintf(stderr, "write: cannot open \"%s\": %s\n", fname, sperror());
return Lnil;
}
if (idobj->type == LSTRING) {
if (!LFROMOBJ(LID)(idobj, &id)) {
fprintf(stderr, "write: expects ID or list of IDs in arg position 2\n");
return Lnil;
}
val = (worldio(ops, op, coords, id) == 1);
} else if (idobj->type == LLIST) {
LList *list;
for( list = LLISTVAL(idobj); list && list->car; list = list->cdr ) {
if (!LFROMOBJ(LID)(list->car, &id)) {
fprintf(stderr, "write: expects ID or list of IDs in arg position 2\n");
return Lnil;
}
val &= (worldio(ops, op, coords, id) == 1);
}
}
if (temppool) PoolClose(op);
if (!val) {
fprintf(stderr, "write failed\n");
return Lnil;
} else
return Lt;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.