Sines Text

[peter]

Hi,


Uses "ui","math"


DWord hwnd
hwnd=Canvas_Window("Sine Text",320,240,640,480)
Canvas_Attach(hwnd,0,%TRUE)
Canvas_Font("system",16,%CANVAS_FONTSTYLE_BOLD)


Dim tl,i,x As Long
Dim z As String ="HELLO AND WELCOME TO OUR THINBASIC FORUM !"
Dim letter As String
Dim y(44) As Single
Dim angle(44) As Single
tl = Len(z)


For i=1 To tl
angle(i)=360-i*(360/tl)
y(i)=240
Next


While IsWindow(hwnd)
Canvas_Clear(Rgb(0,0,185))
For x=1 To tl
angle(x)=angle(x) +1
If angle(x)=360 Then angle(x) =0
letter = Mid$(z, x ,1)
y(x)=y(x)+Sin(DegToRad(angle(x)))
SetText(2+x*14,y(x)-40, letter,Rgb(255,200,255),Rgb(0,0,185))
SetText(4+x*14,y(x), letter,Rgb(2,255,255),Rgb(0,0,185))
Next
Canvas_Redraw
If GetAsyncKeyState(27) Then Exit While
Wend
Canvas_Window End


Sub SetText(x,y As Long, txt As String, xkol,ykol As Long)
Canvas_Color(xkol,ykol)
Canvas_SetPos(x,y)
Canvas_Print(txt)
End Sub