Script Library: wiggly-text.r

Script Library: 1240 scripts
wiggly-text.r

REBOL [
    title: "Wiggly Text"
    date: 13-mar-2014
    file: %wiggly-text.r
    author:  Nick Antonaccio
    purpose: {
        A quick demo done with a student, loosely based on the
        QT "Wiggly" example.
    }
]
random/seed now
svv/vid-face/color: white
g: copy [size 200x100]
pos: 10x30
foreach chr request-text/default "This text wiggles" [
    append g compose [at (pos) text (form chr)]
    pos: pos + 10x2
]
view/new v: layout g
forever [
    if none = system/view/screen-face/pane/1 [quit]
    foreach f system/view/screen-face/pane/1/pane [
        f/font/color: random 255.255.255
        either f/user-data <> "up" [
            f/offset/2: f/offset/2 + 2
        ][
            f/offset/2: f/offset/2 - 2
        ]
        if f/offset/2 > 60 [f/user-data: "up"]
        if f/offset/2 < 30  [f/user-data: "down"]
    ]
    wait .015
    show v
]