Commits

Guillaume Hennequin  committed 3310e50 Merge

merged with laptop

  • Participants
  • Parent commits 029eb77, aaeb042

Comments (0)

Files changed (1)

 (*
-   
+
    Copyright (C) 2010 Guillaume Hennequin
-   
+
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
-   
+
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
-   
+
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see http://www.gnu.org/licenses
-   
+
    *)
 
 
   and height = (1. -. vrem) /. float rows in
   for k=0 to Array.length plots - 1 do
     let row = k/cols and col = k mod cols in
-    let t = 1. -. hspace -. 2. *. hspace *. float row -. height *. float row in
+    let t = 1. -. hspace -. 2. *. hspace *. float row 
+            -. height *. float row in
     let b = t -. height in
-    let l = 1. -. (1. -. vspace -. 2. *. vspace *. float col -. width *. float col) in
+    let l = 1. -. (1. -. vspace -. 2. *. vspace *. float col 
+                   -. width *. float col) in
     let r = l +. width in
     margins ~t ~b ~l ~r f;
     plots.(k) f;
   send ["unset multiplot"] f
 
 
-let quick doThis =
-  let f = figure() in
-  doThis f;
+let quick do_this =
+  let f = figure () in
+  do_this f;
+  flush f;
   close f