From 3858d64bc20f3503dda464d39f0c338e092d0070 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 8 Jun 2023 16:38:29 -0400
Subject: [PATCH] raytracer: improve progress bar

---
 benchs/raytracer/raytracer.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/benchs/raytracer/raytracer.ml b/benchs/raytracer/raytracer.ml
index caf4232b..13c4cb4f 100644
--- a/benchs/raytracer/raytracer.ml
+++ b/benchs/raytracer/raytracer.ml
@@ -245,6 +245,7 @@ type queue_item =
   | Unblock_next_line of unit Fut.promise
 
 type state = {
+  config: config;
   start: float;
   active: bool Atomic.t;
   n_done: int Atomic.t;
@@ -259,8 +260,9 @@ let progress_thread (st : state) : Thread.t =
   let run () =
     while Atomic.get st.active do
       let elapsed = Unix.gettimeofday () -. st.start in
-      pf "%s[%.3fs] %d done, %d waiting%!" reset_line_ansi elapsed
-        (Atomic.get st.n_done) (Atomic.get st.n_waiting);
+      let total = st.config.nx * st.config.ny in
+      pf "%s[%.3fs] %d/%d done, %d waiting%!" reset_line_ansi elapsed
+        (Atomic.get st.n_done) total (Atomic.get st.n_waiting);
       Thread.delay 0.1
     done
   in
@@ -314,6 +316,7 @@ let run (config : config) =
   let st =
     {
       active = Atomic.make true;
+      config;
       start = Unix.gettimeofday ();
       n_done = Atomic.make 0;
       n_waiting = Atomic.make 0;