mengakses pixel

Pada pertemuan pertama dalam kuliah grafika komputer ada satu hal penting yang ditanyakan (dijadikan tugas 🙂 ) yaitu bagaimana caranya menampilkan titik dengan warna tertentu di layar monitor (dengan mengakses framebuffer) dan mendapatkan deskripsi tentang warna dari titik dengan koordinat tertentu di layar. Dalam dunia DOS dulu, hal ini mudah saja (dalam berbagai asumsi) untuk dilakukan yaitu dengan mengakses memori pada alamat $A0000 dengan data yang dapat diakses tergantung dari mode grafik yang sedang aktif.

Lalu bagaimana melakukan hal ini di delphi (misal menampilkan titik berwarna tertentu pada form)? hal ini bisa dilakukan melalui Property Pixels milik objek bertipe TCanvas yang umumnya merupakan milik dari kelas turunan TWinControl seperti TForm. contoh penggunaan Pixels adalah sebagai berikut :

{ menampilkan titik berwarna merah di koordinat (10, 10) }
Form1.Canvas.Pixels[10,10] := clRed;
{ atau }
Form1.Canvas.Pixels[10, 10] := RGB(255, 0, 0);

{ mendapatkan pixel dari koordinat tertentu (10, 10) }
var p : TColor; r, g, b : byte;
{ ... }
p := Form1.Canvas.Pixels[10, 10]
{ mendapatkan komponen warna merah, hijau, dan biru }
r := GetRValue(p);
g := GetGValue(p);
b := GetBValue(p);

Cara di atas merupakan cara termudah untuk mengakses pixel pada suatu koordinat di layar (maksudnya form, hehehe) namun bukan merupakan cara tercepat. Masih ada cara lain yang lebih cepat. saya pertama kali merasakan lambatnya Pixels ketika mengikuti kuliah Grafika Komputer (3 tahun yang lalu) dan membuat tugas menggunakan Delphi (tadinya pakai turbo pascal 7) tapi akhirnya mengikuti anggota kelompok lain yang lebih akrab dengan Delphi daripada turbo pascal.

Cara lainnya untuk mengakses pixel adalah dengan menggunakan properti scanline dari kelas TBitmap. Kenapa menggunakan TBitmap? awalnya sih karena untuk menampilkan gambar di Delphi saya menggunakan komponen TImage dan di dalam TImage ada properti Picture yang kemudian properti Bitmap yang merupakan kelas bertipe TBitmap (garing hehehe..) yang akhirnya sampai sekarang saya gunakan untuk keperluan pengolahan citra ataupun menggambar (grafika). Untuk menggunakan scanline dengan nyaman ada beberapa hal yang perlu untuk dideklarasi terlebih dahulu.

type
{ asumsi PixelFormat yang digunakan adalah 24 bit (pf24bit) }
  TWarnaRGB = packed record
  b, g, r : Byte;
  end;
{ packed; jadi 1 record ukurannya persis 3 byte, 
klo nggak pake packed nanti ukurannya 
di-align ke 4 byte jadinya 4x3 = 12 byte; }
TArrRGB = array[0..65535] of TWarnaRGB;
  PArrRGB = ^TArrRGB; { tipe properti scanline adalah Pointer }

Tipe data bentukan di atas akan digunakan dalam potongan kode berikut:

procedure PutPixel(b:TBitmap; x, y:integer; rr, gg, bb : byte);
  var p : PArrRGB;
begin
  p := b.Scanline[y];{ 10 adalah baris/ordinat(y) pada Bitmap }
  with p[x] do begin
    r := rr;
    g := gg;
    b := bb;
  end;
end;

procedure GetPixel(b:TBitmap; x, y:integer; var r, g, b : Byte);
  var p : PArrRGB;
begin
  p := b.Scanline[y];
  r := p[x].r; 
  g := p[x].g; 
  b := p[x].b;
end;

Kode di atas mengasumsikan properti PixelFormat milik TBitmap bernilai pf24bit yang artinya Bitmap menyimpan informasi gambar sebanyak 3 byte per titik (r, g, dan b). Jika bitmap yang dimiliki tidak dalam format 24 bit maka ubah saja ke dalam format 24 bit dengan kode berikut (sedikit maksa).

var b : TBitmap;
{ .. }
b.PixelFormat := pf24bit;