Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2CALL RANDOM(rnd1)CALL RANDOM(rnd2)winstat = GETWINDOWCONFIG(wc)xnum = wc%numxpixelsynum = wc%numypixelsstatus = &SETPIXEL(INT2(rnd1*xnum+1),INT2(rnd2*ynum))status = &SETPIXEL(INT2(rnd1*xnum),INT2(rnd2*ynum+1))status = &SETPIXEL(INT2(rnd1*xnum-1),INT2( rnd2*ynum))status = &SETPIXEL(INT2(rnd1*xnum),INT2( rnd2*ynum-1))END DOEND DOENDGETCOLORRGBGraphics Function: Returns the current graphics color Red-Green-Blue (RGB) value (used bygraphics functions such as ARC, ELLIPSE, and FLOODFILLRGB). This function is onlyavailable on Windows* systems.Module: USE IFQWINSyntaxresult = GETCOLORRGB ( )Results:The result type is INTEGER(4). The result is the RGB value of the current graphics color.In each RGB color value, each of the three colors, red, green, and blue, is represented by aneight-bit value (2 hex digits). In the value you retrieve with GETCOLORRGB, red is the rightmostbyte, followed by green and blue. The RGB value's internal structure is as follows:BitRGB31 (MSB) 24 23 16 15 8 7 0O O O O O O O O B B B B B B B B G G G G G G G G R R R R R R R R2-105