Visualizza wikitesto di Ruotare un arco in una DrawingArea

Mostriamo un possibile codice [[#Nota|<SUP>Nota1</sup>]] per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un arco di cerchio (il centro di rotazione è posto sulla corda dell'arco), disegnato in una ''DrawingArea''.
<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera. 

 <FONT Color=gray>' '''''Il fulcro di Translate agisce da vortice. (L'arco ruota a seconda di dove esso si pone nel vortice: in questo caso al centro).'''''</font>
 
 Private x As Float        <FONT Color=gray>' ''Memorizza l'inizio dell'arco.''</font>
 Private y As Float        <FONT Color=gray>' ''Idem''</font>
 Private iAlt As Integer   <FONT Color=gray>' ''Memorizza l'altezza dell'arco.''</font>
 Private iLarg As Integer  <FONT Color=gray>' ''Memorizza la larghezza dell'arco.''</font>
 Private fAngolo As Float  <FONT Color=gray>' ''Memorizza i gradi dell'angolo.''</font>
 Private fSopra1 As Float  <FONT Color=gray>' ''Memorizza la posizione di partenza orizzontale della rotazione.''</font>
 Private fSopra2 As Float  <FONT Color=gray>' ''Memorizza la posizione di partenza verticale della rotazione.''</font>
 Private fSotto1 As Float  <FONT Color=gray>' ''Memorizza la posizione di arrivo orizzontale della rotazione.''</font>
 Private fSotto2 As Float  <FONT Color=gray>' ''Memorizza la posizione di arrivo verticale della rotazione.''</font>
 
 
 '''Public''' Sub Form_Open()  
  
   Me.Center    
   
   attivaDisegno()
  
 '''End'''
 
 
 '''Public''' Sub da_Draw()
 
   iLarg = 200
   iAlt = 200
 <FONT Color=gray>' ''Posiziona l'angolo al centro dell'area di disegno, così come le misure di partenza e di arrivo;
 ' ''e siccome l'angolo ruota su se stesso, si dà al raggio del cerchio mezza lunghezza dell'angolo:''</font>
   x = CFloat((da.W / 2) - (iLarg / 2))
   y = CFloat((da.H / 2) - (iAlt / 2))
                  
 <FONT Color=gray>' ''In questa dimostrazione il fulcro (vortice) è sempre il centro dell'area di disegno:''</font>
   fSopra1 = CFloat((da.W / 2))
   fSopra2 = CFloat(da.H / 2) 
   fSotto1 = CFloat(- (da.W / 2))
   fSotto2 = CFloat(- (da.H / 2))
   
   With Paint
     .Begin(da)
 <FONT Color=gray>' ''Vortice:''</font>
     .Translate(fSopra1, fSopra2)    
     .Rotate(Rad(fAngolo))   
     .Translate(fSotto1, fSotto2)
     .Ellipse(x, y, iLarg, iAlt, Rad(180), Rad(180), True)
     .Stroke 
     .End
   End With     
     
 '''End'''
 
 '''Public''' Sub attivaDisegno()
  
   da.Clear  
   da.Refresh
  
 '''End'''
 
 
 '''Public''' Sub Form_KeyPress()
   
   Select Case Key.Code
     Case Key.Up
       fAngolo += 1
       If fAngolo = 361 Then fAngolo = 1
       attivaDisegno()
     Case Key.Down
       fAngolo -= 1
       If fAngolo = -361 Then fAngolo = -1
       attivaDisegno()
   End Select
   
 '''End'''
  
 
 '''Public''' Sub Form_Resize()   <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegna non va perso.''</font>
   
   attivaDisegno()
   
 '''End'''



----
=Nota=
[1] Il codice, presente in questa pagina, è tratto - con modifiche ed integrazioni - da analogo codice suggerito dal membro ''Gianluigi'' del forum di ''gambas-it.org'' .