Определение цвета в заданном диапазоне - Мультимедиа в Delphi

Сашка не прогер · 30.01.2013, 13:23

Всем привет.
Задача следующая. Некоторая функция возвращает число в диапазоне от 0 до 8191. Этот диапазон характеризует цвет пикселя (от белого к черному соответственно). Как преобразовать возвращаемое функцией число в нужный цвет?
Помогите пожалуйста.

Slym · 30.01.2013, 13:39

8192 градации серого?

Аватар · 30.01.2013, 13:49

Если это RGB для 4-битного

Код:

  i:=3333; //0<=i<=8191
  Panel1.Color:=RGB((i div 256)*16,((i mod 256) div 16)*16,(i mod 16)*16);

s-andriano · 31.01.2013, 19:54

y := MyFunc() div 32;
color := RGB(y,y,y);

30.01.2013, 13:23	#1
Сашка не прогер Новичок Джуниор Регистрация: 24.11.2008 Сообщений: 1	Определение цвета в заданном диапазоне Всем привет. Задача следующая. Некоторая функция возвращает число в диапазоне от 0 до 8191. Этот диапазон характеризует цвет пикселя (от белого к черному соответственно). Как преобразовать возвращаемое функцией число в нужный цвет? Помогите пожалуйста.

30.01.2013, 13:39	#2
Slym Участник клуба Регистрация: 07.12.2011 Сообщений: 1,025	8192 градации серого? Не стесняемся, плюсуем!

30.01.2013, 13:49	#3
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Если это RGB для 4-битного Код: `i:=3333; //0<=i<=8191 Panel1.Color:=RGB((i div 256)16,((i mod 256) div 16)16,(i mod 16)*16);` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Найти последний элемент массива, величина которого находится в заданном диапазоне	max_scotch	Помощь студентам	0	16.05.2012 09:12
Поиск значения в заданном диапазоне данных	Варвар	Microsoft Office Excel	2	21.01.2011 11:23
Протабулировать функцию y=экспонетна в степени x, с шагом h в заданном диапазоне	systemv	Помощь студентам	3	29.10.2010 13:48
Найти все простые числа в заданном диапазоне	Nikita++	Помощь студентам	8	20.10.2010 20:05
Как узнать, есть ли в заданном диапазоне буквы...	CyberMen	Microsoft Office Word	6	14.08.2010 13:29

31.01.2013, 19:54	#4
s-andriano Старожил Регистрация: 08.04.2012 Сообщений: 3,229	y := MyFunc() div 32; color := RGB(y,y,y);