From d06a9476717d788c426e88b6365d7a863928b5c9 Mon Sep 17 00:00:00 2001
From: Samo Penic <samo.penic@gmail.com>
Date: Mon, 09 Dec 2013 00:29:28 +0000
Subject: [PATCH] Debugging bondflip

---
 src/bond.c |   74 +++++++++++++++++++++++++++++++++---
 1 files changed, 67 insertions(+), 7 deletions(-)

diff --git a/src/bond.c b/src/bond.c
index 1478720..7e98110 100644
--- a/src/bond.c
+++ b/src/bond.c
@@ -15,8 +15,8 @@
     if(vtx1==NULL || vtx2==NULL) return NULL;
     /* Verify if the bond already exists... Don't do multiple bonds */
     for(i=0;i<blist->n;i++){
-       if((blist->bond[i]->data->vtx1==vtx1 || blist->bond[i]->data->vtx1==vtx2)
-        &&(blist->bond[i]->data->vtx2==vtx1 || blist->bond[i]->data->vtx2==vtx2))
+       if((blist->bond[i]->vtx1==vtx1 || blist->bond[i]->vtx1==vtx2)
+        &&(blist->bond[i]->vtx2==vtx1 || blist->bond[i]->vtx2==vtx2))
         return blist->bond[i];
     }
 	blist->n++;
@@ -24,21 +24,81 @@
 	if(blist->bond==NULL) fatal("Cannot reallocate memory for additional **ts_bond.",100);
     blist->bond[blist->n-1]=(ts_bond *)malloc(sizeof(ts_bond));
     if(blist->bond[blist->n-1]==NULL) fatal("Cannot allocate memory for additional *ts_bond.",100);
-    blist->bond[blist->n-1]->data=(ts_bond_data *)malloc(sizeof(ts_bond_data));
     
 	//NOW insert vertices into data!	
-	blist->bond[blist->n - 1]->data->vtx1=vtx1;	
-	blist->bond[blist->n - 1]->data->vtx2=vtx2;
-
+	blist->bond[blist->n - 1]->vtx1=vtx1;	
+	blist->bond[blist->n - 1]->vtx2=vtx2;
+	blist->bond[blist->n - 1]->tainted=0;
     //Should we calculate bond length NOW?
+
+
+	
 	
 	return blist->bond[blist->n-1];
+}
+
+
+/* Two triangles are assigned to the bond. Bond must already be initialized. */
+ts_bool bond_assign_triangles(ts_bond *bond){
+	ts_vertex *vtx1=bond->vtx1, *vtx2=bond->vtx2;
+	ts_uint i,j,k;
+	ts_uint i1=0,i2=0,i3=0,im=0;
+	ts_triangle *ttria;
+	for(i=0,k=0;i<vtx1->tristar_no;i++){
+		for(j=0;j<3;j++){
+			if(vtx1->tristar[i]->vertex[j]==vtx2){
+				//triangle found;
+				bond->tria[k]=vtx1->tristar[i];
+				k++;
+			}
+		}
+	}
+	if(k<2) return TS_FAIL;
+
+	//We will sort the triangles so, they are oriented as km and kp for bondflip
+	for(i=0;i<3;i++){
+		if(bond->tria[0]->vertex[i]==vtx1){
+			i1=i;
+		}
+		else if(bond->tria[0]->vertex[i]==vtx2){
+			i2=i;
+		}
+		else i3=i;
+	}
+
+	if(i1>i2 || (i1==0 && i2==2)){
+		//pozitivna orientacija!
+		ttria=bond->tria[0];
+		bond->tria[0]=bond->tria[1];
+		bond->tria[1]=ttria;	
+		bond->adjvtx[1]=bond->tria[0]->vertex[i3];
+		im=0;
+	}
+	else{
+		bond->adjvtx[0]=bond->tria[0]->vertex[i3];
+		im=1;
+	}
+	
+		for(i=0;i<3;i++){
+		if(bond->tria[1]->vertex[i]==vtx1){
+			i1=i;
+		}
+		else if(bond->tria[1]->vertex[i]==vtx2){
+			i2=i;
+		}
+		else i3=i;
+	}
+		bond->adjvtx[im]=bond->tria[1]->vertex[i3];
+#ifdef DEBUG
+	if(bond->adjvtx[0]==NULL) fatal("AdjVTX[0] is NULL",1);
+	if(bond->adjvtx[1]==NULL) fatal("AdjVTX[1] is NULL",1);
+#endif
+	return TS_SUCCESS;
 }
 
 ts_bool bond_list_free(ts_bond_list *blist){
     ts_uint i;
     for(i=0;i<blist->n;i++){
-    free(blist->bond[i]->data);
     free(blist->bond[i]);
     }
     free(blist->bond);

--
Gitblit v1.9.3