VB6 Dex3D.frm - Revision history

XenoEngineer at 10:00, 3 January 2024

2024-01-03T10:00:56Z

XenoEngineer at 14:15, 1 January 2024

2024-01-01T14:15:13Z

← Older revision		Revision as of 14:15, 1 January 2024
Line 3:		Line 3:
	'''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh.		'''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh.

	The new refactored method, RefreshScene(), is found in ~~the startup-form~~, [[VB6_Dex3D.frm\|Dex3D.frm]] now renamed to [[VB6_QuasiVisual3D.frm]].		The new refactored method, RefreshScene(), is found in original code as a Form_Activate() event, [[VB6_Dex3D.frm\|Dex3D.frm]] now renamed to [[VB6_QuasiVisual3D.frm]].

	===VB6 RefreshScene() method reworked from startup-form Dex3D.frm===		===VB6 RefreshScene() method reworked from startup-form Dex3D.frm===

XenoEngineer at 14:12, 1 January 2024

2024-01-01T14:12:40Z

← Older revision		Revision as of 14:12, 1 January 2024
Line 3:		Line 3:
	'''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh.		'''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh.

	The new refactored method, RefreshScene(), if found in the startup-form, [[VB6_Dex3D.frm\|Dex3D.frm]].		The new refactored method, RefreshScene(), is found in the startup-form, [[VB6_Dex3D.frm\|Dex3D.frm]] now renamed to [[VB6_QuasiVisual3D.frm]].

	===VB6 RefreshScene() method reworked from startup-form Dex3D.frm===		===VB6 RefreshScene() method reworked from startup-form Dex3D.frm===

XenoEngineer at 14:11, 1 January 2024

2024-01-01T14:11:31Z

← Older revision		Revision as of 14:11, 1 January 2024
Line 3:		Line 3:
	'''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh.		'''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh.

	The new refactored method, RefreshScene(), ~~follows next~~...		The new refactored method, RefreshScene(), if found in the startup-form, [[VB6_Dex3D.frm\|Dex3D.frm]].

			===VB6 RefreshScene() method reworked from startup-form Dex3D.frm===
	<pre style="background:#333; color:lime; margin:0 auto; max-width:880px; padding:20px; ">		<pre style="background:#333; color:lime; margin:0 auto; max-width:880px; padding:20px; ">

XenoEngineer: Created page with "{{headerQuasiVisual3D}} '''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh. The new refactored method, R..."

2024-01-01T13:56:28Z

Created page with "{{headerQuasiVisual3D}} '''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh. The new refactored method, R..."

New page

{{headerQuasiVisual3D}}

'''After refactoring the code found below, the following code creates rather a function for direct-calling of scene-rendering, which is called from various points in the project code, where previously a flag was set to invoked a forever-loop (now replaced) to redraw the screen once while looping forever.''' This direct-call approach is now working by Windows events, like mouse-movements, to invoke a screen refresh.

The new refactored method, RefreshScene(), follows next...
<pre style="background:#333; color:lime; margin:0 auto; max-width:880px; padding:20px; ">

Private Sub RefreshScene()

If LockCamera = True Then
VLight(MyLight).Origin = _
VectorAdd( _
VectorNull, _
VectorScale( _
OrientationToVector(OrientationInput(0, OrbitLatitude, -OrbitLongitude)), _
-OrbitRadius _
) _
)
If CameraModel <> 0 Then
VMesh(CameraModel).Origin = VLight(MyLight).Origin
VMesh(CameraModel).Angles.Pitch = OrbitLatitude
VMesh(CameraModel).Angles.Yaw = -OrbitLongitude
VMesh(CameraModel).UpdateTransformation = True
End If

Else

Call OrbitCamera(MyCamera, VectorNull, OrbitRadius, OrbitLongitude, OrbitLatitude)
VLight(MyLight).Origin = VCamera(MyCamera).Origin

End If

'' Render the new bitmap
paintCanvas Picture1

End Sub

Sub paintCanvas(C As PictureBox)
C.Cls
RenderImage C, MyCamera

LastFaceOver = 0 '' The active mesh face(triangle) under the mouse pointer.

'' Print UI properties to the canvas ''
C.ForeColor = vbWhite
C.Print "Longitude: " & Int(RadianToDegree(OrbitLongitude))
C.Print "Latitude: " & Int(RadianToDegree(OrbitLatitude))
C.Print "Radius: " & Int(OrbitRadius)
C.Print
C.Print "Name: " & VMesh(MyMesh).Tag
C.Print "Vertices: " & VMesh(MyMesh).Vertices.Length
C.Print "Faces: " & VMesh(MyMesh).Faces.Length

End Sub

</pre>

'''Following is a nearly original Dex3D method, which created a forever-loop for flagged-repaints in the VB6 Form_Activate() event.'''

<pre style="background:#333; color:lime; margin:0 auto; max-width:880px; padding:20px; ">

Private Sub Form_Activate()
Debug.Print "Beginning Form_Activate()"

'Dim FrameRate As Single ''obsoleted by event-driven drawing

If BeginRenderLoop = True Then
'' Run render loop once ''
BeginRenderLoop = False

Do Until (RenderLoopCanceled) '' Added RenderLoopCanceled by XenoEngineer
If RefreshScene = True Then
RefreshScene = False

LastFaceOver = 0
If LockCamera = True Then
VLight(MyLight).Origin = _
VectorAdd( _
VectorNull, _
VectorScale( _
OrientationToVector(OrientationInput(0, OrbitLatitude, -OrbitLongitude)), _
-OrbitRadius _
) _
)
If CameraModel <> 0 Then
VMesh(CameraModel).Origin = VLight(MyLight).Origin
VMesh(CameraModel).Angles.Pitch = OrbitLatitude
VMesh(CameraModel).Angles.Yaw = -OrbitLongitude
VMesh(CameraModel).UpdateTransformation = True
End If
Else
Call OrbitCamera(MyCamera, VectorNull, OrbitRadius, OrbitLongitude, OrbitLatitude)
VLight(MyLight).Origin = VCamera(MyCamera).Origin
End If

Picture1.Cls
Call RenderImage(Picture1, MyCamera)
Picture1.ForeColor = vbWhite
Picture1.Print "Longitude: " & Int(RadianToDegree(OrbitLongitude))
Picture1.Print "Latitude: " & Int(RadianToDegree(OrbitLatitude))
Picture1.Print "Radius: " & Int(OrbitRadius)
Picture1.Print
Picture1.Print "Name: " & VMesh(MyMesh).Tag
Picture1.Print "Vertices: " & VMesh(MyMesh).Vertices.Length
Picture1.Print "Faces: " & VMesh(MyMesh).Faces.Length
End If

DoEvents
Loop

End If
Debug.Print "Ending Form_Activate()"

End Sub

</pre>