World: r3wp

; Index of non-equal, 1-based, assumes indexes within bounds
length? x a
length? y b
gt.i x y
ift [set.i x y]
repeat i x [
    pick x a i
    pick y b i
    eq.i x y
    breakf
]
; i = first non-equal index

It would probably be better to do case-sensitive compares anyway, 
as it would allow you to compare binaries. Character case needs code 
pages and such to work anyway when you have Unicode, or languages 
other than English.

View1.3.61 is out. http://www.rebol.net/builds/

Anton, thanks for announcing, as I forgot to mention above that was 
the version I was testing with :)

Just uploaded rebcode for tracing 2 colored bitmaps (it's not perfect, 
I think it can be optimised) but at this moment I have what I needed....

do http://box.lebeda.ws/~hmm/rebol/projects/vectorize/latest/vectorize.r

probe vectorize http://box.lebeda.ws/~hmm/rebol/projects/vectorize/latest/img41.gif

It's possible that some situation will not be handled, but I was 
already able to convert two alphabets from bitmap to vectors using 
it.

what is the result of vectorize function? draw dialect surely not

probe ctx-vectorize/to-pairs vectorize http://box.lebeda.ws/~hmm/rebol/projects/vectorize/latest/img41.gif

I'm not using pair as there is no support for them in rebcode

to-pairs function returns some a lot of negative pair! , why is the 
image shifted?

because i use it to make font from the bitmap and there is the y 
axis counted from below, you may also aske why there is the innerLine 
(it's because to render the hole correctly there must be correct 
direction - it could be done in the rebcode, but I found it when 
I had the inner tracing done and don't want to do it again - so I 
just changed the "line" to "innerLine" and must fix it in the to-pairs 
function -> for outer shape I use append and for holes insert :)

I should probably remove to to-pairs function from the vectorizer's 
context, and use it alone

here is example how to use it in real life: do http://box.lebeda.ws/~hmm/rebol/projects/font-tools/latest/test.r

It would be nice to have possibility to use embedded fonts in Rebol 
as it's possible with Flash.

http://www.complang.tuwien.ac.at/papers/ertl%26gregg04pact.ps.gz

I probably missed something, how can I read *.ps files?

Click on them in linxu? Hmm, there is ghostscript for windows too 
somewhere.

Mybe google has html in its cache, but i lost the search-page.

What is the advantage of using *.ps files? Is it at least interesting 
reading?

It was the interesting reading why i choosed it. did not realize 
the *.ps

about building a native compiler from an interpeter.

ech 10MB of download just to read a simple text file, I'm not going 
to read it today.

abstract: http://csdl2.computer.org/persagen/DLAbsToc.jsp?resourcePath=/dl/proceedings/&toc=comp/proceedings/pact/2004/2229/00/2229toc.xml&DOI=10.1109/PACT.2004.10021

you can convert ps to pdf on http://www.ps2pdf.comfor free

...and it works well!

here is example of simple cells animation with custom rebcode's preprocessor 
--> do http://box.lebeda.ws/~hmm/rebol/projects/boids/latest/rc-cells-1.r

hehe funny! :-)

hm, but now I want to work with decimals as well and wonder if will 
be faster to use block to store the cell variables, or if I will 
use my own decimal format and binary structer as I'm using now

how to write: [ 2 ** exponent ] in rebcode?

stupid question:) mul.d i i

mul.d i i is i ** 2 and not 2 ** i

2 ** exponent:

set a 2.0
log-e a
mul.d a exponent
exp a

or you can use set a 0.693147180559945 to save one instruction

thanks, but kru, I will save instruction but will deal with rounding 
error:

>> x: rebcode [exponent][set a 2.0 log-e a mul.d a exponent exp a 
return a] x 3.0
== 8.0

>> x: rebcode [exponent][mul.d exponent 0.693147180559945 exp exponent 
return exponent] x 3.0
== 7.99999999999999

interesting, it looks it will be faster to use rebol blocks to store 
Rebol values instead of binary format I used in the cell example 
before (which was faster in the early rebcode versions)

do http://box.lebeda.ws/~hmm/rebol/projects/boids/latest/rc-cells-2.r
  <--- same like the version 1 but without the rebcode preprocessor 
using Rebol block to store cell variables instead of the binary format.

how do you tell the speed difference? I can't see it....

It's not in the script, I did local tests.

how great is the speed difference?

using rebol block is 3x faster

that's quite a lot...

how to get random number between 0 and 1?

I generate random number from 0 to milion and divede it by milion

:) i fought there will be better method

so it's: rnd: rebcode[][set d 1000000000 randz d to-dec d div.d d 
1000000000.0 return d]

how to write atan2(sin,cos) in rebcode?

Oldes, can we include rc-cells on the rebcode demo page?

yes, why not