-> Vertex Group support for bevel (editmode only)
[blender.git] / source / blender / blenkernel / intern / BME_tools.c
1 /**
2  * BME_tools.c    jan 2007
3  *
4  *      Functions for changing the topology of a mesh.
5  *
6  * $Id: BME_eulers.c,v 1.00 2007/01/17 17:42:01 Briggs Exp $
7  *
8  * ***** BEGIN GPL LICENSE BLOCK *****
9  *
10  * This program is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU General Public License
12  * as published by the Free Software Foundation; either version 2
13  * of the License, or (at your option) any later version.
14  *
15  * This program is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU General Public License for more details.
19  *
20  * You should have received a copy of the GNU General Public License
21  * along with this program; if not, write to the Free Software Foundation,
22  * Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
23  *
24  * The Original Code is Copyright (C) 2004 Blender Foundation.
25  * All rights reserved.
26  *
27  * The Original Code is: all of this file.
28  *
29  * Contributor(s): Geoffrey Bantle and Levi Schooley.
30  *
31  * ***** END GPL LICENSE BLOCK *****
32  */
33
34 #include <math.h>
35
36 #include "MEM_guardedalloc.h"
37
38 #include "DNA_listBase.h"
39 #include "DNA_meshdata_types.h"
40 #include "DNA_mesh_types.h"
41
42 #include "BKE_utildefines.h"
43 #include "BKE_bmesh.h"
44 #include "BLI_arithb.h"
45 #include "BLI_blenlib.h"
46
47 #include "blendef.h"
48
49 /*split this all into a seperate bevel.c file in src*/
50
51 /* ------- Bevel code starts here -------- */
52
53 BME_TransData_Head *BME_init_transdata(int bufsize) {
54         BME_TransData_Head *td;
55
56         td = MEM_callocN(sizeof(BME_TransData_Head), "BMesh transdata header");
57         td->gh = BLI_ghash_new(BLI_ghashutil_ptrhash,BLI_ghashutil_ptrcmp);
58         td->ma = BLI_memarena_new(bufsize);
59         BLI_memarena_use_calloc(td->ma);
60
61         return td;
62 }
63
64 void BME_free_transdata(BME_TransData_Head *td) {
65         BLI_ghash_free(td->gh,NULL,NULL);
66         BLI_memarena_free(td->ma);
67         MEM_freeN(td);
68 }
69
70 BME_TransData *BME_assign_transdata(BME_TransData_Head *td, BME_Mesh *bm, BME_Vert *v,
71                 float *co, float *org, float *vec, float *loc,
72                 float factor, float weight, float maxfactor, float *max) {
73         BME_TransData *vtd;
74         int is_new = 0;
75
76         if (v == NULL) return NULL;
77
78         if ((vtd = BLI_ghash_lookup(td->gh, v)) == NULL && bm != NULL) {
79                 vtd = BLI_memarena_alloc(td->ma, sizeof(*vtd));
80                 BLI_ghash_insert(td->gh, v, vtd);
81                 td->len++;
82                 is_new = 1;
83         }
84
85         vtd->bm = bm;
86         vtd->v = v;
87         if (co != NULL) VECCOPY(vtd->co,co);
88         if (org == NULL && is_new) { VECCOPY(vtd->org,v->co); } /* default */
89         else if (org != NULL) VECCOPY(vtd->org,org);
90         if (vec != NULL) {
91                 VECCOPY(vtd->vec,vec);
92                 Normalize(vtd->vec);
93         }
94         vtd->loc = loc;
95
96         vtd->factor = factor;
97         vtd->weight = weight;
98         vtd->maxfactor = maxfactor;
99         vtd->max = max;
100
101         return vtd;
102 }
103
104 BME_TransData *BME_get_transdata(BME_TransData_Head *td, BME_Vert *v) {
105         BME_TransData *vtd;
106         vtd = BLI_ghash_lookup(td->gh, v);
107         return vtd;
108 }
109
110 /* a hack (?) to use the transdata memarena to allocate floats for use with the max limits */
111 float *BME_new_transdata_float(BME_TransData_Head *td) {
112         return BLI_memarena_alloc(td->ma, sizeof(float));
113 }
114
115 static int BME_is_nonmanifold_vert(BME_Mesh *bm, BME_Vert *v) {
116         BME_Edge *e, *oe;
117         BME_Loop *l;
118         int len, count, flag;
119
120         if (v->edge == NULL) {
121                 /* loose vert */
122                 return 1;
123         }
124
125         /* count edges while looking for non-manifold edges */
126         oe = v->edge;
127         for (len=0,e=v->edge; e != oe || (e == oe && len == 0); len++,e=BME_disk_nextedge(e,v)) {
128                 if (e->loop == NULL) {
129                         /* loose edge */
130                         return 1;
131                 }
132
133                 if (BME_cycle_length(&(e->loop->radial)) > 2) {
134                         /* edge shared by more than two faces */
135                         return 1;
136                 }
137         }
138
139         count = 1;
140         flag = 1;
141         e = NULL;
142         oe = v->edge;
143         l = oe->loop;
144         while(e != oe) {
145                 if (l->v == v) l = l->prev;
146                 else l = l->next;
147                 e = l->e;
148                 count++; /* count the edges */
149
150                 if (flag && l->radial.next->data == l) {
151                         /* we've hit the edge of an open mesh, reset once */
152                         flag = 0;
153                         count = 1;
154                         oe = e;
155                         e = NULL;
156                         l = oe->loop;
157                 }
158                 else if (l->radial.next->data == l) {
159                         /* break the loop */
160                         e = oe;
161                 }
162                 else {
163                         l = l->radial.next->data;
164                 }
165         }
166
167         if (count < len) {
168                 /* vert shared by multiple regions */
169                 return 1;
170         }
171
172         return 0;
173 }
174
175 /* a wrapper for BME_JFKE that [for now just] checks to
176  * make sure loop directions are compatible */
177 static BME_Poly *BME_JFKE_safe(BME_Mesh *bm, BME_Poly *f1, BME_Poly *f2, BME_Edge *e) {
178         BME_Loop *l1, *l2;
179
180         l1 = e->loop;
181         l2 = l1->radial.next->data;
182         if (l1->v == l2->v) {
183                 BME_loop_reverse(bm, f2);
184         }
185
186         return BME_JFKE(bm, f1, f2, e);
187 }
188
189 /* a wrapper for BME_SFME that transfers element flags */
190 static BME_Poly *BME_split_face(BME_Mesh *bm, BME_Poly *f, BME_Vert *v1, BME_Vert *v2, BME_Loop **nl, BME_Edge *example) {
191         BME_Poly *nf;
192         nf = BME_SFME(bm,f,v1,v2,nl);
193         nf->flag = f->flag;
194         /* if the edge was selected, select this face, too */
195         if (example->flag & SELECT) f->flag |= ME_FACE_SEL;
196         nf->h = f->h;
197         nf->mat_nr = f->mat_nr;
198         if (nl && example) {
199                 (*nl)->e->flag = example->flag;
200                 (*nl)->e->h = example->h;
201                 (*nl)->e->crease = example->crease;
202                 (*nl)->e->bweight = example->bweight;
203         }
204
205         return nf;
206 }
207
208
209 static void BME_data_interp_from_verts(BME_Mesh *bm, BME_Vert *v1, BME_Vert *v2, BME_Vert *v, float fac)
210 {
211         void *src[2];
212         float w[2];
213         if (v1->data && v2->data) {
214                 src[0]= v1->data;
215                 src[1]= v2->data;
216                 w[0] = 1.0f-fac;
217                 w[1] = fac;
218                 CustomData_em_interp(&bm->vdata, src, w, NULL, 2, v->data);
219         }
220 }
221
222 /* a wrapper for BME_SEMV that transfers element flags */ /*add custom data interpolation in here!*/
223 static BME_Vert *BME_split_edge(BME_Mesh *bm, BME_Vert *v, BME_Edge *e, BME_Edge **ne, float percent) {
224         BME_Vert *nv, *v2;
225         float len;
226
227         v2 = BME_edge_getothervert(e,v);
228         nv = BME_SEMV(bm,v,e,ne);
229         if (nv == NULL) return NULL;
230         VECSUB(nv->co,v2->co,v->co);
231         len = VecLength(nv->co);
232         VECADDFAC(nv->co,v->co,nv->co,len*percent);
233         nv->flag = v->flag;
234         nv->bweight = v->bweight;
235         if (ne) {
236                 (*ne)->flag = e->flag;
237                 (*ne)->h = e->h;
238                 (*ne)->crease = e->crease;
239                 (*ne)->bweight = e->bweight;
240         }
241         return nv;
242 }
243
244
245
246 static int BME_bevel_is_split_vert(BME_Loop *l) {
247         /* look for verts that have already been added to the edge when
248          * beveling other polys; this can be determined by testing the
249          * vert and the edges around it for originality
250          */
251         if ((l->v->tflag1 & BME_BEVEL_ORIG)==0
252                         && (l->e->tflag1 & BME_BEVEL_ORIG)
253                         && (l->prev->e->tflag1 & BME_BEVEL_ORIG))
254         {
255                 return 1;
256         }
257         return 0;
258 }
259
260 /* get a vector, vec, that points from v1->co to wherever makes sense to
261  * the bevel operation as a whole based on the relationship between v1 and v2
262  * (won't necessarily be a vec from v1->co to v2->co, though it probably will be);
263  * the return value is -1 for failure, 0 if we used vert co's, and 1 if we used transform origins */
264 static int BME_bevel_get_vec(float *vec, BME_Vert *v1, BME_Vert *v2, BME_TransData_Head *td) {
265         BME_TransData *vtd1, *vtd2;
266
267         vtd1 = BME_get_transdata(td,v1);
268         vtd2 = BME_get_transdata(td,v2);
269         if (!vtd1 || !vtd2) {
270                 //printf("BME_bevel_get_vec() got called without proper BME_TransData\n");
271                 return -1;
272         }
273
274         /* compare the transform origins to see if we can use the vert co's;
275          * if they belong to different origins, then we will use the origins to determine
276          * the vector */
277         if (VecCompare(vtd1->org,vtd2->org,0.000001f)) {
278                 VECSUB(vec,v2->co,v1->co);
279                 if (VecLength(vec) < 0.000001f) {
280                         VecMulf(vec,0);
281                 }
282                 return 0;
283         }
284         else {
285                 VECSUB(vec,vtd2->org,vtd1->org);
286                 if (VecLength(vec) < 0.000001f) {
287                         VecMulf(vec,0);
288                 }
289                 return 1;
290         }
291 }
292
293 /* "Projects" a vector perpendicular to vec2 against vec1, such that
294  * the projected vec1 + vec2 has a min distance of 1 from the "edge" defined by vec2.
295  * note: the direction, is_forward, is used in conjunction with up_vec to determine
296  * whether this is a convex or concave corner. If it is a concave corner, it will
297  * be projected "backwards." If vec1 is before vec2, is_forward should be 0 (we are projecting backwards).
298  * vec1 is the vector to project onto (expected to be normalized)
299  * vec2 is the direction of projection (pointing away from vec1)
300  * up_vec is used for orientation (expected to be normalized)
301  * returns the length of the projected vector that lies along vec1 */
302 static float BME_bevel_project_vec(float *vec1, float *vec2, float *up_vec, int is_forward, BME_TransData_Head *td) {
303         float factor, vec3[3], tmp[3],c1,c2;
304
305         Crossf(tmp,vec1,vec2);
306         Normalize(tmp);
307         factor = Inpf(up_vec,tmp);
308         if ((factor > 0 && is_forward) || (factor < 0 && !is_forward)) {
309                 Crossf(vec3,vec2,tmp); /* hmm, maybe up_vec should be used instead of tmp */
310         }
311         else {
312                 Crossf(vec3,tmp,vec2); /* hmm, maybe up_vec should be used instead of tmp */
313         }
314         Normalize(vec3);
315         c1 = Inpf(vec3,vec1);
316         c2 = Inpf(vec1,vec1);
317         if (fabs(c1) < 0.000001f || fabs(c2) < 0.000001f) {
318                 factor = 0.0f;
319         }
320         else {
321                 factor = c2/c1;
322         }
323
324         return factor;
325 }
326
327 /* BME_bevel_split_edge() is the main math work-house; its responsibilities are:
328  * using the vert and the loop passed, get or make the split vert, set its coordinates
329  * and transform properties, and set the max limits.
330  * Finally, return the split vert. */
331 static BME_Vert *BME_bevel_split_edge(BME_Mesh *bm, BME_Vert *v, BME_Vert *v1, BME_Loop *l, float *up_vec, float value, BME_TransData_Head *td) {
332         BME_TransData *vtd, *vtd1, *vtd2;
333         BME_Vert *sv, *v2, *v3, *ov;
334         BME_Loop *lv1, *lv2;
335         BME_Edge *ne, *e1, *e2;
336         float maxfactor, scale, len, dis, vec1[3], vec2[3], t_up_vec[3];
337         int is_edge, forward, is_split_vert;
338
339         if (l == NULL) {
340                 /* what you call operator overloading in C :)
341                  * I wanted to use the same function for both wire edges and poly loops
342                  * so... here we walk around edges to find the needed verts */
343                 forward = 1;
344                 is_split_vert = 0;
345                 if (v->edge == NULL) {
346                         //printf("We can't split a loose vert's edge!\n");
347                         return NULL;
348                 }
349                 e1 = v->edge; /* we just use the first two edges */
350                 e2 = BME_disk_nextedge(v->edge, v);
351                 if (e1 == e2) {
352                         //printf("You need at least two edges to use BME_bevel_split_edge()\n");
353                         return NULL;
354                 }
355                 v2 = BME_edge_getothervert(e1, v);
356                 v3 = BME_edge_getothervert(e2, v);
357                 if (v1 != v2 && v1 != v3) {
358                         //printf("Error: more than 2 edges in v's disk cycle, or v1 does not share an edge with v\n");
359                         return NULL;
360                 }
361                 if (v1 == v2) {
362                         v2 = v3;
363                 }
364                 else {
365                         e1 = e2;
366                 }
367                 ov = BME_edge_getothervert(e1,v);
368                 sv = BME_split_edge(bm,v,e1,&ne,0);
369                 //BME_data_interp_from_verts(bm, v, ov, sv, 0.25); /*this is technically wrong...*/
370                 BME_assign_transdata(td, bm, sv, sv->co, sv->co, NULL, sv->co, 0, -1, -1, NULL); /* quick default */
371                 sv->tflag1 |= BME_BEVEL_BEVEL;
372                 ne->tflag1 = BME_BEVEL_ORIG; /* mark edge as original, even though it isn't */
373                 BME_bevel_get_vec(vec1,v1,v,td);
374                 BME_bevel_get_vec(vec2,v2,v,td);
375                 Crossf(t_up_vec,vec1,vec2);
376                 Normalize(t_up_vec);
377                 up_vec = t_up_vec;
378         }
379         else {
380                 /* establish loop direction */
381                 if (l->v == v) {
382                         forward = 1;
383                         lv1 = l->next;
384                         lv2 = l->prev;
385                         v1 = l->next->v;
386                         v2 = l->prev->v;
387                 }
388                 else if (l->next->v == v) {
389                         forward = 0;
390                         lv1 = l;
391                         lv2 = l->next->next;
392                         v1 = l->v;
393                         v2 = l->next->next->v;
394                 }
395                 else {
396                         //printf("ERROR: BME_bevel_split_edge() - v must be adjacent to l\n");
397                         return NULL;
398                 }
399
400                 if (BME_bevel_is_split_vert(lv1)) {
401                         is_split_vert = 1;
402                         sv = v1;
403                         if (forward) v1 = l->next->next->v;
404                         else v1 = l->prev->v;
405                 }
406                 else {
407                         is_split_vert = 0;
408                         ov = BME_edge_getothervert(l->e,v);
409                         sv = BME_split_edge(bm,v,l->e,&ne,0);
410                         //BME_data_interp_from_verts(bm, v, ov, sv, 0.25); /*this is technically wrong...*/
411                         BME_assign_transdata(td, bm, sv, sv->co, sv->co, NULL, sv->co, 0, -1, -1, NULL); /* quick default */
412                         sv->tflag1 |= BME_BEVEL_BEVEL;
413                         ne->tflag1 = BME_BEVEL_ORIG; /* mark edge as original, even though it isn't */
414                 }
415
416                 if (BME_bevel_is_split_vert(lv2)) {
417                         if (forward) v2 = lv2->prev->v;
418                         else v2 = lv2->next->v;
419                 }
420         }
421
422         is_edge = BME_bevel_get_vec(vec1,v,v1,td); /* get the vector we will be projecting onto */
423         BME_bevel_get_vec(vec2,v,v2,td); /* get the vector we will be projecting parallel to */
424         len = VecLength(vec1);
425         Normalize(vec1);
426
427         vtd = BME_get_transdata(td, sv);
428         vtd1 = BME_get_transdata(td, v);
429         vtd2 = BME_get_transdata(td,v1);
430
431         if (vtd1->loc == NULL) {
432                 /* this is a vert with data only for calculating initial weights */
433                 if (vtd1->weight < 0) {
434                         vtd1->weight = 0;
435                 }
436                 scale = vtd1->weight/vtd1->factor;
437                 if (!vtd1->max) {
438                         vtd1->max = BME_new_transdata_float(td);
439                         *vtd1->max = -1;
440                 }
441         }
442         else {
443                 scale = vtd1->weight;
444         }
445         vtd->max = vtd1->max;
446
447         if (is_edge && vtd1->loc != NULL) {
448                 maxfactor = vtd1->maxfactor;
449         }
450         else {
451                 maxfactor = scale*BME_bevel_project_vec(vec1,vec2,up_vec,forward,td);
452                 if (vtd->maxfactor > 0 && vtd->maxfactor < maxfactor) {
453                         maxfactor = vtd->maxfactor;
454                 }
455         }
456
457         dis = (v1->tflag1 & BME_BEVEL_ORIG)? len/3 : len/2;
458         if (is_edge || dis > maxfactor*value) {
459                 dis = maxfactor*value;
460         }
461         VECADDFAC(sv->co,v->co,vec1,dis);
462         VECSUB(vec1,sv->co,vtd1->org);
463         dis = VecLength(vec1);
464         Normalize(vec1);
465         BME_assign_transdata(td, bm, sv, vtd1->org, vtd1->org, vec1, sv->co, dis, scale, maxfactor, vtd->max);
466
467         return sv;
468 }
469
470 static float BME_bevel_set_max(BME_Vert *v1, BME_Vert *v2, float value, BME_TransData_Head *td) {
471         BME_TransData *vtd1, *vtd2;
472         float max, fac1, fac2, vec1[3], vec2[3], vec3[3];
473
474         BME_bevel_get_vec(vec1,v1,v2,td);
475         vtd1 = BME_get_transdata(td,v1);
476         vtd2 = BME_get_transdata(td,v2);
477
478         if (vtd1->loc == NULL) {
479                 fac1 = 0;
480         }
481         else {
482                 VECCOPY(vec2,vtd1->vec);
483                 VecMulf(vec2,vtd1->factor);
484                 if (Inpf(vec1, vec1)) {
485                         Projf(vec2,vec2,vec1);
486                         fac1 = VecLength(vec2)/value;
487                 }
488                 else {
489                         fac1 = 0;
490                 }
491         }
492
493         if (vtd2->loc == NULL) {
494                 fac2 = 0;
495         }
496         else {
497                 VECCOPY(vec3,vtd2->vec);
498                 VecMulf(vec3,vtd2->factor);
499                 if (Inpf(vec1, vec1)) {
500                         Projf(vec2,vec3,vec1);
501                         fac2 = VecLength(vec2)/value;
502                 }
503                 else {
504                         fac2 = 0;
505                 }
506         }
507
508         if (fac1 || fac2) {
509                 max = VecLength(vec1)/(fac1 + fac2);
510                 if (vtd1->max && (*vtd1->max < 0 || max < *vtd1->max)) {
511                         *vtd1->max = max;
512                 }
513                 if (vtd2->max && (*vtd2->max < 0 || max < *vtd2->max)) {
514                         *vtd2->max = max;
515                 }
516         }
517         else {
518                 max = -1;
519         }
520
521         return max;
522 }
523
524 static BME_Vert *BME_bevel_wire(BME_Mesh *bm, BME_Vert *v, float value, int res, int options, BME_TransData_Head *td) {
525         BME_Vert *ov1, *ov2, *v1, *v2;
526
527         ov1 = BME_edge_getothervert(v->edge, v);
528         ov2 = BME_edge_getothervert(BME_disk_nextedge(v->edge, v), v);
529
530         /* split the edges */
531         v1 = BME_bevel_split_edge(bm,v,ov1,NULL,NULL,value,td);
532         v1->tflag1 |= BME_BEVEL_NONMAN;
533         v2 = BME_bevel_split_edge(bm,v,ov2,NULL,NULL,value,td);
534         v2->tflag1 |= BME_BEVEL_NONMAN;
535
536         if (value > 0.5) {
537                 BME_bevel_set_max(v1,ov1,value,td);
538                 BME_bevel_set_max(v2,ov2,value,td);
539         }
540
541         /* remove the original vert */
542         if (res) {
543                 BME_JEKV(bm,v->edge,v);
544         }
545
546         return v1;
547 }
548
549 static BME_Loop *BME_bevel_edge(BME_Mesh *bm, BME_Loop *l, float value, int options, float *up_vec, BME_TransData_Head *td) {
550         BME_Vert *v1, *v2, *kv;
551         BME_Loop *kl=NULL, *nl;
552         BME_Edge *e;
553         BME_Poly *f;
554
555         f = l->f;
556         e = l->e;
557
558         if ((l->e->tflag1 & BME_BEVEL_BEVEL) == 0
559                 && ((l->v->tflag1 & BME_BEVEL_BEVEL) || (l->next->v->tflag1 & BME_BEVEL_BEVEL)))
560         { /* sanity check */
561                 return l;
562         }
563
564         /* checks and operations for prev edge */
565         /* first, check to see if this edge was inset previously */
566         if ((l->prev->e->tflag1 & BME_BEVEL_ORIG) == 0
567                 && (l->v->tflag1 & BME_BEVEL_NONMAN) == 0) {
568                 kl = l->prev->radial.next->data;
569                 if (kl->v == l->v) kl = kl->prev;
570                 else kl = kl->next;
571                 kv = l->v;
572         }
573         else {
574                 kv = NULL;
575         }
576         /* get/make the first vert to be used in SFME */
577         if (l->v->tflag1 & BME_BEVEL_NONMAN){
578                 v1 = l->v;
579         }
580         else { /* we'll need to split the previous edge */
581                 v1 = BME_bevel_split_edge(bm,l->v,NULL,l->prev,up_vec,value,td);
582         }
583         /* if we need to clean up geometry... */
584         if (kv) {
585                 l = l->next;
586                 if (kl->v == kv) {
587                         BME_split_face(bm,kl->f,kl->prev->v,kl->next->v,&nl,kl->prev->e);
588                         BME_JFKE(bm,((BME_Loop*)kl->prev->radial.next->data)->f,kl->f,kl->prev->e);
589                         BME_JEKV(bm,kl->e,kv);
590                 }
591                 else {
592                         BME_split_face(bm,kl->f,kl->next->next->v,kl->v,&nl,kl->next->e);
593                         BME_JFKE(bm,((BME_Loop*)kl->next->radial.next->data)->f,kl->f,kl->next->e);
594                         BME_JEKV(bm,kl->e,kv);
595                 }
596                 l = l->prev;
597         }
598
599         /* checks and operations for the next edge */
600         /* first, check to see if this edge was inset previously  */
601         if ((l->next->e->tflag1 & BME_BEVEL_ORIG) == 0
602                 && (l->next->v->tflag1 & BME_BEVEL_NONMAN) == 0) {
603                 kl = l->next->radial.next->data;
604                 if (kl->v == l->next->v) kl = kl->prev;
605                 else kl = kl->next;
606                 kv = l->next->v;
607         }
608         else {
609                 kv = NULL;
610         }
611         /* get/make the second vert to be used in SFME */
612         if (l->next->v->tflag1 & BME_BEVEL_NONMAN) {
613                 v2 = l->next->v;
614         }
615         else { /* we'll need to split the next edge */
616                 v2 = BME_bevel_split_edge(bm,l->next->v,NULL,l->next,up_vec,value,td);
617         }
618         /* if we need to clean up geometry... */
619         if (kv) {
620                 if (kl->v == kv) {
621                         BME_split_face(bm,kl->f,kl->prev->v,kl->next->v,&nl,kl->prev->e);
622                         BME_JFKE(bm,((BME_Loop*)kl->prev->radial.next->data)->f,kl->f,kl->prev->e);
623                         BME_JEKV(bm,kl->e,kv);
624                 }
625                 else {
626                         BME_split_face(bm,kl->f,kl->next->next->v,kl->v,&nl,kl->next->e);
627                         BME_JFKE(bm,((BME_Loop*)kl->next->radial.next->data)->f,kl->f,kl->next->e);
628                         BME_JEKV(bm,kl->e,kv);
629                 }
630         }
631
632         if ((v1->tflag1 & BME_BEVEL_NONMAN)==0 || (v2->tflag1 & BME_BEVEL_NONMAN)==0) {
633                 BME_split_face(bm,f,v2,v1,&l,e);
634                 l->e->tflag1 = BME_BEVEL_BEVEL;
635                 l = l->radial.next->data;
636         }
637
638         if (l->f != f){
639                 //printf("Whoops! You got something out of order in BME_bevel_edge()!\n");
640         }
641
642         return l;
643 }
644
645 static BME_Loop *BME_bevel_vert(BME_Mesh *bm, BME_Loop *l, float value, int options, float *up_vec, BME_TransData_Head *td) {
646         BME_Vert *v1, *v2;
647         BME_Poly *f;
648
649         /* get/make the first vert to be used in SFME */
650         /* may need to split the previous edge */
651         v1 = BME_bevel_split_edge(bm,l->v,NULL,l->prev,up_vec,value,td);
652
653         /* get/make the second vert to be used in SFME */
654         /* may need to split this edge (so move l) */
655         l = l->prev;
656         v2 = BME_bevel_split_edge(bm,l->next->v,NULL,l->next,up_vec,value,td);
657         l = l->next->next;
658
659         /* "cut off" this corner */
660         f = BME_split_face(bm,l->f,v2,v1,NULL,l->e);
661
662         return l;
663 }
664
665 /**
666  *                      BME_bevel_poly
667  *
668  *      Polygon inset tool:
669  *
670  *      Insets a polygon/face based on the tflag1's of its vertices
671  *      and edges. Used by the bevel tool only, for now.
672  *  The parameter "value" is the distance to inset (should be negative).
673  *  The parameter "options" is not currently used.
674  *
675  *      Returns -
676  *  A BME_Poly pointer to the resulting inner face.
677 */
678 static BME_Poly *BME_bevel_poly(BME_Mesh *bm, BME_Poly *f, float value, int options, BME_TransData_Head *td) {
679         BME_Loop *l, *ol;
680         BME_TransData *vtd1, *vtd2;
681         float up_vec[3], vec1[3], vec2[3], vec3[3], fac1, fac2, max = -1;
682         int len, i;
683
684         up_vec[0] = 0.0f;
685         up_vec[1] = 0.0f;
686         up_vec[2] = 0.0f;
687         /* find a good normal for this face (there's better ways, I'm sure) */
688         ol = f->loopbase;
689         l = ol->next;
690         for (i=0,ol=f->loopbase,l=ol->next; l->next!=ol; l=l->next) {
691                 BME_bevel_get_vec(vec1,l->next->v,ol->v,td);
692                 BME_bevel_get_vec(vec2,l->v,ol->v,td);
693                 Crossf(vec3,vec2,vec1);
694                 VECADD(up_vec,up_vec,vec3);
695                 i++;
696         }
697         VecMulf(up_vec,1.0f/i);
698         Normalize(up_vec);
699
700         for (i=0,len=f->len; i<len; i++,l=l->next) {
701                 if ((l->e->tflag1 & BME_BEVEL_BEVEL) && (l->e->tflag1 & BME_BEVEL_ORIG)) {
702                         max = 1.0f;
703                         l = BME_bevel_edge(bm, l, value, options, up_vec, td);
704                 }
705                 else if ((l->v->tflag1 & BME_BEVEL_BEVEL) && (l->v->tflag1 & BME_BEVEL_ORIG) && (l->prev->e->tflag1 & BME_BEVEL_BEVEL) == 0) {
706                         max = 1.0f;
707                         l = BME_bevel_vert(bm, l, value, options, up_vec, td);
708                 }
709         }
710
711         /* max pass */
712         if (value > 0.5 && max > 0) {
713                 max = -1;
714                 for (i=0,len=f->len; i<len; i++,l=l->next) {
715                         if ((l->e->tflag1 & BME_BEVEL_BEVEL) || (l->e->tflag1 & BME_BEVEL_ORIG)) {
716                                 BME_bevel_get_vec(vec1,l->v,l->next->v,td);
717                                 vtd1 = BME_get_transdata(td,l->v);
718                                 vtd2 = BME_get_transdata(td,l->next->v);
719                                 if (vtd1->loc == NULL) {
720                                         fac1 = 0;
721                                 }
722                                 else {
723                                         VECCOPY(vec2,vtd1->vec);
724                                         VecMulf(vec2,vtd1->factor);
725                                         if (Inpf(vec1, vec1)) {
726                                                 Projf(vec2,vec2,vec1);
727                                                 fac1 = VecLength(vec2)/value;
728                                         }
729                                         else {
730                                                 fac1 = 0;
731                                         }
732                                 }
733                                 if (vtd2->loc == NULL) {
734                                         fac2 = 0;
735                                 }
736                                 else {
737                                         VECCOPY(vec3,vtd2->vec);
738                                         VecMulf(vec3,vtd2->factor);
739                                         if (Inpf(vec1, vec1)) {
740                                                 Projf(vec2,vec3,vec1);
741                                                 fac2 = VecLength(vec2)/value;
742                                         }
743                                         else {
744                                                 fac2 = 0;
745                                         }
746                                 }
747                                 if (fac1 || fac2) {
748                                         max = VecLength(vec1)/(fac1 + fac2);
749                                         if (vtd1->max && (*vtd1->max < 0 || max < *vtd1->max)) {
750                                                 *vtd1->max = max;
751                                         }
752                                         if (vtd2->max && (*vtd2->max < 0 || max < *vtd2->max)) {
753                                                 *vtd2->max = max;
754                                         }
755                                 }
756                         }
757                 }
758         }
759
760         return l->f;
761 }
762
763 static void BME_bevel_add_vweight(BME_TransData_Head *td, BME_Mesh *bm, BME_Vert *v, float weight, float factor, int options) {
764         BME_TransData *vtd;
765
766         if (v->tflag1 & BME_BEVEL_NONMAN) return;
767         v->tflag1 |= BME_BEVEL_BEVEL;
768         if ( (vtd = BME_get_transdata(td, v)) ) {
769                 if (options & BME_BEVEL_EMIN) {
770                         vtd->factor = 1.0;
771                         if (vtd->weight < 0 || weight < vtd->weight) {
772                                 vtd->weight = weight;
773                         }
774                 }
775                 else if (options & BME_BEVEL_EMAX) {
776                         vtd->factor = 1.0;
777                         if (weight > vtd->weight) {
778                                 vtd->weight = weight;
779                         }
780                 }
781                 else if (vtd->weight < 0) {
782                         vtd->factor = factor;
783                         vtd->weight = weight;
784                 }
785                 else {
786                         vtd->factor += factor; /* increment number of edges with weights (will be averaged) */
787                         vtd->weight += weight; /* accumulate all the weights */
788                 }
789         }
790         else {
791                 /* we'll use vtd->loc == NULL to mark that this vert is not moving */
792                 vtd = BME_assign_transdata(td, bm, v, v->co, NULL, NULL, NULL, factor, weight, -1, NULL);
793         }
794 }
795
796 static float BME_bevel_get_angle(BME_Mesh *bm, BME_Edge *e, BME_Vert *v) {
797         BME_Vert *v1, *v2;
798         BME_Loop *l1, *l2;
799         float vec1[3], vec2[3], vec3[3], vec4[3];
800
801         l1 = e->loop;
802         l2 = e->loop->radial.next->data;
803         if (l1->v == v) {
804                 v1 = l1->prev->v;
805                 v2 = l1->next->v;
806         }
807         else {
808                 v1 = l1->next->next->v;
809                 v2 = l1->v;
810         }
811         VECSUB(vec1,v1->co,v->co);
812         VECSUB(vec2,v2->co,v->co);
813         Crossf(vec3,vec1,vec2);
814
815         l1 = l2;
816         if (l1->v == v) {
817                 v1 = l1->prev->v;
818                 v2 = l1->next->v;
819         }
820         else {
821                 v1 = l1->next->next->v;
822                 v2 = l1->v;
823         }
824         VECSUB(vec1,v1->co,v->co);
825         VECSUB(vec2,v2->co,v->co);
826         Crossf(vec4,vec2,vec1);
827
828         Normalize(vec3);
829         Normalize(vec4);
830
831         return Inpf(vec3,vec4);
832 }
833 static int BME_face_sharededges(BME_Poly *f1, BME_Poly *f2){
834         BME_Loop *l;
835         int count = 0;
836         
837         l = f1->loopbase;
838         do{
839                 if(BME_radial_find_face(l->e,f2)) count++;
840                 l = l->next;
841         }while(l != f1->loopbase);
842         
843         return count;
844 }
845 /**
846  *                      BME_bevel_initialize
847  *
848  *      Prepare the mesh for beveling:
849  *
850  *      Sets the tflag1's of the mesh elements based on the options passed.
851  *
852  *      Returns -
853  *  A BME_Mesh pointer to the BMesh passed as a parameter.
854 */
855 static BME_Mesh *BME_bevel_initialize(BME_Mesh *bm, int options, int defgrp_index, float angle, BME_TransData_Head *td) {
856         BME_Vert *v;
857         BME_Edge *e;
858         BME_Poly *f;
859         BME_TransData *vtd;
860         MDeformVert *dvert;
861         MDeformWeight *dw;
862         int len;
863         float weight, threshold;
864
865         /* vert pass */
866         for (v=bm->verts.first; v; v=v->next) {
867                 dvert = NULL;
868                 dw = NULL;
869                 v->tflag1 = BME_BEVEL_ORIG;
870                 /* originally coded, a vertex gets tagged with BME_BEVEL_BEVEL in this pass if
871                  * the vert is manifold (or is shared by only two edges - wire bevel)
872                  * BME_BEVEL_SELECT is passed and the vert has v->flag&SELECT or
873                  * BME_BEVEL_VWEIGHT is passed, and the vert has a defgrp and weight
874                  * BME_BEVEL_ANGLE is not passed
875                  * BME_BEVEL_EWEIGHT is not passed
876                  */
877                 /* originally coded, a vertex gets tagged with BME_BEVEL_NONMAN in this pass if
878                  * the vert is loose, shared by multiple regions, or is shared by wire edges
879                  * note: verts belonging to edges of open meshes are not tagged with BME_BEVEL_NONMAN
880                  */
881                 /* originally coded, a vertex gets a transform weight set in this pass if
882                  * BME_BEVEL_VWEIGHT is passed, and the vert has a defgrp and weight
883                  */
884
885                 /* get disk cycle length */
886                 if (v->edge == NULL) {
887                         len = 0;
888                 }
889                 else {
890                         len = BME_cycle_length(BME_disk_getpointer(v->edge,v));
891                         /* we'll assign a default transform data to every vert (except the loose ones) */
892                         vtd = BME_assign_transdata(td, bm, v, v->co, v->co, NULL, NULL, 0, -1, -1, NULL);
893                 }
894
895                 /* check for non-manifold vert */
896                 if (BME_is_nonmanifold_vert(bm,v)) {
897                         v->tflag1 |= BME_BEVEL_NONMAN;
898                 }
899
900                 /* BME_BEVEL_BEVEL tests */
901                 if ((v->tflag1 & BME_BEVEL_NONMAN) == 0 || len == 2) { /* either manifold vert, or wire vert */
902                         if (((options & BME_BEVEL_SELECT) && (v->flag & SELECT))
903                                 || ((options & BME_BEVEL_WEIGHT) && (options & BME_BEVEL_VERT)) /* use weights for verts */
904                                 || ((options & BME_BEVEL_ANGLE) == 0
905                                         && (options & BME_BEVEL_SELECT) == 0
906                                         && (options & BME_BEVEL_WEIGHT) == 0))
907                         {
908                                 if (options & BME_BEVEL_WEIGHT) {
909                                         /* do vert weight stuff */
910                                         //~ dvert = CustomData_em_get(&bm->vdata,v->data,CD_MDEFORMVERT);
911                                         //~ if (!dvert) continue;
912                                         //~ for (i = 0; i < dvert->totweight; ++i) {
913                                                 //~ if(dvert->dw[i].def_nr == defgrp_index) {
914                                                         //~ dw = &dvert->dw[i];
915                                                         //~ break;
916                                                 //~ }
917                                         //~ }
918                                         //~ if (!dw || dw->weight == 0.0) continue;
919                                         if (v->bweight == 0.0) continue;
920                                         vtd = BME_assign_transdata(td, bm, v, v->co, v->co, NULL, NULL, 1.0, v->bweight, -1, NULL);
921                                         v->tflag1 |= BME_BEVEL_BEVEL;
922                                 }
923                                 else {
924                                         vtd = BME_assign_transdata(td, bm, v, v->co, v->co, NULL, NULL, 1.0, 1.0, -1, NULL);
925                                         v->tflag1 |= BME_BEVEL_BEVEL;
926                                 }
927                         }
928                 }
929         }
930
931         /* edge pass */
932         threshold = (float)cos((angle + 0.00001) * M_PI / 180.0);
933         for (e=bm->edges.first; e; e=e->next) {
934                 e->tflag1 = BME_BEVEL_ORIG;
935                 weight = 0.0;
936                 /* originally coded, an edge gets tagged with BME_BEVEL_BEVEL in this pass if
937                  * BME_BEVEL_VERT is not set
938                  * the edge is manifold (shared by exactly two faces)
939                  * BME_BEVEL_SELECT is passed and the edge has e->flag&SELECT or
940                  * BME_BEVEL_EWEIGHT is passed, and the edge has the crease set or
941                  * BME_BEVEL_ANGLE is passed, and the edge is sharp enough
942                  * BME_BEVEL_VWEIGHT is passed, and both verts are set for bevel
943                  */
944                 /* originally coded, a vertex gets tagged with BME_BEVEL_BEVEL in this pass if
945                  * the vert belongs to the edge
946                  * the vert is not tagged with BME_BEVEL_NONMAN
947                  * the edge is eligible for bevel (even if BME_BEVEL_VERT is set, or the edge is shared by less than 2 faces)
948                  */
949                 /* originally coded, a vertex gets a transform weight set in this pass if
950                  * the vert belongs to the edge
951                  * the edge has a weight
952                  */
953                 /* note: edge weights are cumulative at the verts,
954                  * i.e. the vert's weight is the average of the weights of its weighted edges
955                  */
956
957                 if (e->loop == NULL) {
958                         len = 0;
959                         e->v1->tflag1 |= BME_BEVEL_NONMAN;
960                         e->v2->tflag1 |= BME_BEVEL_NONMAN;
961                 }
962                 else {
963                         len = BME_cycle_length(&(e->loop->radial));
964                 }
965
966                 if (len > 2) {
967                         /* non-manifold edge of the worst kind */
968                         continue;
969                 }
970
971                 if ((options & BME_BEVEL_SELECT) && (e->flag & SELECT)) {
972                         weight = 1.0;
973                         /* stupid editmode doesn't always flush selections, or something */
974                         e->v1->flag |= SELECT;
975                         e->v2->flag |= SELECT;
976                 }
977                 else if ((options & BME_BEVEL_WEIGHT) && (options & BME_BEVEL_VERT) == 0) {
978                         weight = e->bweight;
979                 }
980                 else if (options & BME_BEVEL_ANGLE) {
981                         if ((e->v1->tflag1 & BME_BEVEL_NONMAN) == 0 && BME_bevel_get_angle(bm,e,e->v1) < threshold) {
982                                 e->tflag1 |= BME_BEVEL_BEVEL;
983                                 e->v1->tflag1 |= BME_BEVEL_BEVEL;
984                                 BME_bevel_add_vweight(td, bm, e->v1, 1.0, 1.0, options);
985                         }
986                         else {
987                                 BME_bevel_add_vweight(td, bm, e->v1, 0.0, 1.0, options);
988                         }
989                         if ((e->v2->tflag1 & BME_BEVEL_NONMAN) == 0 && BME_bevel_get_angle(bm,e,e->v2) < threshold) {
990                                 e->tflag1 |= BME_BEVEL_BEVEL;
991                                 e->v2->tflag1 |= BME_BEVEL_BEVEL;
992                                 BME_bevel_add_vweight(td, bm, e->v2, 1.0, 1.0, options);
993                         }
994                         else {
995                                 BME_bevel_add_vweight(td, bm, e->v2, 0.0, 1.0, options);
996                         }
997                 }
998                 //~ else if ((options & BME_BEVEL_VWEIGHT) && (options & BME_BEVEL_VERT) == 0) {
999                         //~ if ((e->v1->tflag1 & BME_BEVEL_BEVEL) && (e->v2->tflag1 & BME_BEVEL_BEVEL)) {
1000                                 //~ e->tflag1 |= BME_BEVEL_BEVEL;
1001                         //~ }
1002                 //~ }
1003                 else if ((options & BME_BEVEL_SELECT) == 0
1004                         && (options & BME_BEVEL_VERT) == 0)
1005                 {
1006                         weight = 1.0;
1007                 }
1008
1009                 if (weight > 0.0) {
1010                         e->tflag1 |= BME_BEVEL_BEVEL;
1011                         BME_bevel_add_vweight(td, bm, e->v1, weight, 1.0, options);
1012                         BME_bevel_add_vweight(td, bm, e->v2, weight, 1.0, options);
1013                 }
1014
1015                 if (len != 2 || options & BME_BEVEL_VERT) {
1016                         e->tflag1 &= ~BME_BEVEL_BEVEL;
1017                 }
1018         }
1019
1020         /* face pass */
1021         for (f=bm->polys.first; f; f=f->next) f->tflag1 = BME_BEVEL_ORIG;
1022
1023         /*clean up edges with 2 faces that share more than one edge*/
1024         for (e=bm->edges.first; e; e=e->next){
1025                 if(e->tflag1 & BME_BEVEL_BEVEL){
1026                         int count = 0;
1027                         count = BME_face_sharededges(e->loop->f, ((BME_Loop*)e->loop->radial.next->data)->f);
1028                         if(count > 1){
1029                                 e->tflag1 &= ~BME_BEVEL_BEVEL;
1030                         }       
1031                 }
1032         }
1033
1034         return bm;
1035 }
1036
1037 /* tags all elements as originals */
1038 static BME_Mesh *BME_bevel_reinitialize(BME_Mesh *bm) {
1039         BME_Vert *v;
1040         BME_Edge *e;
1041         BME_Poly *f;
1042
1043         for (v = bm->verts.first; v; v=v->next) {
1044                 v->tflag1 |= BME_BEVEL_ORIG;
1045         }
1046
1047         for (e=bm->edges.first; e; e=e->next) {
1048                 e->tflag1 |= BME_BEVEL_ORIG;
1049         }
1050
1051         for (f=bm->polys.first; f; f=f->next) {
1052                 f->tflag1 |= BME_BEVEL_ORIG;
1053         }
1054
1055         return bm;
1056 }
1057
1058 /**
1059  *                      BME_bevel_mesh
1060  *
1061  *      Mesh beveling tool:
1062  *
1063  *      Bevels an entire mesh. It currently uses the tflag1's of
1064  *      its vertices and edges to track topological changes.
1065  *  The parameter "value" is the distance to inset (should be negative).
1066  *  The parameter "options" is not currently used.
1067  *
1068  *      Returns -
1069  *  A BME_Mesh pointer to the BMesh passed as a parameter.
1070 */
1071
1072 static void bmesh_dissolve_disk(BME_Mesh *bm, BME_Vert *v){
1073         BME_Poly *f;
1074         BME_Edge *e;
1075         int done, len;
1076         
1077         if(v->edge){
1078                 done = 0;
1079                 while(!done){
1080                         done = 1;
1081                         e = v->edge; /*loop the edge looking for a edge to dissolve*/
1082                         do{
1083                                 f = NULL;
1084                                 len = BME_cycle_length(&(e->loop->radial));
1085                                 if(len == 2){
1086                                         f = BME_JFKE_safe(bm,e->loop->f, ((BME_Loop*)(e->loop->radial.next->data))->f, e);
1087                                 }
1088                                 if(f){ 
1089                                         done = 0;
1090                                         break;
1091                                 }
1092                                 e = BME_disk_nextedge(e,v);
1093                         }while(e != v->edge);
1094                 }
1095                 BME_JEKV(bm,v->edge,v);
1096         }
1097 }
1098 static BME_Mesh *BME_bevel_mesh(BME_Mesh *bm, float value, int res, int options, int defgrp_index, BME_TransData_Head *td) {
1099         BME_Vert *v, *nv;
1100         BME_Edge *e, *oe;
1101         BME_Loop *l, *l2;
1102         BME_Poly *f;
1103         unsigned int i, len;
1104
1105         for (f=bm->polys.first; f; f=f->next) {
1106                 if(f->tflag1 & BME_BEVEL_ORIG) {
1107                         BME_bevel_poly(bm,f,value,options,td);
1108                 }
1109         }
1110
1111         /* here we will loop through all the verts to clean up the left over geometry */
1112         /* crazy idea. when res == 0, don't remove the original geometry */
1113         for (v = bm->verts.first; v; /* we may kill v, so increment in-loop */) {
1114                 nv = v->next;
1115                 if ((v->tflag1 & BME_BEVEL_NONMAN) && (v->tflag1 & BME_BEVEL_BEVEL) && (v->tflag1 & BME_BEVEL_ORIG)) {
1116                         v = BME_bevel_wire(bm, v, value, res, options, td);
1117                 }
1118                 else if (res && ((v->tflag1 & BME_BEVEL_BEVEL) && (v->tflag1 & BME_BEVEL_ORIG))) {
1119                         int count = 0;
1120                         /* first, make sure we're not sitting on an edge to be removed */
1121                         oe = v->edge;
1122                         e = BME_disk_nextedge(oe,v);
1123                         while ((e->tflag1 & BME_BEVEL_BEVEL) && (e->tflag1 & BME_BEVEL_ORIG)) {
1124                                 e = BME_disk_nextedge(e,v);
1125                                 if (e == oe) {
1126                                         //printf("Something's wrong! We can't remove every edge here!\n");
1127                                         break;
1128                                 }
1129                         }
1130                         /* look for original edges, and remove them */
1131                         oe = e;
1132                         while ( (e = BME_disk_next_edgeflag(oe, v, 0, BME_BEVEL_ORIG | BME_BEVEL_BEVEL)) ) {
1133                                 count++;
1134                                 /* join the faces (we'll split them later) */
1135                                 f = BME_JFKE_safe(bm,e->loop->f,((BME_Loop*)e->loop->radial.next->data)->f,e);
1136                                 if (!f){
1137                                         //printf("Non-manifold geometry not getting tagged right?\n");
1138                                 }
1139                         }
1140
1141                         /*need to do double check *before* you bevel to make sure that manifold edges are for two faces that share only *one* edge to make sure it doesnt hang here!*/
1142
1143
1144                         /* all original edges marked to be beveled have been removed;
1145                          * now we need to link up the edges for this "corner" */
1146                         len = BME_cycle_length(BME_disk_getpointer(v->edge, v));
1147                         for (i=0,e=v->edge; i < len; i++,e=BME_disk_nextedge(e,v)) {
1148                                 l = e->loop;
1149                                 l2 = l->radial.next->data;
1150                                 if (l->v != v) l = l->next;
1151                                 if (l2->v != v) l2 = l2->next;
1152                                 /* look for faces that have had the original edges removed via JFKE */
1153                                 if (l->f->len > 3) {
1154                                         BME_split_face(bm,l->f,l->next->v,l->prev->v,&l,l->e); /* clip this corner off */
1155                                         if (len > 2) {
1156                                                 l->e->tflag1 |= BME_BEVEL_BEVEL;
1157                                         }
1158                                 }
1159                                 if (l2->f->len > 3) {
1160                                         BME_split_face(bm,l2->f,l2->next->v,l2->prev->v,&l,l2->e); /* clip this corner off */
1161                                         if (len > 2) {
1162                                                 l->e->tflag1 |= BME_BEVEL_BEVEL;
1163                                         }
1164                                 }
1165                         }
1166                         bmesh_dissolve_disk(bm, v);
1167                 }
1168                 v = nv;
1169         }
1170
1171         return bm;
1172 }
1173
1174 static BME_Mesh *BME_tesselate(BME_Mesh *bm) {
1175         BME_Loop *l, *nextloop;
1176         BME_Poly *f;
1177
1178         for (f=bm->polys.first; f; f=f->next) {
1179                 l = f->loopbase;
1180                 while (l->f->len > 4) {
1181                         nextloop = l->next->next->next;
1182                         /* make a quad */
1183                         BME_split_face(bm,l->f,l->v,nextloop->v,NULL,l->e);
1184                         l = nextloop;
1185                 }
1186         }
1187         return bm;
1188 }
1189
1190
1191 /*Main bevel function:
1192         Should be only one exported
1193
1194 */
1195
1196 /* options that can be passed:
1197  * BME_BEVEL_VWEIGHT    <---- v, Look at vertex weights; use defgrp_index if option is present
1198  * BME_BEVEL_SELECT             <---- v,e, check selection for verts and edges
1199  * BME_BEVEL_ANGLE              <---- v,e, don't bevel-tag verts - tag verts per edge
1200  * BME_BEVEL_VERT               <---- e, don't tag edges
1201  * BME_BEVEL_EWEIGHT    <---- e, use crease flag for now
1202  * BME_BEVEL_PERCENT    <---- Will need to think about this one; will probably need to incorporate into actual bevel routine
1203  * BME_BEVEL_RADIUS             <---- Will need to think about this one; will probably need to incorporate into actual bevel routine
1204  * All weights/limits are stored per-vertex
1205  */
1206 BME_Mesh *BME_bevel(BME_Mesh *bm, float value, int res, int options, int defgrp_index, float angle, BME_TransData_Head **rtd) {
1207         BME_Vert *v;
1208         BME_TransData_Head *td;
1209         BME_TransData *vtd;
1210         int i;
1211         float fac=1, d;
1212
1213         td = BME_init_transdata(BLI_MEMARENA_STD_BUFSIZE);
1214
1215         BME_bevel_initialize(bm, options, defgrp_index, angle, td);
1216
1217         /* recursion math courtesy of Martin Poirier (theeth) */
1218         for (i=0; i<res-1; i++) {
1219                 if (i==0) fac += 1.0f/3.0f; else fac += 1.0f/(3 * i * 2.0f);
1220         }
1221         d = 1.0f/fac;
1222         /* crazy idea. if res == 0, don't remove original geometry */
1223         for (i=0; i<res || (res==0 && i==0); i++) {
1224                 if (i != 0) BME_bevel_reinitialize(bm);
1225                 BME_model_begin(bm);
1226                 BME_bevel_mesh(bm,d,res,options,defgrp_index,td);
1227                 BME_model_end(bm);
1228                 if (i==0) d /= 3; else d /= 2;
1229         }
1230
1231         BME_tesselate(bm);
1232
1233         if (rtd) {
1234                 *rtd = td;
1235                 return bm;
1236         }
1237
1238         /* transform pass */
1239         for (v = bm->verts.first; v; v=v->next) {
1240                 if ( (vtd = BME_get_transdata(td, v)) ) {
1241                         if (vtd->max && (*vtd->max > 0 && value > *vtd->max)) {
1242                                 d = *vtd->max;
1243                         }
1244                         else {
1245                                 d = value;
1246                         }
1247                         VECADDFAC(v->co,vtd->org,vtd->vec,vtd->factor*d);
1248                 }
1249                 v->tflag1 = 0;
1250         }
1251
1252         BME_free_transdata(td);
1253         return bm;
1254 }