CP/M для Вектора и Форматы файлов

[Black Cat / Era CG]

Вот и получается кратно 256 байт.

Получается так.

[Advertiser]

[AzAtom]

Вот так правильно?

[Black Cat / Era CG]

Примерно так. Насчет черепов по цветам не очень уверен (хотя сравниваю только с эмулятором)

- - - Добавлено - - -

Вот скриншоты с эмуля


- - - Добавлено - - -

То есть с цветовыми составляющими немного напутано получилось

[KTSerg]

...
То есть с цветовыми составляющими немного напутано получилось

Похоже (судя по скринам) синий с красным перепутаны.

[AzAtom]

Точно, синий и красный перепутал в палитре. Теперь нормально. Только не реализовал выбор плоскостей. Ещё бы картинки с 1-2-3 задействованными плоскостями.

[Black Cat / Era CG]

Ещё бы картинки с 1-2-3 задействованными плоскостями.

Вот и у меня таких нет

- - - Добавлено - - -

Тоже добил (блин, 2 дня искал ошибку там, где ее не было!).
Пора приступать к scr и spr.

[AzAtom]

Тоже добил

Можете показать вашу реализацию? Интересно другим взглядом посмотреть.

[Black Cat / Era CG]

Можете показать вашу реализацию? Интересно другим взглядом посмотреть.

В смысле код?

[Black Cat / Era CG]

Там г..код, собственно. Ну ладно, сейчас.

- - - Добавлено - - -

Вот кусок, который расковыривает сами пиксели и сохраняет все это в формате, годном для 4-битного бмп

Осторожно! Г...КОД!!!

    //Обрабатываем массив пикселей
    for row:=0 to PicHeight-1 do begin
      InSrc:=($13+(PicHeight-row-1)*PicWidth*BPCount);
      for col:=0 to PicWidth-1 do begin
        for pix:=0 to 7 do begin
          InSrcTp:=InSrc;
          if (pix mod 2)=0 then begin
            ColByte:=%00000000;
            if (BPMask and %00000001)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<0);
              Inc(InSrcTp,PicWidth);
            end;
            if (BPMask and %00000010)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<1);
              Inc(InSrcTp,PicWidth);
            end;
            if (BPMask and %00000100)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<2);
              Inc(InSrcTp,PicWidth);
            end;
            if (BPMask and %00001000)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<3);
              Inc(InSrcTp,PicWidth);
            end;
            ColByte:=ColByte<<4;
          end
          else begin
            if (BPMask and %00000001)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<0);
              Inc(InSrcTp,PicWidth);
            end;
            if (BPMask and %00000010)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<1);
              Inc(InSrcTp,PicWidth);
            end;
            if (BPMask and %00000100)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<2);
              Inc(InSrcTp,PicWidth);
            end;
            if (BPMask and %00001000)<>0 then begin
              ColByte:=ColByte or (((File4View[InSrcTp] and (%10000000>>pix))>>(7-pix))<<3);
              Inc(InSrcTp,PicWidth);
            end;
            MBuffer.WriteByte(ColByte);
          end;
        end;
        Inc(InSrc);
      end;
    end;

[свернуть]

Я предупреждал

- - - Добавлено - - -

Ну и да. Еще вопросик. RMB и RBR ничем не отличаются? Просто варианты расширений?

[AzAtom]

Я предупреждал

Примерно так делал, когда преобразовывал картинки от спектрума. Но эти сдвиги мне не понравились, поэтому, просто развернул третий вложенный цикл. Писать чуть больше, но выполняется проще и быстрее.

Кстати, у вас в первой ветке, когда pix чётное, разве не должно в конце сдвигаться на 4, 5, 6 и 7? А то все биты попадают в 4 младших бита BMP.

- - - Добавлено - - -

RMB и RBR ничем не отличаются? Просто варианты расширений?

Созданный программой sprview файл .rmb этой же процедурой не открылся. Похоже там байты плоскостей идут не построчно, а целиком.

- - - Добавлено - - -

Точно, там только распределение по плоскостям отличается, а палитра, размеры и используемые плоскости одинаковые.

Ещё значение 0 в байте размера означает 256.