OpenEuphoria

Re: RE: assembly

• Posted by Jiri Babor <jbabor at PARADISE.NET.NZ> Oct 08, 2001
• 385 views

-- decompose phl sequence - try something like this:

a = repeat(0, 256)
x1 = a
x2 = a
y1 = a
y2 = a

for b = 1 to 256 do
    a = phl[b][2]
    x1 = phl[b][1][1] - 2
    x1 = phl[b][1][2] - 2
    x1 = phl[b][1][1] + 1
    x1 = phl[b][1][2] + 1
end for


-- then one level indexing is MUCH faster:

for b = 1 to 256 do
    if a[b] = i then
        ellipse(a[b], 1, {x1[b], y1[b]}, {x2[b], y2[b]})
    end if
end for

-- jiri