Важная информация

User Tag List

Страница 2 из 4 ПерваяПервая 1234 ПоследняяПоследняя
Показано с 11 по 20 из 36

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

  1. #11
    Сибирский антропоморфн Аватар для Black Cat / Era CG
    Регистрация
    06.05.2010
    Адрес
    Бердск, НСО
    Сообщений
    4,531
    Спасибо Благодарностей отдано 
    913
    Спасибо Благодарностей получено 
    846
    Поблагодарили
    628 сообщений
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от AzAtom Посмотреть сообщение
    Вот и получается кратно 256 байт.
    Получается так.
    Личка заполнена! И чистить я ее не буду! Пользуйтесь адекватными средствами связи! Спасибо.

    Seamos realistas y hagamos lo imposible!

    Ernesto Che Guevara
    Переехал сюда: SteinBlume (ex ATM CP/M Explorer)
    http://era-cg.su

    Скрытый текст

    Speccy2010 r2 (Спасибо m.d. & xlat),
    Sinclair ZX Spectrum + (Спасибо stepmotor),
    ZX Evolution rev.C + 5'25 FDD Epson SD-700AA + NedoPC PAL-Coder (Спасибо m.d. & xlat)
    [свернуть]

  2. #12
    Activist Аватар для AzAtom
    Регистрация
    05.04.2015
    Адрес
    г. Майкоп
    Сообщений
    292
    Спасибо Благодарностей отдано 
    3
    Спасибо Благодарностей получено 
    2
    Поблагодарили
    2 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Вот так правильно?
    Нажмите на изображение для увеличения. 

Название:	111.png 
Просмотров:	211 
Размер:	16.0 Кб 
ID:	57492

  3. #13
    Сибирский антропоморфн Аватар для Black Cat / Era CG
    Регистрация
    06.05.2010
    Адрес
    Бердск, НСО
    Сообщений
    4,531
    Спасибо Благодарностей отдано 
    913
    Спасибо Благодарностей получено 
    846
    Поблагодарили
    628 сообщений
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

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

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

    Вот скриншоты с эмуля
    Нажмите на изображение для увеличения. 

Название:	dino.png 
Просмотров:	164 
Размер:	6.1 Кб 
ID:	57493 Нажмите на изображение для увеличения. 

Название:	oko.png 
Просмотров:	177 
Размер:	6.6 Кб 
ID:	57494 Нажмите на изображение для увеличения. 

Название:	ter.png 
Просмотров:	182 
Размер:	11.7 Кб 
ID:	57495

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

    То есть с цветовыми составляющими немного напутано получилось
    Личка заполнена! И чистить я ее не буду! Пользуйтесь адекватными средствами связи! Спасибо.

    Seamos realistas y hagamos lo imposible!

    Ernesto Che Guevara
    Переехал сюда: SteinBlume (ex ATM CP/M Explorer)
    http://era-cg.su

    Скрытый текст

    Speccy2010 r2 (Спасибо m.d. & xlat),
    Sinclair ZX Spectrum + (Спасибо stepmotor),
    ZX Evolution rev.C + 5'25 FDD Epson SD-700AA + NedoPC PAL-Coder (Спасибо m.d. & xlat)
    [свернуть]

  4. #14
    Veteran
    Регистрация
    22.02.2014
    Адрес
    г. Курган
    Сообщений
    1,654
    Спасибо Благодарностей отдано 
    214
    Спасибо Благодарностей получено 
    301
    Поблагодарили
    212 сообщений
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Black Cat / Era CG Посмотреть сообщение
    ...
    То есть с цветовыми составляющими немного напутано получилось
    Похоже (судя по скринам) синий с красным перепутаны.

  5. #15
    Activist Аватар для AzAtom
    Регистрация
    05.04.2015
    Адрес
    г. Майкоп
    Сообщений
    292
    Спасибо Благодарностей отдано 
    3
    Спасибо Благодарностей получено 
    2
    Поблагодарили
    2 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

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

    Нажмите на изображение для увеличения. 

Название:	112.png 
Просмотров:	205 
Размер:	16.1 Кб 
ID:	57498

  6. #16
    Сибирский антропоморфн Аватар для Black Cat / Era CG
    Регистрация
    06.05.2010
    Адрес
    Бердск, НСО
    Сообщений
    4,531
    Спасибо Благодарностей отдано 
    913
    Спасибо Благодарностей получено 
    846
    Поблагодарили
    628 сообщений
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от AzAtom Посмотреть сообщение
    Ещё бы картинки с 1-2-3 задействованными плоскостями.
    Вот и у меня таких нет

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

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

    Seamos realistas y hagamos lo imposible!

    Ernesto Che Guevara
    Переехал сюда: SteinBlume (ex ATM CP/M Explorer)
    http://era-cg.su

    Скрытый текст

    Speccy2010 r2 (Спасибо m.d. & xlat),
    Sinclair ZX Spectrum + (Спасибо stepmotor),
    ZX Evolution rev.C + 5'25 FDD Epson SD-700AA + NedoPC PAL-Coder (Спасибо m.d. & xlat)
    [свернуть]

  7. #16
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  8. #17
    Activist Аватар для AzAtom
    Регистрация
    05.04.2015
    Адрес
    г. Майкоп
    Сообщений
    292
    Спасибо Благодарностей отдано 
    3
    Спасибо Благодарностей получено 
    2
    Поблагодарили
    2 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Black Cat / Era CG Посмотреть сообщение
    Тоже добил
    Можете показать вашу реализацию? Интересно другим взглядом посмотреть.

  9. #18
    Сибирский антропоморфн Аватар для Black Cat / Era CG
    Регистрация
    06.05.2010
    Адрес
    Бердск, НСО
    Сообщений
    4,531
    Спасибо Благодарностей отдано 
    913
    Спасибо Благодарностей получено 
    846
    Поблагодарили
    628 сообщений
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от AzAtom Посмотреть сообщение
    Можете показать вашу реализацию? Интересно другим взглядом посмотреть.
    В смысле код?
    Личка заполнена! И чистить я ее не буду! Пользуйтесь адекватными средствами связи! Спасибо.

    Seamos realistas y hagamos lo imposible!

    Ernesto Che Guevara
    Переехал сюда: SteinBlume (ex ATM CP/M Explorer)
    http://era-cg.su

    Скрытый текст

    Speccy2010 r2 (Спасибо m.d. & xlat),
    Sinclair ZX Spectrum + (Спасибо stepmotor),
    ZX Evolution rev.C + 5'25 FDD Epson SD-700AA + NedoPC PAL-Coder (Спасибо m.d. & xlat)
    [свернуть]

  10. #19
    Activist Аватар для AzAtom
    Регистрация
    05.04.2015
    Адрес
    г. Майкоп
    Сообщений
    292
    Спасибо Благодарностей отдано 
    3
    Спасибо Благодарностей получено 
    2
    Поблагодарили
    2 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Black Cat / Era CG Посмотреть сообщение
    В смысле код?
    Да.

  11. #20
    Сибирский антропоморфн Аватар для Black Cat / Era CG
    Регистрация
    06.05.2010
    Адрес
    Бердск, НСО
    Сообщений
    4,531
    Спасибо Благодарностей отдано 
    913
    Спасибо Благодарностей получено 
    846
    Поблагодарили
    628 сообщений
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

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

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

    Вот кусок, который расковыривает сами пиксели и сохраняет все это в формате, годном для 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 ничем не отличаются? Просто варианты расширений?
    Личка заполнена! И чистить я ее не буду! Пользуйтесь адекватными средствами связи! Спасибо.

    Seamos realistas y hagamos lo imposible!

    Ernesto Che Guevara
    Переехал сюда: SteinBlume (ex ATM CP/M Explorer)
    http://era-cg.su

    Скрытый текст

    Speccy2010 r2 (Спасибо m.d. & xlat),
    Sinclair ZX Spectrum + (Спасибо stepmotor),
    ZX Evolution rev.C + 5'25 FDD Epson SD-700AA + NedoPC PAL-Coder (Спасибо m.d. & xlat)
    [свернуть]

Страница 2 из 4 ПерваяПервая 1234 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Картотека ПО для Вектора-06ц
    от svofski в разделе Вектор
    Ответов: 716
    Последнее: 15.08.2023, 15:47
  2. Ответов: 4
    Последнее: 26.05.2008, 10:11
  3. Ввод с магнитной ленты - форматы
    от AlexBel в разделе Программирование
    Ответов: 3
    Последнее: 05.03.2008, 21:45
  4. xLook: форматы трекерных модулей
    от elf/2 в разделе Утилиты
    Ответов: 21
    Последнее: 19.02.2005, 22:43
  5. Форматы файлов
    от Viktor2004 в разделе Эмуляторы
    Ответов: 2
    Последнее: 13.02.2005, 09:57

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •