Added filtering for vector generation to only produce valid vectors.

This commit is contained in:
Jarl Gullberg 2017-06-02 20:32:16 +02:00
parent 809e7b4379
commit 28bede6ca1
No known key found for this signature in database
GPG key ID: 750FF6F6BDA72D23

View file

@ -22,18 +22,21 @@ module private Generators =
singleArb
|> Gen.two
|> Gen.map Vector2
|> Gen.filter (fun v -> not <| (Single.IsNaN v.Length || Single.IsInfinity v.Length ))
|> Arb.fromGen
let vec3 =
singleArb
|> Gen.three
|> Gen.map Vector3
|> Gen.filter (fun v -> not <| (Single.IsNaN v.Length || Single.IsInfinity v.Length ))
|> Arb.fromGen
let vec4 =
singleArb
|> Gen.four
|> Gen.map Vector4
|> Gen.filter (fun v -> not <| (Single.IsNaN v.Length || Single.IsInfinity v.Length ))
|> Arb.fromGen
let quat =