FiveTech Support Forums

Hi,

If you make a 7016x4961 (A2) image and save it to a png file, then everything is fine.

FW_SaveImage(hBmp, "myfile.png")->.T.

However, if you make an image 9933x4961 (A1), the file is not saved

FW_SaveImage(hBmp, "myfile.png")->.F.

That is, if the picture is too big, then it does not have enough memory to save to a file. How can I get around this obstacle ?

FW 24.02

To combine multiple PNG files into a single image using ImageMagick, you have a couple of options:

Using montage:
If you want to create a grid-like arrangement of images, you can use the montage function. For example:
cd /path/to/your/images
montage *.png -tile 2x -geometry +1+1 output.png
This command will create a 2x2 grid of images (you can adjust the -tile and -geometry options as needed).
Using -composite:
If you want to overlay one image on top of another (e.g., watermarking), you can use the -composite option. For example:
convert "bottom00.png" "top00.png" -composite "output00.png"
This command will overlay "top00.png" on top of "bottom00.png" and save the result as "output00.png"

However, if you make an image 9933x4961 (A1), the file is not saved
FW_SaveImage(hBmp, "myfile.png")->.F.

That is, if the picture is too big, then it does not have enough memory to save to a file. How can I get around this obstacle ?

#include "fivewin.ch"

function Main()

   local hBmp, aBmp, oBrush

   DEFINE BRUSH oBrush FILE "..\bitmaps\backgrnd\wood.bmp"

   hBmp  := FW_MakeYourBitmap( 9933, 4961, <|hDC,w,h|
            local aBmp := FW_ReadImage( nil, "..\bitmaps\sea.bmp" )
            local i, j, r, c
            r  := 200
            for i := 1 to 6
               c  := 300
               for j := 1 to 9
                  FW_DrawImage( hDC, aBmp, { r,c,r+768,c+1024 } )
                  c  += 1024
               next
               r  += 768
            next
            PalBmpFree( aBmp )
            return nil
            >, oBrush:hBrush ) //CLR_WHITE )

   RELEASE BRUSH oBrush

   FErase( "x.png" )
   ? FW_SaveImage( hBmp, "x.png" ) // -> .t.
   DeleteObject( hBmp )
   ? File( "x.png" ) // -> .t. .. proof of creation

   aBmp := FW_ReadImage( nil, "X.PNG" )
   xImage( aBmp[ 1 ], "x.img : " + cValToChar( aBmp[ 3 ] ) + "x" + cValToChar( aBmp[ 4 ] ) )
   PalBmpFree( aBmp )

return nil