用Draw方言繪製發光文字

REBOL Draw底層使用AGG 2.4當繪圖引擎，繪圖能力很強。這裡是一個範例展示：

REBOL[]

my-font: make system/standard/font [
    name: "Times New Roman" size: 64
]

draw-block: [ ]

for i 0 9 1 [
    j: to-integer (255 / 10.0 * (i + 1))
    append draw-block compose/deep [
        pen (to-tuple reduce [  j j 255 ] )
        line-width (10 - i)
        line-join round     
        fill-pen none
        text 10x0 vectorial [
           font my-font bold "REBOL"
        ]
    ]
]

append draw-block compose [
    fill-pen black
    text 10x0 vectorial [
        font my-font bold "REBOL"
    ]
    Fill-pen Red
    text 142x0 vectorial [
       font my-font bold "O"
    ]
]

win: make gob! [
    size: 360x130
    color: black
]

append win g: make gob! compose [
    size: ( win/size )
    offset: 0x0
]

g/draw: draw-block

view win