package graphv_font

  1. Overview
  2. Docs

Source file quad.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
type t = {
    mutable x0 : float;
    mutable y0 : float;
    mutable s0 : float;
    mutable t0 : float;
    mutable x1 : float;
    mutable y1 : float;
    mutable s1 : float;
    mutable t1 : float;
}

let empty () = {
    x0 = 0.;
    y0 = 0.;
    s0 = 0.;
    t0 = 0.;
    x1 = 0.;
    y1 = 0.;
    s1 = 0.;
    t1 = 0.;
}

let reset t =
    t.x0 <- 0.;
    t.y0 <- 0.;
    t.s0 <- 0.;
    t.t0 <- 0.;
    t.x1 <- 0.;
    t.y1 <- 0.;
    t.s1 <- 0.;
    t.t1 <- 0.;