User:Gerbrant/Spiral image: VB source

Option Explicit Private Const Pi = 3.14159265358979 Private Sub Form_Paint Dim A As Long, B As Long Dim X As Long, Y As Long Dim T As Single, R As Single Dim N As Long, Rc As Long ScaleLeft = -ScaleWidth \ 2 ScaleTop = -ScaleHeight \ 2 For X = ScaleLeft To ScaleLeft + ScaleWidth - 1 For Y = ScaleTop To ScaleTop + ScaleHeight - 1 If X Then T = Atn(Y / X)        If X < 0 Then T = T + Pi     ElseIf Y > 0 Then T = Pi / 2 Else T = -Pi / 2 End If    T = T + 2 * Pi     R = Sqr(X * X + Y * Y)     R = R + 8 * T / Pi     N = Int(R / 16) T = 2 * Pi * N - T    PSet (X, Y), Picture1.Point(R - N * 16, (1.4 * T * T) And 127) Next Y, X End Sub
 * 1) Create a VB form.
 * 2) Create on it a PictureBox with a 16 px * 128 px image. To avoid seams you can make the image 17 px wide.
 * 3) Set the ScaleMode property of both form and Picture1 to vbPixels.
 * 4) Make sure the form contains the code below.
 * 5) Experiment - you can change the 1.4 to stretch the image, try other widths and heights, add anti-aliasing, etc.