• Home
 · 
• Graphics
 · 
• Colored line drawing thing. Looks very cool

Colored line drawing thing. Looks very cool

Colored line drawing thing. Looks very cool

Rate Colored line drawing thing. Looks very cool

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'looks best if backgrouind is white

Private Sub Command1_Click()

Dim redr As Integer
Dim grer As Integer
Dim blur As Integer
Dim xx As Integer
Dim yy As Integer

CurrentX = 10000
CurrentY = 5000
ForeColor = RGB(0, 0, 0): x = CurrentX: y = CurrentY
For i = 1 To 250000
redr = Int((255 * Rnd) + 1)
grer = Int((255 * Rnd) + 1)
blur = Int((255 * Rnd) + 1)
yy = Int((2 * Rnd) + 1)
xx = Int((2 * Rnd) + 1)
If xx = 1 Then
x = x + 10
End If
If xx = 2 Then
x = x - 10
End If
If yy = 1 Then
y = y + 10
End If
If yy = 2 Then
y = y - 10
End If
        Print "_____"
         CurrentX = x: CurrentY = y
ForeColor = RGB(redr, grer, blur)
Next
ForeColor = &HFFFF&
Print "_____"
End Sub