Важная информация

User Tag List

Страница 1 из 5 12345 ПоследняяПоследняя
Показано с 1 по 10 из 49

Тема: Собственная РАЗРАБОТКА Одной Программы РЕЛАКСАЦИИ (Графического Уровня)

  1. #1
    Banned
    Регистрация
    29.04.2013
    Адрес
    г. Логойск, Беларусь
    Сообщений
    9
    Благодарностей: 0
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию Собственная РАЗРАБОТКА Одной Программы РЕЛАКСАЦИИ (Графического Уровня)

    [Моя Первая ТЕМА]

    Потому: НЕ Обессудьте...
    Мое Приветствие Настоящим Ценителям Вычислительных (Цифровых) Технологий!
    /ТАКИМ Подобно как (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-е Измерение"...

    [--- [E] ---]

    Удачи и -- НЕ Дурите Голову/Мозги... КТО и КАК -- Пишет!!!
    Главное: Программы...!!! Остальное -- Стиль и Характер ПОВЕДЕНИЯ... "Каждому -- Свое" (Дано и Помогает)

    А как -- Демо-Вариации... Выглядят???

    ТАМ -- Строго "По Уставу КПСС..."...???!

    ---------- Post added at 01:40 ---------- Previous post was at 00:01 ----------

    Ну... Понятно: Далее -- Пошли и Будут... Ругань-Оскорбления... Обычное Дело...

    Что ж... Можно -- Удалять!
    /Потому что ввиду прежде-временных Наездов -- Устал...
    Пока...

    Как Раз: День = 22 Июня =
    НЕ Спам! Просто... В Книгах ведь -- Пишут СТОЛЬ Помимо Основного Контента!!!
    А в И-Нете -- ВОЙНЫ!!! Так Держать... МОЛОДЦЫ!

    Вот... Лишь ОДНО:

    Запустил бы Кто (Приведенный Вариант) -- и Сказал БЫ...

    Чем Ерундой Заниматься...!!!
    Да... ЭТО -- лишь Вариант!

    ТАМ -- можно: "Работать -- КРАЙ Бесконечный"... При Обсуждении и должном Понимании(!)

    НО... НЕ Будьте -- БАБАМИ БАЗАРНЫМИ...!!!
    Лучше: НЕ Будем... И "Совкам" -- ТОЖЕ...:

    ТАК... ЭТО -- НЕ Хотел (Писать)... НО -- Пришлось [Приложить]...!!!

    Я -- НЕ Люблю Спамеров и Троллизм... Но Особенно -- ЛАМЕРОВ!
    К Слову: МИР -- Война... Особенно: СЕТЬ (Всемирная и Всеми Любимая)...

    P.S.: Ну и ЭТО нужно Было: Манией Величия -- НЕ Страдаю! Просто: Оформление и МНОГО Интересов и Увлечений (в Жизни)

    Внимание!
    Еще Набирался-Проверялся... [ПОСТ]

    Да... Оставался лишь -- Формат!


    Ну Простите...
    Каждый -- ГОРАЗД (в Меру)... В Сети "ВсеМирной и ВсеМерной"

    Еще Раз:
    Как и ЧТО -- только НЕ Пишут!!!
    А "Всех -- под Одну Гребенку" -- НЕЛЬЗЯ...

    Моя же Привычка -- ТАК (Писать)
    Потом: Регулировка или Коррекция... Без -- Оскорблений (Людей) и Нарушения [Правил]

    Я -- чуть Подрегулировал (с Учетом Замечаний МОДЕРАТОРА)...
    Признаюсь: Да... ЭТО -- от Обильной ЭЛЕКТРОННОЙ Жизни и Режима РАБОТЫ! Немного ЗАМУЧЕН... Может... Вот -- ВЕРНУСЬ (Постепенно) к Обычному ФОРМАТУ... /...

    Однако: Он [Мой Стиль] -- Динамичный! И Подобные Приемы -- у МНОГИХ (Встречаются)

    НУ... Как -- Угодно!
    Последний раз редактировалось ZX-F4C; 22.06.2013 в 20:50.

  2. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #2
    ZEK
    Гость

    По умолчанию

    тЫ (с СМЫСЛЕ вы) что:: ( возможно ВСЕ)? ДУРАК ? (В сысле МОСГ :мало:, *слега* недопереразвит?)?)

    РЕ/ПЕРЕЛАКСИРОВАЛ (там$$) ,,!

  4. Этот пользователь поблагодарил ZEK за это полезное сообщение:
    sas9568635 (06.07.2013)

  5. #3
    Guru Аватар для Mad Killer/PG
    Регистрация
    13.09.2008
    Адрес
    Украина
    Сообщений
    2,677
    Благодарностей: 532
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Ого ,гдe тaкую шмaль продaют,чувaк вышли НАМ (ЭТО) для рeлaксa,прикольно врeмя у людeй eсть тaкую ххх,aхинeю писaть
    "...Неправедный пусть еще делает неправду; нечистый пусть еще сквернится; праведный да творит правду еще, и святый да освящается еще. Се, гряду скоро, и возмездие Мое со Мною, чтобы воздать каждому по делам его. " (Откр. 22:11-13)

  6. Этот пользователь поблагодарил Mad Killer/PG за это полезное сообщение:
    sas9568635 (08.07.2013)

  7. #4
    Vitamin C++ Аватар для Vitamin
    Регистрация
    14.01.2005
    Адрес
    Таганрог, Россия
    Сообщений
    4,031
    Благодарностей: 1426
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    ZX-F4C, а в чем "динамичность" данного стиля изложения? Если он и в "духе программирования", то напоминает "хакерские листинги" из третьесортных фильмов.

  8. #5
    Master Аватар для nodeus
    Регистрация
    07.10.2007
    Адрес
    Perm, Russia
    Сообщений
    541
    Благодарностей: 443
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Полный бардак в голове... Для кого излагаются мысли непонятно.

    Хотя, чем-то напомнило переписку в своё время с Ironman`ом но у Антона был совершенно свой, неповторимый язык, а тут — ахинея.
    Спасибо и пока! – Hyperadio | nd on hype | zxboot.ru | zx demo на YouTube

  9. #6
    Activist
    Регистрация
    06.09.2009
    Адрес
    Москва
    Сообщений
    497
    Благодарностей: 545
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Должно быть:
    56 IF DPy3<YH THEN PLOT DPx3, DPy3
    58 IF DPy4<YH THEN PLOT DPx4, DPy4
    А то 'Integer out of range'.
    Во вложении - tap-файл.
    Вложения Вложения
    • Тип файла: zip relax.zip (987 байт, Просмотров: 104)

  10. Эти 4 пользователя(ей) поблагодарили Mdesk за это полезное сообщение:
    daniel (24.06.2013), Hacker VBI (22.06.2013), osa (22.06.2013), Reobne (30.04.2016)

  11. #7
    Veteran Аватар для Hacker VBI
    Регистрация
    05.03.2013
    Адрес
    г. Канев, Украина
    Сообщений
    1,545
    Благодарностей: 856
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    ZX-F4C, ну чо, зашибись! нра!
    на дихальт! вайлд демо!

  12. #8
    R.I.P. Аватар для Rindex
    Регистрация
    10.11.2007
    Адрес
    Khimki
    Сообщений
    18,186
    Благодарностей: 5966
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Hacker VBI Посмотреть сообщение
    ZX-F4C, ну чо, зашибись! нра!
    на дихальт! вайлд демо!
    После ДиХальта - в клинику. Голову лечить, чтобы писАть нормально.
    Может, мы обидели кого-то зря,
    Сбросив пару лишних мегатонн,
    И горит зелёным пламенем земля,
    Там, где был когда-то Пентагон!..

    Profi-576 v3.2/AY-3-8912A GI/FDD-5.25'

  13. Эти 2 пользователя(ей) поблагодарили Rindex за это полезное сообщение:
    Hacker VBI (22.06.2013), VNN_KCS (23.06.2013)

  14. #9
    Veteran Аватар для Hacker VBI
    Регистрация
    05.03.2013
    Адрес
    г. Канев, Украина
    Сообщений
    1,545
    Благодарностей: 856
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Rindex, эти "творческие личности" такие забавные

  15. Этот пользователь поблагодарил Hacker VBI за это полезное сообщение:
    VNN_KCS (23.06.2013)

  16. #10
    Master Аватар для nodeus
    Регистрация
    07.10.2007
    Адрес
    Perm, Russia
    Сообщений
    541
    Благодарностей: 443
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Интересно, а он говорит также, как пишет?
    Спасибо и пока! – Hyperadio | nd on hype | zxboot.ru | zx demo на YouTube

Страница 1 из 5 12345 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 69
    Последнее: 18.12.2016, 19:12
  2. Ответов: 3
    Последнее: 11.03.2008, 22:00

Метки этой темы

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •