Hardware images...Talk to me!

[TempodiBasic]

Hi Unseen Machine
a hardware image demo




and here the code

Code: (Select All)

DefLng L

DefInt I

Screen _NewImage(800, 600, 32)

_Title " Demo Hardware images:please move mouse, scroll mousewheel, left mousebutton or enter to quit"

L = _NewImage(12, 16, 32)

lWhite = _RGBA32(255, 255, 255, 0)

lBlack = _RGBA32(0, 0, 0, 255)

_Dest L

Color lWhite, lBlack

_PrintString (1, 1), "A"

l2 = _CopyImage(L, 33)

_Dest 0

_FreeImage L

For icount = 1 To 150

    Line (Rnd * 800, Rnd * 600)-(Rnd * 800, Rnd * 600), _RGBA32(Rnd * 255, Rnd * 255, Rnd * 255, 255), BF

Next icount

iK = 1

Do

    _Limit 30

    i2 = _KeyHit

    If _MouseInput Then

        iMx = _MouseX

        iMy = _MouseY

    End If

    If _MouseButton(1) Then i2 = 13

    If _MouseWheel > 0 Then

        If iK < 10 Then iK = iK + 2

    ElseIf _MouseWheel < 0 Then

        If iK > 1 Then iK = iK - 2

    End If

    _PutImage (iMx, iMy)-Step(12 * iK, 16 * iK), l2, 0

Loop Until i2 = 13

_FreeImage l2

End

You can enjoy about mouse buffer that emulates a history movement of mouse's cursor.