@selur, post #3
@mateusz_s, post #4
@mateusz_s, post #4
przy ogólnym programowaniu na pc
@mateusz_s, post #1
@teh_KaiN, post #6
@sanjyuubi, post #7
; ustawienie przerwania VBLANK, ktore wybiera bitmape do pokazania SetInt 5 If frames_ready > 0 If bmap = 0 Then frametodisplay = 2 If bmap = 1 Then frametodisplay = 0 If bmap = 2 Then frametodisplay = 1 DisplayBitMap 0, frametodisplay frames_ready - 1 EndIf End SetInt ; petla For T = 0 To 300 mycls{ btm_adr(bmap +1)\a08 } mycls{ btm_adr(bmap +1)\a12 } mycls{ btm_adr(bmap +1)\a16 } mycls{ btm_adr(bmap +1)\a20 } mycls{ btm_adr(bmap +1)\a24 } mycls{ btm_adr(bmap +1)\a28 } For i = 1 To #STARS stars(i)\y + stars(i)\ys If stars(i)\y > 252 If stars_random_x_counter >= #STARS_RANDOM_X stars_random_x_counter = 1 Else stars_random_x_counter + 1 EndIf stars(i)\y = 0 stars(i)\x = stars_random_x(stars_random_x_counter) EndIf Blit stars(i)\shp, stars(i)\x, stars(i)\y Next bmap + 1 If bmap = 3 Then bmap = 0 frames_ready + 1 If frames_ready > 1 Repeat Until frames_ready < 2 EndIf Use BitMap bmap Next
@mateusz_s, post #9
@sanjyuubi, post #10
@mateusz_s, post #9
Repeat Until frames_ready < 2
Signal(task, signal);
Wait(1L << signal);