AltME groups: search

6502 emulater by John Niclasen:  http://www.fys.ku.dk/~niclasen/rebol/language/em6502.r

Yes, my em6502.r was a test of the speed of rebcode. It was meant 
as a proof-of-concept. I never used it much. It's for the rebcode 
found in REBOL/View 1.3.50, which was the first rebcode version afaik. 
So not compatible with later rebcode.


There also is an assembler: http://www.fys.ku.dk/~niclasen/rebol/language/asm6502.r

and a MOS 6502 workbench: http://www.fys.ku.dk/~niclasen/rebol/language/m6502wb.r

, if anyone can find some use of it.

The RebXML format is described here:
http://www.fys.ku.dk/~niclasen/rebxml/rebxml-spec.html

There is REBOL implementation of Brainfuck, if you wanna reconsider:
http://www.fys.ku.dk/~niclasen/rebol/language/bf.r

I never measured parse speed before, I just did. It can parse this 
19420 byte text:
http://www.fys.ku.dk/~niclasen/nicomdoc/math.txt
into this 56131 byte html:
http://www.fys.ku.dk/~niclasen/nicomdoc/math.html

in 0.3 seconds on my 1.2 GHz G4 Mac. The parse rules are around 1100 
lines of code. Parse is cool! :-) Good job, Carl!

6502! :-) You may wanna check out my 6502 asm and emulator written 
in REBOL:
http://www.fys.ku.dk/~niclasen/rebol/language/

amacleod, can you use NicomDB?
http://www.fys.ku.dk/~niclasen/nicomdb/index.html


NicomDB is the result of an education, I took some years ago. More 
info:
http://www.fys.ku.dk/~niclasen/nicomdb/thesis.pdf

There's also a group about it here in the REBOL3 world. See group 
!NicomDB

Navigating my public directory:
>> change-dir %"~niclasen/"
** Access Error: Bad file path: ~niclasen/
** Where: clean-path
** Near: get-modes target 'full-path

The ~niclasen directory was created automatically by path-thru (via 
load-thru).

Izkata, there's a library of bit operations with several useful functions, 
also one that can do, what you need:

>> do http://www.fys.ku.dk/~niclasen/rebol/libs/bit.r
>> enbit 546
== "00000000000000000000001000100010"

It's BSD license, so you can use it in your work.

Some syntax colors: http://www.fys.ku.dk/~niclasen/rebol/syntax-color.html

This is work in progress! First is colors for comments and values 
(as I suggest). Then colors from Carl's script color-code.r, then 
some named colors from REBOL, and last some JavaScript syntax colors, 
I found on the net.


Syntax colors for many languages seem to use green for comments. 
I prefer blue, so comments better stick out, also for people having 
trouble with red and green. Values being red seem to be widely used. 
I'll try to make an example of REBOL code with colors...

First example with test of colors: http://www.fys.ku.dk/~niclasen/rebol/example.html

My idea is to build an example, that satisfies the need. Then I look 
at implementation for the Library, so sources in the library can 
be viewed this way.


Maybe refinements shouldn't be that yellow!? Should background be 
a little gray like this? #f9f9f9 Or should it be white? The purple 
and blue might be a bit too bright compared to the red and green? 
Or should the red and green be brighter?

Henrik.  What you are doing is really amazing.  I really enjoy watching 
projects advance.  Graham, Ashley,  John Niclasen and now you have 
let us watch an immature app/style/control grow into a more mature 
being.  I thank you all for this.

A REBOL Bezier algorithm:

do http://www.fys.ku.dk/~niclasen/rebol/fysik/bezier.r

Move the points around with the mouse.

I'm still not convinced, it can be done. That there is only one solution. 
Try Canvas RPaint:

do http://www.fys.ku.dk/~niclasen/rebol/canvas099.r


And draw two points. Then start an ellipse in one point. Can you 
see, you can make infinite many ellipses going through the other 
point?

it's incredible how many people we never saw there are registered 
in R3 chat


   1 admin      Administrator              17d             [admin rank

   2 Carl       Carl Sassenrath            4:04h           [rank 80]

   3 BrianH     Brian Hawley               0:14h           [rank 70]

   4 Henrik     Henrik Mikael Kristensen   0:05h           [rank 70]

   5 btiffin    Brian Tiffin               3d              [rank 40]

   6 pekr       Petr Krenzelok             0:23h           [rank 50]

   7 feeds      Remote feeds               0:43h           [rank 10]

   8 Giuseppe   Giuseppe Chillemi          29:04h          [rank 40]

   9 Oldes      David 'Oldes' Oliva        0:01h           [rank 50]

  10 richard    Richard Westlake           29:59h          [rank 50]

  11 Graham     Graham Chiu                76d             [rank 50]

  12 tester     Example Tester             73d             [rank 10]

  13 Jerry      Jerry Tsai                 83d             [rank 50]

  14 Sunanda    Sunanda                    11:34h          [rank 50]

  15 Kaj        Kaj de Vos                 41d             [rank 50]

  16 DideC      Didier Cadieu              36:48h          [rank 50]

  17 maarten    Maarten Koopmans           102d            [rank 50]

  18 rebolek    Boleslav Brezovsky         61:27h          [rank 50]

  19 Robert     Robert M. Münch            6:30h           [rank 50]

  20 DocKimbel  Nenad Rakocevic            111d            [rank 50]

  21 cyphre     Richard Smolak             16d             [rank 50]

  22 giesse     Gabriele Santilli          122d            [rank 50]

  23 Gregg      Gregg Irwin                3:35h           [rank 50]

  24 Brent      Brent Fessler              51:13h          [rank 50]

  25 Edgar      Edgar Tolentino            52d             [rank 50]

  26 acook      A. Cook                    122d            [rank 30]

  27 Allen      Allen Kamp                 58d             [rank 40]

  28 Steeve     Steeve Antoine             0:01h           [rank 40]

  29 warp       Will Arp                   99d             [rank 40]

  30 joshua     Joshua Shireman            109d            [rank 40]

  31 Paul       Paul Tretter               12d             [rank 40]

  32 mick       nicolas schmidt            92d             [rank 30]

  33 PeterWood  Peter W A Wood             4:54h           [rank 40]

  34 sean       Sean C. Johnson            5:32h           [rank 40]

  36 fergus     Alan Macleod               11d             [rank 30]

  37 sqlab      A.Reisacher                3:17h           [rank 40]

  38 qwerty     michal tarkowski           60:38h          [rank 40]

  42 ErosZ      Eros Zoltan                108d            [rank 5]

  44 RobertS    Robert Shiplett            26:44h          [rank 40]

  45 rchifflet  G. Robert Shiplett         108d            [rank 30]

  46 perekk     Perekk                     28d             [rank 30]

  47 whispa     Jon                        108d            [rank 30]

  48 manum      Manuel Moreno              22:10h          [rank 40]

  49 mchean     Michael Chean              18d             [rank 40]

  50 claude     ramier claude              108d            [rank 30]

  52 kib2       kibleur christophe         56d             [rank 40]

  53 adrians    Adrian Sampaleanu          40:37h          [rank 40]

  54 jocko      Joseph Colineau            37:56h          [rank 40]

  55 ken        Kenneth Collins            3d              [rank 40]

  56 kealist    Joshua Shireman            76d             [rank 40]

  57 abolka     Andreas Bolka              3d              [rank 40]

  58 icarii     James Marsden              16d             [rank 40]

  59 Ammon      Ammon Johnson              19d             [rank 40]

  60 jimrichard Jim Richards               70d             [rank 30]

  61 garya      G A                        74d             [rank 30]

  62 pavel      Pavel Kebort               7:36h           [rank 40]

  63 franck     Franck Le Bihan            23d             [rank 30]

  64 claudebe   ramcla                     43d             [rank 30]

  65 Geomol     John Niclasen              22d             [rank 40]

  66 arthur     Arthur Chang               10:10h          [rank 40]

  67 zap        Ben Brannen                25:28h          [rank 40]

  68 gerard     gerard cote                61d             [rank 40]

  69 gagee      gagee                      73d             [rank 30]

  70 horscht    Reinhard Hochstein         72d             [rank 20]

  71 hasy       darek                      72d             [rank 20]

  72 nicka      Nick Antonaccio            72d             [rank 40]

  73 rebkodeur  Oehler                     72d             [rank 20]

  74 scottt     Scott Thode                31d             [rank 40]

  75 patrickp61 Patrick Potter             27:50h          [rank 40]

  76 iho        Ingo Hohmann               16d             [rank 40]

  77 bobik      Robert Paluch              69d             [rank 20]

  78 cipri      ciprian                    42d             [rank 30]

  79 shadwolf   Alphé Salas-schumann       16d             [rank 20]

  80 cwardell   Charles Wardell            67d             [rank 20]

  81 ernst      Ernst Niska                5d              [rank 40]

  82 rod        Rod Gaither                66d             [rank 40]

  83 digipal    digipal                    66d             [rank 20]

  84 awi        awi prayitno               8d              [rank 30]

  85 rich       Richard Blundell           60d             [rank 40]

  86 onetom     Herman Tamás               45d             [rank 20]

  87 anton      Anton Rolls                5d              [rank 40]

  88 jjmmes     jose                       59d             [rank 20]

  89 nicolas    longjacket                 58d             [rank 20]

  90 blazs      Blaz Segavac               7d              [rank 30]

  91 tw00167789 Liou ChinMing              7d              [rank 20]

  92 cindy      Cindy Sassenrath           52d             [rank 60]

  93 ssandrew   andrewng                   47d             [rank 20]

  94 mario      Mario Cassani              46d             [rank 20]

  95 th72       Tim Hendriks               46d             [rank 20]

  96 JohanAR    Johan Aires Rastén         4d              [rank 30]

  97 philippe   Philippe LE GOFF           44d             [rank 20]

  98 fatemanme  jonathan                   43d             [rank 20]

  99 wffsg2008  examele tester             43d             [rank 20]

 100 tk         neo                        37d             [rank 30]

 101 bardo      bardonnenche               42d             [rank 20]

 102 minkui     minkui cai                 40d             [rank 20]

 103 mikoden    Nicolas Schmidt            12d             [rank 30]

 104 fraya      Fernando Raya              23d             [rank 20]

 105 nicolasf   Nicolas Fournier           31d             [rank 30]

 106 goldevil   Karim El Founas            39d             [rank 20]

 107 louis      Louis A. Turk              38d             [rank 20]

 108 andyc16us  Andy Cragg                 37d             [rank 20]

 109 che        Christian Ensel            3:26h           [rank 30]

 110 jankom     Janko Metelko              36d             [rank 20]

 111 alanwall   Alan Crandall              35d             [rank 30]

 112 kensinglet Ken Singleton              34d             [rank 30]

 113 bga        Bruno Albuquerque          29d             [rank 10]

 114 aiwen      aiwen ming                 28d             [rank 10]

 115 james-nak  James Nakakihara           28d             [rank 40]

 116 gaagaaga   Y.C. Ling                  27d             [rank 10]

 117 morler     Morler                     27d             [rank 10]

 118 devl       Lennart Fridén             26d             [rank 10]

 119 brondoman  Greg Brondo                26d             [rank 10]

 120 ladislav   Ladislav Mecir             1:13h           [rank 50]

 121 scot       Scot M. Sutherland         15:21h          [rank 40]

 122 meijeru    Rudolf W. MEIJER           3d              [rank 30]

 123 czoller    chris zoller               11d             [rank 30]

 124 rfenske    Robert Fenske              11d             [rank 30]

 125 cofyc      Cofyc Jackson              7d              [rank 10]

 126 jackseay   Jack Seay                  4d              [rank 10]

 127 kuler      Keith Robertson            4d              [rank 10]

 128 kpeters    Kai Peters                 3d              [rank 10]

 129 acasado    alberto casado             3d              [rank 10]

 130 giancarlo  Giancarlo Valente          8:52h           [rank 10]

I've been using NicomDoc with math for almost a year and a half now 
at university. It must be one of the fastest way there is to write 
equations. Many examples of use can be seen in my notes at: http://www.fys.ku.dk/~niclasen/

NicomDoc has been moved to: http://www.fys.ku.dk/~niclasen/nicomdoc/

(NicomDoc is a document format based on MakeDoc2 with math formulas 
and some other stuff.)

I finished v. 1.0.0 of 6502 assembler: http://www.fys.ku.dk/~niclasen/rebol/language/asm6502.r

It defines the asm6502 function, which take 6502 assembler as text 
input and produces 6502 machine code (opcodes). Might be a good example 
of parsing in REBOL.

Yes, for the syntax errors it's fixed now: http://www.fys.ku.dk/~niclasen/rebol/language/asm6502.r

For labels not found, you have to search you source, where you branch 
to that label.

Ok, version 1.0.0 of BPARSE is found here:

http://www.fys.ku.dk/~niclasen/rebol/libs/bparse.r


It's a function version of PARSE, and can only parse blocks for now, 
not strings. It can do more or less all PARSE in R2 can do when parsing 
blocks. I've tried to trigger errors, R2 PARSE doesn't. The purpose 
is to play around with parsing to maybe make a better version than 
the native version and without bugs.

Tried it on rebps2pdf.r and the example found here:
http://www.fys.ku.dk/~niclasen/postscript/

Maxim, maybe a Bezier curve is what, you're after? Try
do http://www.fys.ku.dk/~niclasen/rebol/fysik/bezier.r
You can find the Bezier function inside the script.

Gregg wrote (in group Rebol vs Scheme):

I would *love* to see mini-primers on language design for Lisp, Forth, 
Logo, etc. in REBOL.

I've taken the first step for a BASIC dialect:

do http://www.fys.ku.dk/~niclasen/rebol/basic.r

It only knows a few commands so far: auto list new old
And these statements: end goto print rem run
And these functions: cos sin

I added a few new things to the BASIC:

added DELETE command, added arguments to LIST, added STOP statement 
and some more (see source). Example of use:

>> do http://www.fys.ku.dk/~niclasen/rebol/basic.r
connecting to: www.fys.ku.dk
Script: "BASIC" (24-Jun-2007)
BASIC

>auto 5 5
    5 print "Line 5"
   10 rem goto 20
   15 blab
   20 print "Line 20"
   25 stop
   30 0
>run
Line 5

Mistake at line 15
>10 goto 20
>run
Line 5
Line 20

STOP at line 25
>

The start of a BBC BASIC interpreter using string parsing: http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.r

Uploaded new version of BBC BASIC intepreter. Added expressions and 
conditions. Added IF and INPUT. Example:

>> do http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.r
connecting to: www.fys.ku.dk
Script: "BBC BASIC" (18-Jul-2007)
BASIC v. 0.0.2 

>auto
   10 input "Name",name$

   20 if name$="Carl" then print "Hi " name$ else print "Hello " name$
   30 0
>run
Name?John
Hello John

New version 0.1.0 of BBC BASIC. Added FOR ... NEXT loop. Example:

>> do http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.r
connecting to: www.fys.ku.dk
Script: "BBC BASIC" (19-Jul-2007)
BASIC v. 0.1.0 

>auto
   10 for a=10 to pi step -2.3
   20 for n%=1 to 3 step 2
   30 print a n%
   40 next
   50 next
   60 0
>run
                  10                   1
                  10                   3
                 7.7                   1
                 7.7                   3
                 5.4                   1
                 5.4                   3

New version 0.1.1 of BBC BASIC. Added many keywords, mostly functions. 
To run:
>> do http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.r

List of keywords: http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.html

Version 0.3.0 of BBC BASIC uploaded. Added the rest of the string 
handling: LEFT$, MID$, RIGHT$, STRING$ and INSTR. Added ON, that 
can change the order of execution. Added DIM, which implement arrays. 
Both for integers, reals and strings. To run:
>> do http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.r

List of keywords: http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.html

Example use of local variables. In line 70, 'a' is local, because 
it's a parameter to the procedure, 'b' is still global. After line 
80, 'b' also become local to the procedure. After returning from 
the procedure, both 'a' and 'b' are set back to their global values. 
In 'proctest', 'a' could have been called anything without changing 
the global 'a'.

>> do http://www.fys.ku.dk/~niclasen/rebol/bbcbasic.html
Script: "BBC BASIC" (27-Jul-2007)
BASIC v. 0.4.0 

>auto
   10 a=42
   20 b=1
   30 proctest(a)
   40 print "line 40 : a=";a " b=";b
   50 end
   60 def proctest(a)
   70 print "line 70 : a=";a " b=";b
   80 local b
   90 a=2:b=2
  100 print "line 100: a=";a " b=";b
  110 endproc
  120 0
>50end
>run
line 70 : a=        42 b=         1
line 100: a=         2 b=         2
line 40 : a=        42 b=         1

NicomDoc 2.1.0: http://home.tiscali.dk/john.niclasen/nicomdoc/

Added an alternate way to construct tables. Instead of the need for 
=row and =cell commands, a table can just be lines (each line is 
a row) and on each line, cells are separated by one or more tabs. 
Docs with lots of tables will shrink considerable in number of lines 
needed. The Math specification (http://www.fys.ku.dk/~niclasen/nicomdoc/math.txt) 
went from 3000 to just below 700 lines this way.

Hokus Pokus!

This is a little fun script, I'm working on, that actually may be 
useful for someone. It can change something into something else. 
First version could transform bitset! back to it's original string!, 
then I added conversion between issue! and tuple!. Now it can also 
translate between many human languages, like in this example:

>> do http://www.fys.ku.dk/~niclasen/rebol/hokus-pokus.r
>> hokus-pokus/translate "Hello, how are you?" "en2es"
== "ÀHola, c—mo eres?"


Using the /translate refinement, and the extra argument can be any 
of:
ar2en

, "zh2en", "zh-CN2zh-TW", "zh-TW2zh-CN", "en2ar", "en2zh-CN", "en2zh-TW", 
"en2fr", "en2de", "en2it", "en2ja", "en2ko", "en2pt", "en2ru", "en2es", 
"fr2en", "fr2de", "de2en", "de2fr", "it2en", "ja2en", "ko2en", "pt2en", 
"ru2en", "es2en"

translating between languages like Arabic, English, Chinese, French, 
German, Italian, Japanese, Korean, Portuguese, Russian and Spanish. 
 Yeah, it's a real Transmogrifier. Have fun!

(It may be hard to type in many of these languages with current REBOL, 
I don't know! :-))

6502 assembler v. 1.0.0: http://www.fys.ku.dk/~niclasen/rebol/language/asm6502.r

My database NicomDB, created with my friend Martin Nyberg, is going 
open source under GPL license. The plan is to release the source 
a little at a time, so we can make sure, everything is working with 
as many versions of REBOL as possible incl. the coming R3. For now, 
my original thesis for an education, I ended some years ago, is available 
at:

http://www.fys.ku.dk/~niclasen/nicomdb/thesis.pdf


It describes much of the unique concepts of this relational database.

NicomDB
First full version of index-layer with all functions is released.
http://www.fys.ku.dk/~niclasen/nicomdb/
See group !NicomDB

NicomDB index and relative layers version 1.0.0 is released.
http://www.fys.ku.dk/~niclasen/nicomdb/
See group !NicomDB

Electronic Arts IFF ILBM loader:
http://www.fys.ku.dk/~niclasen/rebol/libs/gfx/iff.r

Can handle 2, 4, 8, 16 and 32 color images, HAM6 images (4096 colors) 
and HALFBRITE (64 colors). HALFBRITE hasn't been tested yet, as I 
couldn't find such an image easily. Handle both compressed and non-compressed 
images. This is an example, where rebcode would help a lot, as a 
320x200 image can take several seconds to uncompress.
Usage:

iff-image: load-iff %some_picture.iff
img: iff-image/as-image

img now is a REBOL image!, than can be viewed like:
view layout [image img]

Version 1.1.0 of load-tga for TARGA (TGA) images:
http://www.fys.ku.dk/~niclasen/rebol/libs/gfx/tga.r

Added support for RLE (run-length encoded) images (can be produced 
with e.g. OS X Preview and most paint programs). The function can 
now load image type 2 (Uncompressed, True-color image) and image 
type 10 (Run-length encoded, True-color image).

NicomDoc v. 2.2 released: http://www.fys.ku.dk/~niclasen/nicomdoc/

- Added output for TeX (LaTeX).
- New way to specify fonts by font family.
- New way to resize fonts relative -4 ... +5.
- Scaling of images.

- Math engine had big overhaul to not be focused on semantics, but 
on presentation (less errors in practise).
- Text in code examples will be wrapped at 77 chars per line.
- Added vertical space by simply doing more newlines in a row.
- Updated all documentation and examples.

NicomDoc v. 2.1 can still be found here: http://www.fys.ku.dk/~niclasen/nicomdoc/ver2.1/

Updated RebXML scripts found at http://www.rebol.org
(Bug fixes and improvements.)

RebXML spec: http://www.fys.ku.dk/~niclasen/rebxml/rebxml-spec.html

PostScript dialect v. 0.4.4 released:
http://www.fys.ku.dk/~niclasen/postscript/postscript.r


Added replacement of some special characters, that need to be escaped.

Try the example in the start of the documentation: http://www.fys.ku.dk/~niclasen/postscript/postscript.html

PostScript dialect v. 0.4.6 released: http://www.fys.ku.dk/~niclasen/postscript/

Added PDF output via script rebps2pdf.r
See documentation!

RebXML spec: http://www.fys.ku.dk/~niclasen/rebxml/rebxml-spec.html
Scripts are in the Library: http://www.rebol.org

In case, it's needed, RebXML spec:
http://www.fys.ku.dk/~niclasen/rebxml/rebxml-spec.html

Janko,
http://www.fys.ku.dk/~niclasen/rebxml/rebxml-spec.html
http://www.rebol.org/view-script.r?script=xml2rebxml.r
http://www.rebol.org/view-script.r?script=rebxml2xml.r

I have some rather large paring rules here:
http://www.fys.ku.dk/~niclasen/nicomdoc/nicomdoc.r
http://www.fys.ku.dk/~niclasen/nicomdoc/ndmath.r
and it's very fast to create a huge document from those rules.

kib, after I parse the input to RebXML format, I parse the RebXML 
to HTML with: http://www.fys.ku.dk/~niclasen/nicomdoc/ndrebxml2html.r

So 2 huge sets of rules (3 with math) is into play, and the final 
document is there in a matter of seconds.

kib, main page is here: http://www.fys.ku.dk/~niclasen/nicomdoc/

kib, science, programming, playing piano, graphics, photo, astronomy 
... many things. My hp at university: http://www.fys.ku.dk/~niclasen/

http://www.fys.ku.dk/~niclasen/rebol/libs/math/complex.r

Just a little start, and no documentation, so you have to read the 
code to figure it out.

kib, no there isn't much graphic routines in postscript, just box, 
boxfill, image and line:
http://www.fys.ku.dk/~niclasen/postscript/postscript.html

I don't know, if anyone has done something similar in REBOL. There 
are demos flying around. I made a very simple Bezier demo once:

do http://www.fys.ku.dk/~niclasen/rebol/fysik/bezier.r

It could be a start to make something better and more beautiful.

You can see the bit patterns with this code:

	do http://www.fys.ku.dk/~niclasen/rebol/libs/bit.r
	enbit i/lo
	enbit i/hi

Links to some of those projects:
http://www.fys.ku.dk/~niclasen/rebol/language/asm6502.r
http://www.fys.ku.dk/~niclasen/nicomdoc/
http://www.fys.ku.dk/~niclasen/postscript/
http://www.fys.ku.dk/~niclasen/rebxml/rebxml-spec.html

Related; bparse.r is REBOL block parsing as a function:
http://www.fys.ku.dk/~niclasen/rebol/libs/bparse.r

Here's a MOS 6502 emulator written in rebcode, I made over the last 
few days:
http://www.fys.ku.dk/~niclasen/rebol/language/em6502.r

Well, I am at the command prompt, I did a do http://www.fys.ku.dk/~niclasen/rebol/language/em6502.r
and the prompt is here again. What could I do ?

To make a little test:
do http://www.fys.ku.dk/~niclasen/rebol/language/asm6502.r
do http://www.fys.ku.dk/~niclasen/rebol/language/em6502.r
ram: asm6502 "lda #&01 adc #&02"
em6502 ram 0

A first version of a MOS 6502 workbench tool is ready:
do http://www.fys.ku.dk/~niclasen/rebol/language/m6502wb.r

It'll load the 6502 assembler and emulator. It's a tool to compile 
6502 assembler programs to machinecode and run it with the rebcode 
emulator. It's possible to see the 6502 registers and flags. Both 
asm6502.r and em6502.r has been updated.

Reminds me of the START project at MIT.
http://start.csail.mit.edu/


Remember the strange hokus-pokus REBOL script, I wrote some years 
ago?

>> do http://www.fys.ku.dk/~niclasen/rebol/hokus-pokus.r
>> hokus-pokus "What is the highest point in Canada?"

Canada
highest point: Mount Logan 5,959 m

>> hokus-pokus "What is the volume of the Earth?"

The volume of Earth is 108.321  (1010 km3).

etc...

I've made a layer demo to test performance in R2 and R3. The demo 
is coded for R2 using FACE, but I guess you guys can easily convert 
it to R3 using GOBs.

do http://www.fys.ku.dk/~niclasen/rebol/test/layer.r


Use mouse to move squares around. Right-click a square to remove 
it. In the source, you can change the offset and size of the window 
in the beginnig, where playground is defined. The demo produce 100 
squares. A little down, there is the
loop 100 [
Change that to have more squares.
I hope, it can help.

Playing with icons: http://www.fys.ku.dk/~niclasen/rebol/R3/icons.png

Another icon example: http://www.fys.ku.dk/~niclasen/rebol/R3/gold-blue.png

It's easier to illustrate it with an image: http://www.fys.ku.dk/~niclasen/rebol/random-dist.png

The x-axis is the possible IEEE 754 numbers going from 0.0 to 1.0. 
The y-axis is how many 'hits' ever possible number gets, when doing 
RANDOM 1.0. Every gray box holds the same amount of possible number, 
namely 2 ** 52. I use the color to illustrate the density of numbers. 
So the numbers lie closer together at 0.0 than at 1.0.


The destribution is of course flat linear, if the x-axis was steps 
of e.g. 0.001 or something. There is the same amount of hits between 
0.001 and 0.002 as between 0.998 and 0.999. It's just, that there 
are many more possible numbers around 0.001 than around 0.999 (because 
of how the standard IEEE 754 works).

Ladislav, I've tested random some more. The equal sign, =, is used 
to test in the end of RANDOM, if the result should be changed to 
0.0. This will change more values, than if =? was used. I use =? 
in my test. My test goes like this:

REBOL [
	Title:		"Random distribution test"
	Author:		"John Niclasen"
]

random/seed now
dist: clear []	; distribution
tt62: to integer! 2 ** 62
a: tt62 - 1024
loops: 100000
loop loops [
	i: random 1024
	if i > 512 [i: i + a]	; test close to 0.0 and close to 1.0
	y: i - 1 / tt62 * 1.0
	if y =? 1.0 [y: 0.0]	; the result of random 1.0
	y: form y
	either find dist y [
		dist/:y: dist/:y + 1
	][
		repend dist [y 1]
	]
]
while [not tail? dist] [
	dist/1: load dist/1		; change strings back to decimals
	dist: skip dist 2
]
dist: head dist
sort/skip dist 2	; sorting distribution
print dist
mean: 0.0
foreach [value count] dist [
	mean: value * count + mean
]
mean: mean / loops	; calculating the mean value
print mean	; this should be 0.5


The test is testing values close to 0.0 and close to 1.0. Notice 
the high count of 0.0 result compared to other low values. Also notice, 
how the mean value is close to 0.25, where it should be 0.5. Try 
out-comment the change of y to 0.0. Then the result will be much 
better.

I tested this:
dt [a: 1. b: 2. loop 10000000 [a + b * a / b]]
and this:
do http://www.fys.ku.dk/~niclasen/rebol/r3/mandelbrot.r

Postscript dialect: http://www.fys.ku.dk/~niclasen/postscript/postscript.r

Documentation: http://www.fys.ku.dk/~niclasen/postscript/postscript.html

Test (see also documentation): http://www.fys.ku.dk/~niclasen/postscript/test.txt

A simple test page: http://www.fys.ku.dk/~niclasen/postscript/test.ps

Minor update of the documentation: http://www.fys.ku.dk/~niclasen/postscript/postscript.html

PDF output from the PostScript dialect is ready for some test. The 
script is here:
http://www.fys.ku.dk/~niclasen/postscript/rebps2pdf.r

It works the same as the postscript.r script:
http://www.fys.ku.dk/~niclasen/postscript/postscript.r
(which has been updated, as I found some problem with comments)

Example of use:

do http://www.fys.ku.dk/~niclasen/postscript/rebps2pdf.r

write/binary %pdftest.pdf rebps2pdf load http://www.fys.ku.dk/~niclasen/postscript/pdftest.txt

Now you should have a local %pdftest.pdf file, that looks like:
http://www.fys.ku.dk/~niclasen/postscript/pdftest.pdf

Pekr, do you try to open this?
http://www.fys.ku.dk/~niclasen/postscript/pdftest.pdf

I updated:
http://www.fys.ku.dk/~niclasen/postscript/rebps2pdf.r
and http://www.fys.ku.dk/~niclasen/postscript/pdftest.pdf

How does it look now?

Ver. 0.4.7 of PostScript dialect incl. PDF output uploaded:
http://www.fys.ku.dk/~niclasen/postscript/


- I included font widths in rebps2pdf.r instead of separate binary, 
and
- fixed a bug.

Do you guys see the same result in this script:
do http://www.fys.ku.dk/~niclasen/rebol/test/transform.r

if you try it on Mac, Windows and Linux (or any other View version 
supporting the DRAW dialect). The circle, line and triangle should 
be lined up.

Cyphre, you can see the transform bug here: http://www.fys.ku.dk/~niclasen/rebol/transform-bug.png

ICarii, as mentioned, I made a floodfill in my paint program. You 
can try it with:

do http://www.fys.ku.dk/~niclasen/rebol/canvas099.r
(Works best under Windows.)


On a modern computer, it fill with about the same speed in REBOL 
as DPaint did on an A500 computer 20+ years ago. I also made a rebcode 
version, which fills the entire screen almost instantly. That version 
isn't out there.

Many games operate with Truevision TGA image files, also known as 
TARGA file format. I've made a function to load such a format:
http://www.fys.ku.dk/~niclasen/rebol/libs/gfx/tga.r
Usage:
i: load-tga %some-file.tga
img: i/as-image


img is now a REBOL image! type image, that can be viewed as normal, 
e.g.:
view layout [backdrop black image img]

I'd like to nominate John Niclasen (aka Geomol)

I'll third the nomination for John Niclasen

Motion to close nominations.  List of entries include Graham Chui, 
Kal de Vos, Nenad Rakocevic, John Niclasen, Sunanda.

Point of information.  The offifical list of 2011 rebol Of The Year 
nominations is:
Graham Chui
Kal de Vos
Nenad Rakocevic
John Niclasen
Sunanda

Rebolek, about documentation, feel free to use NicomDoc: http://www.fys.ku.dk/~niclasen/nicomdoc/

It can easily produce HTML output as (MakeDoc), but also PDF output 
by first producing LaTeX.

It would be good, if you are right.


As an example of my use of R2, and where I can't use R3, look at 
this image:
http://www.fys.ku.dk/~niclasen/bachelor/dist.png


I'm working on my bachelor project in astronomy at the university. 
I'm going to make a simulation of comets at the Late Heavy Bombartment 
some 3.9 bio. years ago to test a theory, that the water on Earth 
came from those comets. A part of my work is to study earlier simulaitons 
of 10'038 comets made by others. I would like to see, how the distribution 
of their initial situation looked, so I made a little REBOL script, 
that plotted the 10'038 comets and the orbits of the planets, Jupiter, 
Saturn, Uranus and Neptun. The image is showing this. It took me 
very little time to write the script in R2, and I can use the result.

Can you see, I can't use R3 for such things?

Another option:

>> do http://www.fys.ku.dk/~niclasen/rebol/libs/bit.r
>> enhex 100 
== #{00000064}

I went through the scanner systematically 2 years ago, produced a 
document, which I sent to Carl. It's here:
http://www.fys.ku.dk/~niclasen/rebol/rebol_scanner.html

Stats about audience for
http://world-lang.org
after the first 5 days of countdown.

See: http://www.fys.ku.dk/~niclasen/world/stats_20111128.png

Reached 1000 pageviews.

Stats about audience for
http://world-lang.org


Overview: http://www.fys.ku.dk/~niclasen/world/overview_20111204.png
Stats: http://www.fys.ku.dk/~niclasen/world/stats_20111204.png


Earlier stats: http://www.fys.ku.dk/~niclasen/world/stats_20111128.png

On OS X, World seems to be fussy about which directory it is launched 
from:

Rodney:Simple-Test peter$ cd ~/Languages/World
Rodney:World
 peter$ ./world

Loading Cortex... Done

World/Cortex 0  Copyright (c) 2009-2011 John Niclasen, NicomSoft

build: Dec  3 2011 11:27:45

w> .

Hello, World!
w> tes
t
== true
w
> quit

Rodney:World peter$ cd ~/Code/Rebol/Simple-Test

Rodney:Simple-Test peter$ ~/Languages/World/world

World/Cortex 0  Copyright (c) 2009-2011 John Niclasen, NicomSoft

build: Dec  3 2011 11:27:45

w> .

** Error: . has no value

** Near: .

w> test

** Error: test has no value

** Near: test

w> quit

First try on a World Map:
http://www.fys.ku.dk/~niclasen/world/World_Map.html

Made with FreeMind and exported as Flash.

New World Map at:

http://www.fys.ku.dk/~niclasen/world/World_Map.html


I freshed it up with some colors, which is also informative, added 
system, sys-utils and net-utils, added icons for parts with issues 
and added parts not implemented yet as grays.