| 5 |
|
* Convert Radiance scene description to MGF |
| 6 |
|
*/ |
| 7 |
|
|
| 8 |
– |
#include "platform.h" |
| 9 |
– |
#include "standard.h" |
| 8 |
|
#include <ctype.h> |
| 9 |
|
#include <string.h> |
| 10 |
|
#include <stdio.h> |
| 11 |
|
|
| 12 |
+ |
#include "platform.h" |
| 13 |
+ |
#include "rtmath.h" |
| 14 |
+ |
#include "rtio.h" |
| 15 |
|
#include "rtprocess.h" |
| 16 |
|
#include "object.h" |
| 17 |
|
#include "color.h" |
| 51 |
|
|
| 52 |
|
LUTAB vertab = LU_SINIT(free,NULL); /* our vertex lookup table */ |
| 53 |
|
|
| 54 |
< |
static void rad2mgf(char *inp); |
| 55 |
< |
static void cvtprim(char *inp, char *mod, char *typ, char *id, FUNARGS *fa); |
| 56 |
< |
static void newmat(char *id, char *alias); |
| 57 |
< |
static void setmat(char *id); |
| 58 |
< |
static void setobj(char *id); |
| 59 |
< |
static void init(void); |
| 60 |
< |
static void uninit(void); |
| 61 |
< |
static void clrverts(void); |
| 62 |
< |
static void add2dispatch(char *name, int (*func)()); |
| 63 |
< |
static char *getvertid(char *vname, FVECT vp); |
| 64 |
< |
static int o_unsupported(char *mod, char *typ, char *id, FUNARGS *fa); |
| 65 |
< |
static int o_face(char *mod, char *typ, char *id, FUNARGS *fa); |
| 66 |
< |
static int o_cone(char *mod, char *typ, char *id, FUNARGS *fa); |
| 67 |
< |
static int o_sphere(char *mod, char *typ, char *id, FUNARGS *fa); |
| 68 |
< |
static int o_cylinder(char *mod, char *typ, char *id, FUNARGS *fa); |
| 69 |
< |
static int o_ring(char *mod, char *typ, char *id, FUNARGS *fa); |
| 70 |
< |
static int o_instance(char *mod, char *typ, char *id, FUNARGS *fa); |
| 71 |
< |
static int o_illum(char *mod, char *typ, char *id, FUNARGS *fa); |
| 72 |
< |
static int o_plastic(char *mod, char *typ, char *id, FUNARGS *fa); |
| 73 |
< |
static int o_metal(char *mod, char *typ, char *id, FUNARGS *fa); |
| 74 |
< |
static int o_glass(char *mod, char *typ, char *id, FUNARGS *fa); |
| 75 |
< |
static int o_dielectric(char *mod, char *typ, char *id, FUNARGS *fa); |
| 76 |
< |
static int o_mirror(char *mod, char *typ, char *id, FUNARGS *fa); |
| 77 |
< |
static int o_trans(char *mod, char *typ, char *id, FUNARGS *fa); |
| 78 |
< |
static int o_light(char *mod, char *typ, char *id, FUNARGS *fa); |
| 54 |
> |
void rad2mgf(char *inp); |
| 55 |
> |
void cvtprim(char *inp, char *mod, char *typ, char *id, FUNARGS *fa); |
| 56 |
> |
void newmat(char *id, char *alias); |
| 57 |
> |
void setmat(char *id); |
| 58 |
> |
void setobj(char *id); |
| 59 |
> |
void init(void); |
| 60 |
> |
void uninit(void); |
| 61 |
> |
void clrverts(void); |
| 62 |
> |
void unspace(char *s); |
| 63 |
> |
void add2dispatch(char *name, int (*func)()); |
| 64 |
> |
char *getvertid(char *vname, FVECT vp); |
| 65 |
> |
int o_unsupported(char *mod, char *typ, char *id, FUNARGS *fa); |
| 66 |
> |
int o_face(char *mod, char *typ, char *id, FUNARGS *fa); |
| 67 |
> |
int o_cone(char *mod, char *typ, char *id, FUNARGS *fa); |
| 68 |
> |
int o_sphere(char *mod, char *typ, char *id, FUNARGS *fa); |
| 69 |
> |
int o_cylinder(char *mod, char *typ, char *id, FUNARGS *fa); |
| 70 |
> |
int o_ring(char *mod, char *typ, char *id, FUNARGS *fa); |
| 71 |
> |
int o_instance(char *mod, char *typ, char *id, FUNARGS *fa); |
| 72 |
> |
int o_illum(char *mod, char *typ, char *id, FUNARGS *fa); |
| 73 |
> |
int o_plastic(char *mod, char *typ, char *id, FUNARGS *fa); |
| 74 |
> |
int o_metal(char *mod, char *typ, char *id, FUNARGS *fa); |
| 75 |
> |
int o_glass(char *mod, char *typ, char *id, FUNARGS *fa); |
| 76 |
> |
int o_dielectric(char *mod, char *typ, char *id, FUNARGS *fa); |
| 77 |
> |
int o_mirror(char *mod, char *typ, char *id, FUNARGS *fa); |
| 78 |
> |
int o_trans(char *mod, char *typ, char *id, FUNARGS *fa); |
| 79 |
> |
int o_light(char *mod, char *typ, char *id, FUNARGS *fa); |
| 80 |
|
|
| 81 |
|
|
| 82 |
|
int |
| 129 |
|
char *inp |
| 130 |
|
) |
| 131 |
|
{ |
| 132 |
< |
#define mod buf |
| 131 |
< |
#define typ (buf+128) |
| 132 |
< |
#define id (buf+256) |
| 133 |
< |
#define alias (buf+384) |
| 134 |
< |
char buf[512]; |
| 132 |
> |
char mod[128], typ[32], id[128], alias[128]; |
| 133 |
|
FUNARGS fa; |
| 134 |
|
register FILE *fp; |
| 135 |
|
register int c; |
| 168 |
|
break; |
| 169 |
|
default: /* Radiance primitive */ |
| 170 |
|
ungetc(c, fp); |
| 171 |
< |
if (fscanf(fp, "%s %s %s", mod, typ, id) != 3) { |
| 171 |
> |
if (fgetword(mod, sizeof(mod), fp) == NULL || |
| 172 |
> |
fgetword(typ, sizeof(typ), fp) == NULL || |
| 173 |
> |
fgetword(id, sizeof(id), fp) == NULL) { |
| 174 |
|
fputs(inp, stderr); |
| 175 |
|
fputs(": unexpected EOF\n", stderr); |
| 176 |
|
exit(1); |
| 177 |
|
} |
| 178 |
+ |
unspace(mod); |
| 179 |
+ |
unspace(id); |
| 180 |
|
if (!strcmp(typ, "alias")) { |
| 181 |
|
strcpy(alias, "EOF"); |
| 182 |
< |
fscanf(fp, "%s", alias); |
| 182 |
> |
fgetword(alias, sizeof(alias), fp); |
| 183 |
> |
unspace(alias); |
| 184 |
|
newmat(id, alias); |
| 185 |
|
} else { |
| 186 |
|
if (!readfargs(&fa, fp)) { |
| 199 |
|
pclose(fp); |
| 200 |
|
else |
| 201 |
|
fclose(fp); |
| 199 |
– |
#undef mod |
| 200 |
– |
#undef typ |
| 201 |
– |
#undef id |
| 202 |
– |
#undef alias |
| 202 |
|
} |
| 203 |
|
|
| 204 |
|
|
| 205 |
|
void |
| 206 |
+ |
unspace( /* replace spaces with underscores in s */ |
| 207 |
+ |
char *s |
| 208 |
+ |
) |
| 209 |
+ |
{ |
| 210 |
+ |
while (*s) { |
| 211 |
+ |
if (isspace(*s)) |
| 212 |
+ |
*s = '_'; |
| 213 |
+ |
++s; |
| 214 |
+ |
} |
| 215 |
+ |
} |
| 216 |
+ |
|
| 217 |
+ |
|
| 218 |
+ |
void |
| 219 |
|
cvtprim( /* process Radiance primitive */ |
| 220 |
|
char *inp, |
| 221 |
|
char *mod, |
| 229 |
|
df = (int (*)())lu_find(&rdispatch, typ)->data; |
| 230 |
|
if (df != NULL) { /* convert */ |
| 231 |
|
if ((*df)(mod, typ, id, fa) < 0) { |
| 232 |
< |
fprintf(stderr, "%s: bad %s \"%s\"\n", "rat2mgf", typ, id); |
| 232 |
> |
fprintf(stderr, "%s: bad %s \"%s\"\n", "rad2mgf", typ, id); |
| 233 |
|
exit(1); |
| 234 |
|
} |
| 235 |
|
} else { /* unsupported */ |