OpenEuphoria

Re: RE: assembly

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

Sorry, I was in a bit of a rush... The second block should, obviously,
read:

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

I am of course assuming you can prepare your data ahead of time ;)

jiri


----- Original Message -----
From: "Jiri Babor" <jbabor at PARADISE.NET.NZ>
To: "EUforum" <EUforum at topica.com>
Sent: Tuesday, 9 October 2001 09:18
Subject: Re: RE: assembly


>
> -- 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
>
>
>