Ruotare una sfera in una DrawingArea - Cronologia

Vuott il 00:54, 11 ago 2025

2025-08-11T00:54:14Z

← Versione meno recente		Versione delle 18:54, 10 ago 2025
Riga 110:		Riga 110:
	Paint.Ellipse(cx - r, cy - r, r * 2, r * 2)		Paint.Ellipse(cx - r, cy - r, r * 2, r * 2)
	Paint.Stroke()		Paint.Stroke()

	~~Paint.End~~

	End		End
Riga 239:		Riga 237:
	Paint.Ellipse(cx - r, cy - r, r * 2, r * 2)		Paint.Ellipse(cx - r, cy - r, r * 2, r * 2)
	Paint.Stroke()		Paint.Stroke()

	~~Paint.End~~

	End		End

Vuott il 20:12, 21 lug 2025

2025-07-21T20:12:02Z

← Versione meno recente		Versione delle 14:12, 21 lug 2025
Riga 115:		Riga 115:
	End		End

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

	Select Case Key.Code		Select Case Key.Code
Riga 131:		Riga 131:
	===Caricare una mappa terrestre equirettangolare===		===Caricare una mappa terrestre equirettangolare===
	Di seguito mostreremo un codice per adattare sulla sfera una mappa terrestre equirettangolare, al fine di far apparire la sfera come il pianeta terra in rotazione.		Di seguito mostreremo un codice per adattare sulla sfera una mappa terrestre equirettangolare, al fine di far apparire la sfera come il pianeta terra in rotazione.
	~~<BR>Il file immagine contenente i dati della mappa equirettangolare deve essere del formato PNG.~~
	~~<BR>Supporremo che il file immagine della mappa sia posto nella cartella "/tmp".~~
	<FONT Color=gray>' ''=== Costanti e variabili globali ===''</font>		<FONT Color=gray>' ''=== Costanti e variabili globali ===''</font>
	Private ~~Const RAGGIO_SFERA~~ As Integer = 100 <FONT Color=gray>' ''Raggio della sfera da disegnare''</font>		Private zoom_raggio_sfera As Integer = 100 <FONT Color=gray>' ''Raggio della sfera da disegnare''</font>
	Private angle As Float <FONT Color=gray>' ''Angolo di rotazione attorno all’asse Y''</font>		Private angle As Float <FONT Color=gray>' ''Angolo di rotazione attorno all’asse Y''</font>
	Private map As Image <FONT Color=gray>' ''Mappa terrestre in proiezione equirettangolare''</font>		Private map As Image <FONT Color=gray>' ''Mappa terrestre in proiezione equirettangolare''</font>
Riga 148:		Riga 146:

	<FONT Color=gray>' ''Carica la mappa terrestre (proiezione equirettangolare):''</font>		<FONT Color=gray>' ''Carica la mappa terrestre (proiezione equirettangolare):''</font>
	map = Image.Load("<FONT Color=darkgreen>''/~~tmp~~/~~Equirectangular~~-~~projection.PNG~~''</font>")		map = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine/proiezione-equirettangolare''</font>")

	<FONT Color=gray>' ''Avvia il timer con ~60 fotogrammi al secondo:''</font>		<FONT Color=gray>' ''Avvia il timer con ~60 fotogrammi al secondo:''</font>
Riga 176:		Riga 174:
	Dim cx As Float = DrawingArea1.Width / 2		Dim cx As Float = DrawingArea1.Width / 2
	Dim cy As Float = DrawingArea1.Height / 2		Dim cy As Float = DrawingArea1.Height / 2
	Dim r As Float = ~~RAGGIO_SFERA~~		Dim r As Float = zoom_raggio_sfera

	<FONT Color=gray>' ''Dimensioni dell’immagine mappa:''</font>		<FONT Color=gray>' ''Dimensioni dell’immagine mappa:''</font>
Riga 243:		Riga 241:

	Paint.End		Paint.End

			End


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

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

			DrawingArea1.Refresh

	End		End

Vuott il 20:04, 21 lug 2025

2025-07-21T20:04:06Z

← Versione meno recente		Versione delle 14:04, 21 lug 2025
Riga 116:		Riga 116:

	Public Sub Form_KeyPress() ' Gestione della tastiera per controllare lo zoom		Public Sub Form_KeyPress() ' Gestione della tastiera per controllare lo zoom

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

	DrawingArea1.Refresh		DrawingArea1.Refresh

	End		End

Vuott il 19:34, 21 lug 2025

2025-07-21T19:34:29Z

← Versione meno recente		Versione delle 13:34, 21 lug 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ottenere l'effetto di una sfera che ruota in senso antiorario.		Di seguito mostreremo un possibile codice per ottenere l'effetto di una sfera che ruota in senso antiorario.
	<FONT Color=gray>' ''Costanti per raggio della sfera e numero di punti visibili:''</font>		<FONT Color=gray>' ''Costanti per raggio della sfera e numero di punti visibili:''</font>
	~~Private Const SPHERE_RADIUS As Integer = 100~~
	Private Const NUM_POINTS As Integer = 200		Private Const NUM_POINTS As Integer = 200
			Private Zoom_Raggio_Sfera As Integer = 100

	<FONT Color=gray>' ''Angolo di rotazione della sfera (in radianti):''</font>		<FONT Color=gray>' ''Angolo di rotazione della sfera (in radianti):''</font>
Riga 62:		Riga 62:
	Dim cx As Float = DrawingArea1.Width / 2		Dim cx As Float = DrawingArea1.Width / 2
	Dim cy As Float = DrawingArea1.Height / 2		Dim cy As Float = DrawingArea1.Height / 2
	Dim r As Float = ~~SPHERE_RADIUS~~		Dim r As Float = Zoom_Raggio_Sfera

	<FONT Color=gray>' ''Variabili per il ciclo:''</font>		<FONT Color=gray>' ''Variabili per il ciclo:''</font>
Riga 114:		Riga 114:

	End		End

			Public Sub Form_KeyPress() ' Gestione della tastiera per controllare lo zoom

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

			DrawingArea1.Refresh

			End

Vuott il 19:29, 21 lug 2025

2025-07-21T19:29:13Z

@@ Riga 43: / Riga 43: @@
      spherePoints[i] = [x, y, z]
    Next
   End

Vuott il 13:25, 20 lug 2025

2025-07-20T13:25:11Z

@@ Riga 98: / Riga 98: @@
   <FONT Color=gray>' ''=== Disegna il bordo della sfera ===''</font>
    Paint.Brush = Paint.Color(&H000000)  ' Nero
    Paint.Ellipse(cx - r, cy - r, r * 2, r * 2)
    Paint.Stroke()

Vuott: Creata pagina con "Di seguito mostreremo un possibile codice per ottenere l'effetto di una sfera che ruota in senso antiorario. ' ''Costanti per raggio della sfera e numero di..."

2025-07-20T11:00:06Z

Creata pagina con "Di seguito mostreremo un possibile codice per ottenere l'effetto di una sfera che ruota in senso antiorario. ' ''Costanti per raggio della sfera e numero di..."

Nuova pagina

Di seguito mostreremo un possibile codice per ottenere l'effetto di una sfera che ruota in senso antiorario.
' ''Costanti per raggio della sfera e numero di punti visibili:''
Private Const SPHERE_RADIUS As Integer = 100
Private Const NUM_POINTS As Integer = 200

' ''Angolo di rotazione della sfera (in radianti):''
Private angle As Float

' ''Array contenente i punti 3D generati sulla superficie della sfera''
' ''Ogni elemento è un array [x, y, z] normalizzato:''
Private spherePoints 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

' ''Inizializza l'array dei punti:''
spherePoints = New Float[][NUM_POINTS]

Dim i As Integer
Dim theta, phi As Float
Dim x, y, z As Float

' ''Generazione casuale dei punti distribuiti sulla superficie della sfera:''
For i = 0 To NUM_POINTS - 1
theta = Rnd(0, 2 * Pi) ' ''Angolo longitudinale (orizzontale)''
phi = Acos(Rnd(-1, 1)) ' ''Angolo latitudinale (verticale)''

' ''Conversione da coordinate sferiche a coordinate cartesiane:''
x = Sin(phi) * Cos(theta)
y = Cos(phi)
z = Sin(phi) * Sin(theta)

' ''Salvataggio del punto normalizzato nell'array:''
spherePoints[i] = [x, y, z]
Next

End

Public Sub DrawingArea1_Draw()

' ''Coordinate del centro della sfera nella DrawingArea:''
Dim cx As Float = DrawingArea1.Width / 2
Dim cy As Float = DrawingArea1.Height / 2
Dim r As Float = SPHERE_RADIUS

' ''Variabili per il ciclo:''
Dim i As Integer
Dim p As Float[]
Dim x, y, z As Float
Dim xRot, zRot As Float
Dim sx, sy As Float

' ''=== Disegno del disco blu di base ===''
Paint.Brush = Paint.Color(Color.RGB(0, 80, 160))
Paint.Ellipse(cx - r, cy - r, r * 2, r * 2) ' ''Cerchio centrato''
Paint.Fill()

' ''=== Disegno dei punti bianchi "ruotati" ===''
For i = 0 To NUM_POINTS - 1

' ''Estrae il punto dalla lista:''
p = spherePoints[i]
x = p[0]
y = p[1]
z = p[2]

' ''Rotazione attorno all’asse Y.''
' ''Simula la rotazione della sfera da sinistra a destra:''
xRot = x * Cos(angle) + z * Sin(angle)
zRot = -x * Sin(angle) + z * Cos(angle)

' ''Mostra solo i punti "davanti" alla sfera (zRot > 0):''
If zRot > 0 Then

' ''Proiezione del punto 3D sulla 2D DrawingArea:''
sx = cx + xRot * r
sy = cy + y * r

' ''Disegna un piccolo punto bianco (2x2 pixel):''
Paint.Brush = Paint.Color(Color.White)
Paint.Ellipse(sx - 1, sy - 1, 2, 2)
Paint.Fill()

Endif

Next

' ''=== Disegna il bordo della sfera ===''
Paint.Brush = Paint.Color(&H000000) ' Nero
Paint.Ellipse(cx - r, cy - r, r * 2, r * 2)
Paint.Stroke()

Paint.End

End