Ruotare un triangolo in una DrawingArea - Cronologia

Vuott il 00:50, 11 ago 2025

2025-08-11T00:50:26Z

← Versione meno recente		Versione delle 18:50, 10 ago 2025
Riga 43:		Riga 43:
	.LineWidth = 2.0		.LineWidth = 2.0
	<FONT Color=gray>' ''Disegna il Triangolo.''		<FONT Color=gray>' ''Disegna il Triangolo.''
	' ''~~Siccome~~ l'angolo ruota su se stesso, avendo come centro di rotazione il proprio "Baricentro", ad ogni coordinata del punto, che costituisce un elemento del vettore del Metodo ".Polygon()", si sottrae il valore della corrispondente coordinata del punto del Baricentro. In questo modo si farà coincidere l'angolo di rotazione con il "Baricentro" del Triangolo.''		' ''Giacché l'angolo ruota su se stesso, avendo come centro di rotazione il proprio "Baricentro", ad ogni coordinata del punto, che costituisce un elemento del vettore del Metodo ".Polygon()", si sottrae il valore della corrispondente coordinata del punto del Baricentro. In questo modo si farà coincidere l'angolo di rotazione con il "Baricentro" del Triangolo.''
	' ''Non si devono modificare i valori né i segni dei quattro argomenti qui riportati.''</font>		' ''Non si devono modificare i valori né i segni dei quattro argomenti qui riportati.''</font>
	.Polygon([ABC[0] - xb, ABC[1] - yb, ABC[2] - xb, ABC[3] - yb, ABC[4] - xb, ABC[5] - yb])		.Polygon([ABC[0] - xb, ABC[1] - yb, ABC[2] - xb, ABC[3] - yb, ABC[4] - xb, ABC[5] - yb])
	.Stroke		.Stroke
	~~.End~~
	End With		End With

Riga 303:		Riga 302:
	.Polygon([ABC[0] - ix, ABC[1] - iy, ABC[2] - ix, ABC[3] - iy, ABC[4] - ix, ABC[5] - iy])		.Polygon([ABC[0] - ix, ABC[1] - iy, ABC[2] - ix, ABC[3] - iy, ABC[4] - ix, ABC[5] - iy])
	.Stroke		.Stroke
	~~.End~~
	End With		End With

Riga 580:		Riga 578:
	Paint.Polygon(coords) <FONT Color=gray>' ''Definisce la forma''</font>		Paint.Polygon(coords) <FONT Color=gray>' ''Definisce la forma''</font>
	Paint.Fill() <FONT Color=gray>' ''Riempe il triangolo''</font>		Paint.Fill() <FONT Color=gray>' ''Riempe il triangolo''</font>

	~~Paint.End() <FONT Color=gray>' ''Termina il disegno''</font>~~

	End		End
Riga 701:		Riga 697:
	Paint.Polygon(coords) <FONT Color=gray>' ''Definisce il contorno''</font>		Paint.Polygon(coords) <FONT Color=gray>' ''Definisce il contorno''</font>
	Paint.Fill() <FONT Color=gray>' ''Riempe il triangolo''</font>		Paint.Fill() <FONT Color=gray>' ''Riempe il triangolo''</font>

	~~Paint.End()~~

	End		End

Vuott il 05:28, 28 lug 2025

2025-07-28T05:28:18Z

← Versione meno recente		Versione delle 23:28, 27 lug 2025
Riga 515:		Riga 515:
	==Rotazione 3D attorno all'asse Y==		==Rotazione 3D attorno all'asse Y==
	Nel seguente codice faremo ruotare un triangolo isoscele attorno all'asse Y (cioè in spazio 3D):		Nel seguente codice faremo ruotare un triangolo isoscele attorno all'asse Y (cioè in spazio 3D):
			Private DrawingArea1 As DrawingArea
			Private Timer1 As Timer
	Private angle As Float <FONT Color=gray>' ''Variabile globale per memorizzare l'angolo corrente della rotazione''</font>		Private angle As Float <FONT Color=gray>' ''Variabile globale per memorizzare l'angolo corrente della rotazione''</font>

Riga 524:		Riga 526:
	.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)		.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
	.Arrangement = Arrange.Fill		.Arrangement = Arrange.Fill
			End With
			With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
			.Background = Color.White
	End With		End With

			Timer1 = New Timer As "Timer1"
	Timer1.Delay = 16		Timer1.Delay = 16
	Timer1.Start()		Timer1.Start()

Vuott il 05:20, 28 lug 2025

2025-07-28T05:20:48Z

← Versione meno recente		Versione delle 23:20, 27 lug 2025
Riga 617:		Riga 617:
	==Rotazione 3D attorno agli assi X, Y e Z==		==Rotazione 3D attorno agli assi X, Y e Z==
	Nel seguente codice faremo ruotare un triangolo isoscele attorno ai suoi assi X, Y e Z:		Nel seguente codice faremo ruotare un triangolo isoscele attorno ai suoi assi X, Y e Z:
			Private DrawingArea1 As DrawingArea
			Private Timer1 As Timer

	<FONT Color=gray>' ''Variabili globali per gli angoli di rotazione su ciascun asse:''</font>		<FONT Color=gray>' ''Variabili globali per gli angoli di rotazione su ciascun asse:''</font>
	Private angleX As Float		Private angleX As Float
Riga 629:		Riga 632:
	.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)		.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
	.Arrangement = Arrange.Fill		.Arrangement = Arrange.Fill
			End With
			With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
			.Background = Color.White
	End With		End With

			Timer1 = New Timer As "Timer1"
	Timer1.Delay = 16		Timer1.Delay = 16
	Timer1.Start()		Timer1.Start()
Riga 657:		Riga 664:

	<FONT Color=gray>' ''Dimensioni del triangolo:''</font>		<FONT Color=gray>' ''Dimensioni del triangolo:''</font>
	Dim baseHalf As Float = 1.0 <FONT Color=gray>' ''metà della base (±x)''</font>		Dim baseHalf As Float = 2.0 <FONT Color=gray>' ''metà della base (±x)''</font>
	Dim height As Float = 1.5 <FONT Color=gray>' ''altezza verticale''</font>		Dim height As Float = 3.0 <FONT Color=gray>' ''altezza verticale''</font>
	Dim d As Float = 4.0 <FONT Color=gray>' ''distanza "camera", ossia dell'osservatore, per simulare la prospettiva''</font>		Dim d As Float = 4.0 <FONT Color=gray>' ''distanza "camera", ossia dell'osservatore, per simulare la prospettiva''</font>

Vuott il 05:12, 28 lug 2025

2025-07-28T05:12:43Z

← Versione meno recente		Versione delle 23:12, 27 lug 2025
Riga 750:		Riga 750:

	<FONT Color=gray>' ''Trasla e scala nel sistema di coordinate della DrawingArea:''</font>		<FONT Color=gray>' ''Trasla e scala nel sistema di coordinate della DrawingArea:''</font>
	Return New PointF(cx + x2D * 100, cy - y2D * 100) ' *100 = scala visiva		Return New PointF(cx + x2D * 100, cy - y2D * 100) <FONT Color=gray>' ''*100 = scala visiva''</font>

	End		End

Vuott il 05:12, 28 lug 2025

2025-07-28T05:12:07Z

← Versione meno recente		Versione delle 23:12, 27 lug 2025
Riga 657:		Riga 657:

	<FONT Color=gray>' ''Dimensioni del triangolo:''</font>		<FONT Color=gray>' ''Dimensioni del triangolo:''</font>
	Dim baseHalf As Float = 1.0 <FONT Color=gray>metà della base (±x)''</font>		Dim baseHalf As Float = 1.0 <FONT Color=gray>' ''metà della base (±x)''</font>
	Dim height As Float = 1.5 <FONT Color=gray>altezza verticale''</font>		Dim height As Float = 1.5 <FONT Color=gray>' ''altezza verticale''</font>
	Dim d As Float = 4.0 <FONT Color=gray>distanza "camera", ossia dell'osservatore, per simulare la prospettiva''</font>		Dim d As Float = 4.0 <FONT Color=gray>' ''distanza "camera", ossia dell'osservatore, per simulare la prospettiva''</font>

	<FONT Color=gray>' ''Converte gli angoli da gradi a radianti (richiesto per Sin/Cos):''</font>		<FONT Color=gray>' ''Converte gli angoli da gradi a radianti (richiesto per Sin/Cos):''</font>
Riga 743:		Riga 743:

	<FONT Color=gray>' ''Calcola il fattore di scala prospettico:''</font>		<FONT Color=gray>' ''Calcola il fattore di scala prospettico:''</font>
	Dim factor As Float = d / (z + d + 0.001) ' ~~evita~~ divisione per 0		Dim factor As Float = d / (z + d + 0.001) <FONT Color=gray>' ''Evita divisione per 0''</font>

	<FONT Color=gray>' ''Proietta x e y in base alla profondità (z):''</font>		<FONT Color=gray>' ''Proietta x e y in base alla profondità (z):''</font>

Vuott il 05:09, 28 lug 2025

2025-07-28T05:09:14Z

@@ Riga 167: / Riga 167: @@
   <FONT Color=gray>' ''Punto nero sul baricentro (traslato):''</font>
      .Arc(cx + centroidX, cy + centroidY, 5, Rad(0), Rad(360), False)
      .Fill
    End With
   End
@@ Riga 348: / Riga 430: @@
   Private DrawingArea1 As DrawingArea
   Private Timer1 As Timer
-  Private rotationAngle As Float = 0
+  Private rotationAngle As Float

Vuott il 05:03, 28 lug 2025

2025-07-28T05:03:24Z

@@ Riga 324: / Riga 324: @@
      Dim xOld As Float = points[i].X - incentroX
      Dim yOld As Float = points[i].Y - incentroY
      points[i].X = xOld * Cos(rotationAngle) - yOld * Sin(rotationAngle) + incentroX + cx
      points[i].Y = xOld * Sin(rotationAngle) + yOld * Cos(rotationAngle) + incentroY + cy
@@ Riga 340: / Riga 340: @@
   <FONT Color=gray>' ''Punto nero sul incentro:''</font>
      .Arc(cx + incentroX, cy + incentroY, 5, Rad(0), Rad(360), False)
      .Fill

Vuott il 04:54, 28 lug 2025

2025-07-28T04:54:19Z

Mostra modifiche

Vuott il 00:11, 20 lug 2025

2025-07-20T00:11:45Z

← Versione meno recente		Versione delle 18:11, 19 lug 2025
Riga 184:		Riga 184:
	=Rotazione in 3D=		=Rotazione in 3D=

	==Rotazione 3D attorno all'asse Y ~~(cioè in spazio 3D)~~==		==Rotazione 3D attorno all'asse Y==
	Nel seguente codice faremo ruotare un triangolo isoscele attorno all'asse Y (cioè in spazio 3D):		Nel seguente codice faremo ruotare un triangolo isoscele attorno all'asse Y (cioè in spazio 3D):
	Private angle As Float <FONT Color=gray>' ''Variabile globale per memorizzare l'angolo corrente della rotazione''</font>		Private angle As Float <FONT Color=gray>' ''Variabile globale per memorizzare l'angolo corrente della rotazione''</font>

Vuott il 00:10, 20 lug 2025

2025-07-20T00:10:07Z

Mostra modifiche