@ -73,6 +73,13 @@
Intended for horizontal and vertical line tests. * )
Intended for horizontal and vertical line tests. * )
let newNum () = rand.Next(1, 1000 )
let newNum () = rand.Next(1, 1000 )
// Used mostly for making the image grey scale when add a grid to i t .
let newBool() =
let num = r a n d . N e x t D o u b l e ( )
match num w i t h
| x when num < 0 .5 -> t r u e
| _ -> f a l s e
let newPenWidth () = rand.Next (1, 10 )
let newPenWidth () = rand.Next (1, 10 )
let newRGBANum () = rand.Next ( 255 )
let newRGBANum () = rand.Next ( 255 )
@ -134,7 +141,7 @@
penWidth = float32 ( n e w P e n W i d t h ( ) )
penWidth = float32 ( n e w P e n W i d t h ( ) )
rows = 10
rows = 10
columns = 10 } )
columns = 10 } )
|> applyGridToImageAsync true // true is t e m p .
|> applyGridToImageAsync ( n e w B o o l ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
|> A s y n c . R u n S y n c h r o n o u s l y
(File.Exists sPath) = t r u e
(File.Exists sPath) = t r u e
@ -152,7 +159,7 @@
penWidth = float32 ( n e w P e n W i d t h ( ) )
penWidth = float32 ( n e w P e n W i d t h ( ) )
rows = 10
rows = 10
columns = 10 } )
columns = 10 } )
|> applyGridToImageAsync true // true is t e m p .
|> applyGridToImageAsync ( n e w B o o l ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
|> A s y n c . R u n S y n c h r o n o u s l y
(File.Exists sPath) = t r u e
(File.Exists sPath) = t r u e
@ -199,7 +206,7 @@
penWidth = float32 ( n e w P e n W i d t h ( ) )
penWidth = float32 ( n e w P e n W i d t h ( ) )
rows = newNum ( )
rows = newNum ( )
columns = newNum () } )
columns = newNum () } )
|> applyGridToImageAsync true // true is t e m p .
|> applyGridToImageAsync ( n e w B o o l ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
|> A s y n c . R u n S y n c h r o n o u s l y
(File.Exists sPath) = t r u e
(File.Exists sPath) = t r u e
@ -217,7 +224,7 @@
penWidth = float32 ( n e w P e n W i d t h ( ) )
penWidth = float32 ( n e w P e n W i d t h ( ) )
rows = newNum ( )
rows = newNum ( )
columns = newNum () } )
columns = newNum () } )
|> applyGridToImageAsync true // true is t e m p .
|> applyGridToImageAsync ( n e w B o o l ( ) )
|> A s y n c . R u n S y n c h r o n o u s l y
|> A s y n c . R u n S y n c h r o n o u s l y
(File.Exists sPath) = t r u e
(File.Exists sPath) = t r u e