From b136cb3adf72d0f5492cb548e59ac952912d835c Mon Sep 17 00:00:00 2001
From: Captain ALM <32275498+Captain-ALM@users.noreply.github.com>
Date: Fri, 27 Sep 2019 17:26:42 +0100
Subject: [PATCH] Init 2
---
3DGDIRenderer.sln | 12 ++-
3DTest/3DTest.OpenCover.Settings | 1 +
3DTest/3DTest.vbproj | 101 +++++++++++++++++++++++
3DTest/MainForm.Designer.vb | 69 ++++++++++++++++
3DTest/MainForm.resx | 123 ++++++++++++++++++++++++++++
3DTest/MainForm.vb | 52 ++++++++++++
3DTest/Program.vb | 26 ++++++
3DTest/Properties/AssemblyInfo.vb | 31 +++++++
3DTest/Properties/Settings.settings | 4 +
3DTest/app.config | 6 ++
Icon2.ico | Bin 0 -> 4286 bytes
11 files changed, 422 insertions(+), 3 deletions(-)
create mode 100644 3DTest/3DTest.OpenCover.Settings
create mode 100644 3DTest/3DTest.vbproj
create mode 100644 3DTest/MainForm.Designer.vb
create mode 100644 3DTest/MainForm.resx
create mode 100644 3DTest/MainForm.vb
create mode 100644 3DTest/Program.vb
create mode 100644 3DTest/Properties/AssemblyInfo.vb
create mode 100644 3DTest/Properties/Settings.settings
create mode 100644 3DTest/app.config
create mode 100644 Icon2.ico
diff --git a/3DGDIRenderer.sln b/3DGDIRenderer.sln
index 3eb3c6d..d69febe 100644
--- a/3DGDIRenderer.sln
+++ b/3DGDIRenderer.sln
@@ -1,8 +1,10 @@
-Microsoft Visual Studio Solution File, Format Version 9.00
-# Visual Studio 2005
+Microsoft Visual Studio Solution File, Format Version 11.00
+# Visual Studio 2010
# SharpDevelop 4.4
-Project("") = "3DGDIRender", "3DGDIRender\3DGDIRender.vbproj", "6F70EF7B-C63A-4338-99CB-027B0C6DE0C1"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "3DGDIRender", "3DGDIRender\3DGDIRender.vbproj", "6F70EF7B-C63A-4338-99CB-027B0C6DE0C1"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "3DTest", "3DTest\3DTest.vbproj", "{700D1C95-F579-412C-9FB3-69FDB0B93F83}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -14,5 +16,9 @@ Global
6F70EF7B-C63A-4338-99CB-027B0C6DE0C1.Debug|Any CPU.ActiveCfg = Debug|Any CPU
6F70EF7B-C63A-4338-99CB-027B0C6DE0C1.Release|Any CPU.Build.0 = Release|Any CPU
6F70EF7B-C63A-4338-99CB-027B0C6DE0C1.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {700D1C95-F579-412C-9FB3-69FDB0B93F83}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {700D1C95-F579-412C-9FB3-69FDB0B93F83}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {700D1C95-F579-412C-9FB3-69FDB0B93F83}.Release|Any CPU.Build.0 = Release|Any CPU
+ {700D1C95-F579-412C-9FB3-69FDB0B93F83}.Release|Any CPU.ActiveCfg = Release|Any CPU
EndGlobalSection
EndGlobal
diff --git a/3DTest/3DTest.OpenCover.Settings b/3DTest/3DTest.OpenCover.Settings
new file mode 100644
index 0000000..6f1dade
--- /dev/null
+++ b/3DTest/3DTest.OpenCover.Settings
@@ -0,0 +1 @@
+
\ No newline at end of file
diff --git a/3DTest/3DTest.vbproj b/3DTest/3DTest.vbproj
new file mode 100644
index 0000000..279998e
--- /dev/null
+++ b/3DTest/3DTest.vbproj
@@ -0,0 +1,101 @@
+
+
+
+ {700D1C95-F579-412C-9FB3-69FDB0B93F83}
+ Debug
+ AnyCPU
+ WinExe
+ WindowsForms
+ captainalm.test3d
+ 3DTest
+ v4.0
+ Properties
+ On
+ ..\Icon2.ico
+ False
+ False
+ False
+ OnBuildSuccess
+ Off
+ Binary
+ False
+ obj\$(Configuration)\
+ 4
+ False
+ \\ccgsintake14\14ManvilleA$\AppData\ICSharpCode/SharpDevelop4\Settings.SourceAnalysis
+
+
+ x86
+ 4194304
+ False
+ Auto
+ 4096
+
+
+ bin\Debug\
+ True
+ Full
+ False
+ DEBUG=1,TRACE=1
+
+
+ bin\Release\
+ False
+ None
+ True
+ TRACE=1
+ obj\
+ Project
+
+
+
+
+ 3.5
+
+
+
+ 3.5
+
+
+
+
+
+ 3.5
+
+
+
+
+ MainForm.vb
+
+
+
+
+
+
+
+
+ SettingsSingleFileGenerator
+
+
+
+
+ MainForm.vb
+
+
+
+
+ 6F70EF7B-C63A-4338-99CB-027B0C6DE0C1
+ 3DGDIRender
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/3DTest/MainForm.Designer.vb b/3DTest/MainForm.Designer.vb
new file mode 100644
index 0000000..c48f0d1
--- /dev/null
+++ b/3DTest/MainForm.Designer.vb
@@ -0,0 +1,69 @@
+'
+' Created by SharpDevelop.
+' User: 14manvilleA
+' Date: 27/09/2019
+' Time: 10:49
+'
+' To change this template use Tools | Options | Coding | Edit Standard Headers.
+'
+Partial Class MainForm
+ Inherits System.Windows.Forms.Form
+
+ '''
+ ''' Designer variable used to keep track of non-visual components.
+ '''
+ Private components As System.ComponentModel.IContainer
+
+ '''
+ ''' Disposes resources used by the form.
+ '''
+ ''' true if managed resources should be disposed; otherwise, false.
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ If disposing Then
+ If components IsNot Nothing Then
+ components.Dispose()
+ End If
+ End If
+ MyBase.Dispose(disposing)
+ End Sub
+
+ '''
+ ''' This method is required for Windows Forms designer support.
+ ''' Do not change the method contents inside the source code editor. The Forms designer might
+ ''' not be able to load this method if it was changed manually.
+ '''
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Me.pbxv = New System.Windows.Forms.PictureBox()
+ Me.timerRender = New System.Windows.Forms.Timer(Me.components)
+ CType(Me.pbxv,System.ComponentModel.ISupportInitialize).BeginInit
+ Me.SuspendLayout
+ '
+ 'pbxv
+ '
+ Me.pbxv.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.pbxv.Location = New System.Drawing.Point(0, 0)
+ Me.pbxv.Name = "pbxv"
+ Me.pbxv.Size = New System.Drawing.Size(284, 261)
+ Me.pbxv.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Stretch
+ Me.pbxv.TabIndex = 0
+ Me.pbxv.TabStop = false
+ '
+ 'timerRender
+ '
+ Me.timerRender.Interval = 125
+ '
+ 'MainForm
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(284, 261)
+ Me.Controls.Add(Me.pbxv)
+ Me.Name = "MainForm"
+ Me.Text = "3DTest"
+ CType(Me.pbxv,System.ComponentModel.ISupportInitialize).EndInit
+ Me.ResumeLayout(false)
+ End Sub
+ Private withevents timerRender As System.Windows.Forms.Timer
+ Private withevents pbxv As System.Windows.Forms.PictureBox
+End Class
diff --git a/3DTest/MainForm.resx b/3DTest/MainForm.resx
new file mode 100644
index 0000000..01cca59
--- /dev/null
+++ b/3DTest/MainForm.resx
@@ -0,0 +1,123 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ 17, 17
+
+
\ No newline at end of file
diff --git a/3DTest/MainForm.vb b/3DTest/MainForm.vb
new file mode 100644
index 0000000..32a9928
--- /dev/null
+++ b/3DTest/MainForm.vb
@@ -0,0 +1,52 @@
+'
+' Created by SharpDevelop.
+' User: 14manvilleA
+' Date: 27/09/2019
+' Time: 10:49
+'
+' To change this template use Tools | Options | Coding | Edit Standard Headers.
+'
+Imports System.Drawing
+Imports captainalm.util.Render3D
+Imports System.Runtime.InteropServices
+
+Public Partial Class MainForm
+ Public vp As View3D = Nothing
+
+ Public Sub New()
+ ' The Me.InitializeComponent call is required for Windows Forms designer support.
+ Me.InitializeComponent()
+ End Sub
+
+ Sub MainFormLoad(sender As Object, e As EventArgs) Handles Me.Load
+ ' Enable double-buffering to eliminate flickering.
+ Me.SetStyle(ControlStyles.UserPaint, True)
+ Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
+ Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
+ vp = New View3D(Me.pbxv.ClientSize.width, Me.pbxv.ClientSize.height, Color.Black, True)
+ End Sub
+
+ Sub TimerRenderTick(sender As Object, e As EventArgs) Handles timerRender.Tick
+ Me.pbxv.Invalidate()
+
+ If GC.GetTotalMemory(False) > 104857600 Then GC.Collect()
+ End Sub
+
+
+ private class MEMORYSTATUSEX
+ public dwLength As UInt32
+ public dwMemoryLoad As uint32
+ public ullTotalPhys As uint64
+ public ullAvailPhys As uint64
+ public ullTotalPageFile As uint64
+ public ullAvailPageFile As uint64
+ public ullTotalVirtual As uint64
+ public ullAvailVirtual As uint64
+ public ullAvailExtendedVirtual As uint64
+ public sub new()
+ me.dwLength = ctype(Marshal.SizeOf(GetType(MEMORYSTATUSEX)), uint32)
+ end sub
+ end class
+ Private Declare Function GlobalMemoryStatusEx Lib "kernel32" Alias "GlobalMemoryStatusEx" (<[In](), Out()>ByVal lpBuffer As MEMORYSTATUSEX) As Boolean
+ End Class
+
\ No newline at end of file
diff --git a/3DTest/Program.vb b/3DTest/Program.vb
new file mode 100644
index 0000000..6093da8
--- /dev/null
+++ b/3DTest/Program.vb
@@ -0,0 +1,26 @@
+'
+' Created by SharpDevelop.
+' User: 14manvilleA
+' Date: 27/09/2019
+' Time: 10:49
+'
+' To change this template use Tools | Options | Coding | Edit Standard Headers.
+'
+Imports Microsoft.VisualBasic.ApplicationServices
+
+Namespace My
+ ' This file controls the behaviour of the application.
+ Partial Class MyApplication
+ Public Sub New()
+ MyBase.New(AuthenticationMode.Windows)
+ Me.IsSingleInstance = False
+ Me.EnableVisualStyles = True
+ Me.SaveMySettingsOnExit = True
+ Me.ShutDownStyle = ShutdownMode.AfterMainFormCloses
+ End Sub
+
+ Protected Overrides Sub OnCreateMainForm()
+ Me.MainForm = My.Forms.MainForm
+ End Sub
+ End Class
+End Namespace
diff --git a/3DTest/Properties/AssemblyInfo.vb b/3DTest/Properties/AssemblyInfo.vb
new file mode 100644
index 0000000..2f6a789
--- /dev/null
+++ b/3DTest/Properties/AssemblyInfo.vb
@@ -0,0 +1,31 @@
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+Imports System.Runtime.InteropServices
+
+' Information about this assembly is defined by the following
+' attributes.
+'
+' change them to the information which is associated with the assembly
+' you compile.
+
+
+
+
+
+
+
+
+
+
+' This sets the default COM visibility of types in the assembly to invisible.
+' If you need to expose a type to COM, use on that type.
+
+
+' The assembly version has following format :
+'
+' Major.Minor.Build.Revision
+'
+' You can specify all values by your own or you can build default build and revision
+' numbers with the '*' character (the default):
+
+
diff --git a/3DTest/Properties/Settings.settings b/3DTest/Properties/Settings.settings
new file mode 100644
index 0000000..2088269
--- /dev/null
+++ b/3DTest/Properties/Settings.settings
@@ -0,0 +1,4 @@
+
+
+
+
\ No newline at end of file
diff --git a/3DTest/app.config b/3DTest/app.config
new file mode 100644
index 0000000..970c80b
--- /dev/null
+++ b/3DTest/app.config
@@ -0,0 +1,6 @@
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Icon2.ico b/Icon2.ico
new file mode 100644
index 0000000000000000000000000000000000000000..f1eb6b9cd7e7356dee9ac2ac8d629d102ce8f8ee
GIT binary patch
literal 4286
zcmeHDu?@mN3^WBj6?IC+$Udx)mm)C+3$O!4#z+}u0*aI=9{cqdS+9RW3Isw9a?Y{u
zY;#0A{#7-}n{Ef9BN3fADvp{%>hiSQv&S4T2h0I;;P)KxEqNW`!q)rjrKk(0Ap-Ps
z;!IEW=BULvm;p@1rMmEvUU4^O3O^0qL#|QpfEIn-do$2Sl>pwy8ABlp|;<&4!Ea5FI8zWgVA1BI7zrB|wROK#ACQ45yl
zEd-U6_LS;MYN