Мольбы о помощи по графике!

[Urvin]

Как сохранить многоцветную картинку в битмап 256 цветов?
Или как привести картинку к 256 цветам (своим, статическим)?
Urvin I

[Mikle]

А кто мешает поочередно найти для каждого пикселя наиболее близкий из своей статической таблицы.

[GoGosha]

А кто мешает поочередно найти для каждого пикселя наиболее близкий из своей статической таблицы.

Долго. И потом на хранение каждого пикселя в VB - три байта. Наврядли это сработает

[Mikle]

Так

Наврядли это сработает

или все-таки

Долго

?
Про лимит времени вопрос вроде не шел...

[GSerg]

Сработает, но долго.
Я так ещё на QBasic делал, когда формат BMP пытался вручную осмыслить, без мануала по оному.
Где-то тут файл с этим примером я сливал. Искать по слову хоуммейд

[Urvin]

А как тогда брать каждый пиксель и приводить его к своим?

[Mikle]

For y=0 to WidthY-1
For x=0 to WidthX-1
c=picture1.point(x,y)
picture2.pset(x,y),Find(c)
next x
next y
end

Function Find(c as long)as long
dim r as byte,g as byte,b as byte
dim n as integer, num as integer,test as byte
r=c and &hFF
g=(c and &hFF00)\&h100
b=(c and &hFF0000)\&h10000
test=1000
for n=0 to 255
if (abs(TR(n)-r)+abs(TG(n)-g)+abs(TB(n)-b))>test then
test=(abs(TR(n)-r)+abs(TG(n)-g)+abs(TB(n)-b))
num=n
end if
next n
Find=RGB(TR(num),TG(num),TB(num)) 'num - номер цвета в таблице
End Function

Здесь TR(255), TG(255), TB(255) - твоя таблица, разложенная на цвета.
Писал не проверяя (нет под рукой Бейсика), но смысл, думаю, понятен.

[Urvin]

Ба-альшой спасиб, ибо долго мучаюсь!

[Urvin]

Mikle, не работает!
Выводит все аккуратно в черном цвете. если сделать test = 255 или ниже, получается что-то типа негатива.

[Mikle]

получается что-то типа негатива

возможно я перепутал RGB, вместо:
r=c and &hFF
g=(c and &hFF00)\&h100
b=(c and &hFF0000)\&h10000

попробуй:
b=c and &hFF
g=(c and &hFF00)\&h100
r=(c and &hFF0000)\&h10000

если не пойдет, я потом сделаю, а сейчас не на чем.

[Urvin]

Я разобрался. Функция вычленеия каналов у меня есть, проблема не в том. во-первых: типы переменных Test: byte, а значение 1000, исправляем на Integer, во-вторых знак '>' в сравнении меняем на '<'.
Как-то работает, причем на некоторых картинках нормально, а некоторые выдает такой мусор!

[Mikle]

а некоторые выдает такой мусор!

видимо палитра плохо соответствует картинке.