package OSCADml

  1. Overview
  2. Docs

Source file text0.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
32
33
34
35
36
37
38
39
40
41
42
43
44
type h_align =
  | Left
  | Center
  | Right

type direction =
  | LeftToRight
  | RightToLeft
  | TopToBottom
  | BottomToTop

type v_align =
  | Top
  | Center
  | Baseline

type t =
  { text : string
  ; size : float option
  ; font : string option
  ; halign : h_align option
  ; valign : v_align option
  ; spacing : float option
  ; direction : direction option
  ; language : string option
  ; script : string option
  ; fn : int option
  }

let h_align_to_string = function
  | Left   -> "left"
  | Center -> "center"
  | Right  -> "right"

let v_align_to_string = function
  | Top      -> "top"
  | Center   -> "center"
  | Baseline -> "baseline"

let direction_to_string = function
  | LeftToRight -> "ltr"
  | RightToLeft -> "rtl"
  | TopToBottom -> "ttb"
  | BottomToTop -> "btt"