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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 7e718c5c0d61b80c4dba1ba224a3026547546f7b
Author: Stephane Popinet <popinet at users.sourceforge.net>
Date:   Mon Oct 18 12:36:26 2004 +1000

    GTS solid files can also be written in binary format. (gerris--mainline--0.5--patch-7)
    
    gerris--mainline--0.5--patch-7
    Keywords:
    
    darcs-hash:20041018023626-aabb8-27becf4cf8830cbba7926f7ae4de76a973ed3a9c.gz

diff --git a/src/simulation.c b/src/simulation.c
index fc27698..8f43ec8 100644
--- a/src/simulation.c
+++ b/src/simulation.c
@@ -188,7 +188,14 @@ static void simulation_write (GtsObject * object, FILE * fp)
 
   if (sim->surface) {
     fputs ("  GtsSurface { ", fp);
-    gts_surface_write (sim->surface, fp);
+    if (GFS_DOMAIN (sim)->binary) {
+      gboolean binary = GTS_POINT_CLASS (sim->surface->vertex_class)->binary;
+      GTS_POINT_CLASS (sim->surface->vertex_class)->binary = TRUE;
+      gts_surface_write (sim->surface, fp);
+      GTS_POINT_CLASS (sim->surface->vertex_class)->binary = binary;
+    }
+    else
+      gts_surface_write (sim->surface, fp);
     fputs ("}\n", fp);
   }
 #if 1

-- 
Gerris Flow Solver