Unified · Split
| @@ -421,11 +421,10 @@ let drawtiles l color = · 420 unmodified lines | ||
| 421 | 421 | | None -> |
| 422 | 422 | Ffi.endtiles (); |
| 423 | 423 | let w = let lw = state.winw - x in min lw w |
| 424 | − and h = let lh = state.winh - y in min lh h | |
| 425 | − in | |
| 424 | + and h = let lh = state.winh - y in min lh h in | |
| 426 | 425 | if conf.invert |
| 427 | 426 | then GlTex.env (`mode `blend); |
| 428 | − GlDraw.color (1.0, 1.0, 1.0); | |
| 427 | + GlDraw.color (0.8, 0.8, 0.8); | |
| 429 | 428 | filledrect (float x) (float y) (float (x+w)) (float (y+h)); |
| 430 | 429 | if conf.invert |
| 431 | 430 | then GlTex.env (`mode `modulate); |