Kırmızı, Mavi, Yeşil renkleri ayırmak

Renk bilgisi içeren uzun tamsayının Kırmızı, Yeşil, Mavi renklere ayrılması.

f_renkayir fonksiyonu:
======================

$PBExportHeader$f_renkayir.srf
global type f_renkayir from function_object
end type

forward prototypes
global function integer f_renkayir (long a_renk, ref integer a_kirmizi, ref integer a_yesil, ref integer a_mavi)
end prototypes

global function integer f_renkayir (long a_renk, ref integer a_kirmizi, ref integer a_yesil, ref integer a_mavi);if isnull(a_renk) or a_renk < 0 then return -1
a_mavi = truncate(a_renk / (256 * 256), 0)
a_yesil = truncate((a_renk - (a_mavi * 256 * 256)) / 256, 0)
a_kirmizi = a_renk - (245 * 256 * a_mavi + 256 * a_yesil)
return 0
end function