PureBasic Forums - English

Posted: **Mon Feb 01, 2016 6:10 pm**

Hello!

Based on the tips from a forum user, in a topic I created days ago, I created the following procedure:

; Darken Image procedure, based on the source code from the PB forum
; Image Number, Darken %
;
; V1.0 - 1/FEB/2016
;
Procedure DarkenImage(image_number,darken_percent)
  StartDrawing(ImageOutput(image_number))
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  Box(0, 0, ImageWidth(image_number),ImageHeight(image_number), RGBA(0, 0, 0, 2.5*darken_percent))     
  StopDrawing()  
EndProcedure

I was wondering if Freddy could create such a command to remove the need to have a procedure.

Thanks!

Kind regards,
>Marco A.G.Pinto
---------------

Posted: **Tue Feb 02, 2016 9:27 am**

marcoagpinto wrote: I was wondering if Freddy could create such a command to remove the need to have a procedure.

Because it's small, simple and specific.
It's the same like Min() and Max() functions.

Posted: **Tue Feb 02, 2016 9:31 am**

Hi,

do you want a 'marcoagpinto Basic'

If I send all my small procedures to Fred to include them as native stuff
PB grows a lot

Simply put all your small procedures in one pbi file and include it in each of your programs.
This has the same effect.

And if you want that it is usable by others: provide a download link.

Bernd

Posted: **Tue Feb 02, 2016 4:10 pm**

Hi Marco

This is what you need:
ColorEffex - Module

PureBasic Forums - English

DarkenImage command

DarkenImage command

Re: DarkenImage command

Re: DarkenImage command

Re: DarkenImage command