Конвертирование из BMP в DATA

[krasla]

Вот ещё один конвертор, может подойдёт.
Успехов!!!!!

Пример перекодировки моего аватара.
Тотже файл в ворде за две минуты убрал DATA,&H.
Поиск и замена.

Прикрепленный файл: 177406.zip

[Popeye]

Спасибо,
так как с МикроБейсиком разбираюсь более-менее успешно, запихал весь BMP файл в массив констант IMAGE. Перекодировку сделал ПИКом.

sub procedure SHOW_IMAGE 

dim _I, _J, _X,_Y,_X_size,_Y_size,DATA_START,PALETTE_START, _Temp, IMAGE_SIZE as word
dim _RED,_GREEN,_BLUE as byte

IMAGE_SIZE = IMAGE[3]
IMAGE_SIZE = IMAGE_SIZE ‹‹ 8
IMAGE_SIZE = IMAGE_SIZE + IMAGE[2]

DATA_START = IMAGE[11]
DATA_START = DATA_START ‹‹ 8
DATA_START = DATA_START + IMAGE[10]

PALETTE_START = IMAGE[15]
PALETTE_START = PALETTE_START ‹‹ 8
PALETTE_START = PALETTE_START + IMAGE[14]
PALETTE_START = PALETTE_START + 14

_X = 5
_Y = 150
_X_size = 100
_Y_size = 168

Usart_Write($49)
Usart_Write(Hi(_X))
Usart_Write(Lo(_X))
Usart_Write(Hi(_Y))
Usart_Write(Lo(_Y))
Usart_Write(Hi(_X_size))
Usart_Write(Lo(_X_size))
Usart_Write(Hi(_Y_size))
Usart_Write(Lo(_Y_size))
Usart_Write(8) '8 битово изображение

for _I = (IMAGE_SIZE - _X_size - 1) to DATA_START step -100
  _J = 0
  while _J ‹ _X_size
  inc(_J)
  _Temp = IMAGE[_I + _J]
  _Temp = _Temp ‹‹ 2

  _BLUE = IMAGE[PALETTE_START + _Temp ]
  _GREEN = IMAGE[PALETTE_START + _Temp + 1 ]
  _RED = IMAGE[PALETTE_START + _Temp + 2]

  _BLUE = _BLUE ›› 6
  _GREEN = _GREEN ›› 5
  _RED = _RED ›› 5

  _Temp = _BLUE
  _Temp = _Temp ‹‹ 3
  _Temp = _Temp or _GREEN
  _Temp = _Temp ‹‹ 3
  _Temp = _Temp or _RED

  Usart_Write(_Temp)
  wend
next _I

WAIT_ACK
end sub

Пока все очень сыро, да основа для дальнейшего усовершенствования имеется
‹center›
-- Прилагается рисунок: --
[img]nuke/users_images/31102008/2201523.JPG[/img]‹/center›

[Popeye]

Mда. Должен выжать воду из кода

sub procedure SHOW_IMAGE

dim _I, _J, _X_size,_Y_size,DATA_START,PALETTE_START, _Temp, IMAGE_SIZE as word
dim _RED,_GREEN,_BLUE as byte

IMAGE_SIZE = IMAGE[3] 'Размер файла / массива IMAGE BMP
IMAGE_SIZE = IMAGE_SIZE ‹‹ 8
IMAGE_SIZE = IMAGE_SIZE + IMAGE[2] 

DATA_START = IMAGE[11]  'Начало области с байтами цвета пикселей
DATA_START = DATA_START ‹‹ 8
DATA_START = DATA_START + IMAGE[10] 

PALETTE_START = IMAGE[15] 'Начало палитры
PALETTE_START = PALETTE_START ‹‹ 8
PALETTE_START = PALETTE_START + IMAGE[14]
PALETTE_START = PALETTE_START + 14 

_X_size = 100 'Размер X
_Y_size = 168 'Размер Y

for _I = (IMAGE_SIZE - _X_size - 1) to DATA_START step -100
  _J = 0
  while _J ‹ _X_size
  inc(_J)
  _Temp = IMAGE[_I + _J] 'Берем байт цвета пикселя
  _Temp = _Temp ‹‹ 2 'Умножаем на 4. В палитре 4 байта с цветами BGR. Последний не используется.

  _BLUE = IMAGE[PALETTE_START + _Temp ] 'Байт синего из палитры
  _GREEN = IMAGE[PALETTE_START + _Temp + 1 ] 'Байт зеленого
  _RED = IMAGE[PALETTE_START + _Temp + 2] 'Байт красного

  _BLUE = _BLUE ›› 6  'uVGA имеет 2 бита синего. Из _BLUE берем 2 старших
  _GREEN = _GREEN ›› 5 '3 старших бита зеленого
  _RED = _RED ›› 5 '3 старших бита красного

  _Temp = _BLUE  'В _Temp запихиваем биты синего
  _Temp = _Temp ‹‹ 3 'Смещение на 3 бита влево
  _Temp = _Temp or _GREEN 'Добавляем зеленые биты
  _Temp = _Temp ‹‹ 3 'Опять смещение на 3 бита
  _Temp = _Temp or _RED 'Добавляем красные биты
'Получаем _Temp в формате BBGGGRRR
  Usart_Write(_Temp)'Запихиваем данные в uVGA
  wend
next _I

end sub

Прошу прощения за переменные типа _BLUE В коде имеется глобальная константа BLUE, так же RED и GREEN. Появились подозрения путаницы. Потому и поставил '_' впереди BLUE. Заодно пострадало и почти все остальное
Удачи!

[user_ushastyj]

А в бейсике структур нет ?
Жалко на код смотреть...

[xerox2]

А в бейсике структур нет ?
Жалко на код смотреть...

вы наверна программер. а эмбеддеры пишут кто в лес кто по дрова. самому иногда страшно и стыдно бывает

[user_ushastyj]

да просто напрашивается

 union
{
  struct{
    unsigned BLUE:2;
    unsigned GREEN:3;
    unsigned RED:3 
  }rgb;
  unsigned char Temp;
}un;
un.rgb.BLUE=arr[a];
un.rgb.GREEN=arr[a+1];
un.rgb.RED=arr[a+2];
Usart_Write(Temp);

[Popeye]

А в бейсике структур нет ?

В этом Бейсике структуры имеются. Злой вы однако. Писал же я

Пока все очень сыро, да основа для дальнейшего усовершенствования имеется

А вы сразу за зад

Жалко на код смотреть...

Все это за пол дня написал в спешке и сомнениях. Противно однако.

[dosikus]

Все это за пол дня написал в спешке и сомнениях. Противно однако.

Не ошибается лишь тот , кто ничего не делает...

[Kabron]

Я тут немного раньше этот вопрос тоже поднимал:
https://kazus.ru/forum/topics/13013.html

[Popeye]

Kabron спасибо, но в сущности я проблему почти решил, надеюсь Да и есть необходимость не только в ПИК заливать, надобно пошаманить несколько изображений в память I2C запихать. Т.е. еще один выходной файл, для программатора памяти. Тут борюсь с Вижуал Бейсиком, окончу дам исходники. Надеюсь на этот раз никто не будет возмущатся деревянным кодом
Удачи!