-----------------------------------

congcong

Sat May 22, 2004 12:02 pm


Can somebody explain this formula for me?

-----------------------------------


var a := 80.0
var b := 60.0
var c := 30.0
var cl : int

function hyp (a, b : real) : real
    result (sqrt (a ** 2 + b ** 2))
end hyp

for x : 1 .. maxx
    for y : 1 .. maxy
        cl := 15 + round (8 * (
            (1 + sin (
            + (sin ((x + y) / a))
            + (sin (y / b))
            + (cos (hyp (x - maxx div 2, y - maxy div 2) / c)))
            )))
        drawdot (x, y, min (31, max (16, cl)))
    end for
end for


i don't understand this part


       cl := 15 + round (8 * (
            (1 + sin (
            + (sin ((x + y) / a))
            + (sin (y / b))
            + (cos (hyp (x - maxx div 2, y - maxy div 2) / c)))
            )))
        drawdot (x, y, min (31, max (16, cl)))



-----------------------------------

Mazer

Sat May 22, 2004 1:14 pm


Re: Can somebody explain this formula for me?

-----------------------------------



       cl := 15 + round (8 * (
            (1 + sin (
            + (sin ((x + y) / a))
            + (sin (y / b))
            + (cos (hyp (x - maxx div 2, y - maxy div 2) / c)))
            )))
        drawdot (x, y, min (31, max (16, cl)))

Well obviously. Who'd you get the code from? Why don't you ask them?


-----------------------------------

Tony

Sat May 22, 2004 8:22 pm



-----------------------------------

the image does look nice though :D What is it? :? Doesn't look like any fractal set :think: