Этот объект назвала "Звездный координатор"
Вложение:
Комментарий к файлу: Звездный координатор
coord-Sr.jpg [ 145.4 КБ | Просмотров: 17645 ]
Это вовсе не значит, что объект является "Координатором", в том смысле, как подразумевается в описание ВЦ.
Просто объект так себя назвал, не более того)))
--=-=-=-=
Были вопросы, как построить подобный объект?
Это чрезвычайно просто:
Вот фрагмент программы, прорисовывающей различные формы из цветных "звезд":
'====
Picture1.DrawStyle = 0
Picture1.DrawWidth = 1
Picture1.DrawWidth = 1
Picture1.DrawStyle = 1
'Picture1.Cls
pi = 3.141593
y00 = 200
x00 = 0
' rr = 2
dx = 2
dy = 2
xmax = 250
ymax = 200
c0 = 255
c00 = 134
c1 = 0
c2 = 255
r0 = 110
For t = 0 To 180 Step 0.002 ' 90'180
rr = r0 + 260 * Cos(t * 0.01) ^ 8 + 90 * Sin(t * 18.125) ^ 8
'rr = r0 + 260 * Cos(t * 0.01) ^ 8 + 190 * Sin(t * 18.125) ^ 8
'rr = r0 + 260 * Cos(t * 0.01) ^ 1 + 90 * Sin(t * 18.125) ^ 7
'x0 = rr * Sin(0.99 * t) - 0.7 * Cos(3.01 * t)
'y0 = rr * Cos(1.01 * t) + 0.1 * Sin(15.03 * t)
'var2
x0 = rr * Sin(0.995 * t) + 0.66 * Cos(2# * t)
y0 = rr * Cos(1.005 * t) - 0.05 * Sin(15.075 * t)
'var3
'x0 = rr * Sin(0.995 * t) + 0.66 * Cos(2# * t)
'batibly
'x0 = rr * Cos(1.995 * t) + 0.65 * Cos(2.2 * t)
' spiral
'x0 = rr * Cos(0.995 * t) + 0.65 * Cos(2# * t) '
'y0 = rr * Cos(1.005 * t) - 0.05 * Sin(19.075 * t)
i = 1 * x0 + xmax
j = 1 * y0 + ymax
Picture1.PSet (i + x00, j - y00), RGB(255, 0, 0)
Picture1.PSet (i + x00, j - y00), RGB(c0, c1, c2)
Picture1.Line (i + x00, j - y00)-Step(dx, dy), RGB(c0, c1, c2) ', B 'F
'Picture1.PSet (-i + x00, -j + y00), RGB(c0, c1, c2)
c00 = c0
c0 = c2
c2 = c1
c1 = c00 '- c1
Next t
-=-=-=-=
Там, где строки закомментированы, можно включая их создавать другие формы и объекты
Мне просто нравится создавать объекты, как элементы дальних миров, вот таким образом.