Cos and Sin

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|583\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

Hotshot	Created : 13 June 2007 Edited : 13 June 2007 Cos and Sin It show cos and sin that move the text in circle
Dim wort$(5) wort$(0)="H" wort$(1)="I" wort$(2)="D" wort$(3)="B" wort$(4)="F" While Not KeyDown(1) beta=beta+1 While beta>360 beta=beta-360 Wend Cls For i=0 To 4; gamma=i45+beta z=64Sin(gamma)+160 x=32*Cos(gamma)+64 Text Z,X,wort$(i) Next Flip Wend --v

Comments