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