Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
image inspector func
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'
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment