Вывод на экран

[Rifler]

Здрасьте
Написал Тетрис в текстовом режиме, и мне подсказали, что для вывода на экран без мерцания нужно создать массив 80x25x2(ширина, высота и цвет) и разместить его по адресу $b800:0000. Собственно сделал вот так

pl : array[1..25,1..80,1..2] of word absolute $b800:0000;

А что дальше делать? изменяю массив - на экране ничего. Делаю WriteLn(pl[i][j][1]) - тоже ничего.
Разъясните что к чему. Премного благодарен

[eoln]

Вот пример случайного заполнения экрана символами "Х" случайного цвета

uses crt;
var
  pl : array[1..25,1..80,1..2] of byte absolute $b800:0000;
  i: integer;
procedure WriteXY(x, y, c: integer; s: string);
//(координата Х, коодината У, цвет символа, символ)
begin
  pl[y][x][1] := ord(s[1]);//символ
  pl[y][x][2] := c;//цвет
  write('')//команда на вывод
end;
begin
  clrscr;
  for i := 1 to 50 do begin
     writexy(random(80)+1, random(25)+1, random(16)+1, 'X');
     delay(10000);
  end;
  readln
end.

Не понятно какого рода данные будем выводить. Если буквы цифры, то указанный код подходит. Если нужна и псевдографика, то меняем процедуру на следующую

procedure WriteXY(x, y, c: integer; s: byte);
begin
  pl[y][x][1] := s;
  pl[y][x][2] := c;
  write('')
end;

Эта процедура будет выводить любой символ по его коду (не так удобно, но универсально).
Логично предположить, что для стирания символа нужно будет записать на его место пробел.

[Stilet]

Rifler

Вообще-то по этому адресу не только символы а и атрибути символов.
Там первый байт - код символа, второй - цвет и фон его (хотя точно последовательностть байт не помню)

Я вот так раньше символ выводил:

 uses crt,dos;

PROCEDURE outs(x,y:BYTE;c:CHAR;b,d:BYTE);     {Вывод символа в видео и его атрибуты}
BEGIN
 mem[$b800:$0000+(y*160+(x)*2)]:=ORd(c);
 mem[$b800:$0000+(y*160+(x)*2)+1]:=b*16+d;
END;

begin
outs(10,10,'A',red,blue);
readln;
end.

b d - здесь фон и цвет символа.

[puporev]

To eoln

for i := 1 to 50 do begin
writexy(random(80)+1, random(25)+1, random(16)+1, 'X');
delay(10000);
end;

Чтобы не было черных символов с фоном(они отличаются от других) лучше random(15)+1, и еще зачем задержка в 10 сек?

[eoln]

зачем задержка в 10 сек

Просто для наглядности.
10 секунд в данном случае зависит от скорости компьютера. У меня они длятся примерно как 0,2 - 0,3 сек

[Rifler]

Сообщение от Stilet

Вообще-то по этому адресу не только символы а и атрибути символов.
Там первый байт - код символа, второй - цвет и фон его (хотя точно последовательностть байт не помню)

Я вот так раньше символ выводил:

 uses crt,dos;

PROCEDURE outs(x,y:BYTE;c:CHAR;b,d:BYTE);     {Вывод символа в видео и его атрибуты}
BEGIN
 mem[$b800:$0000+(y*160+(x)*2)]:=ORd(c);
 mem[$b800:$0000+(y*160+(x)*2)+1]:=b*16+d;
END;

begin
outs(10,10,'A',red,blue);
readln;
end.

b d - здесь фон и цвет символа.

а mem это что?

[Rifler]

А, все, разобрался, норм рисует.
Тока один вопрос остался - раньше чуть ниже "стакана" была надпись

WriteLn('You score is ',points,' points');

Как мне теперь это сделать?

[puporev]

А куда эта надпись девалась?
Если ее символы перекрывают, то возьмите массив по высоте не 25, а меньше на количество строк для надписи.

[Rifler]

Сообщение от puporev

А куда эта надпись девалась?
Если ее символы перекрывают, то возьмите массив по высоте не 25, а меньше на количество строк для надписи.

Не, просто если просто выводит РайтЛн'ом, то она будет сверху и белым цветом. Но я уже разобрался, сделал.
Теперь новый вопрос - получается что "разрешение" 25х80. Как можно сделать хотя бы 40х80? А то если запускать с ехешника, немного плохо выглядит

[puporev]

Откройте Турбо Паскаль, в левом верхнем углу окошка есть символ командной строки. Кликните по нему, в выпавшем списке выберите "Свойства" и экспериментируйте с размерами.