simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-10 21:24:05 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

raytracer: improve progress bar

Browse source
This commit is contained in:
Simon Cruanes 2023-06-08 16:38:29 -04:00
parent 71981e437c
commit 3858d64bc2
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
benchs/raytracer/raytracer.ml
View file

@ -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;