> jadi di dalam citra tersebut ada semacam legend "peta warna"
> (colormap bar), interval 1 s/d 7.
>
menurut pengertian saya, ini berarti citra yang diload sudah menggunakan
interval 1 s/d 7 ? atau dengan kata lain, pada citra tersebut warna ungu
= (R7,G7,B7), nila = (R6,G6,B6) dan seterusnya dan ini konsisten
digunakan untuk keseluruhan pixel
> saya ingin setelah citra tersebut (.bmp) ditampilkan dlm
> program yg saya buat, pada saat mouse diklik di daerah citra
> tsb, maka sesudahnya warna yg diklik itu dapat digitalisasi
> sbb: warna ungu (yg notabene adalah curah hujan tertinggi)
> digitalisasi sebagai angka 7 warna nila (yg notabene adalah
> curah hujan kedua tertinggi) digitalisasi sebagai angka 6 dst
> s/d: warna merah (yang notabene adalah curah hujan terendah)
> digitalisasi sebagai angka 1
kalau pengertian warna / indeks warna seperti di atas maka mustinya
algorithmanya seperti ini (onmouseclick di image)
type
indexwarna = record
r,g,b:word;
end;
const
tabelrgb : array [1..7] of indexwarna = ((r:r1;g:g1;b:b1),
(r:r2;g:g2;b:b2), dst sampai index ke 7)
function sama (r,g,b:word;index:integer):boolean;
begin
result:=(r = tabelrgb[index].r) and (g = tabelrgb[index].g) and (b
=tabelrgb[index].b);
end;
....
px = ambil warna pixel pada posisi (x,y)
r = ambil komponen r dari px
g = ambil komponen g dari px
b = ambil komponen b dari px
found = false
index = 0
while not found and index <= 7 do
begin
if sama (r,g,b,index) then
found = true
else
inc(index)
end
if index >= 1 and index <= 7 then
digitaliasi = index
else
error
begitu ?? CMMIW, tapi kalau bersedia kirim contoh file gambarnya (japri)
barangkali saya bisa bantu (komersial?? ehm.. kalau memang berhasil ya
bolehlah bicara harga.. ;))
edhinug
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
