Add get_r(), get_g(), get_b() procedures.

Signed-off-by: Seyed Ali Ghasemi <info@gha3mi.com>

src/forcolor.f90

@@ -39,6 +39,9 @@ module forcolor
       procedure, private :: get_hsv
       procedure, private :: get_hsl
       procedure, private :: get_xyz
+      procedure :: get_r
+      procedure :: get_g
+      procedure :: get_b
       procedure :: print
       procedure, private :: print_name
       procedure, private :: print_rgb
@@ -389,6 +392,36 @@ end subroutine get
    !===============================================================================
 
 
+   !===============================================================================
+   !> author: Seyed Ali Ghasemi
+   elemental pure function get_r(this) result(r)
+      class(color), intent(in) :: this
+      integer(ik) :: r
+      r = this%r
+   end function
+   !===============================================================================
+
+
+   !===============================================================================
+   !> author: Seyed Ali Ghasemi
+   elemental pure function get_g(this) result(g)
+      class(color), intent(in) :: this
+      integer(ik) :: g
+      g = this%g
+   end function
+   !===============================================================================
+
+
+   !===============================================================================
+   !> author: Seyed Ali Ghasemi
+   elemental pure function get_b(this) result(b)
+      class(color), intent(in) :: this
+      integer(ik) :: b
+      b = this%b
+   end function
+   !===============================================================================
+
+
    !===============================================================================
    !> author: Seyed Ali Ghasemi
    elemental pure subroutine get_name(this, name)