>** 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 >