Script Library: tokyotower.r

Script Library: 1247 scripts

tokyotower.r

REBOL [
    Title: "Tokyo Tower Watcher"
    Date: 29-Nov-2001
    Version: 1.0.0
    File: %tokyotower.r
    Author: "graspee"
    Purpose: {To display a picture of the Tokyo Tower, updating every 60s}
    History: [29-Nov-2001 "It is begun."]
    Email: %graspee--btinternet--com
    Comments: {I wrote this within an hour of first hearing about rebol so excuse sloppiness!}
    library: [
        level: 'beginner 
        platform: none 
        type: 'Demo 
        domain: [broken GUI web] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]


view layout [
    image  load-image/update http://info.nttls.co.jp/webcam/image/tower.jpg
    rate 00:01:00 feel [
        engage: func [face] [
            error? try [
                face/image: load-image/update http://info.nttls.co.jp/webcam/image/tower.jpg
                show face
                ]
            ]
    ]
]

Notes

email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(graspee:btinternet:com)