AltME groups: search

The beveled steel font seems to not quite fit for me - kind of just 
floats there with no drop shadow or some other integration into the 
background graphics and the lighting isn't consistent with the lighting 
on the background. The background graphics dimpled steel looks to 
be lit from the top right while the steel font seems to be lit more 
from the side (though not all characters seem to be the same - note 
the right vertical on the capital M in moliad).

Poking around a bit in the View executable (1.2.10.3.1) I "discovered" 
the following undocumented words (and have assumed they belong to 
the indicated facet based on the position of other known words). 
I've worked out what a few of them do, anyone care to comment on 
the others (or point to documentation if covered elsewhere).

Draw
--------
fill
font

Effect
--------
dither
alphamul
anti-alias
func
merge		; I know this was covered, just can't find where
chisel
	view layout [box 20x40 effect 'chisel box 40x20 effect 'chisel]
round
	view layout [box 20x40 effect 'round box 40x20 effect 'round]

Feel
--------
inactive
active

Options
--------
parent
	view/new a: layout [size 400x400]
	view/new/options layout [size 200x200] compose [parent (a)]
	do-events
min-size
	view/options layout [box blue 400x400] [resize min-size 200x200]
activate-on-show

view/new layout [b: box effect [draw [font none text "hello"]]]
wait 2
b/effect/draw/font: make face/font [size: 40] show b

aahhh, no matter how deeply you know something, there is always something 
that gets on your nerve...

changing the button font color seems to be a genuine pain... can 
someone refresh me why its impossible?


this doesn't work... altough I've allocated a stand-alone font and 
have removed all the dynamic code which AFAIK plays around with the 
font or text:



view layout [button "ok" font [color: red] with [feel: make feel 
[redraw: none over: none]]]

yet, this works:


view layout [text "ok" font [color: red] with [feel: make feel [redraw: 
none over: none]]]

you have to set 'colors, not 'color:

view layout [button "ok" font [colors: reduce [red white]] with [feel: 
make feel [redraw: none over: none]]]
for a button with inactive color red and active color white

so basically, If I try with a font without colors attribute, then 
it should work?

for 'button yes - font/color is a copy of font/colors/1 at  init

;From http://www.rebol.com/how-to/feel.html

view layout [
    size 240x240
    style dragbox box 40x40 font-size 11 feel [
        engage: func [face action event] [
            if action = 'down [
                face/data: event/offset
                remove find face/parent-face/pane face
                append face/parent-face/pane face
            ]
            if find [over away] action [

                face/offset: face/offset + event/offset - face/data
            ]
            show face
        ]
    ]
    dragbox "Box 1" navy
    dragbox "Box 2" teal
    dragbox "Box 3" maroon
    dragbox "Box 4" gold
]

view layout [
	origin 0x0
	space 0x0
	size 400x400
	at 0x0 box 300x300 aqua 
	at 200x100 box 200x300 linen
	at 0x100 box "In the middle" 400x200 khaki feel [
	        detect: func [face event] [
            		if event/type = 'move [	
				popup/text: event/offset - 0x100 
				popup/offset: event/offset + 10x0
				show popup
			]
		return none			
		]

 ] font [ size: 72 ] effect reduce [ 'merge 'colorize 128.64.128 ] 
 	

	popup: box 50x15 font [color: white size: 10 shadow: none ] 

  effect reduce [ 'merge 'colorize 128.64.255 'draw [ pen 0.128.0 box 
  0x0 49x14 ]]
]

Hello, I'm trying to write my first program in REBOL, besides "Hello, 
World!", heh. Anyway, I am trying to take the output of the DOS ipconfig 
command and only grab the IP address for my local NIC out of it. 
I would like to display the IP address only in a window in a large 
font. I have played with the call command in REBOL and have been 
able to use call/output to write the output of the command to a text 
file. My question is what would be the best way of grabbing the IP 
address I need out of this text file? Maybe there is another way 
I should be approaching this too, I'm not sure? Your thoughts and 
suggestions are appreciated. :)

I am actually writing this for use in my job. I am a network support/programmer 
and I work for Nuns. I have been connecting to their computers using 
VNC. I always have to try and tell them how to give me the address 
of their machine after I get them to start VNC. They always have 
trouble. So I thought I could write something in REBOL do they could 
just double click and read it clearly on the screen. That is why 
I mentioned the large font.

My edit-panel style is actually based on PANEL style, but pretty 
much supplants AREA, if you're happy with monospace font. (I haven't 
supported a single-line FIELD-like style, but could be easily done 
I expect.)

here is some code I have been working on (commented) but the start 
button is busted I want it to call the area box with the discalimer 
details & 2No further buttons, one to quit "Disagree" which is a 
quit command & "Agree" I want to CLS the page & start a fresh copy 
of the XP simulated window, the start button would then open a different 
menu here is the code (its not very elegant I'm afraid):

  rebol [Title: "SOS-XP"]
  view layout [

  ;makes a gui window 768x576 with a simulated desktop (xP blue) with 
  ibevelled border.
  image center %DT.jpg 768x576 ibevel pewter 6x6

  ;creates an area text box color red with disclaimer message & 2No 
  buttons "agree" & "disagree"

  ; which hopefully will be situated in the XP destop when the start 
  button is clicked.
  disclaim: [at 200x300

  area wrap font-color white {You use this program & batch files entirely 
  at your own risk,
due to the myriad of hardware/software configurations I cannot
without any certainty claim that you will not damage your system!
Always Always Always make a full system backup of your partition
before attempting to use SOS-XP & that you have tested the back

up so your are positive in your own mind you can make a recovery!} 
red bold 
  at 240x410 button "Agree"
  at 450x410 button "Disagree"]
  ; this is the simulated XP start button
  button gray 50x30 "START" [disclaim]

  ; this is a small vertical button to make the xP start button look 
  more realistic.
  at 75x605 button gray 3x30

  ; this is a digital clock to simulate the destop clock bottom right 
  on screen.

  at 750x610 text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 
  0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]]

]755x650  rebol [Title: "SOS-XP"]
  view layout [

  ;makes a gui window 768x576 with a simulated desktop (xP blue) with 
  ibevelled border.
  image center %DT.jpg 768x576 ibevel pewter 6x6

  ;creates an area text box color red with disclaimer message & 2No 
  buttons "agree" & "disagree"

  ; which hopefully will be situated in the XP destop when the start 
  button is clicked.
  disclaim: [at 200x300

  area wrap font-color white {You use this program & batch files entirely 
  at your own risk,
due to the myriad of hardware/software configurations I cannot
without any certainty claim that you will not damage your system!
Always Always Always make a full system backup of your partition
before attempting to use SOS-XP & that you have tested the back

up so your are positive in your own mind you can make a recovery!} 
red bold 
  at 240x410 button "Agree"
  at 450x410 button "Disagree"]
  ; this is the simulated XP start button
  button gray 50x30 "START" [disclaim]

  ; this is a small vertical button to make the xP start button look 
  more realistic.
  at 75x605 button gray 3x30

  ; this is a digital clock to simulate the destop clock bottom right 
  on screen.

  at 750x610 text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 
  0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]]

]755x650  rebol [Title: "SOS-XP"]
  view layout [

  ;makes a gui window 768x576 with a simulated desktop (xP blue) with 
  ibevelled border.
  image center %DT.jpg 768x576 ibevel pewter 6x6

  ;creates an area text box color red with disclaimer message & 2No 
  buttons "agree" & "disagree"

  ; which hopefully will be situated in the XP destop when the start 
  button is clicked.
  disclaim: [at 200x300

  area wrap font-color white {You use this program & batch files entirely 
  at your own risk,
due to the myriad of hardware/software configurations I cannot
without any certainty claim that you will not damage your system!
Always Always Always make a full system backup of your partition
before attempting to use SOS-XP & that you have tested the back

up so your are positive in your own mind you can make a recovery!} 
red bold 
  at 240x410 button "Agree"
  at 450x410 button "Disagree"]
  ; this is the simulated XP start button
  button gray 50x30 "START" [disclaim]

  ; this is a small vertical button to make the xP start button look 
  more realistic.
  at 75x605 button gray 3x30

  ; this is a digital clock to simulate the destop clock bottom right 
  on screen.

  at 750x610 text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 
  0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]]

]755x650

Henrik is just ahead of me --- you have disclaim as block.

Also, maybe when getting started, dont worry about the absolute positionings 
(they'd need to be adjusted according to screen resolution anyway). 
This simplification of your code works for me: (note the unview/all 
to remove any previous instances):


  rebol [Title: "SOS-XP"]
  unview/all
  view layout [
  across
  
  disclaim: 

  area wrap font-color white {You use this program & batch files entirely 
  at your own risk,
due to the myriad of hardware/software configurations I cannot
without any certainty claim that you will not damage your system!
Always Always Always make a full system backup of your partition
before attempting to use SOS-XP & that you have tested the back

up so your are positive in your own mind you can make a recovery!} 
red bold 
   return
   button "Agree"
  return button "Disagree"]
  return
  button gray 50x30 "START" [disclaim]

  ; this is a small vertical button to make the xP start button look 
  more realistic.
  return button gray 3x30

  ; this is a digital clock to simulate the destop clock bottom right 
  on screen.

  return text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]
]

Copying is sometimes the best way.

There are some stray ]s in the code I just posted.....Sorry. This 
below really does work:


  rebol [Title: "SOS-XP"]
  unview/all
  view layout [
  across
  
  disclaim: 

  area wrap font-color white {You use this program & batch files entirely 
  at your own risk,
due to the myriad of hardware/software configurations I cannot
without any certainty claim that you will not damage your system!
Always Always Always make a full system backup of your partition
before attempting to use SOS-XP & that you have tested the back

up so your are positive in your own mind you can make a recovery!} 
red bold 
   return
   button "Agree"
  return button "Disagree"
  return
  button gray 50x30 "START" [disclaim]

  ; this is a small vertical button to make the xP start button look 
  more realistic.
  return button gray 3x30

  ; this is a digital clock to simulate the destop clock bottom right 
  on screen.

  return text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]]

]

rebol [Title: "SOS-XP"]
  view layout [
  image center %DT.jpg 768x576 ibevel pewter 6x6
  button gray 50x30 "START" [show panel1]
  at 75x605 button gray 3x30

  at 750x610 text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 
  0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]]

]
  
panel1: view layout [
  image center %DT.jpg 768x576 ibevel pewter 6x6
  at 75x605 button gray 3x30

  at 750x610 text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 
  0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]]
  at 200x300

  area wrap font-color white {You use this program & batch files entirely 
  at your own risk,
  due to the myriad of hardware/software configurations I cannot

  without any certainty claim that you will not damage your system!

  Always Always Always make a full system backup of your partition
  before attempting to use SOS-XP & that you have tested the back

  up so your are positive in your own mind you can make a recovery!} 
  red bold 
  at 240x410 button "Agree" [show panel2]
  at 450x410 button "Disagree" [QUIT]]
  do-events

panel2: view layout [
image center %DT.jpg 768x576 ibevel pewter 6x6
  button gray 50x30 "START" [show panel3]
  at 75x605 button gray 3x30

  at 750x610 text "00:00" rate 1 black ;effect [gradient 0x1 0.0.150 
  0.0.50]
  feel [engage: func [face act] [face/text: now/time  show face]]

]755x650

What console is he running?  Under Konsole the list of encodings 
is overwhelming.  (From the Settings menu).

If it's xterm, then ... I dunno, but regardless, if it is xterm or 
other, drop a note and we'll track down an appropriate place to tweak 
the default encoding used by his REBOL console (whatever terminal 
he uses) session.


It might be easier (some gui menu), but it could well look something 
like

XTerm*locale: true

XTerm*font:             -misc-fixed-medium-r-normal--20-200-75-75-c-100-iso10646-1

in an X config file


From the root text console for REBOL/Core, we'd have to look into 
that as well; been there, kinda done that, too many details, forget 
all details, but keep foggy clue where to start looking ...  :)

They use the X libs for font management in Draw, which can draw to 
in-memory image! values as well.

I am interested in improving the display of fonts by R2 on Kubuntu 
Gutsy 7.10.

I am not yet aware of what font rendering systems are used by Kubuntu, 
but I can see lots of True Type Font (.ttf) files anyway.

I can get R2 View to display a font (eg. gentium), but the scaling 
looks pretty bad. eg.
	view layout [text "Hello" font-name "gentium" font-size 16]

Actually, what I'm primarily after is a fixed-sized font that looks 
nice at different scales.

What font system(s) does it use?

I think I had to also change the default font used for RebGUI.

OK, so I've downloaded Ubuntu 9.04 (64bit) and got it running under 
VirtualBox, then I download and untar/zip the REBOL SDK and open 
a console session. cd to the REBOL dir and do a chmod +x and type 
./rebview ... which comes back with a "file or dir not found message" 
... anything else I need to do to get REBOL working? Oh, and what 
font looked best with RebGUI in your opinion?

if you add fonts I believe you have to rebuild the font map ie. fonts 
can be scattered over different directories.

(and all I want is the clean install of Ubuntu to use a good looking 
font)

OK, got it working on Ubuntu (and Mac) with:

fonts: copy []

foreach [font-name style] parse/all (call/output "fc-list" s: copy 
"" s) ":^/" [
	all [
		not find fonts font-name

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

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

there could be font problems with DRAW under other platforms than 
Windows.

So if I change font ,will it  work?

you have to define the font path

how I define Font and Fontpath, and how I can make that work in Windows 
and Linux?

I tried to change the agg script to point to a ttf font file under 
OS X. It doesn't display.

sounds like a font problem

Thanks for trying to help :) With font problem, do you mean something 
like a missing font? I got these installed: ttf-ms-fonts, ttf-dejavu, 
ttf-bitstream-vera, xorg-fonts-100dpi, xorg-fonts-75dpi, and xorg-fonts-misc. 
Any idea what kind of font would be missing for the Word Browser?

try:

	help font-
	view layout [text "test" font-fixed]
	view layout [text "test" font-sans-serif]
	view layout [text "test" font-serif]

Try same, but with bold and underline (e.g.view layout [text "test" 
font-fixed bold underline])

Probably not a font issue then. Works fine here on OSX so sounds 
like a Linux specific error. Does RebGUI work? (REBOL/Demos group)

Kaj, here are all the available packages with "font" in the name: 
http://www.archlinux.org/packages/?sort=&arch=i686&repo=&q=font&last_update=&limit=all

Anything that sounds like it could be the right one? And thanks for 
trying to help.

You could try xorg-fonts-alias, in case a font is installed but not 
found because the name doesn't match

I don't see much else you could try. Maybe the ttf-ms-fonts, because 
it has popular font names, but that would be a new case of the problem

I remember trying the Biggelow Holmes fonts on Zenwalk, so you could 
try font-bh-ttf, but I don't remember if those were the ones to fix 
it

Those font packages all have different names on different Linux distros 
- one facet of the disaster

No change. I tried to install a few more font packages but those 
didn't help either. But thanks for your help, it was worth a try 
:)

Budzinski: usually it's the bitmap fonts, but you had those installed 
already, so maybe it's not a font problem. "Bad face in screen pane" 
could also be the script trying to open a window with negative or 
zero size, or things like that. Maybe a negative offset could cause 
that error as well.

Using REBOL 2 with vid on Linux (CentOS 5.4 / GNOME). Doesn't seem 
like the font-size does anything (i.e.): text font-size 30 "Hello". 
Any advice or tips?

Using REBOL 2 with vid on Linux (CentOS 5.4 / GNOME). Doesn't seem 
like the font-size does anything (i.e.): text font-size 30 "Hello". 
Any advice or tips?

Using REBOL 2 with vid on Linux (CentOS 5.4 / GNOME). Doesn't seem 
like the font-size does anything (i.e.): text font-size 30 "Hello". 
Any advice or tips?

Using REBOL 2 with vid on Linux (CentOS 5.4 / GNOME). Doesn't seem 
like the font-size does anything (i.e.): text font-size 30 "Hello". 
Any advice or tips?

Using REBOL 2 with vid on Linux (CentOS 5.4 / GNOME). Doesn't seem 
like the font-size does anything.

About your font problem: It's been a while, but do you have the correct 
fonts installed? I'm not sure which ones are needed.

This is a stock CentOS 5.4 install running GNOME. Not sure which 
fonts are needed. However, things like h1, h2 in vid do change the 
font size of the text, but using font-size with say the text command 
does nothing.

it may help if you switch to a particular font. the X11 fonts are 
bitmapped fonts AFAIK and if there are no fonts in between in a particular 
size, it will look bad.

For example, using font-name?

if you look at face/font, you can see the specs for the font

I'm not sure. It makes a distinction between sans, serif and mono 
fonts, but beyond that it uses some built-in default names, if the 
font requested, can't be found.

I don't know, but:

? font

and:

source set-font

look a little interesting

? face/font

It's set in this snippet of code in %gfx-object.r

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"]
]

Use this to determine which [scaleable] fonts are available:

			fonts: copy []
			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
				]
			]

Hi, I have just joined. Is there a way to increase the font size 
on my screen. I can barely read this text?

maybe with concept like min-face, we could have derived face, which 
could use multiple text and font subobjects, not just one, like current 
face?

my-font: make face/font [name: "Arial Black" size: 24] view layout 
[box effect [draw [font my-font pen black fill-pen yellow text "Text" 
vectorial]]]

font-a: make face/font [name: "Arial Black" size: 24]
font-b: make face/font [name: "Arial" size: 12]
view center-face layout [
    btn 120x48 with [
        append init [

            append effect compose [draw [font font-a pen black fill-pen yellow 
            text 16x8 "Button" vectorial]]
        ]
    ]
    btn 20x120 with [
        append init [

            append effect compose [draw [transform -90 0x0 0x90 1 1 font font-b 
            pen none fill-pen black text 0x2 "vertical text" vectorial]]
        ]
    ]
]

fovsz: 450x450

layout compose [starfield: image (fovsz) black]

starfield: to-image starfield

loop 1000 [
	col: random 255
	starcol: to-tuple reduce [col col col]
	poke starfield random fovsz/x * fovsz/y starcol
]

view/new layout compose [
	b: image starfield
]

hvector: func [x y v][

 (fovsz/x / fov) * (fov / 2 + either zero? pos/2 - y [90][arctangent 
 (pos/1 - x) / (pos/2 - y)])
]

vvector: func [y z v][

 (fovsz/y / fov) * (fov / 4 + either zero? pos/2 - y [90][arctangent 
 (pos/3 - z) / (pos/2 - y)])
]

map: [
	"A New Beginning"
	""
	"Rebol HQ, led by their jedi leader,"
	"Carl Sassenrath, has begun"
	"preparations to strike back against"
	"Darth Gates at the Redmond system"
	"during a time of growing unrest"
	"among the netizens of the Empire."
	""
	"As the Empire works to complete"
	"construction of their hailed"
	"planetary domination device, code"
	{named "Longhorn Death Star", small}
	"centers of resistance continue to"
	"gain support among the"
	"oppressed masses."
	""
	"Even with mounting support, only"
	"One is powerful enough to overcome"
	"the dark side of the Force --"
	""
	"Rebol/View 1.3"
]

mapimg: copy []

foreach line map [

 b1: layout/origin compose/deep [text (line) 840 center font-size 
 48 sky black (either any [line = map/1 line = last map]['bold][])] 
 0x0
	append mapimg to-image b1
]

pos: [0 30 20]
dir: [0 0]

fov: 45

for l pos/2 200 .1 [
	agg: copy []
	x: 0 y: 0
	foreach item mapimg [
		y: y + 5
		if y < pos/2 [
			append agg compose [
				image (item)
				(to-pair reduce [hvector x + 15 y dir/1 vvector y 0 dir/2])
				(to-pair reduce [hvector x - 15 y dir/1 vvector y 0 dir/2])

    (to-pair reduce [hvector x - 15 y + 5 dir/1 vvector y + 5 0 dir/2])

    (to-pair reduce [hvector x + 15 y + 5 dir/1 vvector y + 5 0 dir/2])
				black
			]
		]
	]
	b/effect: compose/deep [draw [(agg)]]

	show b

	pos/2: l
]

text-size: you can use size-text. setup a face with /text, font and 
nothing else, get the size, use same text in draw.

Kaj, I was thinking more embedded fonts -- would the author of a 
viewer need to parse the embedded font data before passing them to 
FreeType?

Yes, I think you have to extract font data to pass it to FreeType. 
But FreeType interprets the font data itself, so how hard could extracting 
it be?

ft: make face/font [size: 60] 
view center-face layout [
	origin 0
	box 400x80 white effect [
		draw [

   fill-pen linear 0x0 0 100 30 1 1 black white black white black white
			font ft
			text 0x0 "Wavin' REBOL" vectorial
		]
		emboss
	] with [
		rate: 0
		n: 0
		feel: make feel [
			engage: func [f a e][
				f/effect/draw/3/x: n: n + 2
				show f
			]
		]
	]
]

Yes, those versions(win linux) should be indentical. (except font 
handling)

shape 'txt-i [
		fill-pen 255.0.0.50 font boldfont text 1 350x200 "rebol"
	] action [
		frame 1 show zoom 8 8 center 350x200 to-frame 55 
		frame 1 fade fill-pen 255.0.0.0 to-frame 15 
		frame 200 move -600x0 to-frame 250
	]

The following code demonstrates this. Comment / uncomment the draw 
effect line to see the difference a simple draw command makes.

count: 100

do-test: func [label info /local img-size start end] [
	img-size: to-pair label/text
	img: to image! layout [

  origin 0 box img-size blue reform ["Testing" img-size ". . ."] font 
  [size: 24]
	]
	view/new/options center-face layout [
		origin 0 i: image img img/size
		;effect [draw [circle 100x100 100]]
	] [no-title no-border]
	;	test loop
	start: now/time/precise
	loop count [show i]
	end: now/time/precise
	;	display result
	info/text: form to-integer count / (to-decimal end - start)
	show info
	unview
]

view layout [
	title "Resolutions"
	across la: label 100 "800x600" ia: info 100 center
	return lb: label 100 "1024x768" ib: info 100 center
	return lc: label 100 "1280x1024" ic: info 100 center
	return btn "Run" [do-test la ia do-test lb ib do-test lc ic]
]

viewport 100x100 300x150 [font myfont text 150x50 "this is a large 
line of text..."]  ;here the text would use the viewport as its origin 
and screen size

stylize/master [
	rte: box with [
		color: gray 
	    tampon: ""
	    buffer: []
	    line-index: 0
	    char-sz: none
	  	current-text-offset: 0x0
	  	cursor-text-offset: 0x0
	  	max-text-offset: 0x0
	  	text-color: black
	  	pane: []
	  	
	  	set-font-style: func [ font-s [word!]] [
	  		switch font-s [

      bold [insert tail buffer compose/deep [[ [size: 11 style: [(font-s)]] 
      (either cursor-text-offset/x <> 0 [cursor-text-offset] [as-pair 0 
      (line-index * 20)]) "" ]]]

      normal [insert tail buffer compose/deep [[ [size: 11 style: []] ( 
      either cursor-text-offset/x <> 0 [cursor-text-offset][as-pair 0 (line-index 
      * 20)]) "" ]]]

      underline[insert tail buffer compose/deep [[ [size: 11 style: [(font-s)]] 
      (either cursor-text-offset/x <> 0 [cursor-text-offset][as-pair 0 
      (line-index * 20)]) "" ]]]

      italic [insert tail buffer compose/deep [[ [size: 11 style: [(font-s)]] 
      (either cursor-text-offset/x <> 0 [cursor-text-offset][as-pair 0 
      (line-index * 20)]) "" ]]]
	  		]
	  	]
	  	
		feel: make feel [
			engage: func [f a e] [
				switch a [
				   
					key [ probe e/key
						switch/default e/key [
							#"^M" [
							line-index: line-index + 1

       f/current-text-offset: as-pair 0 f/current-text-offset/y + 20]

       insert tail f/buffer compose/deep [[ [size: 11 style: [(font-s)]](as-pair 
       0 (line-index * 20)) "" ]]
							
						][
							f/tampon: rejoin [f/tampon to-string e/key]
							draw-text: []
							print "f/buffer:"
							probe f/buffer
							foreach line-to-draw f/buffer [
								print "line-to-draw"
							;line-to-draw: f/buffer/1
								;probe line-to-draw
							;set [font-style start-offset text-to-show ] line-to-draw
							
								font-style: line-to-draw/1
								start-offset: line-to-draw/2
								line-to-draw/3: rejoin [line-to-draw/3 to-string e/key]
							;probe font-style 
							;probe start-offset
							
								font-obj: make face/font font-style
							;probe font-obj 
								text-to-show: line-to-draw/3
								;probe text-to-show

         insert tail draw-text  compose [ font (font-obj) pen (f/text-color) 
         text (start-offset) (text-to-show)]
							] 
							;print "draw-text:"
							;probe draw-text
							

       ;draw-text: compose [ pen (f/text-color) text (f/current-text-offset) 
       (f/tampon)]
				    		f/effect: make effect reduce [ 'draw draw-text  ]
				    		draw-text: none 
				    		;probe f/current-text-offset

       f/cursor-text-offset: as-pair (f/cursor-text-offset/x + 9) f/current-text-offset/y 
				    		;show f
						]
						f/pane/1/offset: f/cursor-text-offset 
						show f
					]
					down [
						;insert f/buffer compose [(as-pair 0 (line-index * 20)) ""]
						focus f show f
					]
					
				]
			]
		]
		append init [

   insert buffer compose/deep [[[size: 11 style: []] (as-pair 0 (line-index 
   * 20)) ""]]
			probe buffer

   insert pane make face [ color: red size: 2x20 offset: cursor-text-offset 
    ]
			show self 
		]
	]
]


view layout [
  across
  	btn "bold" [test-rte/set-font-style 'bold]
  	btn "underline" [test-rte/set-font-style 'underline]
  	btn "italic" [test-rte/set-font-style 'italic]
  	btn "normal" [test-rte/set-font-style 'normal]
  return
  	test-rte: rte 300x300
]

i read it does not work beacuse of absolute font-pathes. i give it 
a try

Cyphre, can you tell us what changes will bring the next Draw/AGG 
releases ? Wider font support ? Dialect improvements ?

I'd like to have better font support (most of Windows TT fonts seems 
to not work), better font objet support (things like 'offset and 
'valign doesn't seem to work), persistent Draw settings (like Text 
rendering mode). These font issues may be due to my lack of experience 
with the new Draw/AGG, did other ppl had the same issues on windows 
?

Doc: the FONT rendering in R2 DRAW should handle all TTF fonts. (at 
least I havent heard about any problems from anyone). The persistent 
text mode can be added IMO even in R2. Text formating won't be probablay 
enhaced as this would take too much effort. But in R3 there will 
be rich-text dialect for that purposes. (Maybe the new rich-text 
dialect  could be backported into R2 later but it all depends...)

Cyphre probably remember I still would like to have bitmap fonts 
(use specified parts of image as font glyphs:-)

I'm curious, what kind of font rendering does View use?

AGG wouldn't have this effect since it does not seem to use clear 
text.  in fact, in general I find AGG font AA pretty ugly... is there 
a way to improve this?  even if its slow?  there are some situations 
which do not mind speed (generating HQ output graphics, for example) 
 or small GUIs or when converting face looks to bitmaps before display.. 
(trades speed for ram)

I also know that apple, quantel, adobe, MS and others have patents 
in font, and AA algorythms, which might actually prevent people from 
performing proper AA or Font rendering... even if they know how.

and if I can use such a image http://box.lebeda.ws/~hmm/rebol/projects/font-tools/latest/fonts/idea.png
to create glyphs which I can use in flash: http://box.lebeda.ws/~hmm/rebol/projects/font-tools/latest/fonts/idea.html
it would be nice to have a chance to use such a bitmap (or the vectorized 
glyphs) in Rebol as well

agg font support ie.

Graham: I think the linux SDK will have agg enabled once we solve 
the font path identification thing.

I doubt it. size-text expects a face argument and computes size based 
on face/text, face/font, face/edge and face/para values.

all of which you can change to expected agg fonts etc before calling 
size-text

s: size-text make face compose [text: (t) font/name: "arial" para/wrap?: 
off]  ;etc..

on text without the size of each character you can't simulated a 
realistic text motionning. This works greatly with fixed font but 
fixed fonts are not supported on all OSes and they are pretty borring.... 

fixed font system forbid de coders to propose a font selector to 
their users in their programs one of  the feature all the common 
text editor have.

its only in using the byte code directly which is patented, it seems. 
 so you can convert the font metrics and render them other ways... 
which is what freetype 2 does  :-)

wrt freetype... only TrueType font rendering has any kind of patent 
issues... so if you use other type fonts you're ok.

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.

I'm having difficulty reading the text .. the font is too small for 
me.  Yes, i can change the font size ...

Thanks Petr. He may have to wait for a supported UNICODE-enabled 
release.


Having given it a few moments thought, he may be able to fake it 
in *some* controls with font-name:

    view layout [box "hello" font-name "xxx"]  ;; where xxx is the name 
    of an installed font on his machine.

I tried that with my ASCII chart script, making that change. And 
it does (for me) show some Cyrillic. Not sure it's a complete solution 
though:
   http://www.rebol.org/view-script.r?script=ascii-chart.r

Alexandr: < I tried ascii-chart script and it unfortunately doesn't 
show any cyrillic letters>
What I did that showed me some cyrillic was this:
** download the ascii-chart.r script from rebol.org
** change this line
     [append hex-lo [box 25x25 blue]
to
    [append hex-lo [box 25x25 blue font-name "WP CyrillicA"]
WP CyrillicA

 is a Cyrillic font I happen to have installed on my Windows PC. Any 
 Cyrilic font you have is likely to have a different name. When specifying 
 the font name it is case sensitive.


If this works for you. it may also help for many VID styles (BOX, 
BUTTON etc) It probably won't help for ALTER and other pop-up boxes

Maxim...  I've created all the plugs I need to process each value 
in a font object and they are working beautifully but I'm having 
trouble figuring out what the master !font node should look like. 
 I need to be able to copy changes from each of the nodes handling 
the individual values into an object that I can pass to VID.  Do 
you have any words of wisdom to share on this? ;-)

Re: Pipe Servers.  I know I'm going to need one, I was just trying 
to combine agregating the font values and serving them.  I need two 
separate nodes for that...

all the label types, will just need one link to a different font.

CureCode/R3 is on a linux server. I guess there are font issues?

New version, i build images from texts, it should work on linux as 
well.
And you can change the font used as well.

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
]

pie: pie-chart [
    size: 300x200
    start: -80
    font: make font [size: 10]
][
    "block" none 0
    "crash" #ff3030 .04
    "major" #ff6060 .09
    "minor" #ffb850 .44
    "tweak" #ffd850 .03
    "text" #ffd850 .02
    "trivial" #ffd8a0 .31
    "not a bug" pewter .06
]

view layout [
    box 300x200 white effect [draw pie]
]

Yes, I could change the font to a monospace one.