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