В этом проекте содержится много полезной информации, которая используется непосредственно во время работы проекта. На листе Каталог хранится список 400 наиболее ярких звезд и 88 созвездий. Звездная карта для каждого конкретного местоположения будет состоять из 145 черепашек-звезд и дополнительных трех черепашек, «исполняющих роль» неба, солнца и часов.
Для того, чтобы выбрать звезды, принадлежащие конкретному созвездию и установить их на звездной карте, попробуйте использовать примитив перебор. Вот как он работает:
Допустим, у Вас на листе есть несколько черепашек. Воспользуйтесь примитивом нов_свойство для создания нового свойства с указанным именем у всех черепашек в проекте:
нов_свойство "созвездие
Для каждой черепашки установите значение ее свойства командой установи_созвездие:
ч1, установи_созвездие "Водолей
ч2, установи_созвездие "Водолей
ч3, установи_созвездие "Дева
...
ч2, установи_созвездие "Водолей
ч3, установи_созвездие "Дева
...
После этого напишите процедуру, которая будет высвечивать все звезды конкретного созвездия:
|
это высвечивать :имя
|
|
|||
|
повтори 4 [
|
повторить 4 раза следующее
|
|||
|
|
перебор [i узнай "лист1 "черепашки]
|
для каждой черепашки на листе,
|
||
|
|
|
[скажи :i
|
принадлежащей к указанному
|
|
|
|
|
[если созвездие = :имя
|
созвездию,
|
|
|
|
|
[сч]]] жди 3
|
спрячь черепашку, подожди немного;
|
|
|
|
перебор [i узнай "лист1 "черепашки]
|
для каждой черепашки на листе,
|
||
|
|
|
[скажи :i
|
принадлежащей к указанному
|
|
|
|
|
[если созвездие = :имя
|
созвездию,
|
|
|
|
|
[пч]]] жди 3]
|
покажи черепашку, подожди
|
|
|
конец
|
немного.
|
|||
Теперь выполните следующую инструкцию:
высвечивать "Водолей.
высвечивать "Водолей.
— все звезды, принадлежащие этому созвездию, мигают!