Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceResults:The result type is INTEGER(2). The result is the previous color index of the target pixel ifsuccessful; otherwise, –1 (for example, if the pixel lies outside the clipping region).SETPIXEL sets the specified pixel to the current graphics color index. The current graphics colorindex is set with SETCOLOR and retrieved with GETCOLOR. The non-RGB color functions(such as SETCOLOR and SETPIXELS) use color indexes rather than true color values.If you use color indexes, you are restricted to the colors available in the palette, at most 256. Somedisplay adapters (SVGA and true color) are capable of creating 262,144 (256K) colors or more. Toaccess any available color, you need to specify an explicit Red-Green-Blue (RGB) value with anRGB color function, rather than a palette index with a non-RGB color function. SETPIXELRGBand SETPIXELRGB_W give access to the full color capacity of the system by using direct colorvalues rather than indexes to a palette.NOTE. The SETPIXEL routine described here is a QuickWin routine. If youare trying to use the Microsoft* Platform SDK version of the SetPixel routineby including the IFWIN module, you need to specify the routine name asMSFWIN$SetPixel. For more information, see "Special Naming Conventionfor Certain QuickWin and Win32 Graphics Routines" in your user’s guide.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “SETPIXELRGB, SETPIXELRGB_W”, “GETPIXEL, GETPIXEL_W”,“SETPIXELS”, “GETPIXELS”, “GETCOLOR”, “SETCOLOR”Example! Build as a Graphics ap.USE IFQWININTEGER(2) status, x, ystatus = SETCOLOR(INT2(2))x = 10! Draw pixels.DO y = 50, 389, 3status = SETPIXEL( x, y )x = x + 2END DOREAD (*,*) ! Wait for ENTER to be pressedEND2-416