1. Na pewno, będąc gdzieś w ciemnym miejscu, i mając przy sobie latarkę świeciliście nią aby rozjaśnić sobie widok. Jeżeli świeciliście na ścianę, na której były jakieś napisy łatwiej było je odczytać. Fajne cieniowane kółeczko pozwalało nam dostrzec to czego normalnie z ciemności nie widzimy. Rysunek pokazuje jak to ma wyglądać. Bump jest to uzyskiwanie na płaskim ekranie obrazu 3D. Lecz przykład opisany w tym artykule dotyczy tylko i wyłącznie obrazu 2D. Efekt i tak jest wspaniały. Stworzyliście rysunek 320x200x255 i chcecie by był oświetlany. Jest to bardzo proste lecz oprócz jakiegoś tła potrzebne nam będzie jakieś światło, które też trzeba narysować. Światło najlepiej jakby było cieniowane, bo wtedy wychodzi najlepszy efekt. W tym przykładzie mamy oszczędzoną robotę jeśli chodzi o narysowanie tła i światła (pliki: tlo.gfx i latarka.gfx). Lecz same grafiki nic nam nie dają trzeba także umieć stworzyć algorytm ukazujący tło, ciemność i światło. Program działa w bardzo prosty sposób. Na ekranie jest rysowane światło o kolorach pobieranych z tablicy ekran. Może jest to trochę nie zrozumiałe, ale jeśli przeczytasz poniższy tekst to na pewno więcej zrozumiesz.

2. Najpierw trzeba otworzyć tło, czyli obrazek, który będzie oświetlany. Trzeba także pamiętać aby zawartość obrazka umieścić w tablicy 64000 KB.

type
ekran = array[0..319, 0..199] of byte;

Tablica potrzebna do umieszczenia w niej obrazka jest gotowa więc teraz trzeba otworzyć obrazek, a robi się to tak.

procedure opentlo(plik : string; tlo : byte);

var
f : file;
b : array[0..319] of byte;
x, y : integer;

begin
assign(f,plik);
reset(f,1);
for x:=0 to 199 do
begin
blockread(f,b,320); {przelewanie obrazka do tablicy}
for y:=0 to 319 do if b[y]<>tlo then begin putpixel(y,x,b[y]); ekr^[y,x]:=b[y]; end;
end;
close(f);
end;

Wiemy już jak otworzyć tło, ale pozostało nam jeszcze światło.

procedure openpfile(x1, y1 : integer; plik : string; tlo : byte);

var f : file;
b, rx, ry : byte;
xx, yy : integer;
buf : array[1..321] of byte;
w, d : Word;

begin
assign(f,plik);
reset(f,1);
blockread(f,buf,2,w);
rx:=buf[1];
ry:=buf[2];
for yy:=1 to ry do
begin
blockread(f,buf,rx,w);
for xx:=1 to rx do if (buf[xx]<>tlo) then
{procedura rysuje rysunek poza kolorem tlo, pobierając jednocześnie, nr koloru odpowiadających punktów z tablicy ekran}
putpixel(xx+x1,yy+y1,(ekr^[xx+x1,yy+y1] div 50-(buf[xx])-3));
end;
close(f);
end;

3. Mamy już najważniejsze procedury, dzięki którym stworzymy świecącą światłem latarkę. Pora zająć się stworzeniem całego programu. Do jego wykonania potrzebne nam będą zmienne:

var
ekr : ^ekran; {zmienna typu ekran}
mx, my, k : integer; {zmienne do myszki}
ax, ay : integer; {zmienne pomocnicze}
i : integer; {zmienna pomocnicza}

Już mamy wszystko, więc pora napisać program.


uses crt, helpmous;

type
ekran = array[0..319, 0..199] of byte;

var
ekr : ^ekran;
mx, my, k : integer;
ax, ay : integer;
i : integer;

procedure initvga; assembler;
asm
mov ax, 13h
int $10
end;

procedure closevga; assembler;
asm
mov ax, 03h
int $10
end;

procedure putpixel(x, y : integer; c : byte);
begin
mem[$a000:y*320+x]:=c;
end;

function getpixel(x, y : integer) : byte;
begin
getpixel:=mem[$a000:y*320+x];
end;

procedure bar(x, y, d, s : word; kolor : byte);

var
xx, yy : word;

begin
for xx:= x to d do
for yy:= y to s do
begin
putpixel(xx,yy,kolor);
end;
end;

procedure setcol(col : byte; r, g, b : byte);
begin
port[$3C8] := col;
port[$3C9] := r;
port[$3C9] := g;
port[$3C9] := b;
end;

procedure opentlo(plik : string; tlo : byte);

var f : file;
b : array[0..319] of byte;
x, y : integer;

begin
assign(f,plik);
reset(f,1);
for x:=0 to 199 do
begin
blockread(f,b,320);
for y:=0 to 319 do if b[y]<>tlo then begin putpixel(y,x,b[y]); ekr^[y,x]:=b[y]; end;
end;
close(f);
end;

procedure openpfile(x1, y1 : integer; plik : string; tlo : byte);

var f : file;
b, rx, ry : byte;
xx, yy : integer;
buf : array[1..321] of byte;
w, d : Word;

begin
assign(f,plik);
reset(f,1);
blockread(f,buf,2,w);
rx:=buf[1];ry:=buf[2];
for yy:=1 to ry do
begin
blockread(f,buf,rx,w);
for xx:=1 to rx do if (buf[xx]<>tlo) then
putpixel(xx+x1,yy+y1,(ekr^[xx+x1,yy+y1] div 50-(buf[xx])-3));
end;
close(f);
end;

begin
new(ekr);
initvga;
opentlo('tlo.gfx',255);
for i:=0 to 255 do setcol(i,i,i,i);
bar(0,0,320,200,0);
bar(0,0,320,200,0);
mousewindow(5,5,210,90);
setmousepos(110,50);
mx:=5;
my:=5;
repeat
getmousepos(mx,my,k);
openpfile(mx,my,'latarka.gfx',255);
if (ax<>mx) or (ay<>my) then
begin
ax:=mx;
ay:=my;
bar(0,0,320,200,0);
end;
until keypressed;
closevga;
dispose(ekr);
end.

4. Program jest łatwy w obsłudze i ma wiele zastosować, lecz to od ciebie zależy co to będzie...

Kod źródłowy do artykułu:
Bump Mapping (30 KB)