Visualizza wikitesto di Ruotare un quadrato ed un rettangolo in una DrawingArea

Mostriamo due analoghi possibili codici <SUP>&#091;[[#Note|nota 1]]&#093;</sup> per far ruotare su se stessi, ossia <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span>, un Quadrato ed un Rettangolo disegnati su una ''DrawingArea''. <SUP>&#091;[[#Note|nota 2]]&#093;</sup>
<BR>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 oppure ruotando la rotellina del mouse.

==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:
 <FONT Color=gray>' '''''Il fulcro del Metodo ".Translate()" agisce da vortice, da centro di rotazione intorno a una ipotetica circonferenza'''''</font>
 
 Private da As DrawingArea
 Private Const LATO As Short = 200   <FONT Color=gray>' ''Memorizza il lato del quadrato.''</font>
 Private fAngolo As Float            <FONT Color=gray>' ''Memorizza i gradi dell'angolo.''</font>
 Private c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
 Private f As Float[] = [0, 0.34, 0.67, 1]
 
 
 Public Sub Form_Open()  
  
  With Me
    .W = LATO * 3
    .H = .W * 0.6
    .Center
    .Arrangement = Arrange.Fill
  End With  
 
  With da  = New DrawingArea(Me) As "DrawingArea1"
    .Background = Color.White
  End With
  
 End
  
 
 Public Sub DrawingArea1_Draw()
  
  With Paint
    .Brush = .LinearGradient(0, 20, 15, 0, c, f)
 <FONT Color=gray>' ''Imposta il fulcro/punto della rotazione - ad esempio - al centro dell'area di disegno:''</font>
    <FONT Color=#B22222>.Translate</font>(da.W / 2, da.H / 2)
    .Rotate(Rad(fAngolo))   
    .LineWidth = 2.0
 <FONT Color=gray>' ''Disegna il quadrato.''
 ' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate del quadrato la metà della dimensione del suo lato.''
 ' ''Non si devono modificare i valori né i segni dei quattro argomenti qui riportati.''</font>
    .Rectangle(LATO / 2, LATO / 2, -LATO, -LATO)
 <FONT Color=gray>' ''oppure così:''
 '  '''.Rectangle(-LATO / 2, -LATO / 2, LATO, LATO)'''</font>
    .Stroke 
    .End
  End With     
     
 End
  
 
 Public Sub Form_KeyPress()
   
  Select Case Key.Code
    Case Key.Up
      fAngolo += 1
      If fAngolo = 361 Then fAngolo = 1
    Case Key.Down
      fAngolo -= 1
      If fAngolo = -361 Then fAngolo = -1
  End Select
  
  da.Refresh
   
 End
 
 
 Public Sub Form_MouseWheel()
 
  fAngolo += Mouse.Delta
  Select Case fAngolo
    Case 361
      fAngolo = 1
    Case -361
      fAngolo = -1
  End Select
 
  da.Refresh
 
 End
 
 
 Public Sub Form_Resize()   <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso.''</font>
   
  da.Refresh
   
 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 identico al precedente:
 <FONT Color=gray>' '''''Il fulcro del Metodo ".Translate()" agisce da vortice, da centro di rotazione intorno a una ipotetica circonferenza'''''</font>
 
 Private da As DrawingArea
 Private Const ORIZZONTALE As Short = 200   <FONT Color=gray>' ''Memorizza la dimensione di ciascun lato orizzontale.''</font>
 Private Const VERTICALE As Short = 100     <FONT Color=gray>' ''Memorizza la dimensione di ciascun lato verticale.''</font>
 Private fAngolo As Float            <FONT Color=gray>' ''Memorizza i gradi dell'angolo.''</font>
 Private c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
 Private f As Float[] = [0, 0.34, 0.67, 1]
 
 
 Public Sub Form_Open()  
  
  With Me
    .W = Max(ORIZZONTALE, VERTICALE) * 4
    .H = .W / 2
    .Center
    .Arrangement = Arrange.Fill
  End With  
 
  With da  = New DrawingArea(Me) As "DrawingArea1"
    .Background = Color.White
  End With
  
 End
  
 
 Public Sub DrawingArea1_Draw()
 
  With Paint
    .Brush = .LinearGradient(0, 20, 15, 0, c, f)
 <FONT Color=gray>' ''Imposta il fulcro/punto della rotazione - ad esempio -al centro dell'area di disegno:''</font>
    <FONT Color=#B22222>.Translate</font>(da.W / 2, da.H / 2)
    .Rotate(Rad(fAngolo))   
    .LineWidth = 2.0
 <FONT Color=gray>' ''Disegna il rettangolo.''
 ' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate del rettangolo la metà della dimensione di ciascun suo lato:''
 ' ''Non si devono modificare i valori né i segni dei quattro argomenti qui riportati.''</font>
    .Rectangle(ORIZZONTALE / 2, VERTICALE / 2, -ORIZZONTALE, -VERTICALE)
 <FONT Color=gray>' ''oppure così:''
 '  '''.Rectangle(-ORIZZONTALE / 2, -VERTICALE / 2, ORIZZONTALE, VERTICALE)'''</font>
    .Stroke 
    .End
  End With     
     
 End
  
 
 Public Sub Form_KeyPress()
   
  Select Case Key.Code
    Case Key.Up
      fAngolo += 1
      If fAngolo = 361 Then fAngolo = 1
    Case Key.Down
      fAngolo -= 1
      If fAngolo = -361 Then fAngolo = -1
  End Select
  
  da.Refresh
   
 End
 
 
 Public Sub Form_MouseWheel()
 
  fAngolo += Mouse.Delta
  Select Case fAngolo
    Case 361
      fAngolo = 1
    Case -361
      fAngolo = -1
  End Select
 
  da.Refresh
 
 End
 
 
 Public Sub Form_Resize()   <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso.''</font>
   
  da.Refresh
   
 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 queste pagine:
* [[Ruotare un cerchio disegnato in una DrawingArea]]
* [[Ruotare qualsiasi elemento da disegnare in una DrawingArea]]
* [[Ruotare una immagine sul proprio asse centrale]]