For a = 1 To iterations X = r * X * (1 - X) angle = angle + angleincrement H = X * (Cos(angle) * radius) V = X * (Sin(angle) * radius) viewport.PSet (H, V) Next a .
Output example (parameter r = 3.64, angle increment = 0.2, iterations = 1,000,000): .