REBOL [
    Title: "Big Check"
    Date: 14-Jan-2004
]

ctx-big-check: context [
    svvi: svv/image-stock
    big-check: load-image http://www.ross-gill.com/r/big-check.png
    images: reduce [
        'check           copy/part big-check 36x36
        'check-on        copy/part skip big-check 0x36  36x36
        'check-down      copy/part skip big-check 0x72  36x36
        'check-down-on   copy/part skip big-check 0x108 36x36
        'check-hover     copy/part skip big-check 0x144 36x36
        'check-hover-on  copy/part skip big-check 0x180 36x36
    ]
    style-blk: copy []
    foreach [style image] images [
        change next find svvi style image
        append style-blk style
    ]
    stylize/master [
        CHECK: CHECK 36x36 with [images: load-stock-block style-blk]
    ]
]