REBOL [
    Title: "Gradient Multiply"
    Author: "Jeff"
    Date: 20-May-2000
    File: %gmul.r
    Category: [view 3]
]

r-vect: does [2x2 - random 3x3]
gm:  does [compose [gradmul (r-vect) (white) (black)]]
view layout [
    bg: backdrop 0.255.0 with [
        rate: 12 feel: make feel [engage: func [f a e][f/effect: gm show f]]
    ] box 200x200
]