image unroller

[James D Jarvis]

A simple little image unroller that does an image reveal like a scroll being unrolled. Someone posted an example in a facebook group in their dialect of basic asking if other forms of basic could handle it. So I whipped this up. 

Code: (Select All)

' Picture unroller
img& = _LoadImage("hexmap0001.jpg", 32) 'your image here
w = _Width(img&)
h = _Height(img&)
sc& = _NewImage(w, h, 32)
Screen sc&
Cls: s = 3
For yc = 0 To h Step s:
    _Limit 30
    _PutImage (0, 0), img&, sc&, (0, 0)-(w, yc)
    _PutImage (0, yc - 6)-(w, yc + 6), img&, sc&, (0, yc)-(w, yc + 3)
Next yc

[James D Jarvis]

The image I used. Looks cooler with a map of some sort.

[euklides]

Nice !
Would be also interesting with a continuous horizontal move ???

[James D Jarvis]

Kinda like a tapestry unrolling?