Help with Copper Effect [SORTED]

[Pot Noodle]

Hi guys, I am hopping that some one can help me out with this effect.



I have been playing with this with out any joy.

Code Select Expand

Img = CreateImage(#PB_Any, #ResX, 240)
StartDrawing(ImageOutput(Img))
  For Y = 0 To 240
    R + 3 : G + 1 : b + 3
    LineXY(0, Y, #ResX, Y, RGB(R,G,b))
  Next
StopDrawing()

Thanks.

[Pot Noodle]

OK I have it sorted, thanks anyways..