World: r3wp

I'll try that out :)

( yes,  effect [draw [rotate]]  is different than  effect [rotate] 
)

Here's small challenge. I created following script which is surely 
full of junk. I am not good View coder :-) Now who helps me to simplify 
it and to get the movement smoother? :-)

screen-size: system/view/screen-face/size
news-bottom-offset: 0x100
news-height: 0x100

message: "This is short news scroller. Who makes me smooth? ..."

;--- style for draw dialect
bold64: make face/font [style: 'bold size: 64 color: white]


;--- But how to calculate text size for draw? Here's a workaround 
...
txt: make face compose [size: 2000X200 text: (message)]
txt/font: make face/font [style: 'bold size: 64 color: white]
text-size: size-text txt


view/offset/options layout/size [
  backcolor green

  ;--- we start behind the screen ....
  at (to-pair reduce [screen-size/x 10])

  t: box (to-pair reduce [2000 news-height/y]) ;--- box size ...
       effect compose/deep [
         draw [
           font bold64
           text (message)
         ]
        ] 
       rate 50
       feel [
         engage: func [f a e][
           if a = 'time [
             ;--- zde nastavujeme rychlost posuvu
             f/offset: f/offset - 3x0

             if (f/offset/x + (first text-size)) < 0 [f/offset/x: screen-size/x]
             show f  
         ]
        ]
      ]

] (to-pair reduce [screen-size/x news-height/y])(to-pair reduce [0 
(screen-size/y - news-bottom-offset/y - news-height/y)])[no-border 
no-title]

I don't think you can make it 100% smooth without knowing when the 
screen refreshes.

You have two faces (which you might need long term), but you could 
probably achieve the same text scrolling effect with just one face 
by modifying its para/offset.

No, you can't :) Of course, the window/text goes to the title-bar.

(so to get text in a window you always need at least one subface.)

Yes, you can :) but it's using Draw dialect text.

view/new window: make face [
	size: 800x150
	font: make face/font [size: 40]

 effect: compose/deep [draw [font (font) text 100x50 "Hello there"]]
	rate: 50
]
window/feel: make window/feel [
	engage: func [face action event][
		if action = 'time [
			window/effect/draw/text/x: window/effect/draw/text/x - 1
			show window
		]
	]
]
do-events
i

Anyway, it doesn't fix the basic problem.

Is it possible that 'jitter' that occures in Pekrs nice example sharing 
the same root cause as the 'heart-beat' that Geomol mentioned in 
a previous post?

not sure. HeartBeat might be TCP related. On my Core 2 duo I am not 
observing jitter, just not smooth animation. Now remember that Amiga 
with 7MHz CPU was able to provide us with absolutly smooth scrolling. 
But Win32API lacks vertical blanking period synchronisation, so I 
wonder if without DirectX or OpenGL we are able to actually make 
our situation better ...

Some time ago Carl told us, that View uses double buffering, but 
apparently it is not enough ....

Is there a way to have a face receive mouse input that is recieved 
via layouts in the faces pane?  This sounds weird, but when building 
components, if there is a generic face object that they all share, 
then on top of that face you add a layout with certain styles.  Is 
there a way(without adding a handler in the layout) to have the face 
receive the message as well?

Have you tried DETECT? http://www.rebol.com/how-to/feel.html#sect6.

I rarely use detect, but use insert-event-func quite often.

That might be what I need.  Messing with it seemed to overwrite some 
other handlers.  Suppose you have this:  my-face: make face [
			offset: offs
			size: sz
			color: 0.0.0

   text: win-title ;rejoin[window-counter ":" name] ;should this be 
   copy name?
			plugid: plug-id
			id: window-counter
			pane: copy []]

sorry about the comments....but just take it as a basic face. then 
you want to append my-face/pane layout[ txt: area button "blah" [txt/text: 
"something"]]

Where can I put the handler such that when the layout is clicked 
'my-face also receives a notification.  I was hoping I could put 
the feel in the face declaration, but that doesn't do anything.  
 Also, more than one layout is usually getting added to the pane. 
 I just want to the parent face to receive a message whenever one 
of them are clicked without having to add the handler in each of 
the layouts.

Nevermind.  I got detect to work for me by declaring my-pane/feel. 
 I had not been returning the events correctly.  Thanks for pointing 
me in the right direction.

Glad you got it working!

Graham, your 'grahamchat.r" code is just what I've been looking for. 
Thanks.

hehe .... I don't even know what that is any more!

It has the illusive text layout like what we are looking at now in 
Altme; that is, text boxes with different heights. It's so simple 
when you see someone else do it.

oh .. I'm sure i copied it off someone else :)

Where did you find grahamchat.r. Its not in the library.

The difference between random and random/secure:

img: make image! 512x512 
repeat i 512 [
	repeat j 512 [
		either i < 256 [
			if 2 = random 2 [
				img/(as-pair i - 1 j - 1): 255.255.255
			]			
		][
			if 2 = random/secure 2 [
				img/(as-pair i - 1 j - 1): 255.255.255
			]
		]
	]
]


view layout [image img across text "RANDOM" tab tab tab text "RANDOM/SECURE"]

Awesome Rebolek! You always come up with great visualizations.

Thanks Gregg, actually it's not my idea, it's based on this article 
- http://www.boallen.com/random-numbers.html, I was just curious 
if there's some pattern in REBOL 'random too.

randomize: func [
    "Reseed the random number generator."

    /with seed "date, time, and integer values are used directly; others 
    are converted."
][

    random/seed either find [date! time! integer!] type?/word seed [seed] 
    [
        to-integer checksum/secure form any [seed now/precise]
    ]
]

img: make image! 512x512 
repeat i 512 [
	randomize
	wait .001
	repeat j 512 [
		either i < 256 [
			if 2 = random 2 [
				img/(as-pair i - 1 j - 1): 255.255.255
			]			
		][
			if 2 = random/secure 2 [
				img/(as-pair i - 1 j - 1): 255.255.255
			]
		]
	]
]


view layout [image img across text "RANDOM" tab tab tab text "RANDOM/SECURE"]

great!

Nice view, Rebolek!!! :-)

Nice! By the way, here's the fastest optimization I could come up 
with (about 30% faster):

t0: now/precise
img: make image! 512x512
i: 0
loop 512 [
	loop 256 [i: i + 1 if 2 = random 2 [poke img i 255.255.255]]

 loop 256 [i: i + 1 if 2 = random/secure 2 [poke img i 255.255.255]]
]
print difference now/precise t0

amacleod - I don't know where grahamchat.r is either .. but they 
same should be in synapsechat in the contest entries on viewtop

How does one determine how many lines there are of text in an area 
filled with text?

height-of-area / height-of-font ?

but if the text only partially fills the area?

hmm.. can't you do something with setting the caret to a large position 
and read the position that way?

with offset-to-caret

unless it returns the index of the string and not a pair.

I'll try that ... wonder why the area just doesn't track the number 
of lines

can't remember if the way it formats text is native. it probably 
is.

What I am trying to do as in the video i posted on the rebgui channel 
is to open the area just enough to show all the text .. no less, 
and no more.

if you have fixed width or height, you could make a face of that 
fixed with or height with the text in it with the same font as for 
the area. then you can with SIZE-TEXT get the size back of the required 
size of the area. BTN does this.

the face you are using should be of quite large height or width, 
depending on what you want to size the area on. SIZE-TEXT bases the 
size of the text on the visible amount of text in the face, so if 
the face is too small, it will use the face size and not the text 
size.

I fetch the text asynchronously ie. I don't have the text at the 
time I construct the layout .. oh well...

; You could make the text face dynamically each time:


make-textbox: func [width [integer!] text [string!] /local textbox][
	textbox: make-face/size 'text (width * 1x0)
	textbox/text: :text
	textbox/size/y: second size-text textbox
	textbox
]

Does the line-list facet hold it?

open the area just enough to show all the text
 - size-text ?