Собственная РАЗРАБОТКА Одной Программы РЕЛАКСАЦИИ (Графического Уровня)
[Моя Первая ТЕМА]
Потому: НЕ Обессудьте...
Мое Приветствие Настоящим Ценителям Вычислительных (Цифровых) Технологий!
/ТАКИМ Подобно как (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:
Однако: Он [Мой Стиль] -- Динамичный! И Подобные Приемы -- у МНОГИХ (Встречаются)
НУ... Как -- Угодно!
Внимание... Ответ "по-Быстрому"
Ответ -- НЕ Глядя:
Можно Скажу (Как и Другие): НЕТ -- Времени! НО -- ГЛАВНОЕ:
Я -- только-только Пока Еще... НОВИЧОК (в Данном РАСПОЛОЖЕНИИ)
Но -- Буду/Могу Набирать ОБОРОТЫ! НЕ Слаб (Сам) -- и в СЕТИ!!!
РАЗ НЕ Удалили и Ответов -- [2 Страница]... ТО Верю -- ЕСТЬ Интерес и Понимающие!
Спасибо... (Быстро Оценили) -- это Замечательно!
И... Уважаемые (НЕ Очень Приятное Слово)... И (Даже) Друзья...!!
Понимаю...
Мой Стиль -- НЕ Всем "Люб и Дорог"... НО -- Вытерпеть Можно... Сам же -- Буду Стараться (Больше Обыкновенным Набирать)
И (Прошу Понять): Я -- Хотел бы Вернуться на Обычный Стиль... НО: НЕ Могу... ПРИВЫЧКА -- Вещь Сильная!
Кроме ТОГО: Много НЕПРИЯТНОСТЕЙ ... (Было у Меня за Буквально НЕБОЛЬШОЙ Период)...
А Вот ЭТИ Большие Буковки -- СДЕРЖИВАЮТ и НЕПРИЯТНОСТИ и "Грубых и НАГЛЫХ"...!!!
Иначе -- Придавят и Затопчут... /Юмор и Ирония/
НО Хочется и Другим Сказать... Ну ТО: ЧТО Оригинальный -- это Я Знаю...
Допустим: А Мне... от "Ваших..." ИХ (Точнее): "спек... ау... лоадеров... " -- то есть Безолаберного Отношения к Терминологии
-- тоже НЕ ОЧень (ПО Себе)
Но -- ЕРУНДА! Для Реальных СПЕЦ-ов -- "Споемся!" (Хочется Сказать)
То Есть: Сработаемся (Хорошо БЫ)
А Секрет Стиля: ТАК Набирать -- МЕНЬШЕ Ошибок!
Запустите ПРОГРАММУ... Это Действительно ЗАХВАТЫВАЮЩЕ и ПЕРСПЕКТИВНО...
Запускайте Смело... Внимание: и Вирусов -- НЕТ! Сами -- САМИ Напишите... ;)
Но СЕРЬЕЗНЕЕ: Я тоже НЕ Очень Понял Приложенные ПОСТЫ -- лишь Прошу: "Меньше -- ОСКОРБЛЕНЙ и НЕГАТИВА" --> Then [Ok]
Лучше: Вообще -- Без...!!! (^)
!!!: А Ежели КТО ТАМ -- Мол: "Дурак... ЗАРАБОТАЛСЯ... ОТДОХНИ!!!" -- НЕ Стоит!!!
Первое (Причина): У Меня -- МНОГО (Идей и Подходов) -- НАДО Дождаться и Иметь ТЕРПЕНИЕ...
Второе: Как РАЗ Дурной -- НЕ Поймет и.... ТАК -- НЕ Напишет!!!
Адью...!!! (ТАКИМ)
Вот и Пример: Защита от ДУРАКА!
Но -- по ТЕМЕ /Позже -- чуть СМЕЖНЫЕ Моменты и ПУТИ/ -- Долго Готовил ПУБЛИКАЦИЮ (По Сути)... И -- Получилось!
Листинг -- ПРОВЕРИЛ... Без -- ОШИБОК...
Единственное: Строка 40: ТАМ -- Цикл Повторения Прорисовки: Было "ОТ 1 ДО 11"
Лучше -- 10:
40 FOR J=1 TO 10
Вот... Как Известно: Нагромождения Лишних ПРОРИСОВОК -- Хуже... [Исправлено]
ЕЩЕ:
Если Запускать МНОГО Раз... ТО После Выключения/Включения (Питания) -- Будет ОДИН и ТОТ же Рисунок... Внимание! НО -- Лишь [Один Раз]... Далее -- ДРУГИЕ... НЕ Повторяются!!! ЭТО -- Особенность Оператора [CLEAR]
...НЕ Помнил: КАК Работает (Конструкция)... ЧТОБЫ -- Сразу "Абсолютно-Случайную Последовательность" (Есть ТАКОЕ)
[---]
Что ЕЩЕ... По Программке и -- что-то (По Ходу) Особенности и СВОЙСТВА...
Вот Запустил...
Суть: Комп -- САМ Рисует!
ЭТО -- из Области ФАНТАСТИКИ... Скрытых Процессов КОМП-Интеллекта...
Внимание! ЭТО -- Отдельная ТЕМА (Примерно)... Сразу -- НЕ Понять! Позже (Позже)...
О... Я Вспомнил!
Есть Такая ИГРА: The SENTINEL!
Вроде бы Простая и Примитивная Прорисовка -- но СЮЖЕТ-ТО! А Вступление -- !!! Целый СЮЖЕТ! Вот... И -- у Меня ТАК!
Просто и со ВКУСОМ! Надо Лишь -- Воображение и ВОЛЮ (Чувств)... Да вот Девушке (СВОЕЙ) -- Покажите! Будет -- в Восторге...
Вот... ЭТО -- уже Чтобы Понятно Было... ЧТО: Адекватный и НОРМАЛЬНЫЙ!
Остальное: КАК Обычно... Трудно -- ВСЕ Объяснить...
Но при Терпении -- ВОЗМОЖНО...
Общаться же (Мне) -- лишь с НОРМАЛЬНЫМИ и АДЕКВАТНО-БЛАГОРАЗУМНЫМИ...
Потому ЧТО: Есть -- НИКИ... ЭТО -- "Тихий Ужас!!!"
Равно как и ТО... ЧТО -- Пишут и ЧЕМ Занимаются...
Вот... BYTEMAN: От НЕГО -- Более Приветливое... (Кажется): Хотя от Него и... некоторые Клинические Направления...:wink: НИЧЕГО -- Прорвемся... Или: Уклонимся...(!)
И Такие Пользователи как Ryndex, Mick -- ПО Пути (Нормально)...
И... вот только ЧУТЬ Прочел... И -- Быстро ОТВЕЧУ:
Первое: Действительно... ТАМ -- Один Хитрый Подход!... В Плане -- СКРЫТОЙ Движущейся ЧАСТИЦЫ...)))
Второе: Ох... Вот КТО-ТО Получит (Сейчас)...
Друзья... НЕ Хотел ПОКА (Хотел -- ПОЗЖЕ):
Я Действительно -- Адепт Йоги... Именно: с Большой Буквы...
ВОТ: Есть же "ЧТО-ТО -- Передается на Расстоянии"...(!)
А... Да! Я ведь -- "Ни-Ни"... :cool:
Но Такой: Пост-Советского (Профиля)... [Скромно]
/Или Речь -- НЕ обо Мне ТАМ Была... (Выяснится)
Третье: Кстати... Можно ли Использовать Красный (у Них) -- НЕ Знаю! Так ВОТ: У Меня -- ОШИБОК НЕ Возникало! В Смысле:
= Программа -- РАБОЧАЯ =
Так что... НЕ Понял Сути: "Out of Integer"...!!! Может... ИНАЯ Версия (Запускающего)... /Выяснить БЫ...
Good Luck!
О... Придет (ко Мне) -- Один ЗНАКОМЫЙ! /Должен Был/... Любитель ФАНТАСТИКИ... Но -- "САМ -- по Себе!" Я -- НЕ Шучу.. Вот! Попробую Ему (Показать) -- Оценит или ОТВЕРНЕТСЯ... Потому что: МЛАДШЕ (Лет на 10)... Может... НЕ Понять!
НЕ Знаю... Есть ли ТУТ (Такие)... Смайлы: но Все ЗНАЮТ:
:lol:...:lol:...:lol:
P.S.: Буду Стараться -- МЕНЬШЕ (Писать)... Да ТОЛКУ -- Всем ГОВОРИЛ!...
[S-LN]: Высший Пилотаж...
AER, Хорошо... Только НЕ Понял: Ежели Реально ЭТО -- в Поддержку (ТО -- Нормально)... А Вдруг -- Спровоцировать! Будь ЗДРАВ, Master!
НА ПРОЧЕЕ: Упреки-Оскорбления-Глупость -- НЕ Обращаю Внимание!
Сижу: Медитирую...
Принимаю ЗДОРОВОЕ Питание! Гоняю ИНТЕЛЛЕКТУАЛЬНЫЕ Тесты на [I-Q]...
ТАК Кто -- ТУПОЙ или ДУРНОЙ?... /Или ТУПЕЕ (Более)...?
Вот ТЕ (Упрекатели) -- Пусть и ГОНЯЮТ Тестиловки ИИ... (Приведенные ТАМ: Ранее)...
Лишь только СВОИМ (Ежели ТАКИЕ Будут/Есть) -- Замечу... ВОТ -- НЕ в Лесть:
Ну... ОНИ Меня -- САМИ [ОНИ:... /ВРАГИ] -- Вызвали на ТАКОЕ [ДАЛЕЕ]... Потому ЧТО -- Увидели-и-Поняли!
Так ВОТ: Реально... Когда Достигаешь СТУПЕНЕЙ Дисциплин Йоги... ТО -- Понимаешь ТАКИХ Мастеров как Йода [Других]... /Да-Да))... Ведь Звездные ВОЙНЫ -- Классика... Любят и ДЕТИ и Взрослые... Подобно РЕЛИГИИ!
И Вообще -- Скоро... НА Английский (Лишь) Перейду... Благо: Есть ТАКИЕ (Среди Посещающих) -- ВИДНО! Так ЧТО "Уйти -- по А-Уровню" (ЕСТЬ Такое)
Чтобы НЕ Думали ТАМ Всякое "ЭТО Самое"... Медитация -- под [SONG LN]....
ВОТ Реально -- ВЫСШАЯ Вещь...
Я Бы Больше Сказал... Видите ли: Мой Стиль -- тоже Медитация (Своеобразная)...
Есть и -- ВОЗДУХ... Есть -- Быстрые ВЫХОДЫ: Вразумления! Пояснения -- и Вновь ЗАТИШЬЕ...
Конечно... И Меня МОЖНО -- за ОФФ-Топ! Штрафануть... Только -- НЕ Флуд!!! Увольте... И тогда уж: Сначала -- ИХ...
Любезных и АДЕКВАТНЫХ! Потом уж -- Меня... /ЕСЛИ: (Внимание: Оператор Вероятности) НА ТО Пошло... (Пойдет)
А ТАК: Я -- Без Жалоб! Человек -- Защищает Свои ТЕМЫ! Пока ОДНА... (Сорри)
Подобно [SENTINEL]
Пока же -- по ТЕМЕ! Почему БЫ -- НЕТ...
В Общем... Реально: Сидел... Медитировал...
И -- ГЛАВНОЕ: [SONG LN] -- EXOLON! Нет СЛОВ... Но и Моя (Скромно Замечу) -- ТОГО же МАТЕРИАЛА!
Жаль: Мало Отзывов...
И что Важно ОЧЕНЬ: Данные Состояния (и Свойства) -- НЕ Всегда ДОСТИЖИМЫ... Чтобы: Легко и ДОЛГО -- Нужна ВСТРЯСКА... Быстрые СОБЫТИЯ (Жизни... Хоть и Э-Уровня)... /АГА: Необычный Знак...
Тогда вот Реально... My OUTSPOKEN MESSAGE:
Смотришь на Простые ПЕРЕХОДЫ (Цветов и Фигур)... В Общем: Простой ГЕОМЕТРИЧЕСКИЙ Процесс -- и Получаешь Силу!
Что ЗА Сила (ЭДАКАЯ)... /Может Вопрос Быть...
А: ВОТ -- Надо Больше Мне ЗАПРАВИТЬСЯ Арсеналом (Средств Форумчанина -- с ОПЫТОМ)... Тогда и -- Видно Будет...
....
/Ну что ТАМ: Кого Еще... СЕТИ Притащили?...))