Script Library: 1187 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 ] ] ] ]
halt ;; to terminate script if DO'ne from webpage
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)