World: r3wp

If this is the case, I suggest that a font dialect be created to 
support fonts inside the draw dialect

This is my hack of Frank's paint.r program

http://www.compkarori.com/reb/paintplus.r

paint  image [ image! none! ] data [block!]


if given an image as first parameter, it loads it.  If not, it creates 
a canvas of 300x300

if given a data block of draw commands, it applies it to the canvas

It adds freehand drawing, arrows, and text.  **BUT** can't load back 
in text yet due to the restrictions on fonts above.

if data block is empty, it ignores it.

This is a simplistic tool is to be used to mark up images to point 
out areas of interest in medical images.

Feel free to fix it for me before uploading to the Rebol.org ( forgot 
my password ... )

Frank had a very clever way of creating the draw block, but I found 
I couldn't do it the same way with all the combinations that were 
emerging.

Bizarre .. loading text works in this version !

A syntax-trick: #[object![a: 123]]

huh?

try that for your font

it's working anyway now!

Ahh... I see. My other version used mold and not mold/all :(

Graham, I notice with arrow, undo/redo and circle, it's possible 
to get a circle with an arrow-head on it.

yes ... :(

that's what I was saying .. arrow is a state

DideC, yes, that is a simpler solution to this particular problem. 
I guess I wanted to show a more general way, keeping the original 
binding, instead of guessing what the binding should be.

Graham, oh I see. Not really your fault then ?

and if you undo on an arrow draw, you lose the state setting, and 
so everything after that has arrows on it :(

I can catch when you change from arrow to something else... but .. 
if I undo, I can't ...

probably needs some type of stack

It sounds like arrow should not be a tool, rather a mode that affects 
all/most tools.

Hmm.  Perhaps so.

Otherwise I suggest switch arrow on, draw line with arrow head on 
it, switch arrow off.

If it's a mode, then it should be a check-box, not a radio.

I did that before I realised it was a state.

that might work .. undo the arrow immediately after the draw.

Actually, even if it's a mode, you should compose the draw block 
like (very pseudo-code):

 compose [ (either arrow-on? [enable-arrow][])  (draw-cmd-eg.line) 
  (either arrow-on? [disable-arrow][])  ]

Just ideas, I didn't look at the code this time.

That works ... turning off arrow immediately.

now up on rebol.org

what would it take to have text flow automatically around a rectangular 
image in a area field?

There is new release of View - no docs though ...

probably a rebcode update

maybe, but rebcobe binding bug is still not fixed :(((

or rebservices already integrated? looks smaller though ...

can't find string "rebservice" anywhere in system object

we've got draw text which can follow a spline .. so why not have 
text that knows the boundary of an image object ?

I have noticed, that there is new (dunno how long it is in rebol) 
command line parameter, called -v (noviewtop) and I have few comments. 
I am not sure that it was not added in-there because of my Rambo 
ticket, which asked for introduction of no-connect option instead. 
So, the trouble with obtrusive and annoying View desktop trying to 
connect to internet, is still there, and it really puts rebol worth 
sending into trashcan on such affected machine ;-)

Second - why ViewTop? and if ViewTop, why we still call desktop a 
Desktop? That is imo inconsistent ...

so -v might be usefull though, but - please, if we can't do proper 
async, where even system buttons are blocked and you can't even shut-down 
rebol task via ctrl, alt, del, then add noconnect option, please 
....

What does async in such circumstances? rebservices (should) have 
http-async, then it may be solvable easily.

dunno. It does not matter. But it seems rudiculoust to see app blocked 
for 10 - 30 secs, not being able to even shut it down ...

AFAIK os takes that long to report an error. and with sync, rebol 
can do nothing before an os-reply.

don't care ;-)

.... because .... OS does not take so long imo :-)) Isn't it just 
a question to set lower default time-out thant 30 sec, or what was 
the value?

I don't know. Thought i read somewhere something can not be influenced.

IIRC rebol uses 30 secs for timeout ... :

get in make port! http://www.rebol.com'timeout
== 30

WHat does a normal read? also timeout for so long?