{curl 3.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}

{title Scroll Text}

|| テキストのスクロール
{define-text-proc {ScrollText ...}:any
    let canvas:Canvas = {Canvas background="#FFFFEE", width=5cm, height=0.5cm}
    let i:int = 0
    let v:VBox = {VBox ...}
    {canvas.add v, x=i*1cm, y=1cm}
    
    {let tim:Timer = 
        {Timer frequency=100fps, enabled?=true,
            {on TimerEvent do
                {v.detach}
                {canvas.add v, x=(i+-20)*0.1mm, y=0.5cm}
                set i = (i+1) mod 700
            }
        }
    }
    {return {paragraph {value canvas}}}
}

|| ここから描画
{ScrollText ようこそ Shinta のページへ}