Сообщение от
ivagor
Команда SCREEN0,0,L,P присвоит математическим/логическим цветам 0 и 1 физические цвета L и P
Да, но я имел ввиду другой контекст.
Код:
10 FOR L=0 TO 15
20 P=INT(RND(1)*255)+1)
30 SCREEN 0,L,P
40 NEXT L
И вот здесь берём мою формулировку: Команда SCREEN 0,L,P в строке 30 служит для присвоения логическому цвету L (0-15, из 16 возможных) случайного физического цвета P из палитры 255 цветов.
Сообщение от
ivagor
Цвет бордюра зависит не только от SCREEN (физический) но и от третьего аргумента COLOR (математический/логический, по умолчанию в 2.5=1, но так не во всех его клонах).
Проблемы терминологические. Я считаю так:
- Логический цвет - это то чем оперирует программист на своём уровне логики работы программы, это абстракция. В 06Ц Бейсик программист может оперировать 16 цветами, потому что больше Вектор на экране формально показать не может.
- Физический цвет - это цвет который присвоен логическому цвету физически, по факту. Какие для этого отображения потребовалось затронуть плоскости, программисту на уровне Бейсика, в принципе безразлично. Он про них наверное и знать не обязан.
То что я хочу сказать:
- Физический цвет фона зависит от установленного логического цвета 0
- Физический цвет бордюра зависит от установленного логического цвета 1
- Физический цвет тона зависит от установленного логического цвета 15.
Вместо тысячи слов. Вот программа на Acorn BASIC:
Код:
10 REM Draw to the screen
20 MODE 2
30 D=1280/16
40 X=0
50 MOVE X,0
60 MOVE X,1024
70 FOR I=0 TO 15
80 X=X+D
90 GCOL 0,I
100 PLOT 85,X,0
110 PLOT 85,X,1024
120 NEXT I
130 REM Cycle the palette
140 K=0
150 FOR L=0 TO 15
160 P=0
170 IF L=K THEN P=5
180 VDU 19,L,P,0,0,0
190 NEXT L
200 K=K+1
210 IF K>15 THEN K=0 : REM We can now use 0 as part of our animation
220 GOTO 150
Переписываем это на 06Ц Бейсик:
Код:
10 D=255/16
20 X=0
30 PLOT X,0,2
40 PLOT X,255,2
50 FOR I=0 TO 15
60 X=X+D
70 COLOR I
80 LINE X,0,BF
90 LINE X,255,BF
100 NEXT I
110 K=0
120 FOR L=0 TO 15
130 P=0
140 IF L=K THEN P=5
150 SCREEN 0,L,P
160 NEXT L
170 K=K+1
180 IF K>15 THEN GOTO 110
190 GOTO120
И это даже работает. Внимание, вопрос: как будет выглядеть проверка необходимая для того чтобы эта шляпа не моргала бордюром? 
Программа для Вектора: anim.zip
Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 
