X-INTELLECT.ORG https://forum.x-intellect.org/ |
|
Навигатору Вселенной https://forum.x-intellect.org/viewtopic.php?f=41&t=515 |
Страница 3 из 3 |
Автор: | alexavan [ 19 янв 2013, 09:00 ] |
Заголовок сообщения: | Re: Навигатору Вселенной |
Цитата: Вот фрагмент программы, прорисовывающей различные формы из цветных "звезд": air, спасибо за формулы. Запущу Javascript и поставлю одну из моделей в динамике на Главной сайта. |
Автор: | air [ 19 янв 2013, 10:27 ] |
Заголовок сообщения: | Re: Навигатору Вселенной |
Тогда полный текст программы, вместе с фоном (фон двойной, сначала -волны в пространстве, а в последнюю очередь накладывается фон из дальних рассеянных звезд). -=-=-=-=-=-=- Dim j As Integer Dim x0, y0, xx, yy, yy1, r1, k, k1, red, green, blue, p, r, r11 As Currency Dim c, c1, dx, dy As Integer Picture1.Cls pi = 3.141593 Picture1.DrawStyle = 2 Picture1.DrawWidth = 1 r1 = 100 r11 = 200 r = 5 r2 = 10 c = 32 c1 = 62 k1 = 1 '==== fon===== y0 = -1900 x0 = -1960 dx = 155 dy = 155 'x0 = 0 i = 1 c0 = 255 c00 = 134 c1 = 0 c2 = 255 For k = k1 To 440 Step 30 For i = 1 To 110 * k Step 3 red = 255 * Abs(k1 / (22 * i)) + 62 green = 255 * Abs(Sin((k1 / 280))) ' + 12 blue = 70 * Abs(Sin((i / 280))) + 92 xx = i 'xx = x0 + Cos(i * rad) * r1 yy = r + Abs(Sin(i * rad + pi * k + c) ^ 3 * r1) yy1 = r + (Sin(i * rad + pi * k + c1) ^ 1 * r11) 'Picture1.PSet (yy1 + y0, xx + x0), RGB(green, blue, red) 'Picture1.PSet (yy1 + y0, xx + x0 + 10), RGB(red, green, blue) Picture1.Line (yy1 + y0, xx + x0)-Step(dx, dy), RGB(red, green, blue) Picture1.PSet (yy1 + y0, xx + x0), RGB(red, green, blue) 'Picture1.Line (yy1 + y0, xx + x0)-Step(dx, dy), RGB(c0, c1, c2) 'Picture1.PSet (yy1 + y0, xx + x0), RGB(c0, c1, c2) red = 255 * Abs(k1 / (22 * i)) + 12 green = 255 * Abs(Sin((k1 / 280))) + 12 blue = 70 * Abs(Sin((i / 280))) + 12 'Picture1.Line (yy1 + y0, xx + x0 + 10)-Step(dx, dy), RGB(red, green, blue) Picture1.Line (xx + x0, yy + y0 + 15)-Step(dx, dy), RGB(red, green, blue) 'Picture1.PSet (xx + x0, yy + y0 + 25), RGB(0, 255, 0) 'Picture1.PSet (xx + x0, yy1 + y0), RGB(green, blue, red) c00 = c0 c0 = c2 c2 = c1 c1 = c00 '- c1 r2 = r2 - 0.2 'x0 = x0 + pi * k 'y0 = i '* k Next i 'x0 = x0 + pi * k y0 = y0 + pi * k Next k '====object==== Picture1.DrawWidth = 1 Picture1.DrawStyle = 1 'Picture1.Cls pi = 3.141593 y00 = 200 x00 = 0 ' rr = 2 dx = 1 dy = 1 xmax = 250 ymax = 200 c0 = 255 c00 = 134 c1 = 0 c2 = 255 r0 = 110 For t = 0 To 60 Step 0.0025 ' 90'180 rr = r0 + 260 * Cos(t * 0.01) ^ 8 + 390 * Sin(t * 17.125) ^ 5 'rr = r0 + 260 * Cos(t * 0.51) ^ 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.2 * t) ' ' y0 = rr * Cos(1.005 * t) - 0.05 * Sin(19.075 * t) i = 1 * x0 + xmax j = 1 * y0 + ymax Picture1.DrawWidth = 1 'Picture1.PSet (i + x00 + 10, j - y00 - 10), RGB(155, 155, 255) Picture1.Line (i + x00, j - y00)-Step(dx, dy), RGB(55, 155, 255), BF Picture1.DrawWidth = 2 Picture1.PSet (i + x00 + 10, j - y00 - 10), 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 '=== stars==== Picture1.DrawWidth = 2 For i1 = 0 To 100 x2 = Rnd(150) * 2000 y2 = Rnd(150) * 2000 Picture1.PSet (x2, -y2), RGB(255, 255, 255) Picture1.PSet (x2, y2), RGB(255, 255, 255) Picture1.PSet (-x2, -y2), RGB(255, 255, 255) Picture1.PSet (-x2, y2), RGB(255, 255, 255) Next Picture1.DrawWidth = 1 For i1 = 0 To 200 x2 = Rnd(50) * 1000 y2 = Rnd(50) * 1000 Picture1.PSet (x2, -y2), RGB(255, 255, 255) Picture1.PSet (x2, y2), RGB(255, 255, 255) Picture1.PSet (-x2, -y2), RGB(255, 255, 255) Picture1.PSet (-x2, y2), RGB(255, 255, 255) Next End Sub -=-=-=-=- Здесь прорисован объект: Голубой Оъект Вселенной (раскрывается медленно) |
Автор: | air [ 15 фев 2013, 13:50 ] |
Заголовок сообщения: | Re: Навигатору Вселенной |
Тема путешествий в Осах потерялась... Возник вопрос у некоторых участников, что бы такого разумного предпринять, чтобы прекратить бесконтрольные "путешествия" во сне? Самое лучшее - начать разумно контролировать свое состояние. Если у вас получится построить карту вашего сновиденного мира, то либо вас с успехом на некоторое время заблокируют -отдохнете от сновидений, у разных ОСистов это период разный, от года, до двух и ... пожизненно))) Карта мира сновидений -это не игрушка, и не просто забава. Это ваша память, ваше подсознание, это сознательное управление ИСС. Это новые способности, и огромная ответственность за каждый совершенный шаг. Или станете мастером Сновидений. Или.... Еще лучше, чтобы Вас заблокировали (если ВЫ этого так хотите), построить ПОЛНУЮ карту мира сновидений. ТОгда покой вам полный -обеспечен будет. Либо создайте что-либо СВОЕ в мире сновидений, тогда вас тоже отправят отдохнуть от мира сновидений))). Советы проверены, не одним путешественником. А если все-таки увлечетесь построением карты мира сновидений, и дальше будет желание изучить тонкие миры и их картографию, то здесь каждый шаг должен быть проверен. И начинать необходимо с изучения языка своего собственного подсознания, и мира сновидений. И второе - учиться контролировать свои эмоции, страха, паники, чувства кошмаров -быть не должно. Если боитесь чего -либо, например пауков, то вас будут бить через эти образы. Проявляя страх - вы теряете массу энергии во сне. Да и не только во сне. Потому чувство бесстрашия - это одно из самых главных качеств, тогда можно спокойно действовать. Хотя здесь другие нюансы. А дальше шаги описаны в литературе по сновидениям. |
Автор: | air [ 15 фев 2013, 14:03 ] |
Заголовок сообщения: | Re: Навигатору Вселенной |
А где я застраля? На архитипах... Хотелось найти, увидеть изначальный Архитип Земли. ЖИзни на Земле. Был некий образ Женского начала. Но его сложно уловить, это есть отчасти в мотивах северных малых народов, либо монголов, индейцев... У меня появился образ большого оленя, в рогах которого яркая сияющая радуга или солнечный круг с яркими лучами. Но об этом олене никакий информации... Что это за архитип, что он означат? Архитипы -это ключевые символы. Тонкий мир -говорит образами, и символами. И их необходимо понимать однозначно. Символику карт мира сновидений -ХС в основном ракрыли. А дальше? Чтобы продвинуться в построении "карты" Тонкого мира, необходимо изучать язык Тонкого мира... |
Автор: | air [ 27 мар 2013, 04:44 ] |
Заголовок сообщения: | Re: Навигатору Вселенной |
Прощание. Памяти Александра Глаза В час скорби и печали, Сквозь слезы – улыбнитесь, У Вечного причала, С Учителем проститесь! Его глаза, улыбка, Светлее серых туч, Весенний, светлый, теплый На землю сходит луч… Как Данко вынул сердце, Развеял тьму и мрак, На звездном небосклоне Зажег для нас маяк… Час боли, расставанья Соединил сердца, Учеников – всех помнит, Учитель наш всегда. «-Я верю в вас, и знаю, Что я сумел начать, Вы сможете продолжить, Закончить, людям дать». В час скорби и печали, Не плачь, крепись, держись, У Вечного причала, Сегодня с Ним проститесь! Вложение:
Комментарий к файлу: Последний причал prihal.jpg [ 85.64 КБ | Просмотров: 28018 ] Последний причал Навигатора Вселенной |
Страница 3 из 3 | Часовой пояс: UTC + 4 часа [ Летнее время ] |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |