3D painting [D7]
!Trinix © (2005-10-23 19:15:00)
Здравствуйте, мастера!
Я создаю редактор к моей игре. Сейчас работю над терраином,
который поддерживает карту высот. И вот, что меня интересует, как
сделать такую кисть, которая рисует не какой-нибудь цвет, а рисует
по текстуре. А так же, мне необходимо, чтобы края сливались с фоном
(как в фотошопе). Прошу вас помогите мне, и я буду очень
благодарен, если у вас есть какой-нибудь подобный пример.
Плюс к этому подскажите, как определять размеры текстуры, так
одним словом. Главное это кисть.
Antonn (2005-10-23 19:26:00) [1]
можно и по текстуре. пройди сюда и скачай модуль
http://kladovka.net.ru/index.cgi?pid=list&rid=252
добавь в него эту процедурку:
procedure CopyPrepareMaskColor(_B_in,_B_out: TBitmap;
_x,_y:integer; Color:Tcolor; _transparent:integer);
var x, y, x_cor,y_cor,x_corS,y_corS: Integer; RowOut,RowIn:
PRGBArray;
_r,_b,_g:integer; rc1, bc1, gc1:byte;
begin
if _x_B_out.Height then
y_cor:=_y+_B_in.Height-_B_out.Height else y_cor:=0;
rc1:=GetRValue(Color); gc1:=GetGValue(Color);
bc1:=GetBValue(Color);
for y:=y_corS to _B_in.Height-1-y_cor do begin
RowOut:= _B_out.ScanLine[y+_y];
RowIn:= _B_in.ScanLine[y];
for x:=x_corS to _B_in.Width-1-x_cor do begin
_r:=
trunc(RowOut[x+_x].rgbtRed+(((rc1-RowOut[x+_x].rgbtRed)/100)*(RowIn[x].rgbtRed*100/255))*(_transparent/100));
_g:=
trunc(RowOut[x+_x].rgbtGreen+(((gc1-RowOut[x+_x].rgbtGreen)/100)*(RowIn[x].rgbtGreen*100/255))*(_transparent/100));
_b:=
trunc(RowOut[x+_x].rgbtBlue+(((bc1-RowOut[x+_x].rgbtBlue)/100)*(RowIn[x].rgbtBlue*100/255))*(_transparent/100));
if _r>255 then _r:=255; if
_r255 then _g:=255; if
_g255 then _b:=255; if
_b
Наверх 
ЧАТ |
Орешник |
|
