PAUSE 1 равносильно HALT
PAUSE 1 равносильно HALT
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
А в чём прикол? Даже я - неспектрумист, по большому счёту, писал мелочи вроде:
10 FOR i=0 TO 7
20 PAPER i : CLS
30 PAUSE 3
40 NEXT i
.........................
Хотя... Посмотрим, в чём там прикол... mig95 слишком серьёзный парень, чтобы мелочами нас развлекать.
Добавлено через 21 минуту
....................
30 и 40 лучше местами поменять...
Последний раз редактировалось GNTB; 17.04.2007 в 23:00. Причина: Добавлено сообщение
скорее всего это нечаянно как-то вышло - потомучто времени выполнения команд в басице (которые тем более зависят от еномера строки, вернее от удаленности от началапрограммы) не знает никто, даже сам Логан... а эффект старенький - но у меня на профи он триколор не показывал - просто полоски на бордюре кривые
30 и 40 местами поменять
7 - white
1 - blue
2 - red
Если не ошибаюсь.
улыбнули. нам когда спектрум с братом купили, братан картинку рисовал через DRAW ахрененная программка, прёчём параметры дуги подбирались вручную методом проб.
другой чувак таким же образом подбирал на слух похоронный марш через BEEP.
вот времена были-аж слезу пробивает.
как пент собрал, тоже этот эффект проверял, тпа эффективность турбы узнать хотел
а с DRAW старый прикол есть:
10 plot 128,60
20 draw 0,80,932
число произвольное
Я для настройки цветов спекка на телеке пользовался такой программкой (набирается с нуля, короткая):
10 pause 1: border 0: border 0: border 1: border 2: border 3: border 4: border 5: border 6: border 7: goto 10
обратите внимение: pause 1 стоит в начале строки, операция GOTO выполняется достаточно долго
испуользуется два раза border 0 для того чтобы вывести луч прорисовки на видимую область.
если указанной сделать циклами, то в одно прерывание оно не успеет. Если это представить разными строчками то тоже не успеет, так как интерпертатор достаточно долго ищет следующую строчку.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)