package oxbow

  1. Overview
  2. Docs
package oxbow
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file gaps.ml

1
2
3
4
5
6
7
8
open! Oxbow_core

let pre (gaps : Params.Gaps.t) area =
  let by = max 0 (gaps.outer - (gaps.inner / 2)) in
  Rect.inset ~by area
;;

let post (gaps : Params.Gaps.t) rect = Rect.inset ~by:(gaps.inner / 2) rect