[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 303630ed734bbecd7068e88edd6b485f64d2e7db
Author: Stephane Popinet <s.popinet at niwa.co.nz>
Date:   Tue Aug 16 16:52:42 2005 +1000

    Bi-directional streamlines had duplicate vertices
    
    darcs-hash:20050816065242-fbd8f-47e782214f58eb95474f7415a780091ae8cfce9f.gz

diff --git a/src/graphic.c b/src/graphic.c
index e95463a..7cc9393 100644
--- a/src/graphic.c
+++ b/src/graphic.c
@@ -1819,12 +1819,14 @@ GList * gfs_streamline_new (GfsDomain * domain,
 					       gpointer),
 			    gpointer data)
 {
-  GList * path;
+  GList * i, * path;
 
   g_return_val_if_fail (domain != NULL, NULL);
   g_return_val_if_fail (U != NULL, NULL);
 
-  path = grow_curve (domain, U, p, var, min, max, twist, NULL, 1., stop, data);
+  i = grow_curve (domain, U, p, var, min, max, twist, NULL, 1., stop, data);
+  path = g_list_remove_link (i, i);
+  g_list_free (i);
   path = grow_curve (domain, U, p, var, min, max, twist, path, -1., stop, data);
   return path;
 }

-- 
Gerris Flow Solver