17. Aplicatie MM care sa deseneze cercuri olimpice. 
La apasarea unui buton figura se va mari progresiv pana la acoperirea suprafetei client apoi sa revina la dimensiunea initiala (marire prin retrasare) 

MTB

Se deseneaza cele 5 cercuri care sunt grupate in grupul "grup" si colorate corespunzator.
Se creaza 2 butoane: "Start" si "Stop" care sa porneasca timerul si sa il opreasca.


Button "Start" Script
--------------------
to handle buttonclick
  system idt1, idt2 
  idt1 = timerstart("periodic", 500, 100, self)
end

to handle timernotify timerid
  system idt1, idt2
  if idt1 = timerid
	width of group "grup" = width of group "grup" + 100
    	height of group "grup" = height of group "grup" + 100
     
      if width of group "grup" > 6000 or \
      height of group "grup" > 4000
      
      get timerstop(idt1)
      idt2 = timerstart("periodic", 500,100,self)
    end if
  else
    if idt2=timerid     
      width of group "grup" = width of group "grup" - 100
      height of group "grup" = height of group "grup" - 100
      if width of group "grup" < 1000 or \
        height of group "grup" < 1000
        
        get timerstop(idt2)
      end if
    end if
  end if
end



Button "Stop" Script
--------------------
to handle buttonClick
	get timerStop(0)
end