12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Descriptions of the Library Routines 2SyntaxCALL SETPIXELS (n, x, y, color)n(Input) INTEGER(4). Number of pixels to set. Sets the number of elements in the otherarguments.x, y(Input) INTEGER(2). Parallel arrays containing viewport coordinates of pixels to set.color(Input) INTEGER(2). Array containing color indexes to set the pixels to.SETPIXELS sets the pixels specified in the arrays x and y to the color indexes in color. Thesearrays are parallel: the first element in each of the three arrays refers to a single pixel, the secondelement refers to the next pixel, and so on.If any of the pixels are outside the clipping region, those pixels are ignored. Calls to SETPIXELSwith n less than 1 are also ignored. SETPIXELS is a much faster way to set multiple pixel colorindexes than individual calls to SETPIXEL.Unlike SETPIXELS, SETPIXELSRGB gives access to the full color capacity of the system byusing direct color values rather than indexes to a palette. The non-RGB color functions (such asSETPIXELS and SETCOLOR) 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 RGB value with an RGB color function,rather than a palette index with a non-RGB color function.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETPIXELS”, “SETPIXEL, SETPIXEL_W”, “SETPIXELSRGB”Example! Build as a Graphics ap.USE IFQWININTEGER(2) color(9)INTEGER(2) x(9), y(9), iDO i = 1, 9x(i) = 20 * iy(i) = 10 * icolor(i) = INT2(i)END DO2-419

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!