B4A Library RSImageProcessing Library

jcohedman

Member
Licensed User
Longtime User
Error description: Unknown member: colordodgeblend
Occurred on line: 57
btmpBlend = IO.ColorDodgeBlend(btmpBlur, btmpGrayScale)
Word: colordodgeblend

what I'm doing wrong?
I downloaded RSImageProcessingFixed, but any change...
can You help me?
Thank You!
 

wheretheidivides

Active Member
Licensed User
Longtime User
I modified your project and it now
Works well

Especially with this order of effects:

  1. Greyscale
  2. Blur
  3. Invert
  4. Blend
  5. Invert
  6. SuperBlur
  7. MultiBlend

thanks, I was having the same errors as everyone else. now to try out the rotate bitmap.
 

jmon

Well-Known Member
Licensed User
Longtime User
The Accelerated Surface library provides an AlterColors function which is very fast to replace the Alpha channel.
Thanks, I would never have guessed that this library would do something like that from its name!

[Edit]
Seems that it is only possible to modify the alpha value as int, but is there a way to swap the alpha with another image in grey scale?
What I need to do is this: draw a red square, then apply an image of a car in grey scale as the alpha of this red square, so that I get a red car.

Thanks for your help
 
Last edited:

chrjak

Active Member
Licensed User
Longtime User
nice-but i dont know what zip i should take...
 

RonC.

Member
Licensed User
Longtime User
My values are changing in the Seekbar, but RSIImageFilters doesn't seem to be working in Seekbar1_ValueChanged. Any other suggestions on the code would be great too.


B4X:
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private Timer1 As Timer
End Sub

Sub Globals
    Dim test As Bitmap
    Dim RSIIP As RSImageProcessing
    Dim RSIFilter As RSImageFilters

    Private ImageView1 As ImageView
    Private Label1 As Label
    Private Panel1 As Panel
    Private SeekBar1 As SeekBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")

    Init
    RSIIP.Initialize

    Activity.AddView(Panel1,0,0,100%x,100%y)
    Panel1.AddView(Label1,5%x,20dip,90%x,20dip)
    Panel1.AddView(SeekBar1,5%x,60dip,90%x,32dip)
    Panel1.AddView(ImageView1,(Activity.Width/2)-50dip,Activity.Height-100dip,100dip,100dip)

    test.Initialize(File.DirAssets, "d30.jpg")
    ImageView1.Bitmap = test
    Timer1.Enabled = True
End Sub

Private Sub Init
    Timer1.Initialize("Timer1", 2000) '
    Panel1.Initialize("Panel1")
    SeekBar1.Initialize("SeekBar1")
    SeekBar1.Max = 30000
    SeekBar1.Value = 0
    Label1.Initialize("Label1")
    ImageView1.Initialize("ImageView1")
    Label1.TextColor = Colors.White
End Sub

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
    Label1.Text = Value
    ImageView1.Bitmap = RSIFilter.HueFilter(test,Value)
End Sub

Sub Timer1_Tick
    SeekBar1.Value = SeekBar1.Value
End Sub
 

Gsquared

Member
Licensed User
Longtime User
I was not able to get this library and example to work. It says it is missing the "rssketchpad" library and the example fails to compile. I tried all the zip files provided.
 

Vincent HURET

Member
Licensed User
Longtime User
Hi
When I lounch the application in debug..I have an error : missing RSSKETCHPAD then I found the KETCHPAD and have installed it.
Now, I have a problem saying that
IO.Initialize("IO")
is not recognised..

Mayday...somebody has an idea ?

Vincent
 

Spacewalker

Member
Licensed User
Longtime User
same here:
rssketchpad missing and IO.Initialize("IO") error...
any idea how to get this lib working (B4A V3.82) ?
 

Johan Schoeman

Expert
Licensed User
Longtime User

little3399

Active Member
Licensed User
Longtime User
Hi, XverhelstX

I runing the demo project with RSImageProcessingFixed ... and receive a error as flollowing ,,
 

Attachments

  • upload_2015-2-5_13-12-59.png
    151 KB · Views: 308

G-ShadoW

Active Member
Licensed User
Longtime User
B4X:
Dim a As Bitmap
    a=LoadBitmapSample(File.DirRootExternal, "1.jpg", 100%x, 100%y)
    ii.Watermark(a, "Testing...", 20,10, Colors.Red, 50,100,True)
    io.writeBitmapToFile(a,File.DirRootExternal,"1.jpg",100)

why there is no watermark?
 

MaCaveAVin

Member
Licensed User
Longtime User
Hi,

I just found an issue with colorfilter parameters.

ColorFilter (src As android.graphics.Bitmap, red As Double, green As Double, blue As Double) As android.graphics.Bitmap

ColorFilter(current_bitmap, 0,0,255) : it shows green bitmap
ColorFilter(current_bitmap, 0,255,0) : it shows red bitmap
ColorFilter(current_bitmap, 255,0,0) : it shows nothing

Looks like something is shifted ...
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…