Ruotare un quadrato ed un rettangolo in una DrawingArea

Mostriamo due analoghi possibili codici ^{[Nota 1]} per far ruotare su se stessi, ossia intorno al proprio asse centrale, un quadrato ed un rettangolo disegnati su una DrawingArea. ^{[Nota 2]}
In entrambi gli esempi la rotazione del quadrato e del rettangolo viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera.

Ruotare un quadrato sul proprio asse centrale

Per ottenere la rotazione sul proprio asse centrale di un quadrato disegnato in una DrawingArea è possibile adottare il seguente codice:

' Il fulcro di Translate agisce da vortice. (Il quadrato ruoterà a seconda di dove esso si pone nel vortice: in questo esempio al centro.)

Private fRaggio As Float  ' Memorizza la lunghezza del raggio del cerchio.
Private xArc As Float     ' Memorizza il centro del cerchio.
Private yArc As Float     ' Idem
Private x As Float        ' Memorizza l'inizio del quadrato.
Private y As Float        ' Idem
Private iAlt As Integer   ' Memorizza l'altezza del quadrato.
Private iLarg As Integer  ' Memorizza la larghezza del quadrato.
Private fAngolo As Float  ' Memorizza i gradi dell'angolo.
Private fSopra1 As Float  ' Memorizza la posizione di partenza orizzontale della rotazione.
Private fSopra2 As Float  ' Memorizza la posizione di partenza verticale della rotazione.
Private fSotto1 As Float  ' Memorizza la posizione di arrivo orizzontale della rotazione.
Private fSotto2 As Float  ' Memorizza la posizione di arrivo verticale della rotazione.


Public Sub Form_Open()  
 
  Me.Center    
  
  attivaDisegno()
 
End


Public Sub da_Draw()

  iLarg = 200
  iAlt = 200
' Posiziona il quadrato al centro dell'area di disegno, così come le misure di partenza e di arrivo;
' e siccome il quadrato ruota su se stesso, si dà al raggio del cerchio mezza lunghezza del quadrato:
  x = CFloat((da.W / 2) - (iLarg / 2))
  y = CFloat((da.H / 2) - (iAlt / 2))
  fRaggio = CFloat(iLarg / 2)
              
' In questa dimostrazione il fulcro (vortice) è sempre il centro dell'area di disegno:
  xArc = CFloat((da.W / 2))
  yArc = CFloat(da.H / 2) 
  fSopra1 = CFloat((da.W / 2))
  fSopra2 = CFloat(da.H / 2) 
  fSotto1 = CFloat(- (da.W / 2))
  fSotto2 = CFloat(- (da.H / 2))
  
  With Paint
    .Begin(da)
' Vortice:
    .Translate(fSopra1, fSopra2)    
    .Rotate(Rad(fAngolo))   
    .Translate(fSotto1, fSotto2)
    .Rectangle(x, y, iLarg, iAlt)
    .Arc(xArc, yArc, fRaggio)
    .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()   ' Con questo evento se cambia la dimensione del Form, il disegna non va perso.
  
  attivaDisegno()
  
End

Ruotare un rettangolo sul proprio asse centrale

Per ottenere la rotazione sul proprio asse centrale di un rettangolo disegnato in una DrawingArea è possibile adottare il seguente codice analogo al precedente:

' Il fulcro di Translate agisce da vortice. (Il rettangolo ruoterà a seconda di dove esso si pone nel vortice: in questo esempio al centro.)

Private fRaggio As Float  ' Memorizza la lunghezza del raggio del cerchio.
Private xArc As Float     ' Memorizza il centro del cerchio.
Private yArc As Float     ' Idem
Private x As Float        ' Memorizza l'inizio del rettangolo.
Private y As Float        ' Idem
Private iAlt As Integer   ' Memorizza l'altezza del rettangolo.
Private iLarg As Integer  ' Memorizza la larghezza del rettangolo.
Private fAngolo As Float  ' Memorizza i gradi dell'angolo.
Private fSopra1 As Float  ' Memorizza la posizione di partenza orizzontale della rotazione.
Private fSopra2 As Float  ' Memorizza la posizione di partenza verticale della rotazione.
Private fSotto1 As Float  ' Memorizza la posizione di arrivo orizzontale della rotazione.
Private fSotto2 As Float  ' Memorizza la posizione di arrivo verticale della rotazione.


Public Sub Form_Open()  
 
  Me.Center    
  
  attivaDisegno()
 
End


Public Sub da_Draw()

  iLarg = 200
  iAlt = 150
' Se la rotazione è centrale, posiziona il rettangolo al centro dell'area di disegno
' così come le misure di partenza e di arrivo; e siccome il rettangolo ruota su se stesso, si dà al raggio del cerchio mezza lunghezza del rettangolo:
  x = CFloat((da.W / 2) - (iLarg / 2))
  y = CFloat((da.H / 2) - (iAlt / 2))
  fRaggio = CFloat(iLarg / 2)
              
' In questa dimostrazione il fulcro (vortice) è sempre il centro dell'area di disegno:
  xArc = CFloat((da.W / 2))
  yArc = CFloat(da.H / 2) 
  fSopra1 = CFloat((da.W / 2))
  fSopra2 = CFloat(da.H / 2) 
  fSotto1 = CFloat(- (da.W / 2))
  fSotto2 = CFloat(- (da.H / 2))
  
  With Paint
    .Begin(da)
' Vortice:
    .Translate(fSopra1, fSopra2)    
    .Rotate(Rad(fAngolo))   
    .Translate(fSotto1, fSotto2)
    .Rectangle(x, y, iLarg, iAlt)
    .Arc(xArc, yArc, fRaggio)
    .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()   ' Con questo evento se cambia la dimensione del Form, il disegna non va perso.
  
  attivaDisegno()
  
End

---

Note

[1] I codici, presenti in questa pagina, sono tratti - con modifiche ed integrazioni - da suggerimenti del membro Gianluigi del forum di gambas-it.org e del membro Shell del forum www.gambas-es.org .

[2] Vedere anche questa pagina: Ruotare qualsiasi elemento da disegnare in una DrawingArea