/*
	I/O Rexx Example
*/

options results

address "ArtEffect"

loadpic 'pics:photoshop/portrait.jpg'
savepic 'temp:pic.iff' plugin gibtsnicht
say RC2
savepic 'temp:pic.iff' plugin 'IFF-ILBM'
savepic 'temp:90.jpg' plugin 'JFIF-JPEG' quality 90 smoothing 0
savepic 'temp:70.jpg' plugin 'JFIF-JPEG' quality 70 smoothing 0
savepic 'temp:50.jpg' plugin 'JFIF-JPEG' quality 50 smoothing 0
savepic 'temp:30.jpg' plugin 'JFIF-JPEG' quality 30 smoothing 0
savepic 'temp:10.jpg' plugin 'JFIF-JPEG' quality 10 smoothing 0
savepic 'temp:5.jpg' plugin 'JFIF-JPEG' quality 5 smoothing 0

loadbrush 'temp:5.jpg'
changebrush sw 20 sh 20 p feather 5 rot 20
savebrush 'temp:brush.iff' plugin 'IFF-ILBM'
savebrush 'temp:brush.jpg' plugin 'JFIF-JPEG' adjust quality 80