Рогатая гусеница
Скачать пример
guseniz.zip
Улитка во сне
Me.ScaleMode = vbPixelsxx = 300yy = 160: X2 = 280: Y2 = 0P = 3.1415926rrrr = 60rr1 = 25For i = 1520 To 0 Step -0.5rrr = rrrr * i / 370rr = rrr '+ rrr * i / 360For j = 0 To 360 Step 2 t = i * P / 180 s = j * P / 180 rrr0 = rr1 * i / 370 rr0 = rrr0 + rrr0 * (Sin(5 * s)) ^ 8 * (Sin(5 * t)) ^ 8 / 3 X = rr * Cos(1 * t) + rr0 * Cos(s) Y = rr0 * Sin(s) + i / 18 z = rr * Sin(t) + rr0 * Cos(s) X1 = X - z * Cos(P / 2) * 0.5 Y1 = Y + z * Sin(P / 2) * 0.5 red = 250 * rr0 / (rr1 + 80) green = 250 * Abs(Sin((i / 7))) blue = 250 * Abs(Sin((j / 90) / 1)) DrawWidth = 2Line (X1 + xx + 10, Y1 + yy + 40)-(X2 + xx + 10, Y2 + yy + 40), RGB(red, green, blue)X2 = X1Y2 = Y1Next jNext i
Другие вариации узоров
Me.ScaleMode = vbPixelsxx = 350yy = 40: X2 = 280: Y2 = 0P = 3.1415926rrrr = 60rr1 = 25For i = 1000 To 0 Step -0.5rrr = rrrr '* i / 200rr = rrr + rrr * i / 260For j = 0 To 360 Step 2 t = i * P / 180 s = j * P / 180 rrr0 = rr1 * i / 690 rr0 = rrr0 + rrr0 * (Sin(5 * s)) ^ 8 * (Sin(9 * t)) ^ 8 '/ 2 X = rr * Cos(1 * t) + rr0 * Cos(s) Y = rr0 * Sin(s) + i / 2.5 z = rr * Sin(2 * t) + rr0 * Cos(s) X1 = X - z * Cos(P / 2) * 0.5 Y1 = Y - z * Sin(P / 2) * 0.5 red = 250 * rr0 / (rr1 + 20) green = 250 * Abs(Sin((i / 8))) blue = 250 * Abs(Sin((j / 20))) DrawWidth = 3Line (X1 + xx + 10, Y1 + yy + 40)-(X2 + xx + 10, Y2 + yy + 40), RGB(red, green, blue)X2 = X1Y2 = Y1Next jNext i
Реклама