+
+static csg_object *load_object(struct ts_node *node)
+{
+ float *avec;
+ struct ts_node *c;
+ csg_object *sub, *o = 0, *olist = 0, *otail = 0;
+ int num_subobj = 0, is_csgop = 0;
+
+ if(strcmp(node->name, "null") == 0) {
+ if(!(o = csg_null(0, 0, 0))) {
+ goto err;
+ }
+
+ } else if(strcmp(node->name, "sphere") == 0) {
+ float rad = ts_get_attr_num(node, "radius", 1.0f);
+ if(!(o = csg_sphere(0, 0, 0, rad))) {
+ goto err;
+ }
+
+ } else if(strcmp(node->name, "cylinder") == 0) {
+ float rad = ts_get_attr_num(node, "radius", 1.0f);
+ float height = ts_get_attr_num(node, "height", 1.0f);
+ if(!(o = csg_cylinder(0, -height/2.0f, 0, 0, height/2.0f, 0, rad))) {
+ goto err;
+ }
+
+ } else if(strcmp(node->name, "plane") == 0) {
+ static float def_norm[] = {0, 1, 0};
+ float *norm = ts_get_attr_vec(node, "normal", def_norm);
+ if(!(o = csg_plane(0, 0, 0, norm[0], norm[1], norm[2]))) {
+ goto err;
+ }
+
+ } else if(strcmp(node->name, "box") == 0) {
+ static float def_sz[] = {1, 1, 1};
+ float *sz = ts_get_attr_vec(node, "size", def_sz);
+ if(!(o = csg_box(0, 0, 0, sz[0], sz[1], sz[2]))) {
+ goto err;
+ }
+
+ } else if(strcmp(node->name, "union") == 0) {
+ if(!(o = csg_union(0, 0))) {
+ goto err;
+ }
+ is_csgop = 1;
+
+ } else if(strcmp(node->name, "intersect") == 0) {
+ if(!(o = csg_intersection(0, 0))) {
+ goto err;
+ }
+ is_csgop = 1;
+
+ } else if(strcmp(node->name, "subtract") == 0) {
+ if(!(o = csg_subtraction(0, 0))) {
+ goto err;
+ }
+ is_csgop = 1;
+
+ } else {
+ goto err;
+ }
+
+ if(is_csgop) {
+ c = node->child_list;
+ while(c) {
+ if((sub = load_object(c))) {
+ if(olist) {
+ otail->ob.next = sub;
+ otail = sub;
+ } else {
+ olist = otail = sub;
+ }
+ ++num_subobj;
+ }
+ c = c->next;
+ }
+
+ if(num_subobj != 2) {
+ goto err;
+ }
+ o->un.a = olist;
+ o->un.b = olist->ob.next;
+ olist->ob.next = 0;
+ }
+
+ if((avec = ts_get_attr_vec(node, "position", 0))) {
+ csg_translate(o, avec[0], avec[1], avec[2]);
+ }
+ if((avec = ts_get_attr_vec(node, "rotaxis", 0))) {
+ csg_rotate(o, ts_get_attr_num(node, "rotangle", 0.0f), avec[0], avec[1], avec[2]);
+ }
+ if((avec = ts_get_attr_vec(node, "scaling", 0))) {
+ csg_scale(o, avec[0], avec[1], avec[2]);
+ }
+ if((avec = ts_get_attr_vec(node, "target", 0))) {
+ /* don't move this before position */
+ float def_up[] = {0, 1, 0};
+ float *up = ts_get_attr_vec(node, "up", def_up);
+ float x = o->ob.xform[12];
+ float y = o->ob.xform[13];
+ float z = o->ob.xform[14];
+ csg_lookat(o, x, y, z, avec[0], avec[1], avec[2], up[0], up[1], up[2]);
+ }
+
+ if((avec = ts_get_attr_vec(node, "color", 0))) {
+ csg_color(o, avec[0], avec[1], avec[2]);
+ }
+ if((avec = ts_get_attr_vec(node, "emission", 0))) {
+ csg_emission(o, avec[0], avec[1], avec[2]);
+ }
+
+ csg_roughness(o, ts_get_attr_num(node, "roughness", o->ob.roughness));
+ csg_opacity(o, ts_get_attr_num(node, "opacity", o->ob.opacity));
+ csg_metallic(o, ts_get_attr_int(node, "metallic", o->ob.metallic));
+
+ return o;
+
+err:
+ csg_free_object(o);
+ while(olist) {
+ o = olist;
+ olist = olist->ob.next;
+ csg_free_object(o);
+ }
+ return 0;
+}