Commit 734ce39d authored by Benoit Barbot's avatar Benoit Barbot
Browse files

fix color

parent e9884b7e
Pipeline #1780 failed with stage
in 26 seconds
......@@ -100,9 +100,10 @@ module GraphEditor (G: GRAPH ) = struct
let clean s =
let ctx = s.ctx in
let color = CSS.Color.string_of_t (CSS.Color.rgb 220 220 220) in
(*let color = CSS.Color.string_of_t (CSS.Color.rgb 220 220 220) in
ctx##.fillStyle := (Js.string color);
ctx##(fillRect 0.0 0.0 (float width) (float height));
ctx##(fillRect 0.0 0.0 (float width) (float height));*)
ctx##(clearRect 0.0 0.0 (float width) (float height));
let colors = CSS.Color.string_of_t (CSS.Color.rgb 0 0 0) in
ctx##.strokeStyle := (Js.string colors)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment