> let drawElements elements (gr:Graphics) =
for p in elements do [1]
match p with
| TextElement(text, boundingBox) –>
let boxf = toRectangleF(boundingBox) <-- 把 Rect 转换成 .NET RectangleF
gr.DrawString(text.Text, text.Font, Brushes.Black, boxf)
| ImageElement(imagePath, boundingBox) –>
let bmp = new Bitmap(imagePath) <-- 加载图像
let wspace, hspace =
boundingBox.Width / 10.0f, boundingBox.Height / 10.0f | [2]
let rc = toRectangleF(deflate(boundingBox, wspace, hspace)) |
gr.DrawImage(bmp, rc);;
val drawElements : seq<ScreenElement> -> Graphics –> unit
函数把特定的元素列表绘制到给定的图形（Graphics）对象上，第一个参数类型是 seq <ScreenElement>，表示包含 ScreenElement 类型值的任何集合。到目前为止，我们处理过的都是列表，在第十和十二章，会看到其他集合类型（如数组）。在代码中，我们只需要用 for 循环遍历集合中的元素，编译器能够推断出一般类型。类型 seq <‘a> 相当于 C# 中的泛型 IEnumerable<T>，因此，参数类型应该是 IEnumerable<ScreenElement>。
代码还使用了前一节处理 Rect 值的函数，用 toRectangleF 把 Rect 值转换成 DrawString 方法需要的类型，用 deflate 增加图像周围的空间。
绘图函数的另一个参数是图形对象，因此，需要某种方法创建。最后一步，我们将写代码来创建窗体，并把文档绘制上去。
