merge with trunk at r31523
[blender.git] / source / blender / editors / mesh / editface.c
1 /**
2  * $Id$
3  *
4  * ***** BEGIN GPL LICENSE BLOCK *****
5  *
6  * This program is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU General Public License
8  * as published by the Free Software Foundation; either version 2
9  * of the License, or (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software Foundation,
18  * Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
19  *
20  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
21  * All rights reserved.
22  *
23  * Contributor(s): Blender Foundation, Campbell Barton
24  *
25  * ***** END GPL LICENSE BLOCK *****
26  */
27
28
29 #include <math.h>
30 #include <string.h>
31
32 #include "MEM_guardedalloc.h"
33
34 #include "BLI_blenlib.h"
35 #include "BLI_math.h"
36 #include "BLI_heap.h"
37 #include "BLI_edgehash.h"
38 #include "BLI_editVert.h"
39
40 #include "IMB_imbuf_types.h"
41 #include "IMB_imbuf.h"
42
43 #include "DNA_meshdata_types.h"
44 #include "DNA_object_types.h"
45 #include "DNA_scene_types.h"
46
47 #include "BKE_DerivedMesh.h"
48 #include "BKE_global.h"
49 #include "BKE_mesh.h"
50 #include "BKE_context.h"
51 #include "BKE_tessmesh.h"
52
53 #include "BIF_gl.h"
54
55
56 #ifndef DISABLE_PYTHON
57 //#include "BPY_extern.h"
58 //#include "BPY_menus.h"
59 #endif
60
61 #include "ED_mesh.h"
62 #include "ED_screen.h"
63 #include "ED_view3d.h"
64
65 #include "WM_api.h"
66 #include "WM_types.h"
67
68 /* own include */
69 #include "mesh_intern.h"
70
71 /* ***************** XXX **************** */
72 static int pupmenu(const char *dummy) {return 0;}
73 /* ***************** XXX **************** */
74
75
76 /* copy the face flags, most importantly selection from the mesh to the final derived mesh,
77  * use in object mode when selecting faces (while painting) */
78 void object_facesel_flush_dm(Object *ob)
79 {
80         Mesh *me= get_mesh(ob);
81         DerivedMesh *dm= ob->derivedFinal;
82         MPoly *faces, *mf, *mf_orig;
83         DMFaceIter *fiter;
84         int *index = NULL;
85         int totface;
86         int i;
87         
88         if(me==NULL || dm==NULL)
89                 return;
90
91         fiter = dm->newFaceIter(dm);
92         totface = dm->getNumFaces(dm);
93
94         for (i=0; !fiter->done; fiter->step(fiter), i++) {
95                 index = fiter->getCDData(fiter, CD_ORIGINDEX, -1);
96                 if (!index) {
97                         fiter->free(fiter);
98                         return;
99                 }
100                 
101                 mf_orig = me->mpoly + *index;
102                 fiter->flags = mf_orig->flag; 
103         }
104
105         fiter->free(fiter);
106 }
107
108 /* returns 0 if not found, otherwise 1 */
109 int facesel_face_pick(struct bContext *C, Mesh *me, Object *ob, 
110                                           short *mval, unsigned int *index, short rect)
111 {
112         Scene *scene = CTX_data_scene(C);
113         ViewContext vc;
114         view3d_set_viewcontext(C, &vc);
115
116         if (!me || me->totpoly==0)
117                 return 0;
118
119         /*we can't assume mfaces have a correct origindex layer that indices to mpolys.
120           so instead we have to regenerate the tesselation faces altogether.
121           
122           the final 0, 0 paramters causes it to use the index of each mpoly, instead
123           of reading from the origindex layer.*/
124         me->totface = mesh_recalcTesselation(&me->fdata, &me->ldata, &me->pdata, 
125                 me->mvert, me->totface, me->totloop, me->totpoly, 0, 0);
126         mesh_update_customdata_pointers(me);
127         makeDerivedMesh(scene, ob, NULL, CD_MASK_BAREMESH);
128
129         // XXX  if (v3d->flag & V3D_INVALID_BACKBUF) {
130 // XXX drawview.c!              check_backbuf();
131 // XXX          persp(PERSP_VIEW);
132 // XXX  }
133
134         if (rect) {
135                 /* sample rect to increase changes of selecting, so that when clicking
136                    on an edge in the backbuf, we can still select a face */
137
138                 int dist;
139                 *index = view3d_sample_backbuf_rect(&vc, mval, 3, 1, me->totface+1, &dist,0,NULL, NULL);
140         }
141         else {
142                 /* sample only on the exact position */
143                 *index = view3d_sample_backbuf(&vc, mval[0], mval[1]);
144         }
145
146         if ((*index)<=0 || (*index)>(unsigned int)me->totpoly)
147                 return 0;
148
149         (*index)--;
150         
151         return 1;
152 }
153
154 /* last_sel, use em->act_face otherwise get the last selected face in the editselections
155  * at the moment, last_sel is mainly useful for gaking sure the space image dosnt flicker */
156 MTexPoly *EDBM_get_active_mtface(BMEditMesh *em, BMFace **act_efa, int sloppy)
157 {
158         BMFace *efa = NULL;
159         BMLoop *l;
160         BMIter iter, liter;
161         
162         if(!EDBM_texFaceCheck(em))
163                 return NULL;
164         
165         efa = EDBM_get_actFace(em, sloppy);
166         
167         if (efa) {
168                 if (act_efa) *act_efa = efa; 
169                 return CustomData_bmesh_get(&em->bm->pdata, efa->head.data, CD_MTEXPOLY);
170         }
171
172         if (act_efa) *act_efa= NULL;
173         return NULL;
174 }
175
176 void reveal_tface(Scene *scene)
177 {
178         Mesh *me;
179         MPoly *mface;
180         int a;
181         
182         me= get_mesh(OBACT);
183         if(me==0 || me->totpoly==0) return;
184         
185         mface= me->mpoly;
186         a= me->totpoly;
187         while(a--) {
188                 if(mface->flag & ME_HIDE) {
189                         mface->flag |= ME_FACE_SEL;
190                         mface->flag -= ME_HIDE;
191                 }
192                 mface++;
193         }
194
195         object_facesel_flush_dm(OBACT);
196 // XXX notifier!        object_tface_flags_changed(OBACT, 0);
197 }
198
199 void hide_tface(Scene *scene)
200 {
201         Mesh *me;
202         MPoly *mface;
203         int a;
204         int shift=0, alt= 0; // XXX
205         
206         me= get_mesh(OBACT);
207         if(me==0 || me->totpoly==0) return;
208         
209         if(alt) {
210                 reveal_tface(scene);
211                 return;
212         }
213         
214         mface= me->mpoly;
215         a= me->totpoly;
216         while(a--) {
217                 if(mface->flag & ME_HIDE);
218                 else {
219                         if(shift) {
220                                 if( (mface->flag & ME_FACE_SEL)==0) mface->flag |= ME_HIDE;
221                         }
222                         else {
223                                 if( (mface->flag & ME_FACE_SEL)) mface->flag |= ME_HIDE;
224                         }
225                 }
226                 if(mface->flag & ME_HIDE) mface->flag &= ~ME_FACE_SEL;
227                 
228                 mface++;
229         }
230         
231         object_facesel_flush_dm(OBACT);
232 // XXX notifier!                object_tface_flags_changed(OBACT, 0);
233 }
234
235 /* Set tface seams based on edge data, uses hash table to find seam edges. */
236
237 static void hash_add_face(EdgeHash *ehash, MPoly *mf, MLoop *mloop)
238 {
239         MLoop *ml, *ml2;
240         int i;
241
242         for (i=0, ml=mloop; i<mf->totloop; i++, ml++) {
243                 ml2 = mloop + (i+1) % mf->totloop;
244                 BLI_edgehash_insert(ehash, ml->v, ml2->v, NULL);
245         }
246 }
247
248
249 void select_linked_tfaces_with_seams(int mode, Mesh *me, unsigned int index)
250 {
251         EdgeHash *ehash, *seamhash;
252         MPoly *mf;
253         MLoop *ml;
254         MEdge *med;
255         char *linkflag;
256         int a, b, doit=1, mark=0;
257
258         ehash= BLI_edgehash_new();
259         seamhash = BLI_edgehash_new();
260         linkflag= MEM_callocN(sizeof(char)*me->totpoly, "linkflaguv");
261
262         for(med=me->medge, a=0; a < me->totedge; a++, med++)
263                 if(med->flag & ME_SEAM)
264                         BLI_edgehash_insert(seamhash, med->v1, med->v2, NULL);
265
266         if (mode==0 || mode==1) {
267                 /* only put face under cursor in array */
268                 mf= ((MPoly*)me->mpoly) + index;
269                 hash_add_face(ehash, mf, me->mloop + mf->loopstart);
270                 linkflag[index]= 1;
271         }
272         else {
273                 /* fill array by selection */
274                 mf= me->mpoly;
275                 for(a=0; a<me->totpoly; a++, mf++) {
276                         if(mf->flag & ME_HIDE);
277                         else if(mf->flag & ME_FACE_SEL) {
278                                 hash_add_face(ehash, mf, me->mloop + mf->loopstart);
279                                 linkflag[a]= 1;
280                         }
281                 }
282         }
283
284         while(doit) {
285                 doit= 0;
286
287                 /* expand selection */
288                 mf= me->mpoly;
289                 for(a=0; a<me->totpoly; a++, mf++) {
290                         if(mf->flag & ME_HIDE)
291                                 continue;
292
293                         if(!linkflag[a]) {
294                                 MLoop *mnextl;
295                                 mark= 0;
296
297                                 ml = me->mloop + mf->loopstart;
298                                 for (b=0; b<mf->totloop; b++, ml++) {
299                                         mnextl = b < mf->totloop-1 ? ml - 1 : me->mloop + mf->loopstart;
300                                         if (!BLI_edgehash_haskey(seamhash, ml->v, mnextl->v))
301                                                 if (!BLI_edgehash_haskey(ehash, ml->v, mnextl->v))
302                                                         mark = 1;
303                                 }
304
305                                 if(mark) {
306                                         linkflag[a]= 1;
307                                         hash_add_face(ehash, mf, me->mloop + mf->loopstart);
308                                         doit= 1;
309                                 }
310                         }
311                 }
312
313         }
314
315         BLI_edgehash_free(ehash, NULL);
316         BLI_edgehash_free(seamhash, NULL);
317
318         if(mode==0 || mode==2) {
319                 for(a=0, mf=me->mpoly; a<me->totpoly; a++, mf++)
320                         if(linkflag[a])
321                                 mf->flag |= ME_FACE_SEL;
322                         else
323                                 mf->flag &= ~ME_FACE_SEL;
324         }
325         else if(mode==1) {
326                 for(a=0, mf=me->mpoly; a<me->totpoly; a++, mf++)
327                         if(linkflag[a] && (mf->flag & ME_FACE_SEL))
328                                 break;
329
330                 if (a<me->totpoly) {
331                         for(a=0, mf=me->mpoly; a<me->totpoly; a++, mf++)
332                                 if(linkflag[a])
333                                         mf->flag &= ~ME_FACE_SEL;
334                 }
335                 else {
336                         for(a=0, mf=me->mpoly; a<me->totpoly; a++, mf++)
337                                 if(linkflag[a])
338                                         mf->flag |= ME_FACE_SEL;
339                 }
340         }
341
342         MEM_freeN(linkflag);
343
344         // BIF_undo_push("Select linked UV face");
345         // object_tface_flags_changed(OBACT, 0);
346 }
347
348 void select_linked_tfaces(bContext *C, Object *ob, short mval[2], int mode)
349 {
350         Mesh *me;
351         unsigned int index=0;
352
353         me = get_mesh(ob);
354         if(me==0 || me->totpoly==0) return;
355
356         if (mode==0 || mode==1) {
357                 // XXX - Causes glitches, not sure why
358                 /*
359                 if (!facesel_face_pick(C, me, mval, &index, 1))
360                         return;
361                 */
362         }
363
364         select_linked_tfaces_with_seams(mode, me, index);
365
366         object_facesel_flush_dm(ob);
367 }
368
369 void selectall_tface(Object *ob, int action)
370 {
371         Mesh *me;
372         MPoly *mface;
373         int a;
374
375         me= get_mesh(ob);
376         if(me==0) return;
377         
378         if (action == SEL_TOGGLE) {
379                 action = SEL_SELECT;
380
381                 mface= me->mpoly;
382                 a= me->totpoly;
383                 while(a--) {
384                         if((mface->flag & ME_HIDE) == 0 && mface->flag & ME_FACE_SEL) {
385                                 action = SEL_DESELECT;
386                                 break;
387                         }
388                         mface++;
389                 }
390         }
391         
392         mface= me->mpoly;
393         a= me->totpoly;
394         while(a--) {
395                 if((mface->flag & ME_HIDE) == 0) {
396                         switch (action) {
397                         case SEL_SELECT:
398                                 mface->flag |= ME_FACE_SEL;
399                                 break;
400                         case SEL_DESELECT:
401                                 mface->flag &= ~ME_FACE_SEL;
402                                 break;
403                         case SEL_INVERT:
404                                 mface->flag ^= ME_FACE_SEL;
405                                 break;
406                         }
407                 }
408                 mface++;
409         }
410
411         object_facesel_flush_dm(ob);
412 // XXX notifier!                object_tface_flags_changed(OBACT, 0);
413 }
414
415 void selectswap_tface(Scene *scene)
416 {
417         Mesh *me;
418         MPoly *mface;
419         int a;
420                 
421         me= get_mesh(OBACT);
422         if(me==0) return;
423         
424         mface= me->mpoly;
425         a= me->totpoly;
426         while(a--) {
427                 if(mface->flag & ME_HIDE);
428                 else {
429                         if(mface->flag & ME_FACE_SEL) mface->flag &= ~ME_FACE_SEL;
430                         else mface->flag |= ME_FACE_SEL;
431                 }
432                 mface++;
433         }
434         
435         object_facesel_flush_dm(OBACT);
436 // XXX notifier!                object_tface_flags_changed(OBACT, 0);
437 }
438
439 int minmax_tface(Scene *scene, float *min, float *max)
440 {
441         Object *ob;
442         Mesh *me;
443         MPoly *mf;
444         MTexPoly *tf;
445         MLoop *ml;
446         MVert *mv;
447         int a, b, ok=0;
448         float vec[3], bmat[3][3];
449         
450         ob = OBACT;
451         if (ob==0) return ok;
452
453         me= get_mesh(ob);
454         if(!me || !me->mtpoly) return ok;
455         
456         copy_m3_m4(bmat, ob->obmat);
457
458         mv= me->mvert;
459         mf= me->mpoly;
460         tf= me->mtpoly;
461         for (a=me->totpoly; a>0; a--, mf++, tf++) {
462                 if (mf->flag & ME_HIDE || !(mf->flag & ME_FACE_SEL))
463                         continue;
464
465                 ml = me->mloop + mf->totloop;
466                 for (b=0; b<mf->totloop; b++, ml++) {
467                         VECCOPY(vec, (mv+ml->v)->co);
468                         mul_m3_v3(bmat, vec);
469                         add_v3_v3v3(vec, vec, ob->obmat[3]);
470                         DO_MINMAX(vec, min, max);               
471                 }
472
473                 ok= 1;
474         }
475
476         return ok;
477 }
478
479 /* ******************** edge loop shortest path ********************* */
480
481 #define ME_SEAM_DONE 2          /* reuse this flag */
482
483 static float edgetag_cut_cost(BMEditMesh *em, int e1, int e2, int vert)
484 {
485         BMVert *v = EDBM_get_vert_for_index(em, vert);
486         BMEdge *eed1 = EDBM_get_edge_for_index(em, e1), *eed2 = EDBM_get_edge_for_index(em, e2);
487         BMVert *v1 = EDBM_get_vert_for_index(em, (BMINDEX_GET(eed1->v1) == vert)? BMINDEX_GET(eed1->v2): BMINDEX_GET(eed1->v1) );
488         BMVert *v2 = EDBM_get_vert_for_index(em, (BMINDEX_GET(eed2->v1) == vert)? BMINDEX_GET(eed2->v2): BMINDEX_GET(eed2->v1) );
489         float cost, d1[3], d2[3];
490
491         cost = len_v3v3(v1->co, v->co);
492         cost += len_v3v3(v->co, v2->co);
493
494         sub_v3_v3v3(d1, v->co, v1->co);
495         sub_v3_v3v3(d2, v2->co, v->co);
496
497         cost = cost + 0.5f*cost*(2.0f - fabs(d1[0]*d2[0] + d1[1]*d2[1] + d1[2]*d2[2]));
498
499         return cost;
500 }
501
502 static void edgetag_add_adjacent(BMEditMesh *em, Heap *heap, int mednum, int vertnum, 
503                                                                  int *nedges, int *edges, int *prevedge, float *cost)
504 {
505         int startadj, endadj = nedges[vertnum+1];
506
507         for (startadj = nedges[vertnum]; startadj < endadj; startadj++) {
508                 int adjnum = edges[startadj];
509                 BMEdge *eedadj = EDBM_get_edge_for_index(em, adjnum);
510                 float newcost;
511
512                 if (eedadj->head.flags[0].f & ME_SEAM_DONE)
513                         continue;
514
515                 newcost = cost[mednum] + edgetag_cut_cost(em, mednum, adjnum, vertnum);
516
517                 if (cost[adjnum] > newcost) {
518                         cost[adjnum] = newcost;
519                         prevedge[adjnum] = mednum;
520                         BLI_heap_insert(heap, newcost, SET_INT_IN_POINTER(adjnum));
521                 }
522         }
523 }
524
525 void edgetag_context_set(BMEditMesh *em, Scene *scene, BMEdge *eed, int val)
526 {
527         
528         switch (scene->toolsettings->edge_mode) {
529         case EDGE_MODE_SELECT:
530                 BM_Select(em->bm, eed, val);
531                 break;
532         case EDGE_MODE_TAG_SEAM:
533                 if (val)                {BM_SetHFlag(eed, BM_SEAM);}
534                 else                    {BM_ClearHFlag(eed, BM_SEAM);}
535                 break;
536         case EDGE_MODE_TAG_SHARP:
537                 if (val)                {BM_SetHFlag(eed, BM_SEAM);}
538                 else                    {BM_ClearHFlag(eed, BM_SEAM);}
539                 break;                          
540         case EDGE_MODE_TAG_CREASE:
541          {
542                 float *crease = CustomData_bmesh_get(&em->bm->edata, eed->head.data, CD_CREASE);
543                 
544                 if (val)                {*crease = 1.0f;}
545                 else                    {*crease = 0.0f;}
546                 break;
547          }
548         case EDGE_MODE_TAG_BEVEL:
549          {
550                 float *bweight = CustomData_bmesh_get(&em->bm->edata, eed->head.data, CD_BWEIGHT);
551
552                 if (val)                {*bweight = 1.0f;}
553                 else                    {*bweight = 0.0f;}
554                 break;
555          }
556         }
557 }
558
559 static float bm_cdata_get_single_float(BMesh *bm, CustomData *cdata, void *element, int type)
560 {
561         BMHeader *ele = element;
562         float *f;
563         
564         if (!CustomData_has_layer(cdata, type))
565                 return 0.0f;
566         
567         f = CustomData_bmesh_get(cdata, ele->data, type);
568         
569         return *f;
570 }
571
572 int edgetag_context_check(Scene *scene, BMEditMesh *em, BMEdge *eed)
573 {
574         switch (scene->toolsettings->edge_mode) {
575         case EDGE_MODE_SELECT:
576                 return BM_TestHFlag(eed, BM_SELECT) ? 1 : 0;
577         case EDGE_MODE_TAG_SEAM:
578                 return BM_TestHFlag(eed, BM_SEAM);
579         case EDGE_MODE_TAG_SHARP:
580                 return BM_TestHFlag(eed, BM_SHARP);
581         case EDGE_MODE_TAG_CREASE:      
582                 return bm_cdata_get_single_float(em->bm, &em->bm->edata, eed, CD_CREASE) ? 1 : 0;
583         case EDGE_MODE_TAG_BEVEL:
584                 return bm_cdata_get_single_float(em->bm, &em->bm->edata, eed, CD_BWEIGHT) ? 1 : 0;
585         }
586         return 0;
587 }
588
589
590 int edgetag_shortest_path(Scene *scene, BMEditMesh *em, BMEdge *source, BMEdge *target)
591 {
592         BMEdge *eed;
593         BMVert *ev;
594         BMIter iter;
595         Heap *heap;
596         float *cost;
597         int a, totvert=0, totedge=0, *nedges, *edges, *prevedge, mednum = -1, nedgeswap = 0;
598
599
600         /* we need the vert */
601         BM_ITER(ev, &iter, em->bm, BM_VERTS_OF_MESH, NULL) {
602                 BMINDEX_SET(ev, totvert);
603                 totvert++;
604         }
605
606         BM_ITER(eed, &iter, em->bm, BM_EDGES_OF_MESH, NULL) {
607                 eed->head.flags[0].f = 0;
608                 if (BM_TestHFlag(eed, BM_SELECT)) {
609                         eed->head.flags[0].f |= ME_SEAM_DONE;
610                 }
611
612                 BMINDEX_SET(eed, totedge);
613                 totedge++;
614         }
615
616         /* alloc */
617         nedges = MEM_callocN(sizeof(*nedges)*totvert+1, "SeamPathNEdges");
618         edges = MEM_mallocN(sizeof(*edges)*totedge*2, "SeamPathEdges");
619         prevedge = MEM_mallocN(sizeof(*prevedge)*totedge, "SeamPathPrevious");
620         cost = MEM_mallocN(sizeof(*cost)*totedge, "SeamPathCost");
621
622         /* count edges, compute adjacent edges offsets and fill adjacent edges */
623         BM_ITER(eed, &iter, em->bm, BM_EDGES_OF_MESH, NULL) {
624                 nedges[BMINDEX_GET(eed->v1)+1]++;
625                 nedges[BMINDEX_GET(eed->v2)+1]++;
626         }
627
628         for (a=1; a<totvert; a++) {
629                 int newswap = nedges[a+1];
630                 nedges[a+1] = nedgeswap + nedges[a];
631                 nedgeswap = newswap;
632         }
633         nedges[0] = nedges[1] = 0;
634
635         BM_ITER(eed, &iter, em->bm, BM_EDGES_OF_MESH, NULL) {
636                 edges[nedges[BMINDEX_GET(eed->v1)+1]++] = a;
637                 edges[nedges[BMINDEX_GET(eed->v2)+1]++] = a;
638
639                 cost[a] = 1e20f;
640                 prevedge[a] = -1;
641                 a++;
642         }
643
644         /* regular dijkstra shortest path, but over edges instead of vertices */
645         heap = BLI_heap_new();
646         BLI_heap_insert(heap, 0.0f, SET_INT_IN_POINTER(BMINDEX_GET(source)));
647         cost[BMINDEX_GET(source)] = 0.0f;
648
649         EDBM_init_index_arrays(em, 1, 1, 0);
650
651         while (!BLI_heap_empty(heap)) {
652                 mednum = GET_INT_FROM_POINTER(BLI_heap_popmin(heap));
653                 eed = EDBM_get_edge_for_index(em, mednum);
654
655                 if (mednum == BMINDEX_GET(target))
656                         break;
657
658                 if (eed->head.flags[0].f & ME_SEAM_DONE)
659                         continue;
660
661                 eed->head.flags[0].f |= ME_SEAM_DONE;
662
663                 edgetag_add_adjacent(em, heap, mednum, BMINDEX_GET(eed->v1), nedges, edges, prevedge, cost);
664                 edgetag_add_adjacent(em, heap, mednum, BMINDEX_GET(eed->v2), nedges, edges, prevedge, cost);
665         }
666         
667         MEM_freeN(nedges);
668         MEM_freeN(edges);
669         MEM_freeN(cost);
670         BLI_heap_free(heap, NULL);
671
672         BM_ITER(eed, &iter, em->bm, BM_EDGES_OF_MESH, NULL) {
673                 eed->head.flags[0].f &= ~ME_SEAM_DONE;
674         }
675
676         if (mednum != BMINDEX_GET(target)) {
677                 MEM_freeN(prevedge);
678                 EDBM_free_index_arrays(em);
679                 return 0;
680         }
681
682         /* follow path back to source and mark as seam */
683         if (mednum == BMINDEX_GET(target)) {
684                 short allseams = 1;
685
686                 mednum = BMINDEX_GET(target);
687                 do {
688                         eed = EDBM_get_edge_for_index(em, mednum);
689                         if (!edgetag_context_check(scene, em, eed)) {
690                                 allseams = 0;
691                                 break;
692                         }
693                         mednum = prevedge[mednum];
694                 } while (mednum != BMINDEX_GET(source));
695
696                 mednum = BMINDEX_GET(target);
697                 do {
698                         eed = EDBM_get_edge_for_index(em, mednum);
699                         if (allseams)
700                                 edgetag_context_set(em, scene, eed, 0);
701                         else
702                                 edgetag_context_set(em, scene, eed, 1);
703                         mednum = prevedge[mednum];
704                 } while (mednum != -1);
705         }
706
707         MEM_freeN(prevedge);
708         EDBM_free_index_arrays(em);
709         return 1;
710 }
711
712 /* *************************************** */
713
714 static void seam_edgehash_insert_face(EdgeHash *ehash, MPoly *mf, MLoop *loopstart)
715 {
716         MLoop *ml1, *ml2;
717         int a;
718
719         for (a=0; a<mf->totloop; a++) {
720                 ml1 = loopstart + a;
721                 ml2 = loopstart + (a+1) % mf->totloop;
722
723                 BLI_edgehash_insert(ehash, ml1->v, ml2->v, NULL);
724         }
725 }
726
727 void seam_mark_clear_tface(Scene *scene, short mode)
728 {
729         Mesh *me;
730         MPoly *mf;
731         MLoop *ml1, *ml2;
732         MEdge *med;
733         int a, b;
734         
735         me= get_mesh(OBACT);
736         if(me==0 ||  me->totpoly==0) return;
737
738         if (mode == 0)
739                 mode = pupmenu("Seams%t|Mark Border Seam %x1|Clear Seam %x2");
740
741         if (mode != 1 && mode != 2)
742                 return;
743
744         if (mode == 2) {
745                 EdgeHash *ehash = BLI_edgehash_new();
746
747                 for (a=0, mf=me->mpoly; a<me->totpoly; a++, mf++)
748                         if (!(mf->flag & ME_HIDE) && (mf->flag & ME_FACE_SEL))
749                                 seam_edgehash_insert_face(ehash, mf, me->mloop + mf->loopstart);
750
751                 for (a=0, med=me->medge; a<me->totedge; a++, med++)
752                         if (BLI_edgehash_haskey(ehash, med->v1, med->v2))
753                                 med->flag &= ~ME_SEAM;
754
755                 BLI_edgehash_free(ehash, NULL);
756         }
757         else {
758                 /* mark edges that are on both selected and deselected faces */
759                 EdgeHash *ehash1 = BLI_edgehash_new();
760                 EdgeHash *ehash2 = BLI_edgehash_new();
761
762                 for (a=0, mf=me->mpoly; a<me->totpoly; a++, mf++) {
763                         if ((mf->flag & ME_HIDE) || !(mf->flag & ME_FACE_SEL))
764                                 seam_edgehash_insert_face(ehash1, mf, me->mloop + mf->loopstart);
765                         else
766                                 seam_edgehash_insert_face(ehash2, mf, me->mloop + mf->loopstart);
767                 }
768
769                 for (a=0, med=me->medge; a<me->totedge; a++, med++)
770                         if (BLI_edgehash_haskey(ehash1, med->v1, med->v2) &&
771                                 BLI_edgehash_haskey(ehash2, med->v1, med->v2))
772                                 med->flag |= ME_SEAM;
773
774                 BLI_edgehash_free(ehash1, NULL);
775                 BLI_edgehash_free(ehash2, NULL);
776         }
777
778 // XXX  if (G.rt == 8)
779 //              unwrap_lscm(1);
780
781         me->drawflag |= ME_DRAWSEAMS;
782
783 // XXX notifier!                object_tface_flags_changed(OBACT, 1);
784 }
785
786 int face_select(struct bContext *C, Object *ob, short mval[2], int extend)
787 {
788         Mesh *me;
789         MPoly *mface, *msel;
790         unsigned int a, index;
791         
792         /* Get the face under the cursor */
793         me = get_mesh(ob);
794
795         if (!facesel_face_pick(C, me, ob, mval, &index, 1))
796                 return 0;
797         
798         if (index >= me->totpoly || index < 0)
799                 return 0;
800
801         msel= me->mpoly + index;
802         if (msel->flag & ME_HIDE) return 0;
803         
804         /* clear flags */
805         mface = me->mpoly;
806         a = me->totpoly;
807         if (!extend) {
808                 while (a--) {
809                         mface->flag &= ~ME_FACE_SEL;
810                         mface++;
811                 }
812         }
813         
814         me->act_face = (int)index;
815
816         if (extend) {
817                 if (msel->flag & ME_FACE_SEL)
818                         msel->flag &= ~ME_FACE_SEL;
819                 else
820                         msel->flag |= ME_FACE_SEL;
821         }
822         else msel->flag |= ME_FACE_SEL;
823         
824         /* image window redraw */
825         
826         object_facesel_flush_dm(ob);
827 // XXX notifier!                object_tface_flags_changed(OBACT, 1);
828         WM_event_add_notifier(C, NC_GEOM|ND_SELECT, ob->data);
829         ED_region_tag_redraw(CTX_wm_region(C)); // XXX - should redraw all 3D views
830         return 1;
831 }
832
833 void face_borderselect(struct bContext *C, Object *ob, rcti *rect, int select, int extend)
834 {
835         Mesh *me;
836         MPoly *mface;
837         struct ImBuf *ibuf;
838         unsigned int *rt;
839         char *selar;
840         int a, sx, sy, index;
841         
842         ViewContext vc;
843         view3d_set_viewcontext(C, &vc);
844
845         me= get_mesh(ob);
846         if(me==0) return;
847         if(me->totpoly==0) return;
848
849         selar= MEM_callocN(me->totpoly+1, "selar");
850
851         sx= (rect->xmax-rect->xmin+1);
852         sy= (rect->ymax-rect->ymin+1);
853         if(sx*sy<=0) return;
854
855         if (extend == 0 && select) {
856                 mface= me->mpoly;
857                 for(a=1; a<=me->totpoly; a++, mface++) {
858                         if((mface->flag & ME_HIDE) == 0)
859                                 mface->flag &= ~ME_FACE_SEL;
860                 }
861         }
862
863         view3d_validate_backbuf(&vc);
864
865         ibuf = IMB_allocImBuf(sx,sy,32,IB_rect,0);
866         rt = ibuf->rect;
867         glReadPixels(rect->xmin+vc.ar->winrct.xmin,  rect->ymin+vc.ar->winrct.ymin, sx, sy, GL_RGBA, GL_UNSIGNED_BYTE,  ibuf->rect);
868         if(ENDIAN_ORDER==B_ENDIAN) IMB_convert_rgba_to_abgr(ibuf);
869
870         a= sx*sy;
871         while(a--) {
872                 if(*rt) {
873                         index= WM_framebuffer_to_index(*rt);
874                         if(index<=me->totface) selar[index]= 1;
875                 }
876                 rt++;
877         }
878
879         mface= me->mpoly;
880         for(a=1; a<=me->totpoly; a++, mface++) {
881                 if(selar[a]) {
882                         if(mface->flag & ME_HIDE);
883                         else {
884                                 if(select) mface->flag |= ME_FACE_SEL;
885                                 else mface->flag &= ~ME_FACE_SEL;
886                         }
887                 }
888         }
889
890         IMB_freeImBuf(ibuf);
891         MEM_freeN(selar);
892
893
894 // XXX notifier!                        object_tface_flags_changed(OBACT, 0);
895 #ifdef __APPLE__        
896         glReadBuffer(GL_BACK);
897 #endif
898         
899         object_facesel_flush_dm(ob);
900 }