Posted: Sat May 22, 2004 12:02 pm Post subject: Can somebody explain this formula for me?
Quote:
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
Quote:
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)))
Sponsor Sponsor
Mazer
Posted: Sat May 22, 2004 1:14 pm Post subject: Re: Can somebody explain this formula for me?
congcong wrote:
Quote:
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
Posted: Sat May 22, 2004 8:22 pm Post subject: (No subject)
the image does look nice though What is it? Doesn't look like any fractal set