Draw vertical separators for all pages in the layout

... when using page scaling factor.

malc committed 5 years ago

Commit 17d4bbf1 parent a3df5891 file · +13 −11Browse files

Unified · Split

   if conf.pgscale > 0.0
   then (
     let yh = conf.pgscale *. float !S.winh in
-    match !S.layout with
+    let drawsep y =
-    | _ :: [] ->
+       let x0 = 0.0 and y0 = y -. 3.0 in
-       Gl.enable `blend;
+       let x1 = float !S.winw and y1 = y +. 3.0 in
-       GlDraw.color (0.1, 0.1, 0.1) ~alpha:0.5;
-       GlFunc.blend_func ~src:`src_alpha ~dst:`one_minus_src_alpha;
-       let x0 = 0.0
-       and y0 = yh -. 3.0 in
-       let x1 = float !S.winw
-       and y1 = yh +. 3.0 in
        Glutils.filledrect x0 y0 x1 y1;
-       Gl.disable `blend;
+    in
-    | _ -> ()
+    Gl.enable `blend;
+    GlDraw.color (0.1, 0.1, 0.1) ~alpha:0.5;
+    GlFunc.blend_func ~src:`src_alpha ~dst:`one_minus_src_alpha;
+    begin match !S.layout with
+    | _ :: [] -> drawsep yh
+    | l ->
+       List.iter (fun {pagedispy=y; pagevh=h; _} -> drawsep (float (y+h))) l
+    end;
+    Gl.disable `blend;
   );
   Wsi.swapb ()

Keyboard shortcuts