AltME groups: search

foreach [style obj] svv/vid-styles [if all [obj/init find mold obj/init 
"-1x-1"][print style]]
BASE-TEXT
VTEXT
TEXT
BODY
TXT 
.....
print mold svv/vid-styles/text/init

Andreas thanks for that.... 


that is exactly why I spent a day re-organizing my code base so that 
the host and the CGR system are now almost separate.  

its now very easy to see what little changes are required for CGRs 
to work.  


though a few tweaks in the host would make CGRs a bit faster and 
simple to use.

BASE-TEXT/init assumes that font/colors is a series, which means 
that this makes an error:

>> view layout [text "Hello" font svv/vid-styles/FIELD/font]

** Script Error: change expected series argument of type: series 
port
** Where: forever
** Near: change font/colors font/color
if none?

It is the third line where the error occurs.
>> print mold svv/vid-styles/base-text/init
[

    if all [not flag-face? self as-is string? text] [trim/lines text]
    if none? text [text: copy ""]
    change font/colors font/color
...

( and various text styles inherit base-text's INIT )

AFAIK this  periodical things may clash. like 1/3. There  are values 
which work perfectly with one base and have periods in another. and 
then there are never enough digits. But i may thinking wrong.

which is why BCD exists.  these actually are a base-ten counting 
system.

I guess, we can think of it this way: some values like 0.1 to computer 
floating-point system is like square-root 2 or pi to our human base-ten 
system.

There are just some real numbers, that we can't write down with our 
base-ten system. The same way, computers can't handle some values 
completely.

Maybe there is some nice and elegant solution via dunno what - debase/base 
or some other conversions, or struct, dunno - I am not really expert 
here :-)

Pekr: "I did not find an easier way, so I parse for E, then I distinguish 
the sign, the number -5 in above case, and then I compose the string 
:-)"
!> a: 123.456 reduce[to integer! a remainder a 1]
== [123 0.456000000000003]

Maybe the base for something better (dont know how easy that parsing 
is?)

form-decimal: function [num][tmp main rest sign base][

     either found? find tmp: to-string num "E" [

              parse tmp [
                 copy main to "."
                 skip
                 copy rest to "E"
                 skip
                 mark: (sign: copy/part mark 1)
                 skip
                 copy base to end
               ]


        either sign = "-" [

                tmp: "0."

                loop ((to-integer base) - 1) [insert tail tmp "0"]
                insert tail tmp rest
        ][
                tmp: copy ""

                insert tail tmp join main rest

                loop ((to-integer base) - (length? rest)) [insert tail tmp "0"]  
                    
                           
        ] 
     
      tmp                 

     ][num] 

]

form-decimal: func [num /local tmp main rest sign base][

     either found? find tmp: to-string num "E" [

              parse tmp [
                 [copy main to "." 
                  skip
                  copy rest to "E"
                  |
                  copy rest to "E"
                  (main: copy "")  
                  ]
             
                 skip
                 mark: (sign: copy/part mark 1)
                 skip
                 copy base to end
               ]


        either sign = "-" [

                tmp: copy "0."

                loop ((to-integer base) - 1) [insert tail tmp "0"]
                insert tail tmp rest
        ][
                tmp: copy ""

                insert tail tmp join main rest

                loop ((to-integer base) - (length? rest)) [insert tail tmp "0"]  
                    
                           
        ] 
     
      tmp                 

     ][num] 

]

On 6-October Volker posted this reply:


Pekr: "I did not find an easier way, so I parse for E, then I distinguish 
the sign, the number -5 in above case, and then I compose the string 
:-)"
!> a: 123.456 reduce[to integer! a remainder a 1]
== [123 0.456000000000003]

Maybe the base for something better (dont know how easy that parsing 
is?)

e is a constant - log is base 10 by default, ln (natural log) is 
base e

how can I get some deeper context words? :-) I just wanted to check, 
if request-date finally uses system structure month/day names, so 
I sourced it:

request-date: func ["Requests a date." /offset xy][
    result: none
    if none? base [init]
    either offset [inform/offset date-lay xy] [inform date-lay]
    result
]

how to easily do base conversion? e.g. working with bitmasks, I want 
to be easily able to obtain e.g. 255, #FF, "11111111"

ah, probably enbase/base #{FF} 2 ..... I just wrongly tried with 
#FF ..... but then each char got converted separately ...

I also found Sunanda's 'base-convert.r script, so forget my question 
....

a /base needs <1mb AFAIK.

They can serve as a base to implement the full unit test for Rebol, 
and save time.

>> debase/base to-hex 15 16
== #{0000000F}

That's easy, you just set a conversion function at the beggining 
of your app, picking a bigendian or littleendian one based on the 
platform, and then just use it like a black box. A bigger problem 
is that struct! is currently only available on /Pro, /View/Pro or 
/Command, which means that you can't run the code on Mac right now 
anyways. Making struct! available in /Core and /Base has been requested 
though.

Still, it's not in Core or Base yet. Probably will be in REBOL 3 
though.

Bit-shifting

One way to do bit-shifting is to multiply or divide with (2 ** positions). 
To make the code more readable, I could start making a shift block:

shift: []
repeat i 16 [append shift to-integer 2 ** i]

== [2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768 65536]

To e.g. shift the number 123 left 5 positions, you do:
123 * shift/5
== 3936
To check, that 3936 is actually 123 shifted left 5 positions:
>> enbase/base debase/base to-hex 123 16 2
== "00000000000000000000000001111011"
>> enbase/base debase/base to-hex 3936 16 2
== "00000000000000000000111101100000"

To shift 3936 right 5 positions:
3936 / shift/5
== 123


As long as the numbers are not close to 4 byte long integer (2 ** 
32), we don't get number overflow.

Here's what I use:

    hex: func [
        {Returns the base-10 value of a hexadecimal number.}
        value [integer! string! issue!] "A hexadecimal number"
    ][

        ; Convert to an issue first, so integers can also be translated.
        to integer! to issue! value
    ]

thanks, I've found this http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?color=yes&script=base-convert.r
from Sunanda, I'll try it.

Anybody knows, why there is such a difference between result of 'stats 
and the memory usage shown in tools like 'top or 'taks-manager? For 
example I found, that if I run a script under rebol/base in linux 
and do stats I get something like 1.7MB but in the 'top I see memory 
usage more than 5MB. The same it is under windows - pure rebol/base 
has les ten 1MB but almost 4MB in the task-manager. Strange is, that 
rebol/base shows me more memory usage in 'top, then rebol/core, but 
rebol/core more if I use 'stats.

Does anyone here use later betas on an ongoing basis

 REBOL/View 1.2.10.3.1 30-May-2003, as it's a good match for the latest 
 [working] SDK  (REBOL/Encap 1.2.0.3.1). It is frustrating how REBOL 
 has become more and more "write once, test everywhere" over time 
 - hopefully /Platform will provide a unified base so we don't have 
 as many of these "which version(s) of View does this work" on type 
 issues in the future.

AFAIK, 'options is used only by window level face. Others are used 
by View as 'face is the View base object.

svv/vid-face is the VID default face, with more properties that you 
can used more safely.

SteveT, using faces directly with MAKE is a lower level approach 
than LAYOUT. What LAYOUT does, is produce a face object that consists 
of many subfaces from your layout description written in the VID 
dialect. Each one of these face objects have settings for size, offset, 
appearance, text content, etc, which are set as the layout description 
is parsed. Using MAKE FACE directly provides greater control, but 
is more cumbersome to use, because you have to set all these values 
manually and arrange the face tree manually. You can see the content 
of the base FACE object in the console with:

>> ? face


The FACE object is the only object ever used, so it's a good idea 
to get to know it. You can extend it with more values and VID does 
this, to create variants, modes and extra operations on a face, like 
SET-FACE, GET-FACE, etc.


The reason why many choose to skip VID for this, is that VID doesn't 
provide the level of control needed as some things can't be determined 
properly at layout time, such as interdependency of sizes or offsets 
between faces, which is why VID doesn't support easy resizing out 
of the box.


Oh and when you get to try VID3 in REBOL3, forget everything I said, 
because it's a whole different system. :-)

No, when using DO, it will not be a dialect, just normal REBOL code.


Before you do anything with it, the block is just a chunk of data. 
A dialect involves some kind of processor that you write or exists 
in REBOL already, which you then apply to the chunk of data, but 
is not the base scanner (the main language parser).

One pist could be to systimatically clone itch widget having them 
in two ways the first one would be a redered form based on face the 
other one would be based on field and will have stricly the same 
setting than it twin  If the rendered widget recive a mouse down 
even then we substituate the redered widget base on face by it's 
clone base on field  once this last receive a key  enter  event type 
we affect the clone content to the redered widget .... But with this 
system pref will be verry slow !!! and memory consumsion will be 
twice important ...

Last thing the pointer is slow on hudge text because of this F***King 
mad system base on caret  to handle the cursor position you store 
the current text that belongs after the cursor Writing and rewriting 
every time into this caret buffer the most part of the document is 
super slow  !!!

3) the Wiki should be shared, as a growing knowledge-base

Paul, I don't see how makedoc can do that because one of the goals 
was to having simple tagging where the input source is very readable. 
For these the line prefix (===, ---, ... etc) is that simple tagging. 
To be able to differentiate any value you would have to tag it independently 
and a general template can't know what you want to do.  

If you change the base makedoc to use an external stylesheet instead 
of the embedded styles in the template, you are a long way to getting 
what you want. Combine that with the few special tags you need and 
you can accomplish a lot within the design goals noted.

You can do that to shuffle the base zip file to where you need it, 
but eventually you'll have to unpack that to a native Syllable partition

The closest route to doing this would be to recreate the old manual 
way of installation. Copy the base zip package to a FAT partition. 
Download the last boot floppies that were available for old Syllable 
versions. Follow the old manual installation procedure

Yes, your best chance would be to install the last Syllable with 
boot floppies (the last floppies worked for a few more versions, 
but I don't remember which), then unzip the complete 0.6.0a base 
zip over it. You'll have to edit the /boot/boot/grub/menu.lst as 
well

And yes, we fully intend to port REBOL 3 to Syllable. Orca allows 
us to use it in the open-source base system

So we use ORCA in the base system to increase the level of REBOL, 
and we could run REBOL 3 applications on top

But as I've already said here before, we're already using ORCA for 
some scripting. Because the base system has to stay open source

Not in the base distribution, but you only have to install the Developer's 
Delight package, and maybe a few other individual packages depending 
on what you want to compile

The whole base of our project is doing things better than other systems. 
That's Linux in the first place, because we're using the same open-source 
parts. So we always get a lot of criticism from Linux fanboys for 
even trying. They're at least as good in FUD as they say Microsoft 
is towards Linux

But this is still between free software fans. Once we announce that 
we are going to ship closed, proprietary REBOL in the base distribution, 
we will get into a whole other fight about violating open-source 
purity

So the strategy is to use ORCA for simple system parts, to keep the 
base system open source

The first phase, building the base Linux, was mine. Now it's up to 
our project leader to port the Syllable stuff. I think I'm going 
to push him like we push Carl. :-) Actually, I'm hoping he will feel 
the pressure from people like you asking for it :-)

OK. It's not really something that qualifies for our criteria to 
ship in the base system. We wouldn't include Apache, but most of 
the REBOL stuff is so tiny that we might as well throw it in :-)

I'm saying that you need to lower the barriers to entry until you 
have a large enough user base that you don't have to care anymore.

The new features are not complete yet, but the base functionality 
works better than the current 0.2 release

Kaj, please make a XEN DomU out of it. I will give it immediatly 
a try. I'm searching for a base distro that can be used to create 
a complete application stack.

This release focuses on maturing existing functionality, improving 
security, ongoing system restructuring, and making the system a suitable 
base for third-party package managers.

Elevator pitches depend on the person you give them to. If someone 
knows Syllable Desktop, you can tell them that Server has the same 
base, so the same advantages in simplicity, clear system layout and 
software management. We mean to make as much Syllable Desktop software 
as we can also available on Server

Yes, BerkeleyDB was one of the oldest and most popular open source 
databases before Oracle acquired it. Many open source packages require 
it. We would rather have kept it out of the base system, but one 
such package is in the Syllable Server base system; I believe IPRoute

Server is not yet very suitable for people such as Graham, who have 
lists of requirements that vary a lot from year to year because they 
want to cherry-pick it from the entire open source pool. But if you 
have a well defined set of software choices, and especially if you 
would like to package that up appliance style for customers, Syllable 
is a good base to do that on

Do you know developers base of Haiku? Is that similar to Syllable, 
or bigger?

I also hope that some REBOL oldtimers will give R3 a try. It is nice 
that there is at least one OS (Syllable), who openly mentions REBOL 
to the user-base. Maybe similar situation could be done for AmigaOS 
and/or Haiku.

Ahh. "3.9 Building the Syllable base system" at http://syllable.cvs.sourceforge.net/viewvc/syllable/syllable/system/apps/utils/Builder/README
: "At the time of writing, it is not possible to give a definitive
instruction for building the entire Syllable base system." :(((

At the time of writing, it is not possible to give a definitive
instruction 
for building the entire Syllable base system.
 :(((

Debian, as many small Live Cds use it as a base

And then, I download Rebol View 2.7.6 for Fedora (http://www.rebol.com/downloads/v276/rebview-fedx86.tar.gz) 
and it run perfect in a Kubuntu 8.10 CD-Live, better than Rebol View 
2.7.6 for Libc6, Debian (http://www.rebol.com/downloads/v276/rebview-linx86.tar.gz),for 
the last you need to install libstdc++5 and gcc-3.3-base.

I have put eeeBuntu on a LiveUSB (the base version was only about 
600 Mb ISO ) and may install that as my debian

I've tried that but it doesn't work, it requires to downgrade several 
other key packages like gcc-base, messing up the whole system. Anyway, 
it's no more an issue to me now, I've droppped View completely in 
all my webapps replacing with third-parties libs or services (like 
ReCaptcha).

I have X11 fonts installed (I think):  xorg-x11-fonts-base-7.1-2.1.el5, 
xorg-x11-fonts-truetype-7.1-2.1.el5, etc..

It would only execute on startup of /Core, /View, /Command or /Command/View 
though, not /Base, /Pro or /Face.

you can even make the base then I will enhance them if you prefer 
...

I'm preparing a complicated SVG image make with inkscape to have 
a good working base

in all cases SVG in rEBOL/View is only a common base to allow lot 
of reuse of this format you have 20  draw/AGG guru around the world 
and 200 .000 SVG drawers that use WebBRowser Plugins and SVG EDITOR 
like photoshop, the gimp or InkScape ...

view plug-ins should change it a bit, as some things needing speed 
could help a bit, although I fear View would have to be recoded. 
I do remember Dave Haynie (dunno if you know Amiga :-), he once told 
me (in some interview), that they coded they own "small os" under 
Windows, when they wanted to get good base for Scala Multimedia ...

http://www.epsitec.ch/cresus/documents/base-f.php- All in AGG! Other 
companies using AGG here - http://www.antigrain.com/customers/index.html

Though I'm not sure:

>> to string!  debase/base "SDbXzuPvK4tsiGnHOia5dA==" 64

== "H6????+?l?i?:&?t"

http://code.google.com/p/js-test-driver/
this seems to be some serious shit...

the guy who is writing the angular.js framework can run 300 unit 
tests in 400ms on the 10K lines code base.

Introducing QuarterMaster: Yet Another Web Framework that I'm probably 
going to have to take time to document properly: http://www.ross-gill.com/QM/


In short, it is designed around the MVC pattern.  It is open source 
(license tbd).  Tries to be lightweight, but could use some work. 
 Tries to be as thin a wrapper to Rebol (/Core, /Base, whatever) 
while providing key functions for creating web sites/applications. 
 Includes a flat-file dbms out the box, which generally works.  Currently 
coded to work with Apache (needs mod-rewrite and 'request-uri' env 
variable), but should eventually be httpd agnostic.  Please try, 
please test.  I will answer all and every question (within reason). 
 All suggestions considered with an open mind...

Group: !QM

yes, it works (win2000Pro).
system/options/binary-base: 64
the-lib-txt: 	compress to-string read/binary %test.dll
the-lib: 	load to-binary decompress 64#{...}
write/binary %test.dll the-lib  

will also test later with debian.

Funny thing: on my linux VPS the SDK : /Base /Pro work. Rebcmd gives 
the following error:

Getting an error on an ecapped script...works fine as script though:

** Script Error: base-effect has no value
** Where: do-facets
** Near: base-effect
** Press enter to quit...

Sounds like I'm missing an include but I have:
#INCLUDE %"../../../rebol-sdk-276/source/mezz.r"
#INCLUDE %"../../../rebol-sdk-276/source/prot.r"
#INCLUDE %"../../../rebol-sdk-276/source/view.r"
and just in case I tried adding:
#INCLUDE %"../../../rebol-sdk-276/source/gfx-colors.r"
#INCLUDE %"../../../rebol-sdk-276/source/gfx-funcs.r"

It crashes when I request-dir

Found the error in the view-request.r source code:
backeffect base-effect
Not sure what it does but commneting it out fixes the problem..

I guess its just some undefined backdrop color/effect - base-effect

base-effect is an effect block. In the Rebol/View console:

	>> base-effect
	== [gradient 0x1 180.200.180 120.140.120]

Not sure yet where it is defined though.

ofcourse parsing a string with any language is a ground base (one 
of the 1st exercice of coding a studient will learn )

It could be a good base for a remote Wiki editor. Just add an HTML 
generator to convert to static pages tree.

automatic persistent storage... i've done it, as the base of "your 
values!". wish i had the time to pursue that.

Regarding the conclusing I find this base less. There is nothing 
missing in Scheme. The first Rebol interpreter was written in Scheme. 
I already said this both languages are Turing complete so they can 
perform the same computations. As I said the topic of compilation 
vs interpretation is arid regarding PLD. But compilation vs compilation 
is important for performance considerations and for bootstrapping.

Gabriele, "brainfuck is turing complete, but don't tell me it's the 
same as scheme".  Well it depends on what you mean by sameness. I 
am using Turing Complete as the base of the definition. Because if 
the language is Turing Complete you can construct an emulator of 
any other language. After all that is needed is bits, memory and 
register to carry out any computation. It maybe hard to make a Rebol 
interpreter in brainfuck but it is certainly possible.

http://www.humanized.com/enso/words/<--- This seems like a good 
starting point for a full REBOL desktop. Remove Windows and base 
the input system directly on that. Nice and quick.

You....can't....tell???  Brian...Brian....Brian....dude...


We feel that ensuring the survival of the human race by helping it 
colonize a new planet is both a moral good in and of itself and also 
the most likely method of ensuring the survival of our best – okay, 
fine, only -- base of web search volume and advertising inventory,” 
Page added. “So, you know, it's, like, win-win.

Petr re nails;  I don't think so ... maybe, but not in the grand 
scheme.  I only got into flash because Oldes has a REBOL dialect. 
 I only got into REBOL, because it Rocks!   Feel sad for those that 
don't get it.  It really is a "secret weapon" for those that use 
it.


If you believe the TIOBE numbers, REBOL is still well below 0.09 
percent (the lowest they list of the top 50)  We have lots and lots 
of wiggle room.   Paul's new database, Henriks work on Forum, the 
Doc, R3; all positive moves.  I think the only thing that may give 
REBOL a 'quick explosive adoption boost' is a Free Software announcement, 
but I like and respect Carl's decision in that area.  So slow and 
steady may win the race in the long haul.   REBOL is well beyond 
the 'hype' phase and we still love it.  And every few days now, people 
like John give others yet another reason to check it out.  Long live 
R2, Longer live R3.


Once Reichart gets his empire built, that will only be another boost 
to the public face of REBOL as well.   Gabriele, BrianH, Ashley, 
 Graham, umm everybody; making large and small contributions adds 
to the fire.


Well and you doing some high level marketing can't hurt either.  
Keep it up and keep digging.  REBOL is in for the duration from what 
I can see.  And hey, I'm trying my best to drag some of the up and 
coming coders on compsci.ca to the REBOL light.  At least we know 
that REBOL is not a flash in the pan.   We do need to promote people 
like Sunanda a little more perhaps.  The base of rebol.org is terrific 
but it's mosly hidden, much like Altme.

Go rebols go!

Petr, you can't remove Java from OpenOffice without rewriting Base 
from scratch (a good idea, but still). It is not Java that makes 
OpenOffice sluggish, it is the huge amount of C++ code. It's just 
too large.

Adaptive A.I. Inc. launches commercial AGI-based virtual agent for 
call centers

Playa del Rey, California
January 12, 2009


Adaptive A.I. Inc. (a2i2) today released its first commercial product 
based on its artificial general intelligence (AGI) technology under 
development since 2001. It is a virtual call center operator that 
promises to propel speech-based interactive voice response (IVR) 
systems to much higher levels of performance.


Known as the SmartAction™ IVR System, it being sold and supported 
by a2i2’s recently formed commercial subsidiary, the Smart Action 
Company LLC.


The system is based on a2i2’s LiveAGI™ engine. Its integrated language 
processing, reasoning, memory, and knowledge-base capabilities allow 
it to hold smart, productive conversations. The LiveAGI brain manages 
conversation flow, meta-cognitive state (such as mood, degree of 
certainty and surprise), and determines when clarification or live-agent 
assistance is needed. Its built-in intelligence also allows the system 
to be taught new skills and knowledge, instead of these having to 
be custom programmed. Existing skills include email, as well as web 
and database interaction.


To achieve beyond state-of-the-art voice interaction, top of the 
line speech recognition technology is tightly integrated with the 
AGI brain to provide bi-directional benefits: The speech engine is 
dynamically tuned to current conversation context, while the cognitive 
engine analyzes multiple speech hypotheses for the most likely meaning 
and resolves ambiguities.


These innovations combine to provide solutions that significantly 
reduce the number of routine – and frequently boring and poorly handled 
-- calls taken by human agents while improving customer service levels. 
In addition to providing expected IVR capabilities such as 24/7 availability, 
consistent service quality, and the capacity to handle surges in 
call traffic, the SmartAction IVR System offers personalized responses 
by remembering the caller’s preferences, previous calls and other 
relevant data. Applied over multiple calls, callers don’t have to 
answer the same questions every time they call. If a call is interrupted, 
the system can call the customer back and pick up the conversation 
where it left off.


The company offers the SmartAction IVR System both as a hosted service 
and an in-house hardware-software turnkey solution. A web-based chat 
version is also available.


The ultimate purpose of a2i2’s LiveAGI Brain is to enable a major 
transformation of human-computer interfaces for a broad range of 
applications, such as websites, search engines, console and online 
games, virtual worlds, enterprise software, and consumer products. 
The company is currently researching and developing these applications, 
and under certain conditions will consider creating commercial versions 
in the near term.

About Adaptive AI, Inc.


Adaptive A.I. Inc. was founded in 2001 with the mission of researching, 
developing and commercializing far-reaching inventions in artificial 
general intelligence. Its founder, Peter Voss, has an accomplished 
career as an entrepreneur, inventor, engineer and scientist. His 
contributions to artificial general intelligence cover the fields 
of cognitive science, philosophy and theory of knowledge, psychology, 
intelligence and learning theory, and computer science.

www.adaptiveai.com    www.SmartAction.com

plugins that offer hardware accelerated rendering are not that rare 
but there is none except shockwave (and now unity slowly) that have 
any worthwile base of users that have it already installed. This 
one would be great if it gets forward becuase it's the "google's" 
plugin, but for games it also needs sound, good input / fullscreen 
switching and to compete to ston3d and unity physics

It's just  that I can see the end of Flash/Flex's path - it's right 
there in the system architecture. There isn't much potential left 
there, just a lot of actual. Flash isn't going to lose much of its 
installed base, not while what's there still works, but it's reaching 
the end of its potential capabilities. One federally mandated accessibility 
law and it's obsolete.


Silverlight is still advancing rapidly, and Moonlight is part of 
why. Some of the Silverlight 3 beta features are already in the Moonlight 
2 preview. By the time S3 comes out, Moonlight may be caught up. 
And Silverlight is much faster for RIAs.

guys - just please bring us good list-view base for R3. I mean - 
engine - not complete system. Yesterday e.g. I could not use Rebol, 
as user wanted simple scrollable table of raw data - many columns 
(h-scroll missing badly) - just an example how one small corner could 
be limiting sometimes ...

BTW i would rething the name for 'decimal! . To me its base-10. float 
or such are better for floats IMHO. If that does not break to much, 
but should be a global replace.

hmm, I expected RT to at least say few words about how development 
of R3 goes. "REBOL projects and priorities" is once again off-base, 
and needs a bit of update ....

Terry;  I like what you have been saying.   You need some supporters. 
  Go Terry Go!  REBOL on Rockets sounds good.  If you get into conflict 
with RoR, you might try REBOL Rays.  Skip rockets, go for a lightspeed 
connotation.  ;)


Again, I like the idea.  The entire framework payload; base language, 
server, funky DB and kitchen sink would fit on a pinhead.  R EBOL 
A TOM C heyenne K itchen-sink.

Go Doc Go!

Launch is what Cheyenne needs. But it doesn't work in Core (but works 
ok in /Pro which is the minimal base for the encap versions), that's 
why I use the CALL workaround to make sure it will work on all REBOL 
flavours.

DELETE: If I change mod-static/method-support I need to run cheyenne 
from source base. Is the SDK build method / script available as well?

encode-pass: func [pass [string!]][
	enbase/base checksum/method pass 'md5 16
]

pie-chart: func [
    con [block!] ;-- block of overriden constants
    cmd [block!] ;-- commands to draw the pie-chart 
    /local push angle middle bottom pane bout sens
    size back-color start line text
][

    ;-- default constants (overridable by con block)
    size: 300x200       ;--size of the box
    back-color: white   ;-- back color of the drawing

    start: -90          ;-- starting angle of the pie chart (in degrees)
    line: [pen gray line]   ;-- draw block used for lines

    text: [pen none fill-pen gray text vectorial]   ;-- draw block used 
    for texts
    ;--
    do bind con 'size
    pane: make block! 30
    push: func [data][append pane compose data]
    center: size / 2    ; -- center of the pie chart
    radius: to-pair divide min size/x size/y 2.5
    sens: true
    bottom: 0 
   
    foreach [title color percent] cmd [
        if issue? color [color: to-tuple debase/base color 16]

        push [pen back-color fill-pen (color) arc center radius (start) (angle: 
        round/ceiling percent * 360) closed]
        middle: angle / 2 + start
        push line 
        push [

            (center + as-pair radius/x * cosine middle radius/x * sine middle)

            (bout: center + as-pair radius/x + 3 * cosine middle radius/x + 3 
            * sine middle)
        ]
        either 0 <= cosine middle [
            unless sens [bottom: 0 send: true]
            push reduce [
                bout: as-pair center/x + radius/x bout/y
                bout: as-pair bout/x + 8 max bout/y bottom
                bout: as-pair bout/x + 3 bout/y
            ]
            bottom: bout/y + 12
        ][
            if sens [bottom: size/y sens: false]
            push reduce [
                bout: as-pair center/x - radius/x bout/y
                bout: as-pair bout/x - 8 min bout/y bottom
                bout: as-pair bout/x - 3 bout/y
            ]
            bottom: bout/y - 12
            bout: as-pair bout/x - first size-text make face [
                size: 5000x5000
                text: title
            ] bout/y 
        ]
        push text 
        push [(bout + 1x-8 ) (title)]
        start: start + angle
    ] 
    pane
]

pie-chart: func [
    con [block!] ;-- block of overriden constants
    cmd [block!] ;-- commands to draw the pie-chart 
    /local push angle middle bottom pane bout sens
    size back-color start line text font* font
][

    ;-- default constants (overridable by con block)
    size: 300x200       ;--size of the box
    back-color: white   ;-- back color of the pie
	font: make face/font [color: gray size: 12]

    start: -90          	;-- starting angle of the pie chart (in degrees)
    line: [pen gray line]   ;-- draw block used for lines
    ;--
    do bind con 'size
    font/offset: 0x0
    pane: make block! 30
    push: func [data][append pane compose data]
    center: size / 2    ; -- center of the pie chart
    radius: to-pair divide min size/x size/y 2.5
    sens: true
    bottom: 0 
   	font*: font
    foreach [title color percent] cmd [
        if issue? color [color: to-tuple debase/base color 16]

        push [pen back-color fill-pen (color) arc center radius (start) (angle: 
        round/ceiling percent * 360) closed]
        middle: angle / 2 + start
        push line
        push [

            (center + as-pair radius/x * cosine middle radius/x * sine middle)

            (bout: center + as-pair radius/x + 3 * cosine middle radius/x + 3 
            * sine middle)
        ]
        text: to-image make blank-face [

         size: size-text make face [size: 5000x5000 text: title font: font*]
        	text: title
        	font: font*
        	color: none
        ]
        either 0 <= cosine middle [
            unless sens [bottom: 0 sens: true]
            push reduce [
                bout: as-pair center/x + radius/x bout/y
                bout: as-pair bout/x + 8 max bout/y bottom
                bout: as-pair bout/x + 3 bout/y
            ]
            bottom: bout/y + text/size/y
        ][
            if sens [bottom: size/y sens: false]
            push reduce [
                bout: as-pair center/x - radius/x bout/y
                bout: as-pair bout/x - 8 min bout/y bottom
                bout: as-pair bout/x - 3 bout/y
            ]
            bottom: bout/y - text/size/y
            bout: as-pair bout/x - text/size/x bout/y 
        ]

        push [image (text) (bout + as-pair 1 text/size/y / -2 - 0.5 ) black 
        ]
        start: start + angle
    ] 
    pane
]