Add projects including README.md(s), .gitignore(s) and the actual project files.

Signed-off-by: Michael Fabian Dirks <michael.dirks@project-kube.de>
2014-11-24 18:18:24 +01:00
parent 934da62076
commit 8f3114e377
170 changed files with 22028 additions and 3 deletions
@@ -0,0 +1,8 @@
+xaymar.desktop
+=======================
+
+An attempt at rendering to the desktop. Failed, mind you. The module it references no longer exists, no idea what it even added.
+
+License
+=======
+xaymar.desktop by Michael Fabian Dirks is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/.
@@ -0,0 +1,104 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Xaymar.Desktop
+Import Pub.DirectX
+Import Pub.Win32
+Import MaxGUI.Win32MaxGUIEx
+
+Extern "win32"
+	Function GetLastError() = "GetLastError@0"
+EndExtern
+
+Global d3dx9Lib:Int = LoadLibraryA( "d3dx9" )
+DebugLog GetLastError()
+If d3dx9Lib Then
+	Global D3DXAssembleShader:Int(pSrcData:Byte Ptr, SrcDataLen:Int, pDefines:Byte Ptr, pInclude:Byte Ptr, FLAGS:Int, ppShader:ID3DXBuffer Var, ppErrorMsgs:ID3DXBuffer Var)"win32"=GetProcAddress( d3dx9Lib,"D3DXAssembleShader" )
+	Global D3DXSaveSurfaceToFile:Int(pConstString:Byte Ptr, DestFormat:Int, pSurface:Byte Ptr, pSrcPalette:Byte Ptr, pSrcRect:Byte Ptr)"win32"=GetProcAddress( d3dx9Lib, "D3DXSaveSurfaceToFile" )
+EndIf
+
+Local l_Displays:TList = GetDisplayList()
+For Local l_Display:Rect = EachIn l_Displays
+	Print "[" + l_Display.Left + ", " + l_Display.Top + "]:[" + l_Display.Right + ", " + l_Display.Bottom + "]"
+Next
+Local l_Display:Rect = Rect(l_Displays.ValueAtIndex(0))
+
+Local l_D3D:IDirect3D9				 = Direct3DCreate9( 32 )
+If Not l_D3D Then
+	Print "0x00000001"
+Else
+	Local l_D3DCaps:D3DCAPS9			 = New D3DCAPS9
+	If l_D3D.GetDeviceCaps(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, l_D3DCaps) < 0
+		Print "0x00000002"
+	Else
+		Local l_D3DPresentParam:D3DPRESENT_PARAMETERS	 = New D3DPRESENT_PARAMETERS
+		l_D3DPresentParam.BackBufferWidth		 = (l_Display.Right - l_Display.Left)
+		l_D3DPresentParam.BackBufferHeight		 = (l_Display.Bottom - l_Display.Top)
+		l_D3DPresentParam.BackBufferCount		 = 1
+		l_D3DPresentParam.BackBufferFormat		 = D3DFMT_UNKNOWN
+		l_D3DPresentParam.MultiSampleType		 = D3DMULTISAMPLE_NONE
+		l_D3DPresentParam.SwapEffect			 = D3DSWAPEFFECT_DISCARD
+		l_D3DPresentParam.hDeviceWindow			 = Null
+		l_D3DPresentParam.Windowed				 = True
+		l_D3DPresentParam.Flags					 = D3DPRESENTFLAG_LOCKABLE_BACKBUFFER | D3DPRESENTFLAG_VIDEO
+		l_D3DPresentParam.PresentationInterval	 = D3DPRESENT_INTERVAL_IMMEDIATE
+		
+		Local l_WindowName:String = "Null"
+		Local l_hWnd:Int = CreateWindowExW(0, TWindowsGUIDriver.ClassName(), l_WindowName, 0, 0, 0, 1, 1, Null, Null, Null, Null)
+		If l_hWnd = 0 Then
+			Print GetLastError()
+			Print "0x00000003"
+		Else
+			Local l_D3DDevice:IDirect3DDevice9	 = Null
+			If l_D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, l_hWnd, D3DCREATE_SOFTWARE_VERTEXPROCESSING, l_D3DPresentParam, l_D3DDevice) < 0
+				Print "0x00000004"
+			Else
+				Local l_DesktopRT:IDirect3DSurface9	 = Null
+				Local l_RecordRT:IDirect3DSurface9	 = Null
+				
+				If l_D3DDevice.GetRenderTarget(0, l_DesktopRT) < 0
+					Print "0x00000005"
+				Else
+					Local l_D3DDisplayMode:D3DDISPLAYMODE = New D3DDISPLAYMODE
+					If l_D3D.GetAdapterDisplayMode(D3DADAPTER_DEFAULT, l_D3DDisplayMode) < 0
+						Print "0x00000006"
+					Else
+						If l_D3DDevice.CreateOffscreenPlainSurface(l_D3DDisplayMode.Width, l_D3DDisplayMode.Height, l_D3DDisplayMode.Format, D3DPOOL_SYSTEMMEM, l_RecordRT, Null) < 0
+							Print "0x00000007"
+						Else
+							If l_D3DDevice.GetRenderTargetData(l_DesktopRT, l_RecordRT) < 0
+								Print "0x00000008"
+							Else
+								Local File:String = "C:\Dokumente und Einstellungen\Teilnehmer\Desktop\" + MilliSecs() + ".png"
+								Local FileCStr:Byte Ptr = File.ToCString()
+								Print D3DXSaveSurfaceToFile(FileCStr, 3, Byte Ptr(l_RecordRT), Null, Null)
+								If D3DXSaveSurfaceToFile(FileCStr, 3, Byte Ptr(l_RecordRT), Null, Null) <> 0
+									Print "0x00000009"
+								Else
+									Print "Success?"
+								EndIf
+								MemFree FileCStr
+							EndIf
+							l_RecordRT.Release_
+						EndIf
+						l_D3DDisplayMode = Null
+					EndIf
+					l_DesktopRT.Release_
+				EndIf
+			EndIf
+			DestroyWindow l_hWnd
+		EndIf
+	EndIf
+	l_D3D.Release_
+EndIf
+
+
+Rem
+   //copy the render target to the destination surface.
+   hr = Device->GetRenderTargetData(pRenderTarget, pDestTarget);
+   //save its contents to a bitmap file.
+   hr = D3DXSaveSurfaceToFile(file,
+                              D3DXIFF_BMP,
+                              pDestTarget,
+                              NULL,
+                              NULL);