3D-ized 2D, a sort of challenge or a how to question...

[Petr]

To the question above - motion of the stars - here is the solution in the form of a hardware image - it shows how to get the motion into the hardware image.

Code: (Select All)

Dim Image As Long

Image = _NewImage(640, 480, 32)

_Dest Image

Cls

For s = 1 To 100

    PSet (Rnd * 640, Rnd * 480)

Next



Virtual = _NewImage(640, 480, 32)



Screen _NewImage(640, 480, 32)



Do Until _KeyHit = 27

    xs = xs + 1

    If xs > 639 Then xs = 0

    _PutImage (xs, 0), Image, Virtual, (0, 0)-(639, 479)

    _PutImage (-639 + xs, 0), Image, Virtual, (0, 0)-(639, 479)



    ih& = _CopyImage(Virtual, 33)



    _MapTriangle (0, 0)-(0, 479)-(639, 479), ih& To(-2, 2, -3)-(-2, -2, -1)-(2, -2, -1), 0

    _MapTriangle (0, 0)-(639, 479)-(639, 0), ih& To(-2, 2, -3)-(2, -2, -1)-(2, 2, -3), 0

    _Display



    _FreeImage ih&



    _Limit 20

Loop