Dadido3/noita-mapcap
1
0
Fork 0
mirror of https://github.com/Dadido3/noita-mapcap.git synced 2024-11-18 17:17:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Format Capture.pb

Browse Source
This commit is contained in:
David Vogel 2024-02-05 19:06:13 +01:00
parent 15e2b88ed5
commit d9d8c9cd78
1 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
bin/capture-b/Capture.pb
View File

@ -1,4 +1,4 @@
; Copyright (c) 2019-2023 David Vogel ; Copyright (c) 2019-2024 David Vogel
; ;
; This software is released under the MIT License. ; This software is released under the MIT License.
; https://opensource.org/licenses/MIT ; https://opensource.org/licenses/MIT
@ -16,14 +16,14 @@ Structure QueueElement
EndStructure EndStructure
Structure GLViewportDims Structure GLViewportDims
x.i x.i
y.i y.i
width.i width.i
height.i height.i
EndStructure EndStructure
Structure WorkerInfo Structure WorkerInfo
workerNumber.i workerNumber.i
EndStructure EndStructure
; Returns the size of the main OpenGL rendering output. ; Returns the size of the main OpenGL rendering output.
@ -61,10 +61,10 @@ ProcedureDLL AttachProcess(Instance)
CreateDirectory("mods/noita-mapcap/output/") CreateDirectory("mods/noita-mapcap/output/")
Static Workers = 8 Static Workers = 8
Dim WorkerInfos.WorkerInfo(Workers-1) Dim WorkerInfos.WorkerInfo(Workers-1)
For i = 0 To Workers-1 For i = 0 To Workers-1
WorkerInfos(i)\workerNumber = i WorkerInfos(i)\workerNumber = i
CreateThread(@Worker(), @WorkerInfos(i)) CreateThread(@Worker(), @WorkerInfos(i))
Next Next
EndProcedure EndProcedure
@ -89,11 +89,11 @@ Procedure Worker(*workerInfo.WorkerInfo)
ResizeImage(img, sx, sy) ResizeImage(img, sx, sy)
EndIf EndIf
; Save image temporary, and only move it once it's fully exported. ; Save image temporary, and only move it once it's fully exported.
; This prevents images getting corrupted when the main process crashes. ; This prevents images getting corrupted when the main process crashes.
If SaveImage(img, "mods/noita-mapcap/output/worker_" + *workerInfo\workerNumber + ".tmp", #PB_ImagePlugin_PNG) If SaveImage(img, "mods/noita-mapcap/output/worker_" + *workerInfo\workerNumber + ".tmp", #PB_ImagePlugin_PNG)
RenameFile("mods/noita-mapcap/output/worker_" + *workerInfo\workerNumber + ".tmp", "mods/noita-mapcap/output/" + x + "," + y + ".png") RenameFile("mods/noita-mapcap/output/worker_" + *workerInfo\workerNumber + ".tmp", "mods/noita-mapcap/output/" + x + "," + y + ".png")
; We can't really do anything when either SaveImage or RenameFile fails, so just silently fail. ; We can't really do anything when either SaveImage or RenameFile fails, so just silently fail.
EndIf EndIf
FreeImage(img) FreeImage(img)
@ -135,20 +135,20 @@ ProcedureDLL Capture(*capRect.RECT, x.l, y.l, sx.l, sy.l)
EndIf EndIf
*pixelBuffer = DrawingBuffer() *pixelBuffer = DrawingBuffer()
glReadPixels_(*capRect\left, *capRect\top, capWidth, capHeight, #GL_BGR_EXT, #GL_UNSIGNED_BYTE, *pixelBuffer) glReadPixels_(*capRect\left, *capRect\top, capWidth, capHeight, #GL_BGR_EXT, #GL_UNSIGNED_BYTE, *pixelBuffer)
;For y = 0 To *capRect\height - 1 ; For y = 0 To *capRect\height - 1
; *Line.Pixel = Buffer + Pitch * y ; *Line.Pixel = Buffer + Pitch * y
;
; For x = 0 To *capRect\width - 1
; ;
; *Line\Pixel = ColorTable(pos2) ; Write the pixel directly to the memory ! ; For x = 0 To *capRect\width - 1
; *Line+Offset
; ;
; ; You can try with regular plot to see the speed difference ; *Line\Pixel = ColorTable(pos2) ; Write the pixel directly to the memory !
; ; Plot(x, y, ColorTable(pos2)) ; *Line+Offset
; Next ;
; Next ; ; You can try with regular plot to see the speed difference
; ; Plot(x, y, ColorTable(pos2))
; Next
; Next
StopDrawing() StopDrawing()