Robert Covington asked:

> Can somebody help me fathom this ...it keeps crashing..


Robert,

Maybe something like this:


include "Tlbx CFNumber.incl"

system CFStringRef kCGImageDestinationLossyCompressionQuality

dim as CFMutableDictionaryRef  jpgOptions
dim as CFNumberRef             compression
dim as float                   compValue : compValue = 0.5

jpgOptions = fn CFDictionaryCreateMutable( _KCFAllocatorDefault, 0, @kCFTypeDictionaryKeyCallBacks, @kCFTypeDictionaryValueCallBacks ) 

compression = fn CFNumberCreate( _KCFAllocatorDefault, _kCFNumberFloatType, @compValue )
// CFDictionaryAddValue( jpgOptions, kCGImageDestinationLossyCompressionQuality, compression )
CFDictionarySetValue( jpgOptions, kCGImageDestinationLossyCompressionQuality, compression )

Ken