Arsip: Grayscale code program

more 20 years ago
rudy_keren
Hmmmmm... kalo boleh,saya pengen tanya2 lagi dung untuk anak-anak delphindo.
Gini yah, guw punya program yang ingin membuat gambar atau citra warna menjadi grayscale nah source yang saya dapat tuh seperti ini :
for j:=0 to gambar.height - 1 do
begin
sl:=gambar.scanline[j];
for i:=0 to gambar.width - 1 do
begin
colr:=HiByte(sl[i].rgbtRed 77 + sl[i].rgbtGreen 151 + sl[i].rgbtBlue 28);
sl[i].rgbtRed:=colr;
sl[i].rgbtGreen:=colr;
sl[i].rgbtBlue:=colr;
end;
end;
Nah dalam potongan tersebut, saya memakai variable sl : pRGBArray;
Yang menjadi pertanyaan saya adlah :
1.Apakah tipe pRGBArray; tersebut? Tolong kasih penjelasan dan contohnya ??
2.Dlam potongan prgram ada fungsi HiByte,apa maksud fungsi tersebut? Tolong kasih penjelasan dan contohnya??
3.saya memiliki rumus yang lain untuk meng-grayscale image,tetapi perbedaannya hanya terletak pada koefisiennya saja. Mengapa perbedaan koefisien tersebut bisa menghasilkan gambar grayscale yang sama??? Padahal koefisien tersebut jelas-jelas sangat berbeda. Kalo bisa tolong dung jelasin gimana maksud dalam rumus colr tersebut ..???
4.rgbt itu apa sich?
Ok, sekian pertanyaan dari saya, semoga mendapatkan respon dan jawaban yang baik dan dengan tulus shingga saya bisa mendapatkan penjelasan yang banyak dan jelas. Maklum lah saya terlalu sebagai pemula
Trims,best regards
rudy

more 20 years ago
ebta
1.Apakah tipe pRGBArray; tersebut? Tolong kasih penjelasan dan contohnya ??Kurang lebih definisinya seperti ini: TRGBTriple = packed record rgbtRed : byte; rgbtGreen : byte; rgbtBlue : byte; end; TRGBArray = Array[Word] of TRGBTriple; pRGBArray = ^TRGBArray; Jadi tipe pRGBArray merupakan pointer ke tipe data TRGBArray, dan TRGBArray merupakan array[Word] dengan tipe TRGBTriple. Dalam gambar tersebut (pixel format = pf24bit) tiap pixel terdiri 3 buah warna (RGB), jadi masing-masing warna bisa kita akses (baca atau tulis) dengan tipe data tersebut. misalnya var sl : PRGBArray; Maka setelah sl diperoleh dengan scanline, tiap data berisi 3 warna. sl[1] akan terdiri dari sl[1].rgbtRed, s[1].rgbtGreen, sl[1].rgbtBlue masing-masing dengan tipe byte. Sampai disini dulu...Semoga bisa dipahami..

more 20 years ago
ebta
2.Dlam potongan prgram ada fungsi HiByte,apa maksud fungsi tersebut? Tolong kasih penjelasan dan contohnya??HiByte akan mengambil 1 byte (dari most significant bit/ High Order bit) suatu nilai. Misalnya : nilai=$2345; // $ menunjukkan nilai hexadesimal (dalam dec = 9029 ) Maka hiByte(Nilai) = $23 LoByte(Nilai) = $45

more 20 years ago
ebta
3.saya memiliki rumus yang lain untuk meng-grayscale image,tetapi perbedaannya hanya terletak pada koefisiennya saja. Mengapa perbedaan koefisien tersebut bisa menghasilkan gambar grayscale yang sama??? Padahal koefisien tersebut jelas-jelas sangat berbeda. Kalo bisa tolong dung jelasin gimana maksud dalam rumus colr tersebut ..???Untuk metode konversi ke grayscale ada banyak... Ini saya dapat dari web-nya efg2.com, kira-kira terjemahannya sebagai berikut :) Setiap pixel dari gambar 24-bit mempunyai 8-bit Red, 8-Bit Green dan 8-bit Blue. Suatu gambar warna dapat di konversi ke grayscale dengan menghitung nilai "Y" untuk tiap warna pixel : Y = 0.299R + 0.587G + 0.114B Nilai "Y" merupakan komponen grayscale dalam sistem warna YIQ yang digunakan dalam sistem televisi NTSC. Koefisiennya menyatakan sensitifitas terang-gelapnya (brightness ) mata manusia terhadap warna utama. Metode lainnya dengan menghitung nilai "I" (Intensity) I = (R + G + B) / 3. Setelah nilai Y diperoleh maka dapat dimasukkan kembali ke masing-masing pixel warna RGB sehingga menghasilkan grayscale.
4.rgbt itu apa sich?Dari jawaban no 1 dapat dilihat bahwa rgbt.. itu hanya nama variabel saja.. best regards,
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- [Postgre]: Apa kelebihan n kekurangannya?
by deLogic in FireBird more 19 years ago - cara memanggil ms word
by dauf in Tip n Trik Pemrograman more 18 years ago - bingung masalah database....
by x-nodes in Hal umum tentang Pascal Indonesia more 20 years ago - tombol tab...?
by aireda in Tip n Trik Pemrograman more 18 years ago - Bikin Jadwal Berdasarkan Urutan Hari dan Jam
by mima in Lain-lain more 18 years ago - Hargai Karya Orang Lain
by doels in Kritik & Saran more 18 years ago - [req]konnfigurasi web server & database server
by Iansx in OOT more 18 years ago - Warna Report di Rave sesuai nilai query
by aliexdsg in Reporting more 14 years ago - Menjumlahkan nilai IF bulan-nya sama
by flamade in MySQL more 18 years ago - listing program u/ fast report
by saysansay in Tip n Trik Pemrograman more 19 years ago