QuickWin Subroutine: Converts an RGB color value into its red, green, and blue components.
Module
USE IFQWIN
CALL INTEGERTORGB (rgb,red,green,blue)
rgb |
(Input) INTEGER(4). RGB color value whose red, green, and blue components are to be returned. |
red |
(Output) INTEGER(4). Intensity of the red component of the RGB color value. |
green |
(Output) INTEGER(4). Intensity of the green component of the RGB color value. |
blue |
(Output) INTEGER(4). Intensity of the blue component of the RGB color value. |
INTEGERTORGB separates the four-byte RGB color value into the three components as follows:
Example
! build as a QuickWin App.
USE IFQWIN
INTEGER(4) r, g, b
CALL INTEGERTORGB(2456, r, g, b)
write(*,*) r, g, b
END