2.5 Sculpt Branch Merge
[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_image_types.h"
44 #include "DNA_mesh_types.h"
45 #include "DNA_meshdata_types.h"
46 #include "DNA_object_types.h"
47 #include "DNA_space_types.h"
48 #include "DNA_screen_types.h"
49 #include "DNA_scene_types.h"
50 #include "DNA_view3d_types.h"
51
52 #include "BKE_brush.h"
53 #include "BKE_customdata.h"
54 #include "BKE_depsgraph.h"
55 #include "BKE_DerivedMesh.h"
56 #include "BKE_displist.h"
57 #include "BKE_global.h"
58 #include "BKE_mesh.h"
59 #include "BKE_object.h"
60 #include "BKE_texture.h"
61 #include "BKE_utildefines.h"
62 #include "BKE_customdata.h"
63 #include "BKE_context.h"
64
65 #include "BIF_gl.h"
66 #include "BIF_glutil.h"
67
68 #include "GPU_draw.h"
69
70 #ifndef DISABLE_PYTHON
71 //#include "BPY_extern.h"
72 //#include "BPY_menus.h"
73 #endif
74
75 #include "ED_mesh.h"
76 #include "ED_screen.h"
77 #include "ED_object.h"
78 #include "ED_view3d.h"
79
80 #include "WM_api.h"
81 #include "WM_types.h"
82
83 /* own include */
84 #include "mesh_intern.h"
85
86 /* ***************** XXX **************** */
87 static int pupmenu() {return 0;}
88 /* ***************** XXX **************** */
89
90
91 /* copy the face flags, most importantly selection from the mesh to the final derived mesh,
92  * use in object mode when selecting faces (while painting) */
93 void object_facesel_flush_dm(Object *ob)
94 {
95         Mesh *me= get_mesh(ob);
96         DerivedMesh *dm= ob->derivedFinal;
97         MFace *faces, *mf, *mf_orig;
98         int *index_array = NULL;
99         int totface;
100         int i;
101         
102         if(me==NULL || dm==NULL)
103                 return;
104
105         index_array = dm->getFaceDataArray(dm, CD_ORIGINDEX);
106
107         if(!index_array)
108                 return;
109         
110         faces = dm->getFaceArray(dm);
111         totface = dm->getNumFaces(dm);
112         
113         mf= faces;
114         
115         for (i= 0; i<totface; i++, mf++) { /* loop over derived mesh faces */
116                 mf_orig= me->mface + index_array[i];
117                 mf->flag= mf_orig->flag;;
118         }
119 }
120
121 /* returns 0 if not found, otherwise 1 */
122 int facesel_face_pick(struct bContext *C, Mesh *me, short *mval, unsigned int *index, short rect)
123 {
124         ViewContext vc;
125         view3d_set_viewcontext(C, &vc);
126
127         if (!me || me->totface==0)
128                 return 0;
129
130 // XXX  if (v3d->flag & V3D_NEEDBACKBUFDRAW) {
131 // XXX drawview.c!              check_backbuf();
132 // XXX          persp(PERSP_VIEW);
133 // XXX  }
134
135         if (rect) {
136                 /* sample rect to increase changes of selecting, so that when clicking
137                    on an edge in the backbuf, we can still select a face */
138
139                 int dist;
140                 *index = view3d_sample_backbuf_rect(&vc, mval, 3, 1, me->totface+1, &dist,0,NULL, NULL);
141         }
142         else {
143                 /* sample only on the exact position */
144                 *index = view3d_sample_backbuf(&vc, mval[0], mval[1]);
145         }
146
147         if ((*index)<=0 || (*index)>(unsigned int)me->totface)
148                 return 0;
149
150         (*index)--;
151         
152         return 1;
153 }
154
155 /* last_sel, use em->act_face otherwise get the last selected face in the editselections
156  * at the moment, last_sel is mainly useful for gaking sure the space image dosnt flicker */
157 MTFace *EM_get_active_mtface(EditMesh *em, EditFace **act_efa, MCol **mcol, int sloppy)
158 {
159         EditFace *efa = NULL;
160         
161         if(!EM_texFaceCheck(em))
162                 return NULL;
163         
164         efa = EM_get_actFace(em, sloppy);
165         
166         if (efa) {
167                 if (mcol) {
168                         if (CustomData_has_layer(&em->fdata, CD_MCOL))
169                                 *mcol = CustomData_em_get(&em->fdata, efa->data, CD_MCOL);
170                         else
171                                 *mcol = NULL;
172                 }
173                 if (act_efa) *act_efa = efa; 
174                 return CustomData_em_get(&em->fdata, efa->data, CD_MTFACE);
175         }
176         if (act_efa) *act_efa= NULL;
177         if(mcol) *mcol = NULL;
178         return NULL;
179 }
180
181 void reveal_tface(Scene *scene)
182 {
183         Mesh *me;
184         MFace *mface;
185         int a;
186         
187         me= get_mesh(OBACT);
188         if(me==0 || me->totface==0) return;
189         
190         mface= me->mface;
191         a= me->totface;
192         while(a--) {
193                 if(mface->flag & ME_HIDE) {
194                         mface->flag |= ME_FACE_SEL;
195                         mface->flag -= ME_HIDE;
196                 }
197                 mface++;
198         }
199
200         object_facesel_flush_dm(OBACT);
201 // XXX notifier!        object_tface_flags_changed(OBACT, 0);
202 }
203
204 void hide_tface(Scene *scene)
205 {
206         Mesh *me;
207         MFace *mface;
208         int a;
209         int shift=0, alt= 0; // XXX
210         
211         me= get_mesh(OBACT);
212         if(me==0 || me->totface==0) return;
213         
214         if(alt) {
215                 reveal_tface(scene);
216                 return;
217         }
218         
219         mface= me->mface;
220         a= me->totface;
221         while(a--) {
222                 if(mface->flag & ME_HIDE);
223                 else {
224                         if(shift) {
225                                 if( (mface->flag & ME_FACE_SEL)==0) mface->flag |= ME_HIDE;
226                         }
227                         else {
228                                 if( (mface->flag & ME_FACE_SEL)) mface->flag |= ME_HIDE;
229                         }
230                 }
231                 if(mface->flag & ME_HIDE) mface->flag &= ~ME_FACE_SEL;
232                 
233                 mface++;
234         }
235         
236         object_facesel_flush_dm(OBACT);
237 // XXX notifier!                object_tface_flags_changed(OBACT, 0);
238 }
239
240 /* Set tface seams based on edge data, uses hash table to find seam edges. */
241
242 static void hash_add_face(EdgeHash *ehash, MFace *mf)
243 {
244         BLI_edgehash_insert(ehash, mf->v1, mf->v2, NULL);
245         BLI_edgehash_insert(ehash, mf->v2, mf->v3, NULL);
246         if(mf->v4) {
247                 BLI_edgehash_insert(ehash, mf->v3, mf->v4, NULL);
248                 BLI_edgehash_insert(ehash, mf->v4, mf->v1, NULL);
249         }
250         else
251                 BLI_edgehash_insert(ehash, mf->v3, mf->v1, NULL);
252 }
253
254
255 void select_linked_tfaces_with_seams(int mode, Mesh *me, unsigned int index)
256 {
257         MFace *mf;
258         int a, doit=1, mark=0;
259         char *linkflag;
260         EdgeHash *ehash, *seamhash;
261         MEdge *med;
262
263         ehash= BLI_edgehash_new();
264         seamhash = BLI_edgehash_new();
265         linkflag= MEM_callocN(sizeof(char)*me->totface, "linkflaguv");
266
267         for(med=me->medge, a=0; a < me->totedge; a++, med++)
268                 if(med->flag & ME_SEAM)
269                         BLI_edgehash_insert(seamhash, med->v1, med->v2, NULL);
270
271         if (mode==0 || mode==1) {
272                 /* only put face under cursor in array */
273                 mf= ((MFace*)me->mface) + index;
274                 hash_add_face(ehash, mf);
275                 linkflag[index]= 1;
276         }
277         else {
278                 /* fill array by selection */
279                 mf= me->mface;
280                 for(a=0; a<me->totface; a++, mf++) {
281                         if(mf->flag & ME_HIDE);
282                         else if(mf->flag & ME_FACE_SEL) {
283                                 hash_add_face(ehash, mf);
284                                 linkflag[a]= 1;
285                         }
286                 }
287         }
288
289         while(doit) {
290                 doit= 0;
291
292                 /* expand selection */
293                 mf= me->mface;
294                 for(a=0; a<me->totface; a++, mf++) {
295                         if(mf->flag & ME_HIDE)
296                                 continue;
297
298                         if(!linkflag[a]) {
299                                 mark= 0;
300
301                                 if(!BLI_edgehash_haskey(seamhash, mf->v1, mf->v2))
302                                         if(BLI_edgehash_haskey(ehash, mf->v1, mf->v2))
303                                                 mark= 1;
304                                 if(!BLI_edgehash_haskey(seamhash, mf->v2, mf->v3))
305                                         if(BLI_edgehash_haskey(ehash, mf->v2, mf->v3))
306                                                 mark= 1;
307                                 if(mf->v4) {
308                                         if(!BLI_edgehash_haskey(seamhash, mf->v3, mf->v4))
309                                                 if(BLI_edgehash_haskey(ehash, mf->v3, mf->v4))
310                                                         mark= 1;
311                                         if(!BLI_edgehash_haskey(seamhash, mf->v4, mf->v1))
312                                                 if(BLI_edgehash_haskey(ehash, mf->v4, mf->v1))
313                                                         mark= 1;
314                                 }
315                                 else if(!BLI_edgehash_haskey(seamhash, mf->v3, mf->v1))
316                                         if(BLI_edgehash_haskey(ehash, mf->v3, mf->v1))
317                                                 mark = 1;
318
319                                 if(mark) {
320                                         linkflag[a]= 1;
321                                         hash_add_face(ehash, mf);
322                                         doit= 1;
323                                 }
324                         }
325                 }
326
327         }
328
329         BLI_edgehash_free(ehash, NULL);
330         BLI_edgehash_free(seamhash, NULL);
331
332         if(mode==0 || mode==2) {
333                 for(a=0, mf=me->mface; a<me->totface; a++, mf++)
334                         if(linkflag[a])
335                                 mf->flag |= ME_FACE_SEL;
336                         else
337                                 mf->flag &= ~ME_FACE_SEL;
338         }
339         else if(mode==1) {
340                 for(a=0, mf=me->mface; a<me->totface; a++, mf++)
341                         if(linkflag[a] && (mf->flag & ME_FACE_SEL))
342                                 break;
343
344                 if (a<me->totface) {
345                         for(a=0, mf=me->mface; a<me->totface; a++, mf++)
346                                 if(linkflag[a])
347                                         mf->flag &= ~ME_FACE_SEL;
348                 }
349                 else {
350                         for(a=0, mf=me->mface; a<me->totface; a++, mf++)
351                                 if(linkflag[a])
352                                         mf->flag |= ME_FACE_SEL;
353                 }
354         }
355
356         MEM_freeN(linkflag);
357
358         // BIF_undo_push("Select linked UV face");
359         // object_tface_flags_changed(OBACT, 0);
360 }
361
362 void select_linked_tfaces(bContext *C, Object *ob, short mval[2], int mode)
363 {
364         Mesh *me;
365         unsigned int index=0;
366
367         me = get_mesh(ob);
368         if(me==0 || me->totface==0) return;
369
370         if (mode==0 || mode==1) {
371                 // XXX - Causes glitches, not sure why
372                 /*
373                 if (!facesel_face_pick(C, me, mval, &index, 1))
374                         return;
375                 */
376         }
377
378         select_linked_tfaces_with_seams(mode, me, index);
379
380         object_facesel_flush_dm(ob);
381 }
382
383 void selectall_tface(Object *ob, int action)
384 {
385         Mesh *me;
386         MFace *mface;
387         int a;
388
389         me= get_mesh(ob);
390         if(me==0) return;
391         
392         if (action == SEL_TOGGLE) {
393                 action = SEL_SELECT;
394
395                 mface= me->mface;
396                 a= me->totface;
397                 while(a--) {
398                         if((mface->flag & ME_HIDE) == 0 && mface->flag & ME_FACE_SEL) {
399                                 action = SEL_DESELECT;
400                                 break;
401                         }
402                         mface++;
403                 }
404         }
405         
406         mface= me->mface;
407         a= me->totface;
408         while(a--) {
409                 if((mface->flag & ME_HIDE) == 0) {
410                         switch (action) {
411                         case SEL_SELECT:
412                                 mface->flag |= ME_FACE_SEL;
413                                 break;
414                         case SEL_DESELECT:
415                                 mface->flag &= ~ME_FACE_SEL;
416                                 break;
417                         case SEL_INVERT:
418                                 mface->flag ^= ME_FACE_SEL;
419                                 break;
420                         }
421                 }
422                 mface++;
423         }
424
425         object_facesel_flush_dm(ob);
426 // XXX notifier!                object_tface_flags_changed(OBACT, 0);
427 }
428
429 void selectswap_tface(Scene *scene)
430 {
431         Mesh *me;
432         MFace *mface;
433         int a;
434                 
435         me= get_mesh(OBACT);
436         if(me==0) return;
437         
438         mface= me->mface;
439         a= me->totface;
440         while(a--) {
441                 if(mface->flag & ME_HIDE);
442                 else {
443                         if(mface->flag & ME_FACE_SEL) mface->flag &= ~ME_FACE_SEL;
444                         else mface->flag |= ME_FACE_SEL;
445                 }
446                 mface++;
447         }
448         
449         object_facesel_flush_dm(OBACT);
450 // XXX notifier!                object_tface_flags_changed(OBACT, 0);
451 }
452
453 int minmax_tface(Scene *scene, float *min, float *max)
454 {
455         Object *ob;
456         Mesh *me;
457         MFace *mf;
458         MTFace *tf;
459         MVert *mv;
460         int a, ok=0;
461         float vec[3], bmat[3][3];
462         
463         ob = OBACT;
464         if (ob==0) return ok;
465         me= get_mesh(ob);
466         if(me==0 || me->mtface==0) return ok;
467         
468         copy_m3_m4(bmat, ob->obmat);
469
470         mv= me->mvert;
471         mf= me->mface;
472         tf= me->mtface;
473         for (a=me->totface; a>0; a--, mf++, tf++) {
474                 if (mf->flag & ME_HIDE || !(mf->flag & ME_FACE_SEL))
475                         continue;
476
477                 VECCOPY(vec, (mv+mf->v1)->co);
478                 mul_m3_v3(bmat, vec);
479                 add_v3_v3v3(vec, vec, ob->obmat[3]);
480                 DO_MINMAX(vec, min, max);               
481
482                 VECCOPY(vec, (mv+mf->v2)->co);
483                 mul_m3_v3(bmat, vec);
484                 add_v3_v3v3(vec, vec, ob->obmat[3]);
485                 DO_MINMAX(vec, min, max);               
486
487                 VECCOPY(vec, (mv+mf->v3)->co);
488                 mul_m3_v3(bmat, vec);
489                 add_v3_v3v3(vec, vec, ob->obmat[3]);
490                 DO_MINMAX(vec, min, max);               
491
492                 if (mf->v4) {
493                         VECCOPY(vec, (mv+mf->v4)->co);
494                         mul_m3_v3(bmat, vec);
495                         add_v3_v3v3(vec, vec, ob->obmat[3]);
496                         DO_MINMAX(vec, min, max);
497                 }
498                 ok= 1;
499         }
500         return ok;
501 }
502
503 /* ******************** edge loop shortest path ********************* */
504
505 #define ME_SEAM_DONE 2          /* reuse this flag */
506
507 static float edgetag_cut_cost(EditMesh *em, int e1, int e2, int vert)
508 {
509         EditVert *v = EM_get_vert_for_index(vert);
510         EditEdge *eed1 = EM_get_edge_for_index(e1), *eed2 = EM_get_edge_for_index(e2);
511         EditVert *v1 = EM_get_vert_for_index( (eed1->v1->tmp.l == vert)? eed1->v2->tmp.l: eed1->v1->tmp.l );
512         EditVert *v2 = EM_get_vert_for_index( (eed2->v1->tmp.l == vert)? eed2->v2->tmp.l: eed2->v1->tmp.l );
513         float cost, d1[3], d2[3];
514
515         cost = len_v3v3(v1->co, v->co);
516         cost += len_v3v3(v->co, v2->co);
517
518         sub_v3_v3v3(d1, v->co, v1->co);
519         sub_v3_v3v3(d2, v2->co, v->co);
520
521         cost = cost + 0.5f*cost*(2.0f - fabs(d1[0]*d2[0] + d1[1]*d2[1] + d1[2]*d2[2]));
522
523         return cost;
524 }
525
526 static void edgetag_add_adjacent(EditMesh *em, Heap *heap, int mednum, int vertnum, int *nedges, int *edges, int *prevedge, float *cost)
527 {
528         int startadj, endadj = nedges[vertnum+1];
529
530         for (startadj = nedges[vertnum]; startadj < endadj; startadj++) {
531                 int adjnum = edges[startadj];
532                 EditEdge *eedadj = EM_get_edge_for_index(adjnum);
533                 float newcost;
534
535                 if (eedadj->f2 & ME_SEAM_DONE)
536                         continue;
537
538                 newcost = cost[mednum] + edgetag_cut_cost(em, mednum, adjnum, vertnum);
539
540                 if (cost[adjnum] > newcost) {
541                         cost[adjnum] = newcost;
542                         prevedge[adjnum] = mednum;
543                         BLI_heap_insert(heap, newcost, SET_INT_IN_POINTER(adjnum));
544                 }
545         }
546 }
547
548 void edgetag_context_set(Scene *scene, EditEdge *eed, int val)
549 {
550         
551         switch (scene->toolsettings->edge_mode) {
552         case EDGE_MODE_SELECT:
553                 EM_select_edge(eed, val);
554                 break;
555         case EDGE_MODE_TAG_SEAM:
556                 if (val)                {eed->seam = 255;}
557                 else                    {eed->seam = 0;}
558                 break;
559         case EDGE_MODE_TAG_SHARP:
560                 if (val)                {eed->sharp = 1;}
561                 else                    {eed->sharp = 0;}
562                 break;                          
563         case EDGE_MODE_TAG_CREASE:      
564                 if (val)                {eed->crease = 1.0f;}
565                 else                    {eed->crease = 0.0f;}
566                 break;
567         case EDGE_MODE_TAG_BEVEL:
568                 if (val)                {eed->bweight = 1.0f;}
569                 else                    {eed->bweight = 0.0f;}
570                 break;
571         }
572 }
573
574 int edgetag_context_check(Scene *scene, EditEdge *eed)
575 {
576         switch (scene->toolsettings->edge_mode) {
577         case EDGE_MODE_SELECT:
578                 return (eed->f & SELECT) ? 1 : 0;
579         case EDGE_MODE_TAG_SEAM:
580                 return eed->seam ? 1 : 0;
581         case EDGE_MODE_TAG_SHARP:
582                 return eed->sharp ? 1 : 0;
583         case EDGE_MODE_TAG_CREASE:      
584                 return eed->crease ? 1 : 0;
585         case EDGE_MODE_TAG_BEVEL:
586                 return eed->bweight ? 1 : 0;
587         }
588         return 0;
589 }
590
591
592 int edgetag_shortest_path(Scene *scene, EditMesh *em, EditEdge *source, EditEdge *target)
593 {
594         EditEdge *eed;
595         EditVert *ev;
596         
597         Heap *heap;
598         float *cost;
599         int a, totvert=0, totedge=0, *nedges, *edges, *prevedge, mednum = -1, nedgeswap = 0;
600
601
602         /* we need the vert */
603         for (ev= em->verts.first, totvert=0; ev; ev= ev->next) {
604                 ev->tmp.l = totvert;
605                 totvert++;
606         }
607
608         for (eed= em->edges.first; eed; eed = eed->next) {
609                 eed->f2 = 0;
610                 if (eed->h) {
611                         eed->f2 |= ME_SEAM_DONE;
612                 }
613                 eed->tmp.l = totedge;
614                 totedge++;
615         }
616
617         /* alloc */
618         nedges = MEM_callocN(sizeof(*nedges)*totvert+1, "SeamPathNEdges");
619         edges = MEM_mallocN(sizeof(*edges)*totedge*2, "SeamPathEdges");
620         prevedge = MEM_mallocN(sizeof(*prevedge)*totedge, "SeamPathPrevious");
621         cost = MEM_mallocN(sizeof(*cost)*totedge, "SeamPathCost");
622
623         /* count edges, compute adjacent edges offsets and fill adjacent edges */
624         for (eed= em->edges.first; eed; eed = eed->next) {
625                 nedges[eed->v1->tmp.l+1]++;
626                 nedges[eed->v2->tmp.l+1]++;
627         }
628
629         for (a=1; a<totvert; a++) {
630                 int newswap = nedges[a+1];
631                 nedges[a+1] = nedgeswap + nedges[a];
632                 nedgeswap = newswap;
633         }
634         nedges[0] = nedges[1] = 0;
635
636         for (a=0, eed= em->edges.first; eed; a++, eed = eed->next) {
637                 edges[nedges[eed->v1->tmp.l+1]++] = a;
638                 edges[nedges[eed->v2->tmp.l+1]++] = a;
639
640                 cost[a] = 1e20f;
641                 prevedge[a] = -1;
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(source->tmp.l));
647         cost[source->tmp.l] = 0.0f;
648
649         EM_init_index_arrays(em, 1, 1, 0);
650
651
652         while (!BLI_heap_empty(heap)) {
653                 mednum = GET_INT_FROM_POINTER(BLI_heap_popmin(heap));
654                 eed = EM_get_edge_for_index( mednum );
655
656                 if (mednum == target->tmp.l)
657                         break;
658
659                 if (eed->f2 & ME_SEAM_DONE)
660                         continue;
661
662                 eed->f2 |= ME_SEAM_DONE;
663
664                 edgetag_add_adjacent(em, heap, mednum, eed->v1->tmp.l, nedges, edges, prevedge, cost);
665                 edgetag_add_adjacent(em, heap, mednum, eed->v2->tmp.l, nedges, edges, prevedge, cost);
666         }
667         
668         
669         MEM_freeN(nedges);
670         MEM_freeN(edges);
671         MEM_freeN(cost);
672         BLI_heap_free(heap, NULL);
673
674         for (eed= em->edges.first; eed; eed = eed->next) {
675                 eed->f2 &= ~ME_SEAM_DONE;
676         }
677
678         if (mednum != target->tmp.l) {
679                 MEM_freeN(prevedge);
680                 EM_free_index_arrays();
681                 return 0;
682         }
683
684         /* follow path back to source and mark as seam */
685         if (mednum == target->tmp.l) {
686                 short allseams = 1;
687
688                 mednum = target->tmp.l;
689                 do {
690                         eed = EM_get_edge_for_index( mednum );
691                         if (!edgetag_context_check(scene, eed)) {
692                                 allseams = 0;
693                                 break;
694                         }
695                         mednum = prevedge[mednum];
696                 } while (mednum != source->tmp.l);
697
698                 mednum = target->tmp.l;
699                 do {
700                         eed = EM_get_edge_for_index( mednum );
701                         if (allseams)
702                                 edgetag_context_set(scene, eed, 0);
703                         else
704                                 edgetag_context_set(scene, eed, 1);
705                         mednum = prevedge[mednum];
706                 } while (mednum != -1);
707         }
708
709         MEM_freeN(prevedge);
710         EM_free_index_arrays();
711         return 1;
712 }
713
714 /* *************************************** */
715
716 static void seam_edgehash_insert_face(EdgeHash *ehash, MFace *mf)
717 {
718         BLI_edgehash_insert(ehash, mf->v1, mf->v2, NULL);
719         BLI_edgehash_insert(ehash, mf->v2, mf->v3, NULL);
720         if (mf->v4) {
721                 BLI_edgehash_insert(ehash, mf->v3, mf->v4, NULL);
722                 BLI_edgehash_insert(ehash, mf->v4, mf->v1, NULL);
723         }
724         else
725                 BLI_edgehash_insert(ehash, mf->v3, mf->v1, NULL);
726 }
727
728 void seam_mark_clear_tface(Scene *scene, short mode)
729 {
730         Mesh *me;
731         MFace *mf;
732         MEdge *med;
733         int a;
734         
735         me= get_mesh(OBACT);
736         if(me==0 ||  me->totface==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->mface; a<me->totface; a++, mf++)
748                         if (!(mf->flag & ME_HIDE) && (mf->flag & ME_FACE_SEL))
749                                 seam_edgehash_insert_face(ehash, mf);
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->mface; a<me->totface; a++, mf++) {
763                         if ((mf->flag & ME_HIDE) || !(mf->flag & ME_FACE_SEL))
764                                 seam_edgehash_insert_face(ehash1, mf);
765                         else
766                                 seam_edgehash_insert_face(ehash2, mf);
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         MFace *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, mval, &index, 1))
796                 return 0;
797         
798         msel= (((MFace*)me->mface)+index);
799         if (msel->flag & ME_HIDE) return 0;
800         
801         /* clear flags */
802         mface = me->mface;
803         a = me->totface;
804         if (!extend) {
805                 while (a--) {
806                         mface->flag &= ~ME_FACE_SEL;
807                         mface++;
808                 }
809         }
810         
811         me->act_face = (int)index;
812
813         if (extend) {
814                 if (msel->flag & ME_FACE_SEL)
815                         msel->flag &= ~ME_FACE_SEL;
816                 else
817                         msel->flag |= ME_FACE_SEL;
818         }
819         else msel->flag |= ME_FACE_SEL;
820         
821         /* image window redraw */
822         
823         object_facesel_flush_dm(ob);
824 // XXX notifier!                object_tface_flags_changed(OBACT, 1);
825         WM_event_add_notifier(C, NC_GEOM|ND_SELECT, ob->data);
826         ED_region_tag_redraw(CTX_wm_region(C)); // XXX - should redraw all 3D views
827         return 1;
828 }
829
830 void face_borderselect(struct bContext *C, Object *ob, rcti *rect, int select, int extend)
831 {
832         Mesh *me;
833         MFace *mface;
834         struct ImBuf *ibuf;
835         unsigned int *rt;
836         int a, sx, sy, index;
837         char *selar;
838         
839         ViewContext vc;
840         view3d_set_viewcontext(C, &vc);
841
842         me= get_mesh(ob);
843         if(me==0) return;
844         if(me->totface==0) return;
845
846         selar= MEM_callocN(me->totface+1, "selar");
847
848         sx= (rect->xmax-rect->xmin+1);
849         sy= (rect->ymax-rect->ymin+1);
850         if(sx*sy<=0) return;
851
852         if (extend == 0 && select) {
853                 mface= me->mface;
854                 for(a=1; a<=me->totface; a++, mface++) {
855                         if((mface->flag & ME_HIDE) == 0)
856                                 mface->flag &= ~ME_FACE_SEL;
857                 }
858         }
859
860         view3d_validate_backbuf(&vc);
861
862         ibuf = IMB_allocImBuf(sx,sy,32,IB_rect,0);
863         rt = ibuf->rect;
864         glReadPixels(rect->xmin+vc.ar->winrct.xmin,  rect->ymin+vc.ar->winrct.ymin, sx, sy, GL_RGBA, GL_UNSIGNED_BYTE,  ibuf->rect);
865         if(ENDIAN_ORDER==B_ENDIAN) IMB_convert_rgba_to_abgr(ibuf);
866
867         a= sx*sy;
868         while(a--) {
869                 if(*rt) {
870                         index= WM_framebuffer_to_index(*rt);
871                         if(index<=me->totface) selar[index]= 1;
872                 }
873                 rt++;
874         }
875
876         mface= me->mface;
877         for(a=1; a<=me->totface; a++, mface++) {
878                 if(selar[a]) {
879                         if(mface->flag & ME_HIDE);
880                         else {
881                                 if(select) mface->flag |= ME_FACE_SEL;
882                                 else mface->flag &= ~ME_FACE_SEL;
883                         }
884                 }
885         }
886
887         IMB_freeImBuf(ibuf);
888         MEM_freeN(selar);
889
890
891 // XXX notifier!                        object_tface_flags_changed(OBACT, 0);
892 #ifdef __APPLE__        
893         glReadBuffer(GL_BACK);
894 #endif
895         
896         object_facesel_flush_dm(ob);
897 }