Sub CreateSquareThumbnail(Input As B4XBitmap) As B4XBitmap If Input.Width Input.Height Then 'if the image is not square then we crop it to be a square. Dim l As Int = Min(Input.Width, Input.Height) Return Input.Crop(Input.Width / 2 - l / 2, Input.Height / 2 - l / 2...
www.b4x.com