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

Цитата:

---

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

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

---

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

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

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

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

Вот скриншоты с эмуля
Вложение 57493 Вложение 57494 Вложение 57495

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

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

Цитата:

---

Сообщение от Black Cat / Era CG

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

---

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

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

Вложение 57498

Цитата:

---

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

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

---

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

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

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

Цитата:

---

Сообщение от Black Cat / Era CG

Тоже добил

---

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

Цитата:

---

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

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

---

В смысле код?

Цитата:

---

Сообщение от 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 ничем не отличаются? Просто варианты расширений?