REBOL [
    Title: "REBOL Icon"
    Author: "Gabriele Santilli"
]

view layout [
    Box 400x400 effect [
        draw [
            pen none fill-pen yellow
            shape [
                move 0x30
                arc 30 30 90 30x0 
                line 370x0 
                arc 30 30 90 400x30 
                line 400x370 
                arc 30 30 90 370x400
                line 30x400
                arc 30 30 90 0x370
            ]
            fill-pen red
            shape [
                move 20x30
                arc 10 10 90 30x20 
                line 370x20 
                arc 10 10 90 380x30 
                line 380x370 
                arc 10 10 90 370x380
                line 30x380
                arc 10 10 90 20x370
            ]
            clip 20x20 380x380
            fill-pen purple
            circle 70x330 305
            fill-pen red
            circle 70x330 150
            fill-pen purple
            circle 70x330 70
        ]
        draw [
            pen none fill-pen black
            shape [
                move 10x30
                arc 20 20 90 30x10 
                line 370x10 
                arc 20 20 90 390x30 
                line 390x370 
                arc 20 20 90 370x390
                line 30x390
                arc 20 20 90 10x370
                move 30x20
                arc 10 10 90 20x30 true false
                line 20x370
                arc 10 10 90 30x380 true false
                line 370x380
                arc 10 10 90 380x370 true false
                line 380x30
                arc 10 10 90 370x20 true false
            ]
            fill-pen 3 0x0 0 400 63 1 1 255.255.255.255 255.255.255.230 255.255.255.200 255.255.255.180 255.255.255.150
            shape [move 0x300 arc 600 400x100 line 400x0 0x0]
        ]
    ]
]