property CIFilter : a reference to current application’s CIFilter
property |NSURL| : a reference to current application’s |NSURL|
property CIImage : a reference to current application’s CIImage
property NSJPEGFileType : a reference to current application’s NSJPEGFileType
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep

–CIFilters (Not everything!!) From Apple’s Core Image Filter Reference
set ciList to {"CIColorPosterize"} –{"CIColorInvert", "CIBoxBlur", "CIDiscBlur", "CIGaussianBlur", "CIMedianFilter", "CIMotionBlur", "CINoiseReduction", "CIZoomBlur", "CIColorMonochrome", "CIColorPosterize", "CIPhotoEffectChrome", "CISepiaTone", "CISharpenLuminance", "CIUnsharpMask", "CIKaleidoscope"}

–画像を選択
set aPath to POSIX path of (choose file of type {"public.image"})

–すべてのフィルタを実行
repeat with i in ciList
　　set j to contents of i
　　set aRes to convAsFilteredJPEG(aPath, j) of me
end repeat

–CIFilterをかけたJPEG画像を生成
–参照：http://ashplanning.blogspot.jp/ のうちのどこか
on convAsFilteredJPEG(aPath, aFilterName)
　　set aURL to (|NSURL|’s fileURLWithPath:aPath) –Input
　　set aPOSIX to (POSIX path of aPath) & "_" & aFilterName & ".jpg" –Output
　　
　　–CIImageを生成
　　set aCIImage to CIImage’s alloc()’s initWithContentsOfURL:aURL
　　
　　— CIFilter をフィルタの名前で生成
　　set aFilter to CIFilter’s filterWithName:aFilterName
　　aFilter’s setDefaults() –各フィルタのパラメータはデフォルト（そこが問題）
　　
　　–Filterを実行
　　aFilter’s setValue:aCIImage forKey:"inputImage"
　　set aOutImage to aFilter’s valueForKey:"outputImage"
　　
　　— NSBitmapImageRep を CIImage から生成
　　set aRep to NSBitmapImageRep’s alloc()’s initWithCIImage:aOutImage
　　
　　— NSBitmapImageRep から JPEG データを取得
　　set jpegData to aRep’s representationUsingType:(NSJPEGFileType) |properties|:(missing value)
　　
　　— ファイルに保存
　　return (jpegData’s writeToFile:aPOSIX atomically:true) as boolean
end convAsFilteredJPEG