Параллакс – движение ФК
среди звезд, айсбергов и пингвинов

 

Гот1.jpg

Фон разбит на три уровня

 

Требуется, чтобы лодка двигалась вперед, задний фон немного влево, передний с пингвином тоже немного влево. Пишем,  макрос на vbs (можно и на js) и методах системы Вектор). Лодку заставить двигаться нет проблем – непосредственно командой из структуры «Анимация». Вставили пингвинов

 

Vector_111

Непосредственно движение

 

ФК на лодке среди льдин3

Здесь дальний фон двигается туда/сюда
и  лодка  двигается, если смотреть тодько на нее, то и план за ней двигается*

Понятно как сделать, чтобы и лодка двигалась -  через метод анимации.

Animate 0, 1, False, 1., 2., 0., 0., 0., 0., 0., 0., 0.1

Где по позициям:

1)       номер направляющей  2) число циклов  3) "Обратное"  4) скорость  5) масштаб 
6) Угол X от  7) Угол X до  8) Угол Y от  9) Угол Y до  10) Угол Z от  11) Угол Z до  12) шаг по t

13)  режим (0 - старый, 1 – новый по вектору  направления) t

14)  Вектор направления  15) Значение по t до куда анимация

 

ФК на лодке среди льдин-гот4

Здесь движется фон и лодка – как это требует параллакс при определении расстояния до звезды

 

Макрос

VbsMsg "Движение 2 объектов (фон задаются первымимещается; второй (лодка) - движется по направляющей (3-я) "

n1 = LastNmb

'CurrObjNmb = n1

'Polyline.FromCurrObj 55

n11 = LastNmb

Set B = p(0,0,0)

Np=10

Ns = 1

For u=0 To 1 Step 1/Np

       CurrObjNmb = n1 '   сделали ее активной

       Set A = Polyline.P (u)  ' точка на полилинии

       CurrObjNmb = n1-1 '   сделали ее активной

       Obj.Translate P(A.x-B.x, A.y-B.y, A.z-B.z)

       CurrObjNmb = n1-2 '   фон сделали ее активным

       'obj.zAngle =  5

       Obj.Translate P(-0.1, 0, 0)  ' фон  смещаеся горизонтально

       Set B = A

 if ns = 1 Then SaveImage "tst41.jpg"

 if ns = 2 Then SaveImage "tst42.jpg"

 if ns = 3 Then SaveImage "tst43.jpg"

 if ns = 4 Then SaveImage "tst44.jpg"

 if ns = 5 Then SaveImage "tst45.jpg"

 if ns = 6 Then SaveImage "tst46.jpg"

 if ns = 7 Then SaveImage "tst47.jpg"

 if ns = 8 Then SaveImage "tst48.jpg"

 if ns = 9 Then SaveImage "tst49.jpg"

ns=ns+1

Next

 

Вставить пузырь со словами:

- Дорогой, Федор! Приглашаем с женушкой нашу мега-колонию пингвинов Адели посетить на Антарктическом полуострове. Там тебя выбрали почетным членом нашей колонии.

- ОК!

 

Приглашение.jpg

Федор, покоривший в одиночку Южный полюс,
согласился на предложение пингвинов. Гип-гип, ура!

Справка:

Американские биологи обнаружили в Антарктиде «мега-колонию» пингвинов Адели, сообщается в Scientific reports. По оценкам исследователей, она насчитывает примерно 1,5 миллиона особей.

Пингвины Адели (Pygoscelis adeliae) обитают в Антарктиде и являются одним из самых распространенных видов пингвинов. Эти птицы образуют колонии на побережьях континента и на близлежащих островах. С октября по февраль они выводят птенцов — самка обычно откладывает два яйца в гнездо из камней, а потом пингвины по очереди их высиживают в течение 32-34 дней. Пока один из родителей остается в гнезде (в среднем, около 12 дней), другой отправляется на охоту за мелкими рачками и кальмарами.

Пингвины Адели периодически мигрируют по побережью Антарктиды и соседним островам. По наблюдениям исследователей, популяция птиц на 70 процентов сократилась на западе Антарктического полуострова, но выросла в Восточной Антарктиде. В 2015 году группа биологов под руководством Хизер Линч изучила численность пингвинов с земли (они считали гнезда птиц «вручную» и анализировали их количество на панорамных снимках) и с помощью фотосъемки с беспилотников. Также исследователи проанализировали спутниковые снимки этого района и более ранние фотографии с воздуха. В результате авторы статьи насчитали 751,5 тысячи гнезд. С учетом того, что в каждом из них находится как минимум пара птиц, ученые оценили численность колонии в 1,5 миллиона особей.

 

Dear, Fedor!
We invite with little wife
our mega colony
adelie penguins visit

Okay!

Пингвины на своем языке информацию
Федору передали

Фраза.jpg

Здесь фраза на языке Войнич Ева

 

Приглашение по-пингвийски с нумкодом.jpg

Определить, что за язык и по нумкоду расшифровать  фразу

Нумкод известен: 

24.10 24.11 24.12 24.13 24.14 24.15 24.16 24.17 24.18 24.19 24.20 24.21 24.22 24.23 24.24 24.25 24.26 24.27 24.28 = мммимммммммфммммммм = 35

 

Фраза малость изменена, в том и фишка, чтобы ее перевести. Делается в системе Вектор за 2 минуты:

Зайти Вектор->Дайдж->Слова-> амбарная книга: По щучьему велению нов.dict -> диалоговое окно Фраза – в первую строку ввести нумкод, во второй строке получите расшифрованный текст. Взять Вектор и амбарную книгу здесь: http://old.msun.ru/Vector/Work/Work.htm

 

Приветсттвие ФК.jpg

Федор Конюхов в колонию пингвинов прибыл.

Приветствие пингвины по-пингвийски на воде написали

Река под ледник уходит - из подземной страны Агарти вытекает. В соседней долине немецкая Швабия находится – они оттуда с Агарти через фантомный  портал имеют связь.