Circtacular (Множество кругов)

Date: 2015-10-07; view: 486.

Rectangalore (Множество прямоугольников)

Здесь мы нарисуем множество прямоугольников, циклически увеличивающихся в размерах.

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.PenColor = "LightBlue"

GraphicsWindow.Width = 200

GraphicsWindow.Height = 200

For i = 1 To 100 Step 5

GraphicsWindow.DrawRectangle(100 - i, 100 - i, i * 2, i * 2)

EndFor

Рисунок 33- Множество прямоугольников

Вариант предыдущей программы, рисующей круги вместо прямоугольников.

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.PenColor = "LightGreen"

GraphicsWindow.Width = 200

GraphicsWindow.Height = 200

For i = 1 To 100 Step 5

GraphicsWindow.DrawEllipse(100 - i, 100 - i, i * 2, i * 2)

EndFor

Рисунок 34 – Множество кругов