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

congcong

Sat May 15, 2004 1:33 pm


fractal-a leaf

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

var x := 0.0
var y := 0.0
var count := 0
var p : int
var test := 0.85
var chars : array char of boolean
var ox, oy : real
loop
    count := count + 1
    Input.KeyDown (chars)
    if chars (KEY_ESC) then
        exit
    end if
    ox := x
    oy := y

    randint (p, 1, 100)

    if p = 1 then
        x := 0
        y := y * 0.16
        drawdot (round (y * 50) + 60, round (x * 50) + 160, green)
    elsif p >= 2 and p = 9 and p = 16 and p = 2 and p = 9 and p = 17 and p