dim logo as Picture = LogoMBS(500)
dim pic as new PictureMBS(logo)

// save tiff with jpeg compression
dim f as FolderItem = SpecialFolder.Desktop.Child("test.tif")
dim t as TiffPictureMBS

if pic <> nil then
  t = new TiffPictureMBS
  
  if t.Create(F) then
    
    t.Height = pic.Height
    t.Width = pic.Width
    
    t.PlanarConfig = t.kPlanarConfigContig
    t.Photometric = t.kPhotometricRGB
    t.BitsPerSample = 8
    t.SamplesPerPixel = 3
    t.FillOrder = t.kFillOrderMSB2LSB
    t.Orientation = t.kOrientationTopLeft
    t.ResolutionUnit = t.kResUnitInch
    t.VerticalResolution = 72.0
    t.HorizontalResolution = 72.0
    t.Compression = t.kCompressionJPEG
    t.RowsPerStrip = 32 // 8 works also, but not 1
    t.JPEGQuality = 75
    
    // copy lines
    for i as Integer = 0 to t.Height - 1
      t.Scanline(i) = pic.RowInFormat(i, PictureMBS.ImageFormatRGB)
    next
    
    t.Close
  end if
end if