XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Animierte Erdkugel
Das Beispiel demonstriert, wie ein Bild, das aus verschiedenen Phasen
einer Animation besteht, in den Speicher geladen wird, um die einzelnen
Phasen anschließend in schneller Folge auf den Bildschirm zu bringen
declare ende%,plus%,min%,i%,brems%,x%,name$
window 0,0-320,280
plus% = @create(button,%HWnd,+,260,30,20,20)
min%  = @create(button,%HWnd,-,260,60,20,20)
ende% = @create(button,%HWnd,Ende,230,200,50,20)
x%     = 0
brems% = 10
mloadbmp WORLD.BMP

whilenot @scankey(27) or @getfocus(Ende%)

    mcopybmp x%,0-230,230 > 0,0;0
    case @scankey(38) or @getfocus(min%):inc brems%
    case (@scankey(40) or @getfocus(plus%)) and (brems% > 0):dec brems%
    i% = 0

    while i% < brems%

        inc i%

    wend

    add x%,230

    if x% > 3910

        x% = 0

    endif

endwhile

end