Bug sur Androîde sur PICTURE

Label t0_10,fin

degrees : width 0,800 :height 0,800
picture 1 : width 1,650:height 1,1700:2d_target_is 1
2d_pen_width 1  : font_size 0,12

dim x,y ,i  ,px ,py ,r , p% ,dx,dy,tx,ty , m1,m2
dim gr$(20)
button 2:caption 2,"de 0 à 10":width 2,110:on_click 2,t0_10
button 4:left 4,300:caption 4,"sortir":width 4,111:on_click 4,fin

end
' ===================================================
t0_10:
2d_clear : 2d_fill_color 255,255,255 :color 1,255,255,255
width 1,650
2d_pen_width 2

x=300  : y = 250
r = 50 : p% = 12
2d_arc x,y,r+10,180,360
2d_line 250+r,y,250,y
 
for i = 180-10 to 360 step 15  
   r=150  
      dx= sin(i-90)*60+x
      dy= cos(i-90)*60+y
      px= sin(i-90)*r+x
      py= cos(i-90)*r+y
   if p% <11 and p% > 0  
      2d_line dx,dy,px,py      
      2d_circle px,py,18
   else
      m1=px : m2 = py
   end_if  
   p%=p%-1
next i
' 2d_arc x,y,100,180,360
2d_arc x,y,180,180,360

2d_line x-180,y,x+180,y
2d_circle x,y,90
2d_circle x,y,2
2d_flood m1,m2,255,255,0

p%=12
for i = 180-10 to 360 step 15
   if p% > 0 and p% <11
   r=160
   tx= sin(i-90)*r+x
   ty= cos(i-90)*r+y
   if p%>5
      print_locate tx-p%-5,ty-3
   else
      print_locate tx-p%,ty-3  
   end_if  
   print p%
   end_if
   p%=p%-1
next i
return
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fin:
width 1,10 : ' terminate fait perdre le programme dans l'éditeur
return