Advertisement
2_2002-2004 Graphics #119940

Sweet! Rainbow Paint

It's like that ad for "rainbow art" or whatever.

AI

สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ซอร์สโค้ด
original-source
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static r 'r
r = r + 10: If r > 510 Then r = 0 'make it fade
 For i = 0 To 200 '200 is brush tip size
 Circle (X, Y), i, RGB(Abs(r - 250), 0, Abs(r - 6)) 'heart of fading- change the Red, Green, Blue to get different colors!
 Next i 'make another circle
End Sub
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine