REBOL [
    Title: "Gradients demonstration"
    Date: 20-May-2000
    Purpose: "Gradients demonstration"
    File: %gradient.r
    Author: "Jeff"
    library: [
        level: 'advanced
        platform: none
        type: none
        domain: 'GUI
        tested-under: none
        support: none
        license: none
        see-also: none
    ]
]

pairs: [1x0 -1x0 0x1 0x-1 1x1 -1x1 -1x-1 1x-1]
foreach [n b] [r-t: [random 255.255.255] r-s: [50x50 + random 200x200]
    r-v: [pairs: next pairs all [tail? pairs pairs: head pairs] pairs/1]
][n does b]
view layout do page: does [
    foo: copy [backdrop 0.0.0] sz: r-s
    loop 3 [loop 3 [append foo compose/deep [box (sz) (form v: r-v) with [
            effect: [fit gradient (v)(r-t)(r-t)]]]] append foo [return]]
    append foo [backdrop [unview/all view layout page] with [color: none]]
]