Ruotare un cubo in una DrawingArea - Cronologia

Vuott il 20:37, 21 lug 2025

2025-07-21T20:37:51Z

← Versione meno recente		Versione delle 14:37, 21 lug 2025
Riga 2:		Riga 2:
	Mostriamo di seguito un possibile codice per ruotare un Cubo in 3D intorno al suo asse Y in una ''DrawingArea''.		Mostriamo di seguito un possibile codice per ruotare un Cubo in 3D intorno al suo asse Y in una ''DrawingArea''.

	Nell'esempio che segue sarà possibile aumentare o diminuire la dimensione del disegno del Cubo, cliccando rispettivamente sui tasti "+" e "-" della tastiera.		Nell'esempio che segue sarà possibile aumentare o diminuire la dimensione del disegno del Cubo, cliccando rispettivamente sui tasti "+" e "-" della tastiera.
	<FONT Color=gray>' ''Variabile per l’angolo di rotazione attorno all’asse Y:''</font>		<FONT Color=gray>' ''Variabile per l’angolo di rotazione attorno all’asse Y:''</font>
	Private angleY As Float		Private angleY As Float

Vuott il 19:20, 21 lug 2025

2025-07-21T19:20:59Z

← Versione meno recente		Versione delle 13:20, 21 lug 2025
Riga 1:		Riga 1:
	==Rotazione di un cubo intorno al suo asse Y==		==Rotazione di un cubo intorno al suo asse Y==
	Mostriamo di seguito un possibile codice per ruotare un ~~cubo~~ in 3D intorno al suo asse Y in una ''DrawingArea''.		Mostriamo di seguito un possibile codice per ruotare un Cubo in 3D intorno al suo asse Y in una ''DrawingArea''.
	<FONT Color=gray>' ''~~===~~ Variabile per l’angolo di rotazione attorno all’asse Y ~~===~~''</font>
			Nell'esempio che segue sarà possibile aumentare o diminuire la dimensione del disegno del Cubo, cliccando rispettivamente sui tasti "+" e "-" della tastiera.
			<FONT Color=gray>' ''Variabile per l’angolo di rotazione attorno all’asse Y:''</font>
	Private angleY As Float		Private angleY As Float
			<FONT Color=gray>' ''Fattore di zoom (valore più alto = oggetto più grande):''</font>
			Private Zoom As Float = 150


Riga 111:		Riga 115:

	<FONT Color=gray>' ''Trasla al centro della DrawingArea e scala:''</font>		<FONT Color=gray>' ''Trasla al centro della DrawingArea e scala:''</font>
	Return New PointF(cx + x2D * ~~100~~, cy - y2D * ~~100~~)		Return New PointF(cx + x2D * Zoom, cy - y2D * Zoom)

	End		End
Riga 122:		Riga 126:
	Paint.LineTo(points[i2].X, points[i2].Y) <FONT Color=gray>' ''Punto finale''</font>		Paint.LineTo(points[i2].X, points[i2].Y) <FONT Color=gray>' ''Punto finale''</font>
	Paint.Stroke() <FONT Color=gray>' ''Esegue il disegno della linea''</font>		Paint.Stroke() <FONT Color=gray>' ''Esegue il disegno della linea''</font>

			End


			Public Sub Form_KeyPress() <FONT Color=gray>' ''Gestione della tastiera per controllare lo zoom''</font>

			Select Case Key.Code
			Case Key["+"]
			Zoom = Min(Zoom + 25, 1000)
			Case Key["-"]
			Zoom = Max(Zoom - 25, 25)
			End Select

			DrawingArea1.Refresh

	End		End
Riga 127:		Riga 145:

	==Rotazione di un cubo intorno ai suoi assi X, Y e Z==		==Rotazione di un cubo intorno ai suoi assi X, Y e Z==
	<FONT Color=gray>' ''~~===~~Variabili per gli angoli di rotazione su X, Y e Z ~~===~~''</font>		<FONT Color=gray>' ''Variabili per gli angoli di rotazione su X, Y e Z:''</font>
	Private angleX As Float		Private angleX As Float
	Private angleY As Float		Private angleY As Float
	Private angleZ As Float		Private angleZ As Float
			<FONT Color=gray>' ''Fattore di zoom (valore più alto = oggetto più grande):''</font>
			Private Zoom As Float = 150


Riga 172:		Riga 192:
	Dim az As Float = Rad(angleZ)		Dim az As Float = Rad(angleZ)

	=== Vertici 3D del cubo ===		<FONT Color=gray>' ''=== Vertici 3D del cubo ===''</font>
	Dim vertices As New Float[][8]		Dim vertices As New Float[][8]
	vertices[0] = [-size, -size, -size]		vertices[0] = [-size, -size, -size]
Riga 286:		Riga 306:
	Dim y2D As Float = y * factor		Dim y2D As Float = y * factor

	Return New PointF(cx + x2D * ~~100~~, cy - y2D * ~~100~~)		Return New PointF(cx + x2D * Zoom, cy - y2D * Zoom)

	End		End
Riga 292:		Riga 312:

	<FONT Color=gray>' ''=== Disegna una linea tra due punti proiettati ===''</font>		<FONT Color=gray>' ''=== Disegna una linea tra due punti proiettati ===''</font>
	Private Procedure DrawEdge(points As PointF[], i1 As Integer, i2 As Integer)~~''</font>~~		Private Procedure DrawEdge(points As PointF[], i1 As Integer, i2 As Integer)

	Paint.MoveTo(points[i1].X, points[i1].Y)		Paint.MoveTo(points[i1].X, points[i1].Y)
	Paint.LineTo(points[i2].X, points[i2].Y)		Paint.LineTo(points[i2].X, points[i2].Y)
	Paint.Stroke()		Paint.Stroke()

			End


			Public Sub Form_KeyPress() <FONT Color=gray>' ''Gestione della tastiera per controllare lo zoom''</font>

			Select Case Key.Code
			Case Key["+"]
			Zoom = Min(Zoom + 25, 1000)
			Case Key["-"]
			Zoom = Max(Zoom - 25, 25)
			End Select

			DrawingArea1.Refresh

	End		End

Vuott il 02:33, 20 lug 2025

2025-07-20T02:33:49Z

← Versione meno recente		Versione delle 20:33, 19 lug 2025
Riga 291:		Riga 291:


	<FONT Color=gray>' ''=== Disegna una linea tra due punti proiettati ===		<FONT Color=gray>' ''=== Disegna una linea tra due punti proiettati ===''</font>
	Private Procedure DrawEdge(points As PointF[], i1 As Integer, i2 As Integer)''</font>		Private Procedure DrawEdge(points As PointF[], i1 As Integer, i2 As Integer)''</font>

Vuott il 02:32, 20 lug 2025

2025-07-20T02:32:51Z

← Versione meno recente		Versione delle 20:32, 19 lug 2025
Riga 172:		Riga 172:
	Dim az As Float = Rad(angleZ)		Dim az As Float = Rad(angleZ)

	=== Vertici 3D del cubo ===		=== Vertici 3D del cubo ===
	Dim vertices As New Float[][8]		Dim vertices As New Float[][8]
	vertices[0] = [-size, -size, -size]		vertices[0] = [-size, -size, -size]

Vuott il 02:32, 20 lug 2025

2025-07-20T02:32:25Z

Mostra modifiche

Vuott il 02:19, 20 lug 2025

2025-07-20T02:19:35Z

← Versione meno recente		Versione delle 20:19, 19 lug 2025
Riga 1:		Riga 1:
			==Rotazione di un cubo intorno al suo asse Y==
	Mostriamo di seguito un possibile codice per ruotare un cubo in 3D attorno al suo asse Y in una ''DrawingArea''.		Mostriamo di seguito un possibile codice per ruotare un cubo in 3D attorno al suo asse Y in una ''DrawingArea''.
	<FONT Color=gray>' ''=== Variabile per l’angolo di rotazione attorno all’asse Y ===''</font>		<FONT Color=gray>' ''=== Variabile per l’angolo di rotazione attorno all’asse Y ===''</font>

Vuott: Creata pagina con "Mostriamo di seguito un possibile codice per ruotare un cubo in 3D attorno al suo asse Y in una ''DrawingArea''. ' ''=== Variabile per l’angolo di rotazion..."

2025-07-20T02:18:50Z

Creata pagina con "Mostriamo di seguito un possibile codice per ruotare un cubo in 3D attorno al suo asse Y in una ''DrawingArea''. ' ''=== Variabile per l’angolo di rotazion..."

Nuova pagina

Mostriamo di seguito un possibile codice per ruotare un cubo in 3D attorno al suo asse Y in una ''DrawingArea''.
' ''=== Variabile per l’angolo di rotazione attorno all’asse Y ===''
Private angleY As Float

Public Sub Form_Open()

With Me
.Title = "Sfera che ruota in senso antiorario"
.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
.Arrangement = Arrange.Fill
End With

Timer1.Delay = 16 ' ''~60 FPS''
Timer1.Start

End

Public Sub Timer1_Timer()

angleY += 2 ' ''Incrementa la rotazione Y (in gradi)''
DrawingArea1.Refresh ' ''Richiede il ridisegno della scena''

End

Public Sub DrawingArea1_Draw()

' ''=== Centro dello schermo ===''
Dim cx As Float = DrawingArea1.Width / 2
Dim cy As Float = DrawingArea1.Height / 2

' ''=== Parametri del cubo ===''
Dim size As Float = 1.0 ' ''Metà lato del cubo (il cubo sarà 2×size)''
Dim d As Float = 5.0 ' ''Distanza simulata della "camera" (l'osservatore)''
Dim ay As Float = Rad(angleY) ' ''Angolo Y convertito in radianti''

' ''=== Definizione dei vertici 3D del cubo ===''
' ''Ordine: da 0 a 7 (8 vertici di un cubo centrato sull'origine):''
Dim vertices As New Float[][8]
vertices[0] = [-size, -size, -size]
vertices[1] = [ size, -size, -size]
vertices[2] = [ size, size, -size]
vertices[3] = [-size, size, -size]
vertices[4] = [-size, -size, size]
vertices[5] = [ size, -size, size]
vertices[6] = [ size, size, size]
vertices[7] = [-size, size, size]

' ''=== Ruota e proietta ogni vertice ===''
Dim projected As New PointF[8]
For i As Integer = 0 To 7
Dim p As Float[] = RotateY(vertices[i], ay) ' ''Rotazione Y''
projected[i] = Project3D(p, d, cx, cy) ' ''Proiezione 3D → 2D''
Next

' ''=== Impostazioni per disegno linee ===''
Paint.LineWidth = 2
Paint.Brush = Paint.Color(Color.Black)

' ''=== Disegna i lati del cubo ===''

' ''Faccia frontale (quella visibile quando Z è negativo):''
DrawEdge(projected, 0, 1)
DrawEdge(projected, 1, 2)
DrawEdge(projected, 2, 3)
DrawEdge(projected, 3, 0)

' ''Faccia posteriore (Z positivo):''
DrawEdge(projected, 4, 5)
DrawEdge(projected, 5, 6)
DrawEdge(projected, 6, 7)
DrawEdge(projected, 7, 4)

' ''Collegamenti tra vertici corrispondenti frontali/posteriori:''
DrawEdge(projected, 0, 4)
DrawEdge(projected, 1, 5)
DrawEdge(projected, 2, 6)
DrawEdge(projected, 3, 7)

End

' ''=== Funzione: rotazione attorno all’asse Y ===''
Private Function RotateY(v As Float[], angle As Float) As Float[]

Dim x As Float = v[0]
Dim y As Float = v[1]
Dim z As Float = v[2]

' ''Formula di rotazione attorno all'asse Y:''
' ''ruota il punto nel piano XZ:''
Dim xr As Float = x * Cos(angle) + z * Sin(angle)
Dim zr As Float = -x * Sin(angle) + z * Cos(angle)

Return [xr, y, zr]

End

' ''=== Funzione: proiezione prospettica 3D → 2D ===''
Private Function Project3D(v As Float[], d As Float, cx As Float, cy As Float) As PointF
Dim x As Float = v[0]
Dim y As Float = v[1]
Dim z As Float = v[2]

' ''Fattore prospettico: maggiore Z → più vicino alla "camera" (l'osservatore):''
Dim factor As Float = d / (z + d + 0.001) ' evita divisione per 0
Dim x2D As Float = x * factor
Dim y2D As Float = y * factor

' ''Trasla al centro della DrawingArea e scala:''
Return New PointF(cx + x2D * 100, cy - y2D * 100)

End

' ''=== Procedura che disegna uno spigolo tra due vertici proiettati ===''
Private Procedure DrawEdge(points As PointF[], i1 As Integer, i2 As Integer)

Paint.MoveTo(points[i1].X, points[i1].Y) ' ''Punto iniziale''
Paint.LineTo(points[i2].X, points[i2].Y) ' ''Punto finale''
Paint.Stroke() ' ''Esegue il disegno della linea''

End