Ich würde bei Macros aus dem selben Grund auch die Verwendung der Parameter immer einklammern, falls dort Ausdrücke angebenen werden.Sicro hat geschrieben:Bei Macros werden Formeln nochmal in Klammern gesetzt, damit die Macros auch innerhalb von Formeln unproblematisch verwendet werden können (die Operatoren-Priorität bleibt erhalten).
Code: Alles auswählen
Macro GetBits(_variable_, _offset_)
(((_variable_) >> (_offset_)) & %111)
EndMacro
Hallo @STARGÅTESTARGÅTE hat geschrieben:...
Vielleicht kannst du ja einfach mal die gesamte Bearbeitungsschleife posten, damit wie da mal drüber gucken können.
Wie ich das mitbekommen habe geht es um Grauwerte (3 Bit), was schon mal n fürchterliche Anzahl ist.
Was muss denn genau getan werden bei der Verarbeitung ...
Code: Alles auswählen
Procedure.i Encode(*img.IMAGE_STRUCT)
Protected ImageX.i
Protected ImageY.i
Protected *ScanLine
Protected *Pixel.COLOR_STRUCT
Protected Offset.i
With *img
\Image\Pixel\BufferSize = \Bitmap\bmWidth * \Bitmap\bmHeight
\Image\Pixel\Buffer = AllocateMemory(\Image\Pixel\BufferSize)
If \Image\Pixel\Buffer
If \Bitmap\bmBitsPixel = 32
;//ALPHA IMG
Else
For ImageY = 0 To \Bitmap\bmHeight - 1
*ScanLine = \Bitmap\bmBits + (ImageY * \Bitmap\bmWidthBytes)
For ImageX = 0 To \Bitmap\bmWidth - 1
*Pixel = *ScanLine + (ImageX * \Bitmap\PixelSize)
SetBits(\Image\Pixel\Buffer,Offset,GrayScale(*Pixel));RGBA -> GrayScaleIndex (0 - 7) -> SetBits GrayscaleIndex
Offset + 3;BitOffset
Next
Next
\Image\Pixel\BufferSize = (Offset + 8) / 8
ProcedureReturn #True
EndIf
FreeMemory(\Image\Pixel\Buffer)
\Image\Pixel\Buffer = #Null
EndIf
EndWith
EndProcedure
Macht Sinn, aber wie kann ich 6 RGBA Werte gleichzeitig bearbeiten?STARGÅTE hat geschrieben:Was macht denn GrayScale(*Pixel)?
Ich vermute RGB zu Gray umwandeln, was vermutlich um Welten länger dauert als deine SetBits-Prozedur/Makro.
Dort sollte man also auch Ansetzen!
Des weiteren könnte man immer 8 Pixel mit ein Rutsch umwandelt, weil man dann 24Bit gleichzeitig schreibt, was etwas angenehmer ist als immer nur 3 einzel Bits.
Code: Alles auswählen
Procedure.i GrayScale(*Color.COLOR_STRUCT)
Protected Diffusion.i
Protected GrayScale.i
Diffusion = Int(Round(#COLOR_FAC * *Color\RGBA[0] / #COLOR_SEG,#PB_Round_Nearest) * #COLOR_DIV)
Diffusion + Int(Round(#COLOR_FAC * *Color\RGBA[1] / #COLOR_SEG,#PB_Round_Nearest) * #COLOR_DIV)
Diffusion + Int(Round(#COLOR_FAC * *Color\RGBA[2] / #COLOR_SEG,#PB_Round_Nearest) * #COLOR_DIV)
Diffusion = Diffusion / 3 ;get grayscale
Diffusion / 32 ;get index (0 - 7) bits
GrayScale = Diffusion * 32 ;set the grayscale to the current image (map it to the actual grayscale table)
*Color\RGBA[0] = GrayScale
*Color\RGBA[1] = GrayScale
*Color\RGBA[2] = GrayScale
ProcedureReturn Diffusion ;return index bits
EndProcedure
Code: Alles auswählen
; Register r8..r13 mit Daten laden, Shift the Bits, Gebe 2. Byte r8 Register aus.
CompilerIf #PB_Processor_x64<>#PB_Compiler_Processor : CompilerError: "X64 Code" : CompilerEndIf
EnableASM : DisableDebugger
Define RegR8L.a=$42
RegRAX=?mydata
mov rax,RegRAX
Mov r8, [rax]
mov r9, [rax+3]
mov r10,[rax+6]
mov r11,[rax+9]
mov r12,[rax+$c]
mov r13,[rax+$f]
SAR r8,8 ; Shift the Bits Right - in PureBasic Reg8=RegR8>>8
Mov RegR8L,r8l
EnableDebugger
Debug Hex(RegR8L,#PB_Byte)
DataSection : mydata:
Data.a $FF,$EE,$DD,$CC,$BB,$AA,$99,$88,$77,$66,$55,$44,$33,$22,$11,$00,$FE,$ED : EndDataSectionjuergenkulow hat geschrieben: ; Register r8..r13 mit Daten laden, Shift the Bits, Gebe 2. Byte r8 Register aus.
...
...was macht der Code? Code: Alles auswählen
Structure DreiByteTyp : Dreier.a[3] :EndStructure
Structure SechsMalDreiByteTyp : z18.a[18] : EndStructure
*Zeiger.DreiByteTyp=?mydata
*z.SechsMalDreiByteTyp=*Zeiger
Debug Hex(*Zeiger\Dreier[1],#PB_Byte)
Debug Hex(*z\z18[1],#PB_Byte)
*Zeiger+3
Debug Hex(*Zeiger\Dreier[0],#PB_Byte)+" "+Hex(*Zeiger\Dreier[1],#PB_Byte)+" "+Hex(*Zeiger\Dreier[2],#PB_Byte)
*Zeiger+$C
Debug Hex(*Zeiger\Dreier[0],#PB_Byte)+" "+Hex(*Zeiger\Dreier[1],#PB_Byte)+" "+Hex(*Zeiger\Dreier[2],#PB_Byte)
Debug Hex(*z\z18[15],#PB_Byte)+" "+Hex(*z\z18[16],#PB_Byte)+" "+Hex(*z\z18[17],#PB_Byte)
DataSection : mydata:
Data.a $FF,$EE,$DD,$CC,$BB,$AA,$99,$88,$77,$66,$55,$44,$33,$22,$11,$00,$FE,$ED : EndDataSectionIch steh aufm Schlauch...juergenkulow hat geschrieben:Der Code schreibt 6 RGB Werte aus dem Speicher, hier der Datasection, in die Prozessorregister r8 bis r13. Auf die Register kann dann quasi gleichzeitig zugegriffen werden.
Ablauf: Die Adresse von mydata: wird in die Variable RegRAX geschrieben.
Die Variable RegRAX wird in das Register rax geschrieben.
Der Inhalt von der Adresse rax wird in das Register r8 geschrieben.
Der Inhalt von der Adresse rax+3 wird in das Register r9 geschreiben.
...