PureBasic Forums - English

Purebasic returns always a Quad as Color Value. That is a decision Fred made!

But you don't have to use a Quad. If you want, you can use a Long.
I always use Long for Color values.

If you know how a x86/x64 returns values you can see it makes no difference.

on 32Bit x86 the two Registers EAX ...

Q= $FF0000FF ; 4278190335
col= RGBA(255, 0, 0, 255) ; -16776961

Debug Q
Debug col


Q is set directly as quad value -> it's positive

col is converted inside RGBA form a Long to a Quad! That's a difference!

Because PureBasic do not support unsinged long, the long is negative and this negative ...

blure code from wilbert

viewtopic.php?p=543311&hilit=color+adju ... rt#p543311

and here the link to the HueShift discussion with the amazing speed
viewtopic.php?p=607158#p607158

Blur is a Matrix operation. The maximum speed you will get with XMM Code.
On modern x64 CPU's this will be extremly fast because of Auto parallelisation, if you use multiple registers.
I guess a 4k Picture needs only ms to process in a single task. Wilbert is the specaialist for such things.
There ...

maybe you explain what is your goal.
Your code looks complicated and it is not the best for debugging.
I'm sure there are more clear solutions for your problem.

(In case, please forgive my dumbness :D) What "to statements"? Here your examples always give 0.0 :(
Top




; this 2 lines in the Macro return different values - but should be the same
Macro IIFn(_Expression_, _TruePart_, _FalsePart_)
Bool(Not _Expression_) * _FalsePart_ + Bool(_Expression ...

EnableExplicit

Macro IIFn(_Expression_, _TruePart_, _FalsePart_)
; Bool(Not _Expression_) * _FalsePart_ + Bool(_Expression_) * _TruePart_
Bool(_Expression_) * _TruePart_ + Bool(Not _Expression_) * _FalsePart_
EndMacro

Debug IIFn(1=0, 11.1, 10) ; should be 10, gives 0.0!

Define res.d ...

Macro IIFn(_Expression_, _TruePart_, _FalsePart_)
Bool(_Expression_)*_TruePart_ + Bool(Not(_Expression_))*_FalsePart_
EndMacro
Debug IIFn(1=0, 11.1, 10) ; should be 10, gives 0.0!

seems to be a PB-Bug!
If I change the to statements it works

EnableExplicit

Macro IIFn(_Expression_, _TruePart ...

here a collection of different IIF Macros



; IIF : similar to the VB IIf Function
; use it : IIf(varReturn, A>1000, "large", "small")
Macro IIF(varReturn, _Expression_, valTrue, valFalse)
If Bool(_Expression_)
varReturn = valTrue
Else
varReturn = valFalse
EndIf
EndMacro

;IIFe ...

k but, I still get zero when I reduce down to search.s = #CRLF$
(again, I am using PB6.20)

The problem seems to be the String you read from the file.

The Ryzen processor somehow limits the load on the processor. I remember that on Intel, an incorrect loop could load the processor to 100%, so I always had a processor sensor in the tray. While experimenting with the CLCL program, I noticed that the processor was only loaded by 8%. This was strange ...

Hi Randy, your code is a good example for don't do that!

Never try to toggle ON/OFF with the binary not! Always use Bool Not.
This is a big differernce.
The binary Not toggles all bits.
The bool Not toggles between #False and #True.

I modified your code to show the Problem.
If I set first t ...

I downloaded source of V 1.01, Compiling with PB6.21!

There are some issues with the SourceProject File.
Once selected it is nearly not possible to change. I have to Quit first, then it change but not analyze.

Try to analize the PB-IDE Sourcecode. From https://github.com/fantaisie-software ...

Huh? There's AI for that!

Try to convert VB6 or Fortran to PureBasic with AI!
This will change your mind!

here I show some advanced String parsing techniques with univeral CharPointer and the use of my Purebasic Extention Module PX.

- Skip Spaces and Tabs
- Find end of an Expression or Word and get the length
- Check next character

Please download the additional PX module here
https://github.com ...