package claudius

  1. Overview
  2. Docs

Source file primitives.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type point = { x : int; y : int }

type t =
  | Circle of point * float * int
  | FilledCircle of point * float * int
  | Ellipse of point * float * float * int
  | FilledEllipse of point * float * float * int
  | Line of point * point * int
  | Pixel of point * int
  | Polygon of point list * int
  | FilledPolygon of point list * int
  | Rect of point * point * int
  | FilledRect of point * point * int
  | Triangle of point * point * point * int
  | FilledTriangle of point * point * point * int
  | Char of point * Font.t * char * int
  | String of point * Font.t * string * int
  | Picture of point * Picture.t