Grając w Jazz Jack Rabbit nie można nie ulec ciekawym efektom graficznym. Bo nie w każdej grze z okresu < 1998 widać takie rzeczy. Szczególnie zainspirowała mnie transparencja...

Transparencja to po prostu przezroczystość. Chodzi mi o wyświetlanie jakiegoś obrazka na tle innego, z tym, że wyświetlany obrazek będzie nieco prześwitywał.

Okazuje się, że także i my możemy zrobić taki efekt, co więcej to wcale nie jest trudne.

Paleta

Tutaj będą nam potrzebne wszystkie odcienie jakiegoś koloru, np. czerwonego. Najłatwiej byłoby zrobić tak:

For i := 0 To 255 Do SetCol(i, i Div 4, 0, 0);

Ale taka paleta to marnotrawstwo! Pamiętajmy bowiem, że karta VGA pozwala na wyświetlenie do 64 odcieni danego koloru, a nie 256. Dlatego też do stworzenia tego i wielu innych efektów (np. bump mapping) wystarczy taka paleta:

For i := 0 To 63 Do SetCol(i, i, 0, 0);

Tym sposobem mamy jeszcze 192 kolory do dyspozycji. Możemy je poświęcić na np. napisy, czy też na tło, które nie musi być wypełnione odcieniami tylko jednego koloru.

Zmienne, stałe, typy

Najważniejszy jest w tym efekcie bufor ramki. Co to oznacza? Wiele gier wykorzystuje tę technikę. A wszystko po to, aby do minimum ograniczyć bezpośrednie zapisywanie do pamięci karty. Dzięki temu unikniemy migotania obrazu, a sam program będzie znacznie szybszy.

Type
ScreenArray = ^ScreenType;
ScreenType = Array[0..63999] Of Byte;

Var
Screen : ScreenArray;

Potrzebne są jeszcze dwie dodatkowe tablice. W pierwszej będzie tło, w drugiej zaś przezroczysty obrazek. Pierwsza tablica będzie tego samego typu, co bufor ramki, tak więc piszemy:

Var
Image1 : ScreenArray;

Druga tablica będzie wymagała odrębnego typu. Będzie on podobny do bufora ramki, z tym, że będzie miał rozmiar szerokości nakładanego obrazka pomnożonej przez jego wysokość i cała ta liczba musi być zmniejszona o jeden. Przykładowo obrazek będzie miał rozmiar 128x128:

Type
Image2Array = ^Image2Type;
Image2Type = Array[0..16383] Of Byte; { 16383 = 128 x 128 - 1 }

Var
Image2 : Image2Array;

Potrzebne będą jeszcze liczniki:

Var
i, x, y : Word;

oraz parę tymczasowych zmiennych:

Var
TempCol : Byte;
LX, LY : Word;

Inicjalizacja

Najpierw tworzymy w pamięci konwencjonalnej wszystkie tablice, pisząc:

New(Screen);
New(Image1);
New(Image2);

Są one położone poza standardowym segmentem danych programu, tak więc bez tych trzech instrukcji komputer się zawiesi.

Teraz trzeba wyzerować wszystkie tablice, aby uniknąć "zaszumionego" ekranu:

FillChar(Screen^[0], 64000, 0);
FillChar(Image1^[0], 64000, 0);
FillChar(Image2^[0], SizeOf(Image2^), 0);

Następnie musimy zapisać w Image1 tło, zaś w Image2 nakładany obrazek. Nie będę bawił się w prezentowanie sposobów na załadowanie pliku BMP, PCX, czy GIF, ale wygeneruję obrazki w programie.

For x := 0 To 319 Do
For y := 0 To 199 Do Image1^[320 * y + x] := x Xor y;

For i := 0 To 16383 Do Image2^[i] := Random(10) + 40;

Tak byłoby najprościej i chyba najlepiej.

Oczywiście przed użyciem instrukcji Random trzeba ją zainicjalizować poprzez instrukcję Randomize i sprawdzić, czy program używa modułu CRT.

Główna pętla

Teraz najlepsze! Musimy stworzyć pętlę Repeat..Until, a w niej umieścić, co następuje:

1. Wyczyścić bufor ramki
2. Umieścić w buforze ramki tło
3. Nanieść przezroczysty obrazek:
a) wpisać do zmiennej TempCol kolor piksela z tła, na który ma być naniesiony piksel z drugiego obrazka
b) obliczyć nowy kolor metodą:
- pomnożyć wartość zawartą w TempCol przez kolor aktualnie nakładanego piksela
- podzielić wynik przez 63
- jeżeli wykorzystuje się tylko pierwsze 64 kolory, to podzielić wynik przez 4
- finalny punkt - do bufora ramki
4. Przenieść zawartość bufora ramki na ekran

Uff. Nie wiem, czy zrozumiale tłumaczę, ale na pewno da się coś z tego wyciągnąć.

Efekt latarki

W tytule wspomniałem o latarce. No więc, sposób tworzenia takiego efektu jest bardzo podobny do przedstawionego wyżej algorytmu. Wystarczy tylko:

1 .W tablicy Image2 umieścić obrazek przypominający ciemniejącą po brzegach kulę
2. Nie przenosić tła do bufora ramki

To wystarczy, aby uzyskać zupełnie inny efekt!

Nakładany obrazek można odczytać z pliku, można go także wygenerować w programie metodą cieniowania Phonga (Phong shading). Procedura jest zawarta w kodzie źródłowym.

Kod źródłowy do artykułu:
Transparencja (7,30 KB)