World: r3wp

:-)

otimize-optimize

What's the problem with dot? I was not voting, but must say I like 
dot. At least it looks differently from variable names, where I use 
- and _ chars.

guys, rgba to integer conversion link is dead ...

should I rambo-it? :-)

this looks like a bug to me:

>> o1: context [a: 0 rc: rebcode [x][set a x]]
>> o1/rc 3
>> ? o1
O1 is an object of value:
   a               integer!  3
   rc              rebcode!  [x]

>> o2: make o1 []
>> o2/rc 5
>> ? o2
O2 is an object of value:
   a               integer!  3
   rc              rebcode!  [x]

>> ? o1
O1 is an object of value:
   a               integer!  5
   rc              rebcode!  [x]

seems rebcodes are not rebound.

should I RAMBO it?

I think yes. needs either docu or fix.

maybe thats one of the reasons why all branches are relative? to 
easier copy on make?

submited

Thanks Petr! No need to RAMBO it. I'll look into it.

questions we need to get an answer for, especially from BrianH as 
a supplier of #3947:

Related to string COMPARE are these features:
1) case sensitive or not
2) which string is "greater"
3) index of non-equal (tail of compare)
4) find

Well after testing, it seems that the behavior of cmp is:

1) Case sensitive. Lowercase the strings for case insensitive compares.

2) If the first string is less than the second, cmp sets the return 
word to -1, equal sets to 0, and greater sets to 1. If two strings 
of different lengths and are the same for the length of the shorter 
string, the longer string counts as greater. Otherwise, the numeric 
equivalent of each corresponding character is compared.

3) You can roll your own with length?, repeatz, pick, lt.i, gt.i 
and breakt (if you want, I'll do it). The cmp opcode won't help here.
4) Use apply i find [ser val] - it'll be faster.

Still, I'm glad to see cmp, sign and asr, and the fixes are welcome 
too. I didn't know that lsr was not unsigned before - that's what 
lsr means. Good fix!

; 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