AltME groups: search

Chris - for presentations there is not much need of vectors ... I 
watched Scala and it is very often done with really nice background 
image, plus font scrolling and transitions ... but it has to be smooth

Once again we will be wasting, even if we don't necessarily need 
to? :-) But we want fmod in rebol, tasking, font-engine, VM, extensions 
... it will not be small-enough for ages :-)

flip-flop the font size between 0 and whatever other size ?

view layout [t: text "Blink, please!" black rate 2 feel [engage: 
func [f a e] [if 'time = e/type [t/font/color: either t/font/color 
= white [black] [white] show t]]]]

Sorry, T: of course wasn't necessary, in ENGAGE T should have read 
F (F/FONT/...)

view layout [style blink-text text white red rate 2 feel [engage: 
func [f a e] [if 'time = e/type [c: f/font/color f/font/color: f/color 
f/color: c show f]]]

 blink-text "Blink, please" red white blink-text "Yellow & Blue" yellow 
 black]

qml-test: [
    qml
    [toc

        [toc-title [font opts [face "georgia"] "Table of contents"]]
        [h1 [font opts [face "georgia"] "one"]]

        [para [font opts [face "georgia"] "bla " [font opts [face "times"] 
        "bla"]]]

        [h1 [font opts [face "georgia"] [font opts [face "times"] "two"]]]

        [para [font opts [face "georgia"] [font opts [face "times"] "bla 
        bla"]]]
        [olist

            [oitem [font opts [face "georgia"] [font opts [face "times"] "one"] 
            " cont"]]
            [oitem [font opts [face "georgia"] "two"] " cont"]
            [oitem "three"]
        ]
        [h1 "three"]
        [para "bla bla"]
        [h3 "four"]
        [para "bla bla"]
        [h1 "five"]
        [h2 "six"]
        [h2 "seven"]
    ]
]

>> match qml-test [x: ['h1 | 'h2 | 'h3] to end (probe x)]
[h1 [font opts [face "georgia"] "one"]]

[h1 [font opts [face "georgia"] [font opts [face "times"] "two"]]]
[h1 "three"]
[h3 "four"]
[h1 "five"]
[h2 "six"]
[h2 "seven"]
== true

>> match qml-test [x: 'font to end (probe x)]
[font opts [face "georgia"] "Table of contents"]
[font opts [face "georgia"] "one"]

[font opts [face "georgia"] "bla " [font opts [face "times"] "bla"]]
[font opts [face "georgia"] [font opts [face "times"] "two"]]
[font opts [face "georgia"] [font opts [face "times"] "bla bla"]]

[font opts [face "georgia"] [font opts [face "times"] "one"] " cont"]
[font opts [face "georgia"] "two"]
== true

Is there an AltME preference setting for fonts? I have the same font 
issue w/altme on Linux that I described on the mailing list, but 
no convenient altme/user.r file to fiddle with

Juts got it too -- It made my font-size go little

Sorry about the reset to font size...just hit the [aA]

How can I make the font larger, for me the small size is "invisible", 
the larhe one is to small.

I found an entry in the %pref-chat.txt file. (font-size: 15) A change 
here helps until I click a or A.
Suggest definition of 2 fonts something like this:
font-size-a: 15
font-size-A:20

What I really want to see is full exposure of text properties, rigt 
click of the aA button, but a simple "font-size" switch will do.

How do I change the font used in Altme?

You can only set big or small font. There is an icon for that next 
to the pencil in the little toolbar above the writing area.

Will there be any capability to go back and edit an already submitted 
post in the future.  I would love to use ALTME for some Bible discussion 
but it would have to allow me to go back and edit past postings and 
have some better formatting features for the layout of the posts 
such a font size, font type, color, spacing, etc..  Any likelihood 
of that coming soon.

====================================^^ here if you're using a small 
font

Whoa... this traceroute backbone hostname freaked me out for a sec:

 5  ge-6-22.car1.SanFrancisco1.Level3.net (4.53.128.97)  47.905 ms 
   46.594 ms   47.027 ms
(In console font 1 and l look the same.)

I am working on Linux.is there a way to increase the font size

Thanks NickA.

It helps (at least for the main discussion area).


Anyway to change the font size for the panel on the left as well 
 (where it shows the Groups)?

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

so... what to do about it ?

Is it the fault of FIELD font not having a colors block, or is it 
the fault of the INIT not being able to handle the NONE case ?

I tend to blame INIT. Patching works well:
	if font/colors [change font/colors font/color]

I suppose the View font rendering system does not render and more 
lines of text after the bottom edge of the face has been reached, 
and the result is clipped to the size of the face. I propose clipping 
the text back a bit more by para/margin/y, so that there is a visible 
gap between the last line of text and the bottom edge of the face.

;Not perfect, but less clicky
view layout [
    style cfield field center feel [
        redraw: func [face act pos] bind [
            if all [in face 'colors block? face/colors] [
                face/color: pick face/colors face <> focal-face
            ]
            foc?: same? face system/view/focal-face
            face/font/align: either foc? ['left] ['center]
        ] system/view
    ]
    cfield "hello" with [focus self]
    cfield "cflied2"
    cfield "cfield3"
]

{ font (red) } => [ font 255.0.0 ]

REBOL []
donnees: [
  ["un" 1 "rouge"]
  ["deux" 2 "vert"]
  ["trois" 3 "jaune"]
  ["quatre" 4 "bleu"]
]

view layout [ 
 list 300x200 [
    across 
    c1: text 100  [  c1/color: red ]

    c2: text 30
    c3: text 170
  ] supply [ print [ count index ]

   print [ face/font/color face/font ]



    ; SUPPLY est en fait une fonction avec 3 arguments :

    ; face=le facet, count=indice de la ligne, index=indice de la colonne

    face/text: either count > length? donnees [
      ""
    ] [
      to-string donnees/:count/:index
    ]
  ]
button "halt" [halt]]

I don't think so Christian; there's only one font per face at this 
point.

Yes, but if it were about changing the font, that probably may be 
possible by changing the fields font dynamically at the right time, 
may be by modifing CTX-TEXT.

What I meant is the way highlighting is "drawn". It looks much like 
if the text is rendered inverse with some sort of keying. You'll 
see what I'm trying to express by looking at


view layout [field "MMM" 210x100 effect [gradient 1x0 blue red] bold 
font-size 78]


and selecting the text. Obviously something like FONT [COLORS: REDUCE 
[WHITE BLACK]] here doesn't work, because FIELD/FEEL (i.e. SWIPE) 
doesn't make use of FONT/COLORS.

But more so, it seems like it's currently technially impossible to 
do so. In the end, the answer really seems to be No! for now.

Is there a "proper" way to set font properties for a single element, 
such as 'text after the layout is created?

I'm trying:
view layout [a: text "12345" b: text "12345"]


and set the font size for a: a/font/size: 14 (b is 12 at this point)

then I unview it and:
view layout [a: text "12345" b: text "12345"]
once more. Now b has font size 14 as well.

They seem to share the same font object....

Henrik, in these cases you need a local font object.

and set the font size for a: a/font/size: 14 (b is 12 at this point)

 <--- I don't set a to a/font/size there although it looks that way, 
 sorry.

should be "and set the font size for the variable a to: a/font/size: 
14"

view layout [a: text "12345" font-size 14 b: text "12345"]  ?

a/font: make a/font [size: 12]

ashley: I can't determine font size at layout time

After that, you simply can A/FONT/SIZE: 13

my-face; make face [ font: [color: black] ] text: none ]

p: number: bullet: bullet2: bullet3: make face [
			size: as-pair page-width 1
			color: white
			edge: none

   font: make font [size: font-size offset: 0x0 align: 'left colors: 
   []]
			para: make para [origin: margin: 0x0]
			feel: make feel [
 				over: func [face act pos][
					feel-face-docs: 'docu
				]
	 		]
			state: none
		]

		©: make p [
			font: make font [size: to-integer font-size * .75]
			para: make para [origin: as-pair 0 para-indent]
		]

		define: make p [font: make font [style: 'bold]]

tools/font lab uses old buttons too...

Yes, maybe documentation. But I can still see a trouble with 'list 
and if 'field is similar, than our bad. VID is abstraction. It was 
meant to ignore errors in code if possible. It was meant to configure 
style using facets ... we started to expose more facets 'edge ,'font-size, 
etc., and if not sufficient, the last part is using 'with and directly 
accessing object values. But 'list goes even further, as 'supply 
block deal with variables like 'count ...

What is with fonts - it was said - "it needs to be decided". Doc 
decision takes so long? If that is not solvable, we have to think 
about font-engine licensing or creation of our own, or is there any 
other way?

http://matplotlib.sourceforge.net/fonts.html, they say "The GD, Agg, 
and Paint backends all support freetype fonts, which provide high 
quality, anti-aliased font rendering to PNG and JPEG output without 
X support.". Not directly usable for us, its a python plotting lib. 
But maybe something can be learned from the source, or asking them?

Look at get-style 'button and its 'init method. Imo button is colorized 
in terms of effect block, so face/font/colors, nor face/color does 
apply ... and don't be confused by face/multi part ... it is imo 
used when multiple facets of the same kind are used, as e.g. "button 
red green ...

I  mean functions like font-color etc. in VID  :.)

view center-face layout [
    space 0x0 across
    
    sample: box 200x200 "ABC"

        font [name: "Arial Black" size: 48 offset: 0x0 align: 'left valign: 
        'top color: black shadow: none]
        para [origin: 0x0 margin: 0x0]
        edge [size: 1x1 effect: none color: black]
        pad -200 

    origin: box 200x200 edge [size: 1x1 effect: none color: black] with 
    [color: none] pad -200 

    margin: box 200x200 edge [size: 1x1 effect: none color: black] with 
    [color: none] 
    return
    
    text 100 "font/offset:" sld_font.offset: slider 104x16 [

        inf_font.offset/text: form sld_font.offset/user-data: to integer! 
        100 * sld_font.offset/data
        sample/font/offset: 1x1 * sld_font.offset/user-data
        show [inf_font.offset sample]
    ] inf_font.offset: info 60 
    return
    
    text 100 "para/origin:" sld_para.origin: slider 104x16 [

        inf_para.origin/text: form sld_para.origin/user-data: to integer! 
        100 * sld_para.origin/data 
        sample/para/origin: 1x1 * sld_para.origin/user-data
        origin/offset: sample/offset + sample/para/origin
        origin/size:   sample/size   - sample/para/origin
        show [inf_para.origin sample origin]
    ] inf_para.origin: info 60 
    return
    
    text 100 "para/margin:" sld_para.margin: slider 104x16 [

        inf_para.margin/text: form sld_para.margin/user-data: to integer! 
        100 * sld_para.margin/data 
        sample/para/margin: 1x1 * sld_para.margin/user-data
        margin/size: sample/size - sample/para/margin
        show [inf_para.margin sample margin]
    ] inf_para.margin: info 60 
    return
    
    text 100 "para/wrap?:"  chk_para.wrap?: check on [
        sample/para/wrap?: chk_para.wrap?/data
        show sample
    ]
    return
    
]

Shouldn't changing FONT/OFFSET have an effect? I must be doing something 
seriously wrong, here ...

I don't think font/offset does anything since I can remember.

data: {my string^-"<span style="font: 12px arial;>some text</span>"}

OK, case solved - set putty to utf-8 and font script to Eastern .....

Hello everybody, I have a problem with Linux:  DRAW   choose a font 
that give problem displaying:

example: ['text "Hello word!"]
view layout [ box 100x100 effect [draw example ]]

on linux it gives a blank window.
I added:

example: ['text "Hello word!"]
if (pick system/version 4) = 4 [
	fnt1: make face/font [ 
		name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"
		size: 12
		]
	os: "linux"
	]
if os = "linux" [ insert example reduce ['font fnt1]	]
view layout [ box 100x100 effect [draw example ]]

This solution is good, but using REBGUI  it doesn't work anymore.
What can I do?

Hello Max. Yes, I have used sometimes DRAW on Linux.

Try this, work for me at Kubuntu.

do %rebgui.r

if system/version/4 = 4 [ face/font/name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf" 
]

example: [ font face/font ]

append example [ pen blue line 20x70 30x50 40x55 50x40 60x60 70x55 
80x70 90x50 100x40 110x50 120x70 130x65 140x60 150x55 160x50 170x30 
180x70 190x50 200x40 210x50 220x70 230x65 240x60 250x55]


append example [ pen red fill-pen red box 20x75 22x60 box 30x75 32x50 
box 40x75 42x40 box 60x75 62x40 box 70x75 72x60 box 80x75 82x65 box 
90x75 92x40 ]

append example [ box 100x75 102x60 box 110x75 112x60 box 120x75 122x60 
box 140x75 142x40 box 150x75 152x45 box 160x75 162x40 box 170x75 
172x60 box 180x75 182x65 box 190x75 192x40 ]


append example [ pen green fill-pen green box 50x75 52x30 box 130x75 
132x50 ]

append example [ pen black text 10x10 "Transazioni" ]
append example [ text 30x30 "$200" text 30x50 "$100" ]

append example [ line 20x25 20x75 line 15x35 25x35 line 15x55 25x55 
]
append example [ line 20x75 310x75 ]

append example [ text 20x80 "28-Jul-2010" text 250x80 "26-Sep-2010" 
]
append example [ pen blue text 300x10 "Cassa" ]
append example [ text 320x30 "$2000" text 320x50 "$1000" ]

append example [ line 310x25 310x75 line 305x35 315x35 line 305x55 
315x55 ]


display "Example" [ aaa_stats: box white 100x30 effect [ draw example 
] button "ok" tab button "cancel" [ unview/all ] ]
do-events

on linux, you need the full path to the font you are trying to use. 
 ttf fonts are supported.

I  used Manum example, but I get:
** Script Error: Cannot use path on none! value

** Near: face/font/name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"

I'm not using View for a very long time, but I guess you must first 
make the font object!

Going to try AltME next. Are there any known problems with using 
the 1.2.21 Linux version? I seem to have no font problems in View...

might be a font problem? Better wait for some real experts, though 
...

Under linux you need to setup the font object to be able use text 
rendered by DRAW dialect. So something like this should work:

my-font: make face/font [

 name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"   ;replace 
 with your path to font you want to use
	size: 12
]

view layout [
    box snow 100x100 effect [
        draw [
	font my-font
            pen black
            text 10x10 "Red Box:"
            pen red
            fill-pen red
            box 10x30 80x50
        ]
    ]
]

What is the default Font for Rebol? I could add this font package 
in Rebol linux installer.

Better to choose a font which works on Linux... last time I used 
Rebol/View on linux, the default font look was very bad.

yes, I'd suggest to choose some nice looking font(prefferably free 
one, but depends on you) on Linux and then use it with the app on 
all systems.

But newbies need a working rebol on Linux., then they will choose 
their font. So, what is the default font on Rebol?

You can check it on linux using:
? system/view/vid/vid-styles/text/font

MaxV: the problem on Linux is that there is no easy way how to get 
font path just by giving the font name + font type.( Windows does 
that automatically)

If you know how to do it in Linux so it works on all distributions 
that would be helpful.

(Maybe it would be enough to write some parser in rebol to get the 
font information from some place in the system, but I have no time 
to investigate this as I'm not using Linux for desktop stuff.)

? system/view/vid/vid-styles/text/font
helvetica
so, is it enogh  having helvetica font?
No, I made a link to FreeSans.ttf this way:
ln -s FreeSans.ttf helvetica.ttf
but it doesn't work.
I think that the path is wrong. The standard linux path  now is:
/usr/share/fonts/truetype/freefont/

so if Rebol path would be /usr/share/fonts/truetype/freefont/FreeSans.ttf 
, we have resolved all problems!

Is there a way to know Rebol font path?

rebol uses system fonts, so its the other way round, is there a way 
to know system font path.  on linux  no one has done any in-depth 
assessment if there is a single way to find out what are the installed 
fonts for *any* linux.

R2 uses different methods to do regular graphics and Draw. Draw is 
done only with AGG, the rest of View is not. The font code is different.

For R3, all graphics are done with AGG. Don't know yet about the 
font support on Linux.

May you explain me why this works under Linux and no font PATH is 
requested? 
REBOL [
	title: "SW-like scroller by Cyphre"
	author: [cyphre-:-seznam-:-cz]
]

scr-size: 640x220
scrl: scr-size * 0x1
c1: scrl
c2: as-pair scr-size/x / 2.5 scr-size/y / 5
c3: as-pair scr-size/x - (scr-size/x / 2.5) c2/y

view/new layout [
	origin 0

 bx: box scr-size effect [draw [] gradcol 0x-1 sky black] with [feel: 
 none]
]

while [not empty? system/view/screen-face/pane][
	scrl/2: scrl/2 - 1

 img: to-image t-face: make face [edge: none color: black size: scr-size 
 text: system/license font: make font [size: 20 style: 'bold color: 
 white] para: make para [scroll: scrl]]
	if scrl/y < - second size-text t-face [
		scrl/y: c1/y
	]
	bx/effect/draw: [
		pen black
		fill-pen black
		box 0x0 scr-size
		image img c2 c3 scr-size c1
	]
	show bx
	wait 0
]

???????

To clarify the 'font issue' a bit:

In REBOL2 there are two different 'font engines':
engine1:  is used when you set face/text field
engine2:  is used when you use face/effect: [draw [text "..."]]


On Windows both engines use the same OS functions for the font handling. 
Therefore no differencies are seen at the script level. 


On Linux the Engine1 us using some X-windows api and the Engine2 
is using FreeType2 library. 

The X-windows font api doesn't support antialiasing and the font 
output in general is not so nice (depending on the distro).

The FreeType2 lib has better font quality output and also supports 
antialiasing but you have to know the full-path to the font file.


Currently noone suggested any efficient method how to get the 'font 
path' in unified way (considering the 'mess' between different Linux 
distros). 

When I tried to investigate a bit someone pointed me to the FontConfig 
lib that should take care of this problem on Linux. But:

1. I don'r know if the fontconfig is really widely supported and 
what other 'framewrorks' are possible on the rest of distros that 
don't have fontconfig...

2. I don't know how easy/hard is to get the info from fontconfig, 
havent studied it

3. as I said I'm not using Linux for desktop stuff so it is nto my 
high-priority item.


Another solution is to intorduce something like global font-path 
in the Rebol system object which would be used for the font lookup. 
This variable could be set individually by user or author of the 
rebol program. We could also provide some font-name/type->font-file 
matching table but that would take some research as well and won't 
work for all setups. But at least something.


So If anyone here from the 'Linux power users' group knows a good 
solution or even propose a prototype of the solution I believe Carl 
will be glad for your help.

MaxV: regarding the example question above: the answer is easy: in 
this example the font is rendered using the 'Engine1' (see the msg 
above) then the output is cvonverted to bitmap(image) and the image 
is rendered as texture using perspective  transformation. So in the 
end the 'Engine2' is not used in the example in any way.

I noticed a difference between Linux and Windows:
Widndows: ?  system/view/vid/vid-styles/text/font    == "arial"

Linux: ?  system/view/vid/vid-styles/text/font    == "helvetica" 
 
Is it normal?

font differences: ofcourse Arial doesn't exist on Linux...unless 
you install MS fonts. See my note about  'matching table'...such 
stuff is definitely needed.

MaxV: It's all about writin a proposal 'how to solve the font issues 
on Linux' then it can be discussed in some more serious way and in 
the end it can be implemented in future releases of R2. So there 
is nothing that blocks you to do the research and propose a solution.

But as I see from your wondering about different font names etc. 
I feel you are realizing this won't be an easy task ;) Anyway, if 
you want to be helpful, just go for it!

As I said I have neither time nor personal need to become 'linux 
font master' so in fact I'm not 'pressed' by anything ;) I'll left 
this part to others.

(also, I think there is a way to flush the X server font cache.)

** User Error: REBOL: Cannot obtain default font
** Near: size-text self

Maybe some font missing? (Eg. the old, standard X bitmap fonts, you 
may have to emerge them separately as I don't think normal linux 
apps use them anymore.) Regards, Gabriele.


Ta-dah! I didn't have the bitmap fonts in my font path. Running now. 
Now I just have to work out what it is! :) thanks Jonathan.

I've been using the following commands to fix the Ubuntu 11 font 
problems:

sudo apt-get install xfonts-100dpi
sudo apt-get install xfonts-75dpi

REBOL Folks. How to fix a font in REBOL editor---it's unreadable!!! 
http://s017.radikal.ru/i401/1202/f0/b05d8abc5412.png

Just wondering if it would be possible for richtext command sequences 
to also fit into a word!, so symbols can have their own colour and 
font when molded into a richtext field. eg:
	word: to-word "/bPhrase"
Now when I mold word I see it rendered with bold text.

My concern is just to make sure that all the command sequences (like 
/b in the example) are allowed in a word!, and possibly also still 
allow  loading as a word! directly. eg:
	type? load "&bPhrase" ;== word!
(assuming the richtext escape character is & )

This could mean an editor could render symbols with their formatting, 
for instance. (I'm also thinking of implementing an interpreter within 
rebol).

Doesn't seem to work with layouts from rebgui

>> lo2: display "Test" [ text "hello" ]
>> unview/all
>> type? lo2
== object!
>> to-postscript lo2
** Script Error: Cannot use path on none! value
** Where: ps-face
** Near: if f/font/name [append font-name 'Helvetica]
if find

the first place it barfs in this simple layout is here

        if f/font/name [append font-name 'Helvetica]

Which seems to say, if you have specified a font, ignore it and just 
use helvetica!

for Rebgui ... f/font is none

I think that was supposed to be some kind of font mapping which wasn't 
finished.

the last one is a bar code font I use

Ok, I just wanted to check the ways, we eventually did it. I do this:

PageSize A4
font [Times 7]
page [rotate 90 translate 0x-842
...
]


I use the offset 8x834 for the first line of text on the paper, no 
matter if it's landscape or not. It works.

In PDF, the only way to get center- and right-aligned text, is to 
know the size of each character in the font, and then calculate the 
starting left position yourself. It seems, all people on the planet 
producing PDF does it this way:
http://www.adobeforums.com/webx/.3bc3e853

The way to do center- and right-aligned text in PDF is to get the 
Font Metrics like these for the 14 standard fonts (see "PDF CORE 
FONT INFORMATION" near the bottom):
http://www.adobe.com/devnet/font/


and calculate the size of the text and then the position. For other 
fonts, you need similar info.

:-) Do you do it using font metrics in pdf-maker, or is there another 
trick?

Seems like you use font metrics (metrics.bin).

right, font metrics. Volker wrote a script to parse the .afm files.

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.

<HTML>
<HEAD>
	<TITLE>RSP Test Page</TITLE>
</HEAD>
<BODY bgcolor="white">
<a href="/">Back</a><br><br>
<FONT FACE="Arial" SIZE='-1'>
<B>Timestamp: </B><%=now %>
<BR><BR>
<H4>Request parameters :</H4>
<UL>
	<LI><B>HTTP Method: </B> <%=mold request/method%></LI>
	<LI><B>HTTP Port: </B> <%=mold request/server-port%></LI>
	<LI><B>Client IP address: </B> <%=mold request/client-ip%></LI>
</UL>
<H4>Request headers :</H4>
<UL><%
	foreach [name value] request/headers [
		print [<LI><B> name ":"</B> mold value </LI>]
	]
%></UL>
<H4>Request variables :</H4>
<UL><%
	either empty? request/content [
		print "<LI>No variable passed</LI>"
	][
		foreach [name value] request/content [
			print [<LI><B> name ":"</B> mold value </LI>]
		]
	]
%></UL>
<H4>Session :</H4>
<%either session/content [%>
<UL>
	<LI><B>SID: </B> <%=session/id%></LI><%
		either empty? session/content [
			print "<LI>No session variables</LI>"
		][
			foreach [name value] session/content [
				print [<LI><B> name ":"</B> mold value </LI>]
			]
		]
%></UL>
<%][%>
	<UL><LI>No session</LI></UL>
<%]%>

</FONT>
</BODY>
</HTML>

Just played a little with DOS console parameters to try to make it 
look&feel like R2 console. Quite close so far (except for the font). 
Need to test it in action with R3 to see if I can use it for serious 
work. I'm very picky about the tools I use daily.