image-test.red

Red []
#include %image-lib.red

cloak: load %o_fun.jpg
ext-image: image-lib/resize cloak as-pair cloak/size/x + 100 cloak/size/y + 100
new-image: copy cloak
resize-img: copy cloak
grey-img: image-lib/grey cloak
grey2-img: image-lib/grey2 cloak
enlarge-img: image-lib/enlarge cloak 2x2
view [
	image cloak
	image ext-image
	img: image new-image
	return
	button "up brightness" [
		img/image: image-lib/brightness-enhance img/image 2
	]
	button "down brightness" [
		img/image: image-lib/brightness-enhance img/image -2
	]
	return
	button "up contrast" [
		img/image: image-lib/contrast-enhance img/image 1.2
	]
	button "down contrast" [
		img/image: image-lib/contrast-enhance img/image 0.8
	]
	return

	button "up width" [
		size: resize-img/size
		resize-img: image-lib/resize resize-img as-pair size/x + 5 size/y
		view [image cloak image resize-img]
	]
	button "down width" [
		size: resize-img/size
		resize-img: image-lib/resize resize-img as-pair size/x - 5 size/y
		view [image cloak image resize-img]
	]
	button "up height" [
		size: resize-img/size
		resize-img: image-lib/resize resize-img as-pair size/x size/y + 5
		view [image cloak image resize-img]
	]
	button "down height" [
		size: resize-img/size
		resize-img: image-lib/resize resize-img as-pair size/x size/y - 5
		view [image cloak image resize-img]
	]
	return
	image grey-img
	image grey2-img
	;return
	image enlarge-img
]