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

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