** Source Images cPic1 = GETPICT() cPic2 = GETPICT() cPic3 = GETPICT() ** Destination image cPicSave = PUTFILE("Image","output.png","png") SET CLASSLIB TO (HOME()+"\ffc\_gdiplus") ** Open source images oPic1 = CREATEOBJECT("GpImage") oPic1.CreateFromFile(cPic1) oPic2 = CREATEOBJECT("GpImage") oPic2.CreateFromFile(cPic2) oPic3 = CREATEOBJECT("GpImage") oPic3.CreateFromFile(cPic3) ** Create a new bitmap oBmp = CREATEOBJECT("GpBitmap") nWidth = ; oPic1.ImageWidth + ; oPic2.ImageWidth + ; oPic3.ImageWidth nHeight = MAX( ; oPic1.ImageHeight, ; oPic2.ImageHeight, ; oPic3.ImageHeight) oBmp.Create(nWidth,nHeight) oGfx = CREATEOBJECT("GpGraphics") oGfx.CreateFromImage(oBmp) ** Draw image 1 nLeft = 0 oGfx.DrawImageScaled(oPic1, ; nLeft,0,oPic1.ImageWidth,oPic1.ImageHeight) nLeft = nLeft + oPic1.ImageWidth ** Draw Image 2 oGfx.DrawImageScaled(oPic2, ; nLeft,0,oPic2.ImageWidth,oPic2.ImageHeight) nLeft = nLeft + oPic2.ImageWidth ** Draw Image 3 oGfx.DrawImageScaled(oPic3, ; nLeft,0,oPic3.ImageWidth,oPic3.ImageHeight) ** Save destination image oBmp.SaveToFile(cPicSave,"image/png") oGfx = NULL oBmp = NULL oPic1 = NULL oPic2 = NULL oPic3 = NULL