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