Такая фигня получается

Это концовка анекдота: «пришла дама устраиваться секретаршей, и говорит, что может печатать текст со скоростью 1000 слов в минуту — правда, такая фигня получается» :-) Вспомнил, получив сию картинку:

pic1.jpg

Приведу код (фрагмент) — вдруг найдутся ненормальные, которые захотят повторить…


r = 282 'Rnd * 76 * i
fi = pi / xmax * 2 + 0.001
For y = 1 To ymax Step ss
For x = 1 To xmax Step ss
qx = r * (Sin(fi * x * y / 1000) - 2.5 * Sin(1.95 * fi * y))
qy = r * (Sin(fi * y * x / 100) + 2.5 * Sin(1.95 * fi * x))
qq = qx - qy ' тут можно и умножать и складывать... :-)

If (qq < -300 Or qq > 400) Then
red = Abs(qx) Mod 255
green = (Abs(qy / 2) Mod 255)
blue = Abs(qx / 2) Mod 255
Else
red = 0: green = 0: blue = 0
End If
Col = RGB(red, green, blue)
If ss > 1 Then Line (x + 50, y)-Step(ss, ss), Col, BF
If ss = 1 Then PSet (x + 50, y), Col

Next x
Next y



1 комментарий