|
|
|
Метод Polygon вычерчивает
многоугольник. В качестве параметра метод получает массив типа TPoint. Каждый
элемент массива представляет собой запись, поля (х,у) которой содержат координаты
одной вершины многоугольника. Метод Polygon вычерчивает многоугольник, последовательно
соединяя прямыми линиями точки, координаты которых находятся в массиве: первую
со второй, вторую с третьей, третью с четвертой и т. д. Затем соединяются последняя
и первая точки.
Цвет и стиль границы
многоугольника определяются значениями свойства Реп, а цвет и стиль заливки
области, ограниченной линией границы, — значениями свойства Brush, причем область
закрашивается с использованием текущего цвета и стиля кисти.
Ниже приведена процедура,
которая, используя метод polygon, вычерчивает треугольник:
procedure TForm1.Button2Click(Sender: TObject);
var
pol: array[1..3] of TPoint; // координаты точек треугольника
begin
pol[1].x
:= 10;
polf1].y
:= 50;
pol[2].x := 40;
pol[2].y := 10;
pol[3].х := 70;
pol[3].у := 50;
Form1.Canvas.Polygon(pol);
end;
|
|
|
Понятие же "физического вакуума" в релятивистской квантовой теории поля подразумевает, что во-первых, он не имеет физической природы, в нем лишь виртуальные частицы у которых нет физической системы отсчета, это "фантомы", во-вторых, "физический вакуум" - это наинизшее состояние поля, "нуль-точка", что противоречит реальным фактам, так как, на самом деле, вся энергия материи содержится в эфире и нет иной энергии и иного носителя полей и вещества кроме самого эфира.
В отличие от лукавого понятия "физический вакуум", как бы совместимого с релятивизмом, понятие "эфир" подразумевает наличие базового уровня всей физической материи, имеющего как собственную систему отсчета (обнаруживаемую экспериментально, например, через фоновое космичекое излучение, - тепловое излучение самого эфира), так и являющимся носителем 100% энергии вселенной, а не "нуль-точкой" или "остаточными", "нулевыми колебаниями пространства". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
