Makes a simple Spiral

by The Mafia (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 10^th August 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Makes a simple Spiral




Me.Show
Me.CurrentX = 2500
Me.CurrentY = 2600
Randomize
z = 100

Do
    DoEvents
    
    a = a + 0.005
    
    b = (Sin(a) * z) + 2500
    c = (Cos(a) * z) + 2500
    
    Line -(b, c)
    
    If a >= 3.14159 * 2 Then
        z = z + Rnd() * 200 + 30
        a = 0
        Form1.ForeColor = QBColor(Rnd() * 15)
    End If
Loop
End Sub

Download this snippet Add to My Saved Code

Makes a simple Spiral Comments

No comments have been posted about Makes a simple Spiral. Why not be the first to post a comment about Makes a simple Spiral.

Makes a simple Spiral

Makes a simple Spiral Comments

Post your comment

Difficulty