AltME groups: search

or
stylize/master [

 matrix-area: area with [colors: [0.0.0 0.0.0]] font [color: 150.255.150]
]

The reason is the FONT object is shared amongst several styles.
	>> svv/vid-styles/area/font = svv/vid-styles/field/font
	== true
and AREA INIT does nothing to clone it
	>> print mold svv/vid-styles/area/init
	[
	    if color [colors: reduce [color colors/2]]

     if not string? text [text: either text [form text] [copy ""]]
	    if not flag-face? self hide [data: text] para: make para []
	]

(no mention of FONT). So after instanciation, the font is still the 
same.
	view layout [my-area: area]
	my-area/font = system/view/vid/vid-styles/area/font 
	;== true

I can change it with system/view/vid/vid-colors/field-select. But 
I can't change the font color at the same time.

what is in btn-face ?

anyway... if the text is not inserted in a draw block, this should 
work:

font: make font [color: white]

myData: read %./

lo: [text-list 640x480 data to-block myData font [name: "courier 
new"]]
view/options/title layout lo [resize] "Files"

or

my-data: read %./

window: center-face layout [text-list 640x480 font-name font-fixed 
data my-data]
view/options/title window 'resize "Files"

Yes: I know that there was a shorcut for fixed font but I foget the 
word. Anton answer is more OS compatible !

I'm working with resizing fields.  Setting the size of the field 
would be a good start. Figuring how to size the text-list on a window 
resize event would be a bonus.
I took a sample from the docs and modifed slightly.

REBOL []


displayData: ["A very long entry that will exceed the default width 
of the field that is displaying it."]
view/options/title layout [

 lines: text-list 640x480 bold font-size 14 font-name font-fixed data 
 to-block displayData [  		;; not sure how to auto-size the text-list 
 either 

 see-it/text: first lines/picked										;; how do I size this field
	show see-it												;; maybe its done here  
	]													;;
	see-it: info												;; or here?								
] [resize] "Test"

Thanks again in advance.

can anyone explain to me why offset on para and font do nothing every 
I try to use them?

ah, that's right. I wonder then if that's what is causing problems 
with SIZE-TEXT for a specific face I'm making. SIZE-TEXT consistently 
returns pixel sizes that only fit if the font size is around 10 or 
11.

I'm trying to print a vid face face via conversion to image...
what's the best way to get good text quality...
ie...is the a best font to use...
my out put is a little jaggy

so if you are creating images for printout, you have to think larger 
faces with larger font sizes... screen dpi is typically between 72-100 
dpi, printers now usually printout at around 600 dpi.... so if you 
want to have clean images, they should be around 5 to 10 times larger.

How to determine if a font is installed?

This is the code I use for RebGUI:

get-fonts: make function! [
	"Obtain list of fonts on supported platforms."
	/cache file [file!] "Obtain fonts from file"
	/local s
] [
	all [cache exists? file] [insert clear fonts unique load file]
	if empty? fonts [
		either OS = 'Win [

   call/output {reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows 
   NT\CurrentVersion\Fonts"} s: copy ""
			s: skip parse/all s "^-^/" 4
			request-progress/title (length? s) / 3 [
				foreach [fn reg style] s [
					fn: trim first parse/all fn "("
					all [
						not find fonts fn

      not find ["Estrangelo Edessa" "Gautami" "Latha" "Mangal" "Mv Boli" 
      "Raavi" "Shruti" "Tunga"] fn
						not find fn " Bold"
						not find fn " Italic"
						not find fn " Black"
						not find fn "WST_"
						insert tail fonts fn
					]
					wait .01
					step
				]
			] "Loading fonts ..."
		] [
			call/output "fc-list" s: copy ""
			s: parse/all s ":^/"
			request-progress/title (length? s) / 2 [
				foreach [fn style] s [
					all [
						not find fonts fn

      (size-text make widgets/gradface [text: "A" font: make font [name: 
      fn size: 10]]) <>

      size-text make widgets/gradface [text: "A" font: make font [name: 
      fn size: 12 style: 'bold]]
						insert tail fonts fn
					]
					wait .01
					step
				]
			] "Loading fonts ..."
		]
	]
	sort fonts
]

The above error was from this probe : probe cal_panel/pane/pane/1/data


Here is a segment of the generated code that I pass through LAYOUT 
before i attach to panel :

[origin 0x0 space 0x0 styles cal_styles across return box 81x81 192.192.192 
with [

edge/size: 1x1] [data: compose [28-Mar-2010]] effect [draw [pen yellow 
text 25x5 "

10-15" pen blue text 25x18 "25-5" font italic-font pen black 40x50 
text "28"]] [pr

int face/data] box 81x81 192.192.192 with [edge/size: 1x1] [data: 
compose [29-Mar-

2010]] effect [draw [pen yellow text 25x5 "13-18" pen blue text 25x18 
"3-8" font i
talic-font pen black 40x50 text "29"]] [print face/data]

NEW bug.. (but not a crash)


using vectorial fonts with text ending in spaces, corrupts color 
transparency of any following draw  element !!!

example script:
rebol [
	title: "Vectorial text corrupts transparency"

 note: "bug occurs only when text ends with one or more spaces!!!"
]

myfont: make face/font []

; COLOR IS TRANSPARENT
box-bg: green + 0.0.0.128

view layout [
	box 350x50 effect  [ 
		draw [
			font myfont
			
			 ;draw crosses
			line-width 1 
			pen blue 
			line 10x29 109x05 
			line 10x05 109x29 
			line 110x29 209x05 
			line 110x05 209x29
			
		    line-width 2 
			pen 0.127.0 
			fill-pen box-bg
			box 10x05 109x29 3 
			
			line-width 0
			pen black
			text "1    " 47x07 vectorial
			;line 0x0 0x0
			
			line-width 2 
			pen 0.127.0 
			;---------
			; following color alpha is WRONGß
			fill-pen box-bg			 
			box 110x05 209x29 3 
			
			line-width 0
			pen black 
			text "2" 154x07 vectorial 
		]
	]
]

oh, it seems to be when FACE/FONT is set to NONE. Nice to know.

How do I set the font of an area to Courier New ???

area with [font [ "Courier New" font-name font-courier]]  ;something 
like this?

area font [name: "Courier New"]

One char per gob: that is simple, but maybe you can increase rendering 
speed by creating one gob per section of text which has a consistent 
font-size and style etc.

get-fonts: make function! [
	"Obtain list of fonts on supported platforms."
	/local s fonts
] [
	fonts: copy []
	either 3 = fourth system/version [

  call/output {reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows 
  NT\CurrentVersion\Fonts"} s: copy ""
		s: skip parse/all s "^-^/" 4
		foreach [fn reg style] s [
			fn: trim first parse/all fn "("
			all [
				not find fonts fn

    not find ["Estrangelo Edessa" "Gautami" "Latha" "Mangal" "Mv Boli" 
    "Raavi" "Shruti" "Tunga"] fn
				not find fn " Bold"
				not find fn " Italic"
				not find fn " Black"
				not find fn "WST_"
				insert tail fonts fn
			]
		]
	] [
		call/output "fc-list" s: copy ""
		s: parse/all s ":^/"
		foreach [fn style] s [
			all [
				not find fonts fn

    (size-text make face [text: "A" font: make font [name: fn size: 10]]) 
    <>

    size-text make face [text: "A" font: make font [name: fn size: 12 
    style: 'bold]]
				insert tail fonts fn
			]
		]
	]
	sort fonts
]

I'm having trouble changing the scroller size (i.e. width) for the 
text-list style. Changing the font size was easy enough. I'm trying 
to make it bigger to accommdate fat fingers on a touch screen display. 
Has anyone done this before? Thanks.

fnt: make face/font [
	name: "Courier New"
	size: 14
	align: 'left
	valign: 'top
	color: white
]


f: make face [color: blue / 2 edge: none size: 300x200 text: "" font: 
fnt]
window: layout/size [] 500x400
insert window/pane :f
loop 500 [insert f/text " "]
append f/text "test"
view window

Graham: I know this, but what if you should have those spaces?

Izkata: Yes this could an example as well. My second example shows 
the problem exactly.

Gabriele: I think the best behavior is to keep text as it is. (at 
least we should have this option, using as-is etc.)

If a text document is formatted with spaces (think that using a propotional 
font, take the old Amiga Autodocs files as example) you can never 
put those texts into a face/text. Face/text is not a document like 
html, even if it would be more than one space chars should be treated 
as one space char. 


So I'm still thinking that it is a word-wrap bug in the View engine.

I'm studying a possible font alignment bug with Cyphre:


view layout [origin 0x0 space 0x0 t1: text 100 black white "Boo" 
right t2: text 100 black 200.200.200 "Boo" right bold]


Does the last "o" line up to the same pixel for you (correct) or 
is there a slight misalignment (wrong)? State your OS, please. Thanks.

REBOL/View 2.7.8.3.1 1-Jan-2011 on Win 7


Correct alignment for the default font, misplacements when trying 
with some other fonts (all featuring crafted bold styles).

BTW, thanks for testing the font issue.

Can we change the font size etc in a table ?

radio-group - will do, later today.

table font size - you guessed correctly, it uses the global setting. 
I'll see how easy it is to get font [size: 8] working with it (like 
other basic widgets).

well, they look acceptable here, as in they are antialiased, font 
is readable and such.

I'm liking the new %tour.r Ashley.  The font selector works great 
on this Debian box...Thankees.

What font names look good? List them here and I'll add them to the 
default ones.


Note that as the new ctx-rebgui/font? function filters out fonts 
not available on the machine running RebGUI we can build up a superset 
of default font names for the big three: Win, Max and *nix.

Ashley;  Well I'm more confused than when I started.  I got sick 
of bad Courier and fixed it.  It had to do with the order of 100dpi 
and 75dpi font lists and removing ghostscript font mapping.  Anyway, 
now REBOL/View can't find Serif, Sans Serif or Monospace.  The "real" 
names "DejaVu Serif", "DejaVu Sans", and "DejaVu Sans Mono" work 
in font [name: ] blocks.  So, I can't help much yet.

The short list (and I'll need to look into this more)  is
DejaVu Sans Mono
  for a good font-fixed
DejaVu Serif
 for a good font-serif
DejaVu Sans
 for a good font-sans-serif
These names may be very specific to my setup...not sure yet.


These fonts should map to "Monospace" "Serif" "Sans Serif", which 
I just broke.


And after I mucked around   the stock font names, which on this REBOL/View 
 2.7.5.4.2 18-Mar map to

font-fixed = "courier"  font-serif = "times"  and font-sans-serif 
= "helvetica", all look way better now.


Maybe I'll just let you get on with it, and quit mudding the waters 
 :)

FYI, View sets its fonts in %gfx-objects.r (part of the SDK) with 
the following code:

set [font-serif font-sans-serif font-fixed] any [
	select [
		1 ["CGTimes" "CGTriumvirate" "LetterGothic"]
		2 ["times" "arial" "courier new"]
		3 ["times" "arial" "courier new"]
		5 ["baskerville" "zurich" "courier10 bt"]
	] system/version/4
	["times" "helvetica" "courier"]
]

OK, so the problem is with popups that call popups. When the second 
requestor (font or color) is called does it *initially* appear behind 
the calling requestor, or are you saying that clicking on the calling 
reqestor *allows* the calling requestor to come to the foreground 
and obscure the second popup? (This later behaviour is what occurs 
on Win & Mac).


Secondly, is the second popup modal (i.e. after it appears can you 
still interact with the first popup)? On Win & Mac the popup is truly 
modal (apart from the windowing issue, which I think can be solved 
by use of the 'parent option).

tour.r/functions/request-font, double click some of entries:

** Script Error: action has no refinement called on-dbl-click
** Where: wake-event
** Near: p/parent-face/action/on-dbl-click p/parent-face

ctx-rebgui/sizes/font: new-size
ctx-rebgui/widgets/rebind
reshow-main-display (if relevant)

I think with Altme, each message is followed by a font block etc.

so, each colum of data is then followed by a block that specifies 
the font, background etc.

Build 78 uploaded to SVN. Includes the following additions:

1) New chat widget

	chat data ["Bob" none "Comment." yello 1-May-2007/10:00:00

2) New on-fkey handlers

	ctx-rebgui/on-fkey/f3: make function! [face] [...]


3) Soundex spellcheck logic replaced with new algorithm as discussed 
above


4) New, smaller, dictionaries (sans soundex codes) to be uploaded 
within the next few days

5) request-font enhanced (now has multiple refinements)

6) %tour.r updated


Note that the chat widget has a known display problem when it appears 
on a tab or is resized. The fix, adding a 'show in its feel/resize, 
appears to eat other widgets resize events. Not sure if this is a 
REBOL/View bug or not. Anyone who knows of a fix please speak up!

re: symbol. You acn do that easily with:

	symbol "&" font [name: "Wingdings"]
	symbol 20x20 "&" font [name: "Wingdings"]

want to get some text / labels in 
Arial Narrow""

	text "Some Narrow Text" font [name: "Arial Narrow"]

assuming you're on WIndows and that font is available of course.

directory selector that can access directories across the network

 We're limited to what "read %/" can pick up. Real solution is to 
 have a native request-dir func (and request-color, request-font).

background colour to an info field
 ... how about making it the same color as tooltips?

	field ctx-rebgui/colors/tooltip-fill

Any ideas
 ... looks like a RebGUI bug as I can reproduce it with:

	display "" [
		box tip "Some text"
		button [alert "Text"]
	]


Hmm, also noticed that tooltip and tooltip-time are dynamically escaping 
to the global context. Will look at this later today.

New error for me ..


An error has occurred.  If this occurred with an upgrade, please 
revert to the older version for the meantime, and report the error 
message as documented below.

make object! [
    code: 501
    type: 'access
    id: 'not-open
    arg1: "Port"
    arg2: none
    arg3: none
    near: [repeat i p/cols [
            line/pane/:i/offset/x: col-offset 
            line/pane/:i/size/x: p/widths/:i - sizes/cell 
            all [
                p/pane/2/show? 
                i = p/cols 

                line/pane/:i/size/x: line/pane/:i/size/x + (p/size/x - p/pane/2/size/x 
                - (line/pane/:i/offset/x + line/pane/:i/size/x))
            ] 

            line/pane/:i/text: replace/all form pick p/data index - 1 * cols 
            + i "^/" "¶" 

            line/pane/:i/font/color: either find p/options 'no-action [
                black
            ] [
                either find picked index [white] [black]
            ] 
            col-offset: col-offset + pick widths i
        ]]
    where: 'confirm
]

make object! [
    code: 501
    type: 'access
    id: 'not-open
    arg1: "Port"
    arg2: none
    arg3: none

    near: [line/pane/:i/font/color: either find p/options 'no-action]
    where: 'confirm
]

I can only reproduce the behaviour you describe (boundary scrolling) 
with the test case posted above ... and in that case it's a "feature" 
not a bug. But the situation you describe is different in one important 
respect ... it doesn't insert a newline. Do you have a simple test 
case which demonstrates this? (It might be a combination of a certain 
area size, font-size and number of lines).

In the following script I would like to be able to click on a row 
of the table to populate the data entry fields, so that I can edit 
the data for the record displayed in that row. How do I do that? 
 

rebol []
do %sqlite.r
do %rebgui.r
unless value? 'ctx-rebgui [

    either exists? %rebgui-ctx.r [do %rebgui-ctx.r] [do %rebgui.r]
]
set-colors
tab-size: 120x55

fonts: reduce [font-sans-serif font-fixed font-serif "Courier New"]
if not exists? %id.txt [write %id.txt 1]
either not exists? %indodex.db [
    CONNECT/create %indodex.db

    SQL "create table base (ID, Title, Nama, Alamat, Kota, Propinsi, 
    Telefon, Handfon, Fax, Email, URL, Tgl_Nikah, Nota)"

    SQL "create table birthdays (ID, Nama, Jenis, Hubungan, Tgl_Lahir, 
    Agama, Nota)"
][
    CONNECT/flat %indodex.db
]

do show-cc: make function! [] [
set-colors
(i: to-integer read %id.txt)
label-width: 19
f-width: 59
display "IndoDex Ver. 1.0.1" compose/only [
            button-size 16x8
            margin 1x1
            space 1x1
            ;image %roladex.jpg 
            ;return
            label 7 "ID:" id: text (to-string i) 7
            pad 17
            ;label 13 "Nama:" 

            title: drop-list 30 #W "Pak" data ["Pak" "Ibu" "Sdr." "Sdri." "Drs." 
            "Dr." "Tuan" "Nyonya" "Nona" "Pdt."] 17x5
            nama: field f-width
            label label-width "Telefon:" 
            telefon: field f-width
            label label-width "Handfon:" 
            handfon: field f-width
            return
            pad 31
            label label-width "Fax:" 
            fax: fax: field f-width
            label label-width "E-Mail:" 
            email: field f-width
            label label-width "URL:" 
            url: field f-width
            return
            pad 31
            label label-width "Alamat:" 
            alamat: field f-width
            label label-width "Kota:"
            kota: field f-width
            label label-width "Propinsi:"
            propinsi: field f-width
            return
            pad 31
            label label-width "TglNikah:" 
            tgl_nikah: field f-width
            label label-width "Nota:" 
            nota: field 139
            return
            return

            t: table options ["ID" left .03 "Title" left .04 "Nama" left .2 "Telefon" 
            left .16 "Handfon" left .14 "Fax" left .14 "E-mail" left .15 "URL" 
            left .15] data (sql "select id, title, nama, telefon, handfon, fax, 
            email, url from base") 270x150 
            return
            button "Add" [
                either all [nama/text <> "" nama/text <> none][

                    SQL reduce ["insert into base values (?, ?, ?, ?, ?, ?, ?, ?, ?, 
                    ?, ?, ?, ?)" id/text title/text nama/text alamat/text kota/text propinsi/text 
                    telefon/text handfon/text fax/text email/text URL/text tgl_nikah/text 
                    nota/text]

                    insert t/data SQL "select id title nama alamat kota propinsi telefon 
                    handfon fax email URL tgl_nikah nota from base"

                    ;a: sql/flat "select id/text title/text nama/text alamat/text kota/text 
                    propinsi/text telefon/text handfon/text fax/text email/text URL/text 
                    tgl_nikah/text nota/text from base"
                    ;sql reduce [insert table/data a]
                    id/text: form i: i + 1
                    save %id.txt i
                    clear-text nama
                    clear-text alamat
                    clear-text kota
                    clear-text propinsi
                    clear-text telefon
                    clear-text handfon
                    clear-text fax
                    clear-text email
                    clear-text url
                    clear-text tgl_nikah
                    clear-text nota
                    ;show id
                    t/redraw
                    return
                ][
                    alert {Cannot save if "Nama" field is empty.}
                ]
            ]
            button "Update" []
            button "GUI Info" [

                print [id/text " " title/text " " nama/text " " alamat/text newline]
            ]
            button "DB Info" [
                print [TABLES newline]
                SQLite/col-info?: true
                newline
                print [SQL "select * from base" newline]
                print [SQLite/columns newline]
                print [ROWS "base" newline]
            ]
            button "Halt" [
                halt
            ]
            button "Quit" [
                quit
            ]
]
]
do-events

like this   field effect (to-image layout/tight [ backdrop white 
text "enter search term" ] font-color 230.230.230 ) [ aspect ]

(to-image layout/tight [ backdrop white text "enter search term" 
 font-color 230.230.230 ] )

Uploaded build#110.

1) Improved scroll-panel and tree widgets


2) Replaced request-dir with a simpler tree-based version (WARNING: 
it reads the entire tree from the path given so don't use it to browse 
a root directory)


3) Added a new heading widget (basically text at twice the font size)


4) Added prototype of new RebDOC app (still needs to be generalized, 
and the code / data that drives it still needs to be cleaned up a 
bit - but it shows the direction I'm heading with regards to "self-documenting" 
apps / code)


5) Removed a number of unmaintained widgets (due to growing incompatibilities)

I looked at the RegGUI logo and...well

 ... yeah, I'm not a graphics guy and there is only so much you can 
 do with MS Comic font ;)


New one looks polished and I'd like to adopt something new for 2008 
as I plan to release Beta 3 (last one prior to a 1.0 release) soon. 
I'm open to suggestions on color (my preference is for red but I 
think that's taken by ruby :( ) ... also, I'm not sure about the 
X-Internet bit; REBOL and various RebGUI apps may be, but RebGUI 
itself isn't. Perhaps the word "Core" instead.


Let's get a few suggestions / comments in before you do another one.

the font set is short too  you can''t use any font you want and as 
the .fnt file community is really inventiv we are missing something

the formula I use in the patch is (font-size of the last entry in 
the char table  / 2)  -1

fontize [

	base: [
		font: [
			color: black
			size: 12
			name: "Arial"
		]
		anti-alias: off
	]

	centered: base [
		para: [
			margin: 0x0
			origin: 0x0
			align: 'center
			valign: 'middle
		]
	]

	button: centered [
		font: [
			color: black
			style: 'bold
			size: 14

   shadow: [0x1 255.255.255.100] ; black shadow here. should be transparent 
   and bright.
		]
		para: [
			wrap?: false
		]
		anti-alias: on
	]

]

Fontize is quite a nice way to separate asset information for the 
skin away from the skin itself. This way you know where all font 
styles are. Besides, fonts in R3 are more complex than in R2 as there 
are more options.

stylize kind of sound natural to me english-wise, but maybe I am 
just used to it. Fontize breaks my ears :-) What is next - drawize, 
effectize? In such case I am maybe more inclined to make-style, make-font 
kind of naming.

Today I was supposed to try to edit one corporate .swf file. Oldes 
suggested me some decompiler. There are items like - shape, image, 
font, text, button, frame, action, misc tags ( http://www.xidys.com/pekr/flash-structure.jpg
). It seems like flash (dunno if decompiled view is identikal to 
their proper IDE) is using kind of page-layout engine. Our corporate 
flash presentation is like browsing dynamic web. So far, with VID3, 
I can't see enough of  "rebol browser" in there, but more an app 
dev. platform. What is our equivalent of "page" - is it a 'panel?

The button style is called MINI-BUTTON and is derived from BUTTON. 
It's meant to be used in groups and confined spaces. It took about 
5 minutes to write. The font is custom for this application.

I hope we can improve the font antialiasing. I know AGG allows many 
more tricks with fonts than we can see.

It's probably the font that does it.

Pekr, that's the font renderer settings, which we can't alter yet.

I really hope so. I believe AGG offers a lot of font hinting options 
that we are not using at all.

It is perhaps also because I'm used to OSX' (IMHO) superior font 
rendering.

Pekr: http://www.antigrain.com/research/font_rasterization/index.html

The above font rendering article is great work, but unfinished. It 
requires further work on both AGG and FreeType

There should be absolutly something done about the font display quality. 
In following screenshot, look for letters like w, s, G, D, B - it 
ruins overall impression from the new GUI look.

http://rebol.hmkdesign.dk/files/r3/gui/110.png

If anyone is interested in testing (lack of time here), but I've 
found that VID3.4 hangs when I want to use a .fon font, such as "Modern" 
or "Roman" in WinXP. Perhaps it's the same in the R3 public release?

Well, you would need to create a layout or a gob with a draw block 
and some rich text with the incriminating font.

Just two questions - 1) what it the space at the bottom grid? A layout 
bug? Or just wrongly set container size? 2) Will there be anything 
done to font rendering? Some letters look rather blurry. Is it a 
bug, or just we are not still using more advanced font rendering 
techniques? I thought that moving to AGG will solve it for us ...

I had a funny observation: You can edit rich-text with the DOC style 
due to a bug, by clicking over the pieces of text and start typing. 
It works nice and fast, although there is no cursor management, ways 
to move between different text styles with the keyboard or any font 
settings. But then rich-text editing should not be so far away.

Small status update:

- CureCode is now the official bug tracker for R3.
- Clipboard now supports unicode. This took longer than expected.

- HTTP 1.1 has been degraded to 1.0 due to some problems with 1.1. 
Rebtalk will continue to work as always though. Maarten is looking 
into this.

- Carl is attacking font code (this does not involve altering the 
poor anti-aliasing unfortunately) and text handling, so text areas 
will finally grow up and act like real text areas. This makes Rebtalk 
usable for more than messages. :-)

- Also yesterday, code was added to allow cell based vertical and 
horizontal alignment of faces. It's interesting to see these changes 
in VID3.4: A new feature like this is rarely more than 5-10 lines 
of code, which is a sign of a great design.

- MAX-SIZE won't go away. Instead it might (I'm not sure Carl is 
convinced there is a problem) be split in two. It currently acts 
as both a pressure factor and maximum size for a face, which is the 
cause for most of its problems.

for sure! Just a newbie question: as I've to wait for R3, is there 
a way to have a descent font rendering on Windows (antialiased) ? 
Ugly courier fonts really annoying for working/ reading AltMe messages.

^(hex characters)

. The console may not render the character properly if the font doesn't 
support it though - it may look like a space.

Henrik, that font is closer to the old icon. Did you create it or 
got it from somewhere?

i get the bug with the standard font too.

exact = test with different font sizes and string lengths to see 
if the error is constant.

the error is constant, i tried several font and several para

try with a big font

No, not just colors.  You have full font control, bold, italic, etc

Sorry, I didn't mean per char, but per font / formatting change.

by deeper and since the number of font is limited the basic thing 
i need would be to get a something like "get-char-size char font-name 
font-size"

this what in text-draw.r (VID3 sources)
font-char-size?: funct [fstyle] [
	gob: make gob! [offset: 0x0 size: 300x100]
	gob/text: reduce [
		'font fstyle/font

  'para make fstyle/para [wrap?: off] ; avoid infinite loop font bug
		'anti-alias fstyle/anti-alias
		"M"
	]
	size-text gob
]

scan-fontset: func [fname fsize /style fstyle /local tmpfnt font-metrics 
charlist n][
	font-metrics: copy []

 tmpfnt: make system/standard/font compose [name: fname size: fsize 
 style: (either style [fstyle][none])]
	charlist: copy ""
	for n 32 126 1 [append charlist to-char n]
	forall charlist [
		append font-metrics size-text make gob! compose [
			offset: 0x0
			size: (as-pair fsize * 2 fsize * 2)
			text: [font tmpfnt size fsize (to-string first charlist)]
		]
	]
	append font-metrics charlist
	return font-metrics
]

probe scan-fontset "Lucida Sans" 24

that will get a basic 32-126 charset of requested font, size and 
style and return the metrics for you under R3.

Steeve - just a simple way to get font-metrics for layout planning 
where you cannot rely on richtext in AGG working (eg it doesnt wrap, 
doesnt do bounds in Draw mode)

The best (most-precise) way to deal with this issue, is to calculate 
width char by char, by using the above func, and when you go past 
the width of your box,  you use size-text on the whole line, up to 
that char... but this IS slow.  If doing a multi-line text system, 
you should use font/size anyways for the height.

shadwolf - then it is time to start to move your project to r3, no? 
I think that View kernel itself might be in slightly better shape 
than in R2 (but maybe I am wrong - I noticed some font ugly display 
problems)

pekr font ugly problem have been solved in a way and if font ugly 
issues are not of my consern you want to blame someone blame CArl 
since the time we say him that there is still bug in R2 and he doesn't 
 want to fix them ... in that matter you can see R3 as a way for 
carl to escape the pain of fixing  R2 countless bugs

font-fixed seems to not exists on MacOS X ... and since the whole 
positioning system is base on fixed-font that means no area-tc for 
mac OSX

You should be able to find a fixed-width font on Mac somewhere and 
specify that using  font/name: "your-fixed-font"

Shadwolf - I am not blaming anyone. Font ugliness has something in 
common with font hinting. Cyphre told me, that such code in AGG is 
licensed (or patented?), and that we will have to find some other 
way around. But you would have to ask Cyphre, I don't remember exactly 
what was the reason ...

Again.. when talking about fonts.. I want bitmaped font support. 
For example I create font's for my Flash apps in Rebol using simple 
image where I draw pixel precise glyphs:
http://box.lebeda.ws/~hmm/fonts/fixedsys.png
And provide the needed informations in Rebol format:

http://box.lebeda.ws/~hmm/fonts/fixedsys.png.txt(using UCS2 to map 
the glyphs)
Then I use my vectorizer to get the Flash font format.

The last step could be skiped in Rebol. And just the bitmaps could 
be used. So as in my Flash apps I can be sure, that the font will 
looks like I really want it!

But first we must have the R3 core stable and opened host sources. 
I will wait:)

but using font bitmap doesn't that will be slower than normal font 
/ text anti-aliased ?

I think it could be faster if you bypass the fon't engine. At least 
I suppose that font engines are using bitmap caches to speed up the 
rendering anyway. But of course it should be used to render in the 
size for which the font is created.

the means you need to create a font for each use that's a pain no 
?

How often do you change font in your text editor?

for example actually we are able to handle properly the text motion 
because we use fie font with a fixed size but this because what we 
want is to handle text in color and not mixe differnt kind of font 
styles and size like it would be the case for a MakeDoc format richtext 
rendering /editing widget

sure in our area-tc taht would be a plus to be able to handle ctrl+wheel 
action to grow shrink the text size (like you can do in any modern 
web browser for example) or to be able to set through a config panel 
the font size and type of your choice

Shadwolf: re R3 richtext; R3 will have the posibility to get all 
useful information at the font glyph level. The richtext module is 
able to give us all that info internally. We only need to design 
interface at the Rebol language level.

BTW even in current R3 version you can get the proper width/height 
 using SIZE-TEXT command. But I believe the final version will offer 
even more.