copy_color Subroutine

   elemental pure subroutine copy_color(this, from)
      class(color), intent(inout) :: this
      class(color), intent(in)    :: from

      this%r = from%r
      this%g = from%g
      this%b = from%b

      this%c = from%c
      this%m = from%m
      this%y = from%y
      this%k = from%k

      this%decimal = from%decimal

      this%hex = from%hex

      this%h = from%h
      this%s = from%s
      this%v = from%v

      this%hl = from%hl
      this%sl = from%sl
      this%vl = from%vl

      this%color_name = from%color_name

   end subroutine copy_color