Графическое автомасштабирование

Я не до конца пытался понять ваш код, но, возможно, вы могли бы использовать масштабное преобразование, которое можно указать объекту Graphics. Оно изменяет систему координат Graphics, поэтому все рисунки, которые вы выполняете (например, используя DrawEllipse), автоматически масштабируются - вы можете установить масштабирование таким образом, что единичный круг будет выглядеть как круг радиусом 50.

• Чтобы задать преобразование, используйте метод ScaleTransfrom (см. MSDN documentation для получения дополнительной информации) экземпляра Graphics (значение g в вашем коде).

Как сказал Томаш, вы можете использовать масштабные преобразования. Если вы хотите нарисовать круг, используя маленькие кривые, вы можете использовать несколько вызовов DrawCurve :)

Для этого я немного изменил код Джона:

• used System.Drawing. Point вместо вашей записи
• модифицировал unit_circle так, чтобы он возвращал кортеж, представляющий координаты x и y
• превратил ваш список углов в последовательность последовательностей углов. Это будет полезно, поскольку мы можем иметь переменное количество узлов для нашей кривой (кардинального сплайна), представленное константой N

• реализовали метод splitRepeatEvery, например:

  Seq.splitRepeatEvery 3 { 1 ... 10 } возвращает seq [seq [1; 2; 3]; seq [3; 4; 5]; seq [5; 6; 7]; seq [7; 8; 9]; seq [9; 10]]

Вот код:

module Seq =
    /// Split a sequence into pieces, each n items long
    /// repeating elements between start and end of subsequences.
    let splitRepeatEvery (count : int) (source : seq<'T>) = 
        if not (count > 1) then failwith "count must be superior to 1"
        seq { use e = source.GetEnumerator()
              let hasNext = ref (e.MoveNext())
              while !hasNext do
                 let (block:option<'T>[]) = Array.create count None

                 for i in 0 .. count - 1 do
                     do block.[i] <- if !hasNext then Some(e.Current) else None
                     if (i <> count - 1) then do hasNext := e.MoveNext()

                 yield seq { yield! block }
                 |> Seq.filter (fun x -> x.IsSome)
                 |> Seq.map (function Some(e) -> e | _ -> failwith "" ) }

let unit_circle (angle : float) = 
    (sin <| 2.0 * Math.PI * angle), (cos <| 2.0 * Math.PI * angle)

let draw_connected curve radius (seqOfAngles : float seq seq) knotsCount =
    let form = new Form(Text = "Curve")

    let computeBoundingBox points =
        let search f acc array =
            Array.fold (fun (x,y) (p:Point) -> f p.X x, f p.Y y) acc array
        let minX, minY = search min (form.ClientSize.Width, form.ClientSize.Height) points
        let maxX, maxY = search max (0,0) points
        new Rectangle(minX, minY, abs(minX-maxX), abs(minY-maxY))

    let drawCurves (gfx : Graphics) =
        // Create a buffer for storing our knots
        let buffer = Array.create knotsCount (new Point())
        let mutable i = 0

        for angles in seqOfAngles do
            for angle in angles do
                let x, y = curve angle
                let X = int(x * radius + (float)form.ClientSize.Width  / 2.0)
                let Y = int(y * radius + (float)form.ClientSize.Height / 2.0)
                let P = new Point(X, Y)
                buffer.[i] <- P
                i <- i + 1

            let knots = buffer.[0..(i-1)]
            // Draw spline only if we have one or more knots
            if knots.Length <> 1 then
                gfx.DrawCurve(Pens.Red, knots)
                // For debug: compute BBox of an array of points and draw it
                let debugRect = computeBoundingBox knots
                gfx.DrawRectangle(Pens.Black, debugRect)

            // Don't forget to reset position in buffer between each spline draw call
            i <- 0

    form.Paint.Add (fun pntEvntArgs -> drawCurves pntEvntArgs.Graphics)    
    form.Show ()
    form

// Define constants    
let STEP = 0.050
let N = 4
// Define a new sequence of sequence of angles
let s = {0.0 .. STEP .. 1.0} |> Seq.splitRepeatEvery N
let form = draw_connected unit_circle 120.0 s N

// For debug: print sequence of sequence of angles
s |> Seq.iter (fun s -> Seq.iter (fun x -> printf "%f " x) s; printfn "")

while form.Created do
    Thread.Sleep (1)
    Application.DoEvents ()
done

Вы можете играть с различными значениями N (количество узлов для сплайнов) и STEP (но учтите, что STEP должен быть выбран так, чтобы 1. 0f была кратна STEP или числу с плавающей запятой, чтобы последний элемент последней последовательности был достаточно близок к 1.0f, иначе последний сплайн не соединится с первым!) И вуаля!

alt text http://img818.imageshack.us/img818/9765/circles3.png