Mailing List Archive: Re: a demo

[REBOL] Re: a demo

From: rebolek::seznam::cz at: 2-Dec-2002 22:01


Gregg Irwin wrote:

>Cyphre and Anton,
>
>Cool demos *both* of you!
>
>-- Gregg
>
Yes, I agree. So why don't you people send something to next Rebol Demo
Competition? :) April 2003 is right behind the door ;)

bye, bolek

oh, yes, a demo:

rd: [1x1 0x1 -1x1 -1x0 -1x-1 0x-1 1x-1 1x0]
cl: [255.127.127 255.255.127 127.255.127 127.255.255 127.127.255
255.127.255]

view layout [
    b: box 151x151 with [
        ;text: "o"
        rate: 0
        edge: none
        image: make image! 151x151
        font: make font [color: 127.127.127 shadow: 0x0 size: 15 style:
'bold]
        feel: make feel [
            engage: func [f a e][
                switch a [
                    time [
                        f/effect: compose/deep [
                            draw [pen (cs: first cl cl: next cl if tail?
cl [cl: head cl] cs) circle 75x75 6]
                            (xx: to-image f)
                            crop 5x5 140x140
                            fit
                            contrast (random 4) ;(5 - random 3)
                            blur
                            sharpen
                            blur
                            luma (-15 - random 10)
                        ]
                        f/image: to-image f
                        show f
                    ]
                ]
            ]
        ]
    ]
]