Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2If any of the pixels are outside the clipping region, those pixels are ignored. Calls toSETPIXELSRGB with n less than 1 are also ignored.SETPIXELSRGB (and the other RGB color selection functions such as SETPIXELRGB andSETCOLORRGB) sets colors to values chosen from the entire available range. The non-RGBcolor functions (such as SETPIXELS and SETCOLOR) use color indexes rather than true colorvalues.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 RGB value with an RGB color function,rather than a palette index with a non-RGB color function.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETPIXELSRGB”, “SETPIXELRGB, SETPIXELRGB_W”, “GETPIXELRGB,GETPIXELRGB_W”, “SETPIXELS”Example! Buffering replacement for SetPixelRGB and! SetPixelRGB_W. This can improve performance by! doing batches of pixels together.USE IFQWINPARAMETER (I$SIZE = 200)INTEGER(4) bn, bc(I$SIZE), statusINTEGER(2) bx(I$SIZE),by(I$SIZE)bn = 0DO i = 1, I$SIZEbn = bn + 1bx(bn) = iby(bn) = ibc(bn) = GETCOLORRGB()status = SETCOLORRGB(bc(bn)+1)END DOCALL SETPIXELSRGB(bn,bx,by,bc)END2-421