ZX-F4C
22.06.2013, 01:40
[Моя Первая ТЕМА]
Потому: НЕ Обессудьте...
Мое Приветствие Настоящим Ценителям Вычислительных (Цифровых) Технологий!
/ТАКИМ Подобно как (ZX-Spectrum) или [Amiga]... Просто к Слову: Ценителем ЧЕГО (Являюсь)
И Очень ПРОШУ... НЕ Судить -- ТАКОЙ Стиль...
ОН -- Выдержанный и в Духе/Образе и Программирования и Других (Систем/Приемов)...
Я Больше Объясню...
Вкратце: Очень Люблю -- Пооформлять (Профессиональное)
Но -- чуть [INTRO]
/Надеюсь... Позволят:
(--- W ---)
Значит... ЕСТЬ такая Программа РЕЛАКСАЦИИ :
= [SONG LN] =
Можно Сказать: КЛАССИКА "... ВСЕХ Времен и Народов"
Лишь чуть (о Ней)...Музыка и ГРАФИКА (Сам АЛГОРИТМ и Его РЕАЛИЗАЦИЯ) -- на ВЫСОТЕ...!
Ну Шутка ли: Путем Наложения/Движения 4-х Отрезков (Прямых) -- Сферические (Фигуры и Образы) и даже... Наложения Одних СФЕР (на ДРУГИЕ)... А Уникальное Размещение ЦВЕТНОЙ Единицы в Ячейке [8x8] -- ТАКИЕ Оттенки... Просто -- ЗАВОРАЖИВАЕТ...!
Вот Отдельное: НЕ Видел (пока еще)... Упоминания о Ней!
Но это -- Потом...
Что у Меня... Представляю АЛЬТЕРНАТИВНУЮ Версию-Вариацию...
Суть: ТАМ -- Настолько ПРОСТО (ВСЕ)... И -- Написана ВЕЩЬ... на BASIC-е!
Но -- Стоит ВНИМАНИЯ! Остальное -- как Получится...
Но Прошу Простить за Возможные НЕПОНЯТНЫЕ (Абзацы и ПРОЧЕЕ)... Ведь ПОКА -- Первый [ПОСТ]!
К Слову (и Чуть -- о Себе):
Я -- НЕ Владелец ANDROID-ов и прочих НОВШЕСТВ... Где ЗАПУСК (подобного СОФТА) -- через Эмулятор! Потому... НЕ Знаю, Есть ли (Собственно) BASIC -- ТАМ... в МОБ-Софте!
При Возможности -- просьба: Сказать... /ЗНАЛ Бы...
Я же СТАЛ Заниматься ИССЛЕДОВАНИЕМ Закономерностей СЛУЧАЙНЫХ Процессов (Формул Приведения и Т.П.)...
В Общем... ТУТ -- Такое Дело: Или -- Поймут... Или -- Склоки-Пересуды... (КАК Обычно)
И... СВОЙ -- Поймет! Чужой... ЧЕРТ -- "Ногу СЛОМАЕТ!" (Известно)...
Итак... ЭТО -- вот Такое лишь [Вступление]: Для Терпеливых))
И -- Теперь:
Сначала -- НАЗВАНИЕ (Просто как ТИТУЛ)... Далее -- Реальный ТЕКСТ-Листинг
Program [A-Lines]:
10 Rem *S-Examp*: [Alt-Lines]
//Просто (C)-Знаки... (Для Сохранения АВТОРОМ Прав Разработчика)
14 CLEAR
16 BORDER 1: PAPER 0: INK 5
20 LET YH=176
24 LET DivL=128: LET DivH=88
28 LET A=0: REM * Это ФЛАГ Непрерывности Следования КАРТИН (или по КЛАВИШЕ) *
30 CLS
31 LET DPy1=0
33 LET DPy2=0
35 LET DPy3=175
37 LET DPy4=175
40 FOR J=1 TO 10
42 LET DPx1=0: LET DPx4=0
44 LET DPx3=255: LET DPx2=255
47 LET PosC=INT (RND*6+2) /Диапазон ЦВЕТА для Данного СЕТА [ATTR]-ов/
49 INK PosC
50 FOR I=0 TO DivL-1
52 IF DPy1>=0 THEN PLOT DPx1, DPy1
54 IF DPy2>=0 THEN PLOT DPx2, DPy2
56 IF DPy3<YH THEN PLOT DPx3, DPy3
58 IF DPy4<YH THEN PLOT DPx4, DPy4
60 LET TD=INT (RND*2+1)
62 IF (TD=1) THEN LET IncY=+1
64 IF (TD=2) THEN LET IncY=-1
67 LET K$=INKEY$
68 IF K$="e" OR K$="E" THEN GO SUB 108
69 IF K$="A" OR K$="a" THEN LET A=NOT (A)
70 LET DPy1=DPy1+IncY: LET DPx1=DPx1+1
72 LET DPy2=DPy2+IncY: LET DPx2=DPx2-1
74 LET DPy3=DPy3-IncY: LET DPx3=DPx3-1
76 LET DPy4=DPy4-IncY: LET DPx4=DPx4+1
94 NEXT I
95 LET DPy1=0+8*J: LET DPy2=0+8*J
97 LET DPy3=YH-8*J: LET DPy4=YH-8*J
99 NEXT J
//* ЧАСТЬ: Управление Опциями *
100 FOR P=1 TO 8: LET I$=INKEY$: PAUSE 50
101 IF I$="e" OR I$="E" THEN LET P=8: GO SUB 108
102 IF I$="f" OR I$="F" THEN LET P=8: GO TO 14
103 IF I$="A" OR I$="a" THEN LET A=NOT (A)
104 NEXT P
106 IF A=1 THEN GO TO 14
107 GO TO 100
108 INPUT "S-Set_Name: "; N$
110 GO SUB 1050
112 PAUSE 100: Return
999 REM * TR-DOS Part *
1000 RANDOMIZE USR 15619: REM: Erase "S-QuestC"
1002 RANDOMIZE USR 15619: REM: SAVE "S-QuestC"
1004 GO TO 1052
1050 RANDOMIZE USR 15619: REM: SAVE N$ CODE 16384, 6912
1051 RETURN
1052 RANDOMIZE USR 15619: REM: LIST
1053 GO TO 2000
1055 INPUT "Load FILE (Scr-CASE): "; L$
1059 RANDOMIZE USR 15619: REM: LOAD L$ CODE 16384,6912
1060 GO TO 1055
1069 REM * END * (Of THIS Version)
Комментарии -- ПРИЛОЖЕНЫ... И еще -- ТЕКСТОМ (Дополнительно):
В Листинге Есть "//" -- это Просто по Ходу (Пояснение)... Конечно -- НЕ Набирается)) /Лишь: Для Прозрачности (Программы)/
Конструкция "I$=INKEY$" Работает ТАК:
Клавиша [A]: ФЛАГ (Следования КАРТИН)... Меняется при НАЖАТИИ (Клавиши в Течение ПАРЫ Секунд)
[F]: ЗАПУСК Следующей (Вариации)... При [A=0]
[E]: Возможность ЗАПИСАТЬ (Вариацию) на ДИСК [TR-DOS']
Почему ТАКОЙ Символ/Сокращение (даже Поясню): [E]=[External]... Как бы -- ВНЕШНИЙ Уровень (Работы)
Вот и Все...
Чуть -- АЛГОРИТМ:
Суть:
= Динамика Движения СЛУЧАЙНОЙ Частицы под УПРАВЛЕНИЕМ Некоторого [Простого] Подхода =
Дополнение:
Всего-ТО С м е щ е н и е -- для ПО-Следующих Кривых (Линий) -- и ЦЕЛАЯ Картина (Система).. ОБРАЗОВ и СЮЖЕТОВ...
Ну... У (Меня) Лично -- ТАК: ДИСКЕТ -- НЕ Хватает!!! (Записать ЛУЧШЕЕ)...
ПРОСЬБА: Обязательно, чтобы Сказали (Потом), КАК Пришлось -- Стояще или НЕТ (Ерунда) -- чтобы СКАЗАЛИ... Чтобы УЗНАТЬ Своих [Так Сказать] -- Поклонников и Ценителей!
Еще [P.S.]: Да, Заметим... СРАЗУ -- может НЕ Получится (Хороший СЮЖЕТ)... Но ПАРУ-ТРОЙКА Проходов [Потерпеть] -- и просто ЗАХВАТЫВАЮЩИЕ Вещи (Выдаст)... Смею УВЕРИТЬ! Вот Сам (Допустим) -- уже МНОГО Тестировал, Думал: "Ай, уже ВСЕ -- Скучно и ОДНООБРАЗНО"...?!: А -- НЕТ! Вот и до СИХ ПОР... ЗАПУСКАЮ (на Определенное Время) -- просто....!!!!
Это уже -- Отдельная Тема: ЧТО -- ТАМ (Получается)
[Интрига]:
РЕАЛЬНО -- Просто Набрать и Запустить!!! НЕ Трудно... (Смайл)
(Секрет): Симметрия -- по 4-м Направлениям...
Да... И по Сути: "4-е Измерение"... :cool:
[--- [E] ---]
Удачи и -- НЕ Дурите Голову/Мозги... КТО и КАК -- Пишет!!!
Главное: Программы...!!! Остальное -- Стиль и Характер ПОВЕДЕНИЯ... "Каждому -- Свое" (Дано и Помогает)
А как -- Демо-Вариации... Выглядят???
ТАМ -- Строго "По Уставу КПСС..."...???!
---------- Post added at 01:40 ---------- Previous post was at 00:01 ----------
Ну... Понятно: Далее -- Пошли и Будут... Ругань-Оскорбления... Обычное Дело...
Что ж... Можно -- Удалять!
/Потому что ввиду прежде-временных Наездов -- Устал...
Пока...
Как Раз: День = 22 Июня =
НЕ Спам! Просто... В Книгах ведь -- Пишут СТОЛЬ Помимо Основного Контента!!!
А в И-Нете -- ВОЙНЫ!!! Так Держать... МОЛОДЦЫ!
Вот... Лишь ОДНО:
Запустил бы Кто (Приведенный Вариант) -- и Сказал БЫ...
Чем Ерундой Заниматься...!!!
Да... ЭТО -- лишь Вариант!
ТАМ -- можно: "Работать -- КРАЙ Бесконечный"... При Обсуждении и должном Понимании(!)
НО... НЕ Будьте -- БАБАМИ БАЗАРНЫМИ...!!!
Лучше: НЕ Будем... И "Совкам" -- ТОЖЕ...:
ТАК... ЭТО -- НЕ Хотел (Писать)... НО -- Пришлось [Приложить]...!!!
Я -- НЕ Люблю Спамеров и Троллизм... Но Особенно -- ЛАМЕРОВ!
К Слову: МИР -- Война... Особенно: СЕТЬ (Всемирная и Всеми Любимая)...
P.S.: Ну и ЭТО нужно Было: Манией Величия -- НЕ Страдаю! Просто: Оформление и МНОГО Интересов и Увлечений (в Жизни)
Внимание!
Еще Набирался-Проверялся... [ПОСТ]
Да... Оставался лишь -- Формат!
Ну Простите...
Каждый -- ГОРАЗД (в Меру)... В Сети "ВсеМирной и ВсеМерной"
Еще Раз:
Как и ЧТО -- только НЕ Пишут!!!
А "Всех -- под Одну Гребенку" -- НЕЛЬЗЯ...
Моя же Привычка -- ТАК (Писать)
Потом: Регулировка или Коррекция... Без -- Оскорблений (Людей) и Нарушения [Правил]
Я -- чуть Подрегулировал (с Учетом Замечаний МОДЕРАТОРА)...
Признаюсь: Да... ЭТО -- от Обильной ЭЛЕКТРОННОЙ Жизни и Режима РАБОТЫ! Немного ЗАМУЧЕН... Может... Вот -- ВЕРНУСЬ (Постепенно) к Обычному ФОРМАТУ... /...:wink:
Однако: Он [Мой Стиль] -- Динамичный! И Подобные Приемы -- у МНОГИХ (Встречаются)
НУ... Как -- Угодно!
Потому: НЕ Обессудьте...
Мое Приветствие Настоящим Ценителям Вычислительных (Цифровых) Технологий!
/ТАКИМ Подобно как (ZX-Spectrum) или [Amiga]... Просто к Слову: Ценителем ЧЕГО (Являюсь)
И Очень ПРОШУ... НЕ Судить -- ТАКОЙ Стиль...
ОН -- Выдержанный и в Духе/Образе и Программирования и Других (Систем/Приемов)...
Я Больше Объясню...
Вкратце: Очень Люблю -- Пооформлять (Профессиональное)
Но -- чуть [INTRO]
/Надеюсь... Позволят:
(--- W ---)
Значит... ЕСТЬ такая Программа РЕЛАКСАЦИИ :
= [SONG LN] =
Можно Сказать: КЛАССИКА "... ВСЕХ Времен и Народов"
Лишь чуть (о Ней)...Музыка и ГРАФИКА (Сам АЛГОРИТМ и Его РЕАЛИЗАЦИЯ) -- на ВЫСОТЕ...!
Ну Шутка ли: Путем Наложения/Движения 4-х Отрезков (Прямых) -- Сферические (Фигуры и Образы) и даже... Наложения Одних СФЕР (на ДРУГИЕ)... А Уникальное Размещение ЦВЕТНОЙ Единицы в Ячейке [8x8] -- ТАКИЕ Оттенки... Просто -- ЗАВОРАЖИВАЕТ...!
Вот Отдельное: НЕ Видел (пока еще)... Упоминания о Ней!
Но это -- Потом...
Что у Меня... Представляю АЛЬТЕРНАТИВНУЮ Версию-Вариацию...
Суть: ТАМ -- Настолько ПРОСТО (ВСЕ)... И -- Написана ВЕЩЬ... на BASIC-е!
Но -- Стоит ВНИМАНИЯ! Остальное -- как Получится...
Но Прошу Простить за Возможные НЕПОНЯТНЫЕ (Абзацы и ПРОЧЕЕ)... Ведь ПОКА -- Первый [ПОСТ]!
К Слову (и Чуть -- о Себе):
Я -- НЕ Владелец ANDROID-ов и прочих НОВШЕСТВ... Где ЗАПУСК (подобного СОФТА) -- через Эмулятор! Потому... НЕ Знаю, Есть ли (Собственно) BASIC -- ТАМ... в МОБ-Софте!
При Возможности -- просьба: Сказать... /ЗНАЛ Бы...
Я же СТАЛ Заниматься ИССЛЕДОВАНИЕМ Закономерностей СЛУЧАЙНЫХ Процессов (Формул Приведения и Т.П.)...
В Общем... ТУТ -- Такое Дело: Или -- Поймут... Или -- Склоки-Пересуды... (КАК Обычно)
И... СВОЙ -- Поймет! Чужой... ЧЕРТ -- "Ногу СЛОМАЕТ!" (Известно)...
Итак... ЭТО -- вот Такое лишь [Вступление]: Для Терпеливых))
И -- Теперь:
Сначала -- НАЗВАНИЕ (Просто как ТИТУЛ)... Далее -- Реальный ТЕКСТ-Листинг
Program [A-Lines]:
10 Rem *S-Examp*: [Alt-Lines]
//Просто (C)-Знаки... (Для Сохранения АВТОРОМ Прав Разработчика)
14 CLEAR
16 BORDER 1: PAPER 0: INK 5
20 LET YH=176
24 LET DivL=128: LET DivH=88
28 LET A=0: REM * Это ФЛАГ Непрерывности Следования КАРТИН (или по КЛАВИШЕ) *
30 CLS
31 LET DPy1=0
33 LET DPy2=0
35 LET DPy3=175
37 LET DPy4=175
40 FOR J=1 TO 10
42 LET DPx1=0: LET DPx4=0
44 LET DPx3=255: LET DPx2=255
47 LET PosC=INT (RND*6+2) /Диапазон ЦВЕТА для Данного СЕТА [ATTR]-ов/
49 INK PosC
50 FOR I=0 TO DivL-1
52 IF DPy1>=0 THEN PLOT DPx1, DPy1
54 IF DPy2>=0 THEN PLOT DPx2, DPy2
56 IF DPy3<YH THEN PLOT DPx3, DPy3
58 IF DPy4<YH THEN PLOT DPx4, DPy4
60 LET TD=INT (RND*2+1)
62 IF (TD=1) THEN LET IncY=+1
64 IF (TD=2) THEN LET IncY=-1
67 LET K$=INKEY$
68 IF K$="e" OR K$="E" THEN GO SUB 108
69 IF K$="A" OR K$="a" THEN LET A=NOT (A)
70 LET DPy1=DPy1+IncY: LET DPx1=DPx1+1
72 LET DPy2=DPy2+IncY: LET DPx2=DPx2-1
74 LET DPy3=DPy3-IncY: LET DPx3=DPx3-1
76 LET DPy4=DPy4-IncY: LET DPx4=DPx4+1
94 NEXT I
95 LET DPy1=0+8*J: LET DPy2=0+8*J
97 LET DPy3=YH-8*J: LET DPy4=YH-8*J
99 NEXT J
//* ЧАСТЬ: Управление Опциями *
100 FOR P=1 TO 8: LET I$=INKEY$: PAUSE 50
101 IF I$="e" OR I$="E" THEN LET P=8: GO SUB 108
102 IF I$="f" OR I$="F" THEN LET P=8: GO TO 14
103 IF I$="A" OR I$="a" THEN LET A=NOT (A)
104 NEXT P
106 IF A=1 THEN GO TO 14
107 GO TO 100
108 INPUT "S-Set_Name: "; N$
110 GO SUB 1050
112 PAUSE 100: Return
999 REM * TR-DOS Part *
1000 RANDOMIZE USR 15619: REM: Erase "S-QuestC"
1002 RANDOMIZE USR 15619: REM: SAVE "S-QuestC"
1004 GO TO 1052
1050 RANDOMIZE USR 15619: REM: SAVE N$ CODE 16384, 6912
1051 RETURN
1052 RANDOMIZE USR 15619: REM: LIST
1053 GO TO 2000
1055 INPUT "Load FILE (Scr-CASE): "; L$
1059 RANDOMIZE USR 15619: REM: LOAD L$ CODE 16384,6912
1060 GO TO 1055
1069 REM * END * (Of THIS Version)
Комментарии -- ПРИЛОЖЕНЫ... И еще -- ТЕКСТОМ (Дополнительно):
В Листинге Есть "//" -- это Просто по Ходу (Пояснение)... Конечно -- НЕ Набирается)) /Лишь: Для Прозрачности (Программы)/
Конструкция "I$=INKEY$" Работает ТАК:
Клавиша [A]: ФЛАГ (Следования КАРТИН)... Меняется при НАЖАТИИ (Клавиши в Течение ПАРЫ Секунд)
[F]: ЗАПУСК Следующей (Вариации)... При [A=0]
[E]: Возможность ЗАПИСАТЬ (Вариацию) на ДИСК [TR-DOS']
Почему ТАКОЙ Символ/Сокращение (даже Поясню): [E]=[External]... Как бы -- ВНЕШНИЙ Уровень (Работы)
Вот и Все...
Чуть -- АЛГОРИТМ:
Суть:
= Динамика Движения СЛУЧАЙНОЙ Частицы под УПРАВЛЕНИЕМ Некоторого [Простого] Подхода =
Дополнение:
Всего-ТО С м е щ е н и е -- для ПО-Следующих Кривых (Линий) -- и ЦЕЛАЯ Картина (Система).. ОБРАЗОВ и СЮЖЕТОВ...
Ну... У (Меня) Лично -- ТАК: ДИСКЕТ -- НЕ Хватает!!! (Записать ЛУЧШЕЕ)...
ПРОСЬБА: Обязательно, чтобы Сказали (Потом), КАК Пришлось -- Стояще или НЕТ (Ерунда) -- чтобы СКАЗАЛИ... Чтобы УЗНАТЬ Своих [Так Сказать] -- Поклонников и Ценителей!
Еще [P.S.]: Да, Заметим... СРАЗУ -- может НЕ Получится (Хороший СЮЖЕТ)... Но ПАРУ-ТРОЙКА Проходов [Потерпеть] -- и просто ЗАХВАТЫВАЮЩИЕ Вещи (Выдаст)... Смею УВЕРИТЬ! Вот Сам (Допустим) -- уже МНОГО Тестировал, Думал: "Ай, уже ВСЕ -- Скучно и ОДНООБРАЗНО"...?!: А -- НЕТ! Вот и до СИХ ПОР... ЗАПУСКАЮ (на Определенное Время) -- просто....!!!!
Это уже -- Отдельная Тема: ЧТО -- ТАМ (Получается)
[Интрига]:
РЕАЛЬНО -- Просто Набрать и Запустить!!! НЕ Трудно... (Смайл)
(Секрет): Симметрия -- по 4-м Направлениям...
Да... И по Сути: "4-е Измерение"... :cool:
[--- [E] ---]
Удачи и -- НЕ Дурите Голову/Мозги... КТО и КАК -- Пишет!!!
Главное: Программы...!!! Остальное -- Стиль и Характер ПОВЕДЕНИЯ... "Каждому -- Свое" (Дано и Помогает)
А как -- Демо-Вариации... Выглядят???
ТАМ -- Строго "По Уставу КПСС..."...???!
---------- Post added at 01:40 ---------- Previous post was at 00:01 ----------
Ну... Понятно: Далее -- Пошли и Будут... Ругань-Оскорбления... Обычное Дело...
Что ж... Можно -- Удалять!
/Потому что ввиду прежде-временных Наездов -- Устал...
Пока...
Как Раз: День = 22 Июня =
НЕ Спам! Просто... В Книгах ведь -- Пишут СТОЛЬ Помимо Основного Контента!!!
А в И-Нете -- ВОЙНЫ!!! Так Держать... МОЛОДЦЫ!
Вот... Лишь ОДНО:
Запустил бы Кто (Приведенный Вариант) -- и Сказал БЫ...
Чем Ерундой Заниматься...!!!
Да... ЭТО -- лишь Вариант!
ТАМ -- можно: "Работать -- КРАЙ Бесконечный"... При Обсуждении и должном Понимании(!)
НО... НЕ Будьте -- БАБАМИ БАЗАРНЫМИ...!!!
Лучше: НЕ Будем... И "Совкам" -- ТОЖЕ...:
ТАК... ЭТО -- НЕ Хотел (Писать)... НО -- Пришлось [Приложить]...!!!
Я -- НЕ Люблю Спамеров и Троллизм... Но Особенно -- ЛАМЕРОВ!
К Слову: МИР -- Война... Особенно: СЕТЬ (Всемирная и Всеми Любимая)...
P.S.: Ну и ЭТО нужно Было: Манией Величия -- НЕ Страдаю! Просто: Оформление и МНОГО Интересов и Увлечений (в Жизни)
Внимание!
Еще Набирался-Проверялся... [ПОСТ]
Да... Оставался лишь -- Формат!
Ну Простите...
Каждый -- ГОРАЗД (в Меру)... В Сети "ВсеМирной и ВсеМерной"
Еще Раз:
Как и ЧТО -- только НЕ Пишут!!!
А "Всех -- под Одну Гребенку" -- НЕЛЬЗЯ...
Моя же Привычка -- ТАК (Писать)
Потом: Регулировка или Коррекция... Без -- Оскорблений (Людей) и Нарушения [Правил]
Я -- чуть Подрегулировал (с Учетом Замечаний МОДЕРАТОРА)...
Признаюсь: Да... ЭТО -- от Обильной ЭЛЕКТРОННОЙ Жизни и Режима РАБОТЫ! Немного ЗАМУЧЕН... Может... Вот -- ВЕРНУСЬ (Постепенно) к Обычному ФОРМАТУ... /...:wink:
Однако: Он [Мой Стиль] -- Динамичный! И Подобные Приемы -- у МНОГИХ (Встречаются)
НУ... Как -- Угодно!