comment réduire le scintillement ?

rem dimension of form 0
top 0,0
left 0,0
width 0,1000
height 0,400
picture 1
width 1,590
height 1,365

rem color light-yellow on picture 1
color 1,255,255,220

rem send all 2D drawing on picture 1
2d_target_is 1

rem title to application
caption 0,"Triangle"
2d_pen_color 255,0,0
dim ptx,pty,i,r
label debut
DIM tabl(2, 3)
tabl(0, 0) = 10
tabl(1, 0) = 90
tabl(0, 1) = 300
tabl(1, 1) = 10
tabl(0, 2) = 300
tabl(1, 2) = 180
ptx = 150
pty = 100
debut:
i = i + 1
r = int(rnd(3))
ptx = (ptx + tabl(0, r)) / 2
pty = (pty + tabl(1, r)) / 2
2d_line ptx,pty,ptx+1,pty+1
display
IF i < 64000
GOTO debut
end_if

top 0,0 : left 0,0 : width 0,1000 : height 0,420 : caption 0,"Triangle"

label debut1 ,debut2 ,lancer
dim ptx,pty  , i , r ,b ,j
DIM tabl(2, 3)
tabl(0, 0) = 10  : tabl(0, 1) = 300  : tabl(0, 2) = 300
tabl(1, 0) = 90  : tabl(1, 1) = 10    : tabl(1, 2) = 180
ptx = 150        : pty = 100

picture 1 : width 1,590 : height 1,365 : color 1,255,255,220
            2d_target_is 1 : 2d_pen_color 255,0,0

picture 2 : width 2,590 : height 2,365 : color 2,255,255,220
            2d_target_is 1 : 2d_pen_color 255,0,0  : HIDE 2
           
timer 3:timer_interval 3,5:on_timer 3,lancer

end
' ===========================================
lancer:
  timer_off 3
  j=j + 1 :i=j
  gosub debut1
  i=j
  gosub debut2
  j=i          :' j reprend la dernière valeur de i
return
' le principe est de dessiner sur le picture mis à HIDE, et de montrer l'autre
debut1:
  show 2  : hide 1
  for b=0 to 30
      if scancode=27 then end
      i=i+b
      r = int(rnd(3))
      ptx = (ptx + tabl(0, r)) / 2
      pty = (pty + tabl(1, r)) / 2

      2d_target_is 1:2d_line ptx,pty,ptx+1,pty+1
  next b
  timer_on 3
  ' en arrivant au return, il y a display sur le picture 1
return

debut2:
  show 1  : hide 2
  for b=0 to 30
      if scancode=27 then end
      i=i+b
      r = int(rnd(3))
      ptx = (ptx + tabl(0, r)) / 2
      pty = (pty + tabl(1, r)) / 2
      2d_target_is 2:2d_line ptx,pty,ptx+1,pty+1
  next b
  ' en arrivant au return, il y a display sur le picture 2
return