Рисуем стог сена

Одно из интересных заданий. Впоследствии код можно использовать в функции и рисовать стог сена на какой — либо картинке, либо в игре. Условие задания

«Стог сена». Множество случайных разноцветных отрезков прямых преимуще-ственно желтоватых оттенков, причем одна точка любого отрезка находится в случайной точке левой трети стога, другая – в случайной точке правой. Размер стога – 600 на 600.

Решение в коде

Public Class Form1

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim graf As Graphics 'Объявляем переменную для рисования
        graf = PictureBox1.CreateGraphics 'указывает, что рисование будет на PictureBox
        Dim x1, y1 As Decimal ' переменные для начальных и конечных координатов отрезков

        For i = 1 To 2000 'цикл
            x1 = 200 * Rnd()
            y1 = 600 * Rnd()
            graf.DrawArc(Pens.Gold, x1, y1, 400, 400, 180, 180)
            x1 = 200 * Rnd()
            y1 = 600 * Rnd()
            graf.DrawArc(Pens.Yellow, x1, y1, 400, 400, 180, 180)
            Randomize() 'беспорядочный рандом

        Next

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Width = 600
        PictureBox1.Height = 600
    End Sub
End Class
End Class

Пояснения кода

На форму, как и в предыдущих заданиях Сноп света, Мыльные пузыри, Дождь в луже, на форму добавляем кнопку и PictureBox.
Объявляем переменную для рисования. Указываем, что рисовать будем на PictureBox
По умолчанию стог сена должен быть 600 *600, сделать таким размером PictureBox, написал код , чтоб при загрузке формы размер сразу был таким по условию.
Гораздо удобнее, да и похоже на стог сена будет, в том случае, если будет использовать не drawline , а drawarc — дугу определённого цвета.
Размещаем графу в цикле. Бесконечный цикл я не писал, В итоге получился такой симпотячный стог сена, который видно на картинке.