INTEGERTORGB (W*S)

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:

! build as a QuickWin App.
USE IFQWIN
INTEGER(4) r, g, b
CALL INTEGERTORGB(2456, r, g, b)
write(*,*) r, g, b
END