• Home
 · 
• Graphics
 · 
• Fades area of screen.

Fades area of screen.

Fades area of screen.

Rate Fades area of screen.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim LONG1 As Long
Dim LONG2 As Long
Dim R1 As Long
Dim G1 As Long
Dim B1 As Long
Dim r As Long
Dim G As Long
Dim B As Long
LONG1 = frm.Point(pointX, pointY)
B1 = LONG1 \ 65536
G1 = (LONG1 - B1 * 65536) \ 256
R1 = LONG1 - B1 * 65536 - G1 * 256
r = abs(r1-1)
G = abs(r2-1)
B = abs(r3-1)
frm.PSet (pointX, pointY), RGB(r, G, B)
End Sub

Sub drawDark(frm As Form, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)
Dim x As Integer
Dim i As Integer
For x = x1 To x2
For i = y1 To y2
drawDarkPx frm, x, i, translucentColor
Next
Next
End Sub