image inspector func

inspect.red

Red []

inspect: function [i] [
	pixel: 10x10
	? (also i': make image! i/size * pixel
	x: y: repeat y i/size/y [
		repeat x i/size/x [
			p: as-pair x y
			draw i' compose [
				line-width 1 pen (i/:p) fill-pen (i/:p)
				reset-matrix translate (pixel * (p - 1x1))
				box 0x0 (pixel - 2x2)
			]
		]
	])
	i'
]