БЛОГФорумСсылки Написать письмоПочему Арбуз? Служебная UN ЕЖЕ-движение - международный союз интернет-деятелей


Коврики...

Код смотрите внизу страницы - порисуйте, или просто посмотрите :)
































Код на VB для последней картинки табуляции пропали):

    xmax = 730
    ymax = 530
    sc = 0.25
    E = 5: F = 5
    A = 1: B = 1: C = 1: D = 1
    I = 1 / 5: J = 1 / 4: K = 1 / 4: L = 1 / 5
    For y = 1 To ymax Step ss
    For x = 1 To xmax Step ss
    xx = (x - xmax / 2) * sc: yy = (y - ymax / 2) * sc
    z = E * Sin(A * Sin(I * xx) ^ 1 + B * Cos(J * yy) ^ 1) ^ 6 _
    + F * Cos(C * Cos(K * xx) ^ 1 + D * Sin(L * yy) ^ 1) ^ 6  
    b1 = z
    If b1 < 18 Then
    b1 = Abs(b1)
    red = b1 * 2 Mod 255
    green = b1 * 22 Mod 255
    blue = b1 * 10 Mod 255
    Else
    red = 255: green = 255: blue = 255
    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

Остальные картинки получены изменением значений коэффициентов A...L. Формула эта заимствована с известной арбузникам страницы Эрика Р. Попробуйте поменять значения E и F - увидите как меняется рисунок, ну и, конечно, от других коэффициентов тоже. Занятно.

Если получите красивее - прошу в Форум, если нет - все равно....


Автор about me
Design by dady_MYKC
)c( 2000-2017
Kопирайта нет, копируйте на здоровье :)

100012 лет в Интернете


.