In this section:
When using %gr (Graphics Region) and its associated drawing surfaces (including internal and printer drawing surfaces) there are two sets of routines for processing device independent bitmaps (DIBs). The first set uses a CHARACTER array supplied by the programmer. The second uses a handle supplied by ClearWin+. (See also Using image resources.)
Using a 24 bit per pixel array
The following routines are used to handle device independent bitmaps:
Gets parameters from a bitmap or JPEG file.
Extracts a rectangular block from a bitmap or JPEG file.
Saves a rectangular block to a bitmap or JPEG file.
Displays a block on the current drawing surface.
Recovers the block from the current drawing surface.
GET_DIB_SIZE@ obtains information about an existing .BMP file. The file name is an input argument that should have the .BMP suffix. The file name may be a full path name. If the routine succeeds, an error code is returned with the value zero whilst other arguments return the width and height (in pixels) of the image contained in the file. The number of bits per pixel is also returned as one of the following values:
Monochrome black and white image
Full colour image in which each pixel is represented by eight bits per red/green/blue value.
GET_DIB_BLOCK@ extracts a rectangular block (that could be the whole image) from a given file into an array. The first index of the array is the colour index in the order (red, green, blue). Displacements AX and AY into the array are typically zero but they can be set to other values if, for example, the array is to be composed of a montage of several blocks. Arguments W and H represent the width and height of the block to be transferred, whilst DX, DY represent the displacement (again typically zero) into the image in the file.
DISPLAY_DIB_BLOCK@ transfers a rectangular block of given size (W x H) from the array at a position (AX, AY) to a position (X, Y) on the current drawing surface (e.g. a %gr (Graphics Region) region or a printer). Two arguments named FUNCTION and MODE are normally set to zero. An argument for the error status is returned as zero if the process is successful.
PUT_DIB_BLOCK@ transfers a rectangular block from an array to given file, destroying any previous contents. Displacements AX and AY into the array are typically zero, whilst arguments W and H are the width and height of the image to be created. An argument for the number of bits per pixel is currently ignored and should set to 24. This routine always writes BMP files with 24 bits per pixel.
The use of these routines is best illustrated by a simple example. The following example reads a BMP file, alters the array to draw a red line through the image, displays the result, and writes a new BMP file with the modified image.
c--- Note - you may need to alter this path
IF(ier.NE.0.OR.hres.GT.1024.OR.vres.GT.1024) STOP 'TROUBLE'
IF(ier.NE.0) STOP 'TROUBLE'
c--- Draw a diagonal red stripe over the image
c--- Display the image
c--- Write the image away to another file
The example is written in Fortran 77 with the array A declared to be 'sufficiently large'. With Fortran 90 you can use an allocatable array instead. Note that the resulting BMP file will typically be larger than the original because the colours will have been expanded to 24 bits per pixel.
Using a DIB handle
An alternative approach is to use routines that transmit a handle for a device independent bitmap.
The routines IMPORT_BMP@, IMPORT_PCX@, GET_SCREEN_DIB@ and CLIPBOARD_TO_SCREEN_BLOCK@ each return a handle to a DIB. This handle is then used in DIB_PAINT@, PRINT_DIB@ (now superceded by DIB_PRINT@), EXPORT_BMP@ and EXPORT_PCX@. When it is no longer needed the associated memory can be released using RELEASE_SCREEN_DIB@.
You can also use WRITE_GRAPHICS_TO_BMP@ and WRITE_GRAPHICS_TO_PCX@ in order to write the current drawing surface to a file.
Here is a simple program that uses some of these routines:
IF(ercode.NE.0) STOP 'Size error'
IF(ercode.NE.0) STOP 'Import error'
IF(ercode.EQ.0) STOP 'Paint error'
IF(ercode.EQ.0) STOP 'Print error'
IF(ercode.EQ.0) STOP 'Close printer error'
This program imports a bitmap and then creates a drawing surface on the screen using %gr (Graphics Region). The bitmap is drawn to the screen and a red line is draw across it. The standard printer dialog is then displayed via a call to OPEN_PRINTER@. If the user clicks on the OK button, the routine returns the value 1 and the current graphics device is now the printer with device handle 7. The bitmap is drawn to this device. Calling CLOSE_PRINTER@ sends the image to the printer.