type Ellipse (cx: float32, cy: float32, a: float32, b: float32, alpha: float32) =
member this.Cx = cx
member this.Cy = cy
type Ellipse (cx: float32, cy: float32, a: float32, b: float32, alpha: float32) =
member this.Cx = cx
member this.Cy = cy
member this.Contains x y =
((x - cx) * cos alpha + (y - cy) * sin alpha) ** 2.f / a ** 2.f + ((x - cx) * sin alpha - (y - cy) * cos alpha) ** 2.f / b ** 2.f <= 1.f
member this.Contains x y =
((x - cx) * cos alpha + (y - cy) * sin alpha) ** 2.f / a ** 2.f + ((x - cx) * sin alpha - (y - cy) * cos alpha) ** 2.f / b ** 2.f <= 1.f