Wavey Words

[SMcNeill]

Wavy Words -- Steve Edition:

Code: (Select All)

Screen _NewImage(640, 480, 32)

WordScreen = _CopyImage(0)

$Color:32

font = _LoadFont("OLDENGL.ttf", 240)

_Dest WordScreen

_Font font

Locate 1, 1: Print "Hello";

Locate 2, 1: Print "World";

_Dest 0

WS_HW = _CopyImage(WordScreen, 33)

_PutImage , WS_HW

_Display

_DisplayOrder _Hardware

Do

    wave = wave + .1

    If wave > _Pi(2) Then wave = -_Pi(2)

    x = x + 1

    If x > 640 Then x = 0: _Display

    _PutImage (x, 0 + Sin(wave) * 5)-Step(0, 480), WS_HW, , (x, 0)-Step(0, 480)

    _Limit 6000

Loop Until _KeyHit

System