在 F# 中在 Windows 窗体中绘图答案

【问题标题】：Drawing in a Windows Form in F#在 F# 中在 Windows 窗体中绘图
【发布时间】：2013-03-08 00:18:07
【问题描述】：

我正在尝试在 F# 中绘制非自定义（我的意思是，只是创建默认表单类的实例，而不是我可以创建的派生类的实例）System.Windows.Forms.Form。

我创建了一个自定义表单，但我不需要也不想要这样一个新的复杂结构，所以我删除了它，它大大简化了代码；如此之多，以至于它停下来显示图像。

问题一定出在我创建的要绘制的函数中，也就是在另一个 F# 项目中。我创建了它（函数conect）以按照它们提供的顺序连接点，不像System.Drawing.Graphics.DrawLines，它以其他顺序在点之间画线，为什么还没有注意到（可能从右到左，从上到下，如点所表示的那样）。

Programa.fs相关代码sn-p：

let pen = new Pen(brush = Brushes.Black, width = 1.0f)
let original =            
    ([|new PointF(50.0f, 50.0f); new PointF(100.0f, 50.0f)|])

use form1 = new Form(Width = 400, Height = 400, Text = "Fractais (Teste - Windows Forms)")

form1.Paint.Add(
    fun e -> // (1)
        original
        |> List.ofArray        
        |> Base.applyFractal 1uy Base.fractalFunc1
        |> Base.conect e.Graphics pen)

如果在 lambda 表达式中而不是写的内容中有 e.Graphics.DrawLines(pen, original)，它将在列表中的点之间画一条简单的线。

这是 Base.fs 中解决方案中的麻烦制造者方法：

let conect (gr:Graphics) (pen:Pen) (points:PointF list) =
    let rec usefulFunc (gr:Graphics) (pen:Pen) (points:PointF list) prevPoint =
        match points with
        | [] -> ()
        | point :: remainings ->                
            gr.DrawLine (pen, prevPoint, point)
            usefulFunc gr caneta remainings.Tail remainings.Head
    usefulFunc gr pen points.Tail points.Head

以及调用（来自表单初始化 sn-p）和相关方法的签名，在 Base.fsi 中（我可以给你所有完整方法的实现，但它会占用很多空间，这是可能对你来说已经成为一个很长的问题了）：

val fractalFunc1 : points:PointF list -> PointF list
val applyFractal : stepNumber:byte -> fractalFunc:(PointF list -> PointF list) -> points:PointF list -> PointF list
val conect : gr:Graphics -> pen:Pen -> points:PointF list -> unit

对于这个特定的问题，我的搜索结果没有。我想知道如何使函数conect 工作。

提前致谢。

【问题讨论】：

您确定在Base.aplicFractal 1uy Base.funcFractal1 中完成的计算返回了正确的点位置吗？
Devias mudar os nomes das variáveis para inglês antes de colocares a pergunta, senão é bastante estranho para quem não saiba português。 Se vires código com nomes de variáveis em alemão por exemplo também vais estranhar bastante, e faz confusão
@TomasPetricek，方法内部确实有错误（你是怎么猜到的？），有两个值分别叫做theta0和theta00（这些相似的可能不推荐的名字有很长的解释），用于将极坐标转换为笛卡尔坐标。不过现在已经更正了，System.Drawing.Graphics.DrawLines 确实可以正常工作。
@GustavoGuerra, agora, com o Google Tradutor, não há tanto questiona, especialmente porque este código é simples, e os nomes pouco relatedes。 De qualquer modo tens razão, e por isso mudei os nomes para inglês。

标签： winforms f# drawing

【解决方案1】：

你在 conectar 中有一个错误。

fUtil gr caneta resto.Tail resto.Head

应该是

fUtil gr caneta resto ponto

您已经在 match 语句中匹配了头部和尾部。

以下代码为我画了一条线。我不需要做太多修改。

open System.Drawing
open System.Windows.Forms

let caneta = new Pen(brush = Brushes.Black, width = 1.0f)
let original =            
    ([|new PointF(50.0f, 50.0f); new PointF(100.0f, 50.0f)|])

let form1 = new Form(Width = 400, Height = 400, Text = "Fractais (Teste - Windows Forms)")

let conectar (gr:Graphics) (caneta:Pen) (pontos:PointF list) =
    let rec fUtil (gr:Graphics) (caneta:Pen) (pontos:PointF list) pontoAnt =
        match pontos with
        | [] -> ()
        | ponto :: resto ->                
            gr.DrawLine (caneta, pontoAnt, ponto)
            fUtil gr caneta resto ponto
    fUtil gr caneta pontos.Tail pontos.Head

form1.Paint.Add(
    fun e -> // (1)
        original
        |> List.ofArray        
        //|> aplicFractal 1uy Base.funcFractal1
        |> conectar e.Graphics caneta)

form1.Show()

Application.Run(form1)

【讨论】：

该死！我知道这是某种愚蠢的错误，我就是找不到哪里！感谢您指出这一点，从而回答了我的问题。