|
|
|
@ -8,11 +8,11 @@ For now, I will not go into detail on what the specifications look like. Instead
|
|
|
|
|
|
|
|
|
|
```f# |
|
|
|
|
let ``draw-image`` imgWidth imgHeight mainColour oColour oType path = |
|
|
|
|
try |
|
|
|
|
// Assume "buildSpec" is the abstracted version of step 1 above. |
|
|
|
|
buildSpec imgWidth imgHeight mainColour oColour oType path |
|
|
|
|
|> makeImage |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
try |
|
|
|
|
// Assume "buildSpec" is the abstracted version of step 1 above. |
|
|
|
|
buildSpec imgWidth imgHeight mainColour oColour oType path |
|
|
|
|
|> makeImage |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
with |
|
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
|
| _ as ex -> ex.Message |
|
|
|
|