Digital Image Processing

HMG Samples and Enhancements

Moderator: Rathinagiri

User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Digital Image Processing

Post by andyglezl »

Hola
Aquí saliendo de la depresión de ya no tener trabajo fijo...

Tomando como base: \HMG\3.4.4\SAMPLES\BosTaurus\Demo10.prg
del Dr. Claudio Soto.
*-------------------------------------------------------------------------
Hi
Here coming out of the depression of no longer having a steady job ...

Based on: \HMG\3.4.4\SAMPLES\BosTaurus\Demo10.prg
by Dr. Claudio Soto.
QDIP_AGL.zip
(1.47 MiB) Downloaded 156 times
DIP1.jpg
DIP1.jpg (216.26 KiB) Viewed 3401 times
DIP2.jpg
DIP2.jpg (202.57 KiB) Viewed 3401 times
Last edited by andyglezl on Tue Nov 10, 2020 12:47 am, edited 1 time in total.
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Digital Image Processing

Post by mustafa »

+10 Fabuloso !
Saludos Andrés
Mustafa
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: Digital Image Processing

Post by andyglezl »

Hola

* Ahora se puede cargar, procesar y salvar una imagen... ( JPG / PNG )
*------------------------------------------------------------
Hi

* Now you can load, process and save an image ... ( JPG / PNG )



* Manejar Brillantes y Contraste...
*---------------------------------------------
* Handle Bright and Contrast...
QDIP_AGL.zip
(1.47 MiB) Downloaded 133 times
DIP3.jpg.png
DIP3.jpg.png (1.5 MiB) Viewed 3234 times
DIP4.jpg.png
DIP4.jpg.png (814.35 KiB) Viewed 3232 times
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
serge_girard
Posts: 3161
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Contact:

Re: Digital Image Processing

Post by serge_girard »

Thanks Andrés and a happy birthday !!
There's nothing you can do that can't be done...
User avatar
jairpinho
Posts: 420
Joined: Mon Jul 18, 2011 5:36 pm
Location: Rio Grande do Sul - Brasil
Contact:

Re: Digital Image Processing

Post by jairpinho »

congratulations great job
Jair Pinho
HMG ALTA REVOLUÇÃO xBASE
HMG xBASE REVOLUTION HIGH
http://www.hmgforum.com.br
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: Digital Image Processing

Post by andyglezl »

Bueno, parece que me tope con el primer problema...
BT_BitmapGammaCorrect( hBitmap, RedGamma, GreenGamma, BlueGamma )
"RedGamma: is the Gamma Red color level to change (normally range between 0.2 and 5.0, none = 1.0)"
La función BT_BitmapGammaCorrect() maneja valores con decimales y al parecer esto no puede hacerse con los incrementos del control:
@ <nRow> ,<nCol> SPINNER <ControlName> . . . INCREMENT <nIncrement>

Alguna idea de como manejarlo ?
*-------------------------------------------------------------------------------
Well, I seem to run into the first problem ...
BT_BitmapGammaCorrect (hBitmap, RedGamma, GreenGamma, BlueGamma)
"RedGamma: is the Gamma Red color level to change (normally range between 0.2 and 5.0, none = 1.0)"
The BT_BitmapGammaCorrect () function handles values with decimals and apparently this cannot be done with the increments of the control:
@ <nRow>, <nCol> SPINNER <ControlName>. . . INCREMENT <nIncrement>

Any idea how to handle it?
Andrés González López
Desde Guadalajara, Jalisco. México.
edk
Posts: 909
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland

Re: Digital Image Processing

Post by edk »

andyglezl wrote: Tue Nov 10, 2020 7:32 pm Bueno, parece que me tope con el primer problema...
BT_BitmapGammaCorrect( hBitmap, RedGamma, GreenGamma, BlueGamma )
"RedGamma: is the Gamma Red color level to change (normally range between 0.2 and 5.0, none = 1.0)"
La función BT_BitmapGammaCorrect() maneja valores con decimales y al parecer esto no puede hacerse con los incrementos del control:
@ <nRow> ,<nCol> SPINNER <ControlName> . . . INCREMENT <nIncrement>

Alguna idea de como manejarlo ?
*-------------------------------------------------------------------------------
Well, I seem to run into the first problem ...
BT_BitmapGammaCorrect (hBitmap, RedGamma, GreenGamma, BlueGamma)
"RedGamma: is the Gamma Red color level to change (normally range between 0.2 and 5.0, none = 1.0)"
The BT_BitmapGammaCorrect () function handles values with decimals and apparently this cannot be done with the increments of the control:
@ <nRow>, <nCol> SPINNER <ControlName>. . . INCREMENT <nIncrement>

Any idea how to handle it?
It's simple: for a spinner control, multiply the allowed value by 10 (min: 2, max: 50, default: 10, increment: 1), and for setting a value for the BT_BitmapGammaCorrect () function, divide it by 10.
e.g. SpinnerRed = 2, SpinnerGreen = 10, SpinnerBlue = 50
BT_BitmapGammaCorrect (hBitmap , SpinnerRed / 10 , SpinnerGreen / 10 , SpinnerBlue / 10) => BT_BitmapGammaCorrect (hBitmap , 0.2 , 1.0 , 5.0)
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: Digital Image Processing

Post by andyglezl »

Perfecto, gracias por tu tiempo y tu respuesta edk
*-----------------------------------------------------------------
Perfect, thanks for your time and your answer edk
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: Digital Image Processing

Post by andyglezl »

Ahora se puede modificar la Gamma y aplicar varios Efectos...
+----------------------------------------------------------------------------------
Now you can modify the Gamma and apply various Effects ...
QDIP_AGL.zip
(1.41 MiB) Downloaded 134 times
IMG01-375-19.13-50.JPG
IMG01-375-19.13-50.JPG (994.87 KiB) Viewed 3079 times
IMG01-375-19.13-30.JPG
IMG01-375-19.13-30.JPG (1008.07 KiB) Viewed 3079 times
imagen_2020-11-12_172945.png
imagen_2020-11-12_172945.png (1.3 MiB) Viewed 3075 times
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
serge_girard
Posts: 3161
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Contact:

Re: Digital Image Processing

Post by serge_girard »

Andrés,

Great ! Is it possible to add effect such as 'cartoonize' ?
And ... undo?

Serge
There's nothing you can do that can't be done...
Post Reply