Pour patienter

DIM d%,fc%
LABEL Fin
COLOR 0,200,255,255 : ON_CLICK 0,Fin
d% = 100: fc% = 0
Patience(0,100,100,d%)
TERMINATE
Fin:
  fc% = 1
RETURN
' =====
SUB Patience(obj%,x%,y%,d%)
  ' Affichage cercle de patience en x%,y% de l'objet obj%, diamètre d%
  ' Arrêt quand fc% = 1 (défini dans l'appelant)
  DIM_LOCAL e%,a%,pp%,xc%,yc%,r%,g%,b%
  e% = d%/4: IF e%>20 THEN e% = 20
  r% = COLOR_PIXEL_RED(obj%,x%,y%): g% = COLOR_PIXEL_GREEN(obj%,x%,y%)
  b% = COLOR_PIXEL_BLUE(obj%,x%,y%)  
  pp% = 950: PICTURE pp%: TOP pp%,y%: LEFT pp%,x%: WIDTH pp%,d%+e%
             HEIGHT pp%,d%+e%: 2D_TARGET_IS pp%: 2D_PEN_WIDTH e%
  xc% = WIDTH(pp%)/2: yc% = HEIGHT(pp%)/2: COLOR pp%,r%,g%,b%
  2d_fill_color r%,g%,b%
  DEGREES: a% = 360
  WHILE fc% = 0
      2D_PEN_COLOR 0,0,255: 2D_CIRCLE xc%,yc%,d%/2
      2D_PEN_COLOR 255,0,0: 2D_ARC xc%,yc%,d%/2,a%,a%-15
      a% = a%-30: IF a% = 0 THEN a% = 360
      PAUSE 150
  END_WHILE
  2D_TARGET_IS 0: DELETE pp%    
END_SUB
' =====