[REBOL] Re: ok, ok, more countries listed
On 04-May-01, Carl Sassenrath wrote: Take a look again. NZ and Brazil were just off the edge. I've lowered the threshold. So, if you have fewer hits than Niue, you're not shown, and you don't deserve it. -Carl Ah - that's better. But are you brave enough to show OS use stats? (; -- Carl Read [EMAIL PROTECTED] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: PDF again... was: Can Rebol Do?
PDF pops up again... I've been trying for a while to find PDF public (?) specs to implement PDF output in make-spec. Has anyone a hint? -- Paolo Russo As usual, five minutes after posting a public request of help I got lucky and found what I need myself. If anyone is interested in PDF specs, he can find them at http://www.pdfzone.com. At first glance there are no problems to generate a PDF file with REBOL as I expected, but... you have to read a 518 pages manual before! For a while I'll stick with the native PDF printing capabilities of MacOS X... -- Paolo Russo [EMAIL PROTECTED] _ PERD s.r.l. Virtual Technologies for Real Solutions http://www.perd.com -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: ok, ok, more countries listed
At 21:33 3.5.2001 -0700, you wrote: Carl, That's more fun. Would be interesting to know for comparison the total United States number for the same period. That's technically (allmost) impossible, because it's not feasible to sort out all COM, ORG, NET domains to find out where they really belong.. In theory, each connection has Ip-number and those ought to be unique, but their allocation in this planet is so arbitrary that you end up doing LOT hard work.. Joanna Just curious -Larry - Original Message - From: Carl Sassenrath [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, May 03, 2001 9:07 PM Subject: [REBOL] ok, ok, more countries listed Take a look again. NZ and Brazil were just off the edge. I've lowered the threshold. So, if you have fewer hits than Niue, you're not shown, and you don't deserve it. -Carl -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. www.mp3.com/JoannaK Free MP3 music -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Can Rebol Do?. (was) Re: International REBOL Use
Atachment easy, Sterlings %attach.r in the script-library.
Pdf? I found nothing ready i know not much about it.
Some kind of postscript with some packing? grin
In my original implementation idea I'm going to Hand-code PS (it's yet
another programming language, looks related to Forth) and then find some
Linux tool (Ghostscript package has tool named ps2pdf and it's part if
standard Linux RH7) to convert it into PDF..
I know it's possible to use some 3:rd part library to make PDF directly
within PHP but those libraries have such high licensing fees they don't fit
into this project. (not my fault, I did not sell this idea it to customer,
I would have just offered plain ascii E-mail ;-)
Use your pdf-tools with /Pro /Command?
Or php calling some rebol-scripts?
Call the tools for php, make the files,
then call a caller for %attach.r (args..)
(since it sounds the attaching is a project in php :)
Hm, with postscript the email would look like
...lots of stuff...
{line 1 of email} show-somehow
{line 2 of email} show-somehow
...
size-of-pic
pic-somehow-encoded
This is the tricky part.. Image encoding must be direct hex stream (1,2,4
or 8 bits per pixel, greyscale) ... This is not what I want to do with PHP.
(it's good on many things.. ;)
swipswopswap show-picture-somehow
... goddbye and that ...
if pdf is text this looks like a
template with some placeholders,
where rebol can paste in this stuff?
hm. if /view could dump its faces to pdf.. dreaming
Hmm.. Dumping them on PS would help too..
Joanna
Volker
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Re: Pane Refresh Problem
Thanks a lot, Anton. I try it right away. chr== Make a static layout and refer to the VID gadgets inside by number, in the pane attribute. Like this: view/new lay: layout [ style bx box 10x10 ; little box across bx bx return bx bx ] ; change the third box set in pick lay/pane 3 'color red show pick lay/pane 3 You could use image instead of box for a professional look, although that might slow it down a bit. If you really need to alter the layout, check out Volker Nitsch's insert-face3.r script of 10-Apr-2001 in Ally mail list. It takes a while to understand (and I made an English only version if you're interested.) but it should benefit you. Anton. Hi list: For experimenting with /View, I've written another Game of Life. The algorithm works OK with an ASCII output, but I cannot get the result in /view, because I don't know how to trigger a refresh of the pane. Here's the code I use for the visual part - max-x and max-y are global words setting the size of the life map. snip show-visual: func [ /local x y main society ][ main: layout [ vh2 Game of Life guide pad 20 button QUIT [unview halt] return box 2x140 yellow return panels: box 300x300 ] society: [ origin 8x8 backdrop black across space 1x1 style alive box red 10x10 style dead box black 10x10 return ] forever [ make-live ;--- create the life map ;--- dynamically append boxes to pane for x 1 max-x 1 [ for y 1 max-y 1 [ either (alive? x y)[ append society 'alive ][ append society 'dead ] ] append society 'return ] panels/pane: layout society show panels/pane view main ] ] /snip It works if I close the generated windowat each generation. It's for sure not difficult, but I cannot find anything in the Doc :-( Any idea ? chr== -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] [SCRIPT]Game of Life in /View
hi list:
Just for the fun of learning /View, I've just hack a *Game of Life* ...
Thanks again to Anton for helping me for the dynamic refresh of the panel.
Just CopyPaste and enjoy it !
script
rebol [
title: Game of Life
date: 03-may-2001
file: %gol.r
author: C. COUSSEMENT
email: [EMAIL PROTECTED]
comment: {Game of Life is a cellular automaton on an infinite quadratic
grid.
Each grid cell is either alive/on or dead/off.
The new state of each cell is computed in discrete timesteps
and is
determinated by it's old state and the sum of the alive cells
among
its surrounding 8 nearest neighbours cells. All these changes
are
simultaneously over the whole, infinite grid! - which can be
only simulated !
The Game of Life rules let a cell in the next generation only
alive if
a living cell is either surrounded by either 2 or 3 alive
cells, the
*survive condition*, or a dead cell flips into the alive state
in the
next generation if it is surrounded by exactly 3 living cells,
the *borne
condition*. Otherwise it dies or stays dead.
Therefore a given initial pattern, a collection of alive cells
in a
universe of dead cells, develops according to these rules over
the
generations and produces various configurations.
These special rules were invented 1970 by the mathematician
J.H.
Conway to garanty that the cellular automaton is on the
boundary
between unbounded growth and decay into dullness. It was
proven that
it's chaotic behaviour is unpredictable and it could be used
to build
an universal turing-machine and even an universal constructor.
One
of the important open problems is whether a sufficient large
random
populated universe will develop selforganization structures.
}
usage: {
do %gol.r
*ESC*
unview
A dimension of 10x10 works fast enough on a P233 under WinNT4
}
]
init-map: func [
set initial pattern
max-x [integer!]
max-y [integer!]
/local x y map
][
map: make block! []
for x 1 max-x 1 [
;random/seed now
for y 1 max-y 1 [
append map to-integer rejoin [x y]
append/only map to-block pick reduce [true false] random 2
]
]
return map
]
kill: func [
set given cell to dead
map [block!]
x [integer!]
y [integer!]
][
clear select map to-integer rejoin [x y]
append select map to-integer rejoin [x y] false
return map
]
birth: func [
set given cell to life
map [block!]
x [integer!]
y [integer!]
][
clear select map to-integer rejoin [x y]
append select map to-integer rejoin [x y] true
return map
]
alive?: func [
get cell status
map [block!]
x [integer!]
y [integer!]
][
return first select map to-integer rejoin [x y]
]
neightboor: func [
get amount of surronding alive cells
map [block!]
x [integer!]
y [integer!]
/local lives
][
lives: make integer! 0
if all [(x 1)(y max-y)(alive? map (x - 1) (y + 1))][lives: lives +
1]
if all [(x)(y max-y)(alive? map (x) (y + 1))][lives: lives + 1]
if all [(x max-x)(y max-y)(alive? map (x + 1) (y + 1))][lives: lives
+ 1]
if all [(x 1)(y)(alive? map (x - 1) (y))][lives: lives + 1]
if all [(x max-x)(y)(alive? map (x + 1) (y))][lives: lives + 1]
if all [(x 1)(y 1)(alive? map (x - 1) (y - 1))][lives: lives + 1]
if all [(x)(y 1)(alive? map (x) (y - 1))][lives: lives + 1]
if all [(x max-x)(y 1)(alive? map (x + 1) (y - 1))][lives: lives +
1]
return lives
]
make-generation: func [
compute status of each cell
map [block!]
max-x [integer!]
max-y [integer!]
/local x y
][
for x 1 max-x 1 [
for y 1 max-y 1 [
;--- survive condition
if any [((neightboor map x y) 2)((neightboor map x y) 3)]
[map: kill map x y]
;--- borne condition
if all[(not alive? map x y)((neightboor map x y) = 3)] [map:
birth map x y]
]
]
return map
]
show-visual: func [
visualize map
max-x [integer!]
max-y [integer!]
/local x y main society map
][
;--- initialize map
map: init-map max-x max-y
;--- set layout
lay: [
style amibe box 20x20 black
space 1x1
]
for x 1 max-x 1 [
for y 1 max-y 1 [
append lay 'amibe
]
append lay 'return
]
lay: layout lay
view/new lay
;--- animate
forever [
count: 0
for x 1 max-x 1 [
for y 1 max-y 1 [
count: count + 1
either alive? map x y [
set in pick lay/pane count 'color red
][
[REBOL] Re: read bug?
On Wed, 02 May 2001 08:13:37 -0500 Joel Neely [EMAIL PROTECTED] wrote: if system/options/cgi/request-method = GET [ do decode-cgi system/options/cgi/query-string] if system/options/cgi/request-method = POST [ post: make string! input do decode-cgi post] Hi Joel, I changed my code to use 'read/custom instead of just 'read and this has stopped the url mangling that I was experiencing. I then hit the POST character limit that you described above. Using Holger's/Chris' code -- if system/options/cgi/request-method = POST [ len_post: ( 20 + load system/options/cgi/content-length ) post: make string! len_post while [0 read-io system/ports/input post len_post ] [] do decode-cgi post ] seems to have fixed it. My vidwikibeta script can now post over 17k without loss. If you want to stress it, the script is on my site. -- Graham Chiu http://www.compkarori.co.nz/index.r -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: [SCRIPT]Game of Life in /View
On Fri, 4 May 2001 11:26:40 +0200 CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN [EMAIL PROTECTED] wrote: Just for the fun of learning /View, I've just hack a *Game of Life* ... I don't know if it matters, but 'alive? is already used in View. -- Graham Chiu -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: read bug?
While we are looking at cgi stuff... View/Pro 1.1.0.3.1 plus-to-space func is set into the global context after using decode-cgi (this func is nested inside decode-cgi and should be made local to it, or since it is a useful func it should be made a mezzanine func so its always accessible) ? plus-t No information on plus-t (word has no value) decode-cgi this=3 == [this: 3] ? plus-t Found these words: plus-to-space (function) Cheers, Allen K -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: read bug?
Thanks, Graham! Graham Chiu wrote: ... Using Holger's/Chris' code -- if system/options/cgi/request-method = POST [ len_post: ( 20 + load system/options/cgi/content-length ) post: make string! len_post while [0 read-io system/ports/input post len_post ] [] do decode-cgi post ] seems to have fixed it. My vidwikibeta script can now post over 17k without loss. If you want to stress it, the script is on my site. This day is already overfulltorunningover ;-) but I'll try to look at it over the weekend. One of the things I had planned to do was merge wiki-like functionality with a REBOL-based mini-http-server script to provide a lightweight interactive note-taking tool for my laptop. Of course, it would also need a means to synch the content with other boxes (home box, desk box at work, big server at work, etc...) -jn- -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: [SCRIPT]Game of Life in /View
It gives me an idea.
It should be possible to use built-in image processing
effects on a small image to do the life calculations
for you (at the same time getting more interesting
colours), then stretching the little image to fit
into your window and slapping a grid on it.
The tricky part is to balance the use of image
processing effects in such a way as to produce a
feedback, life-like.
Such a system will be much faster too, I expect.
See anim-zoom3.r on my reb-site for a demonstration
of effects used in a feedback loop.
I'll probably give it a go myself.
Actually, you could still use a stretched image
to store your cell state, with different colours
representing different states.
Anton.
hi list:
Just for the fun of learning /View, I've just hack a *Game of Life* ...
Thanks again to Anton for helping me for the dynamic refresh of the panel.
Just CopyPaste and enjoy it !
script
rebol [
title: Game of Life
date: 03-may-2001
file: %gol.r
author: C. COUSSEMENT
email: [EMAIL PROTECTED]
comment: {Game of Life is a cellular automaton on an infinite
quadratic
grid.
Each grid cell is either alive/on or dead/off.
The new state of each cell is computed in discrete timesteps
and is
determinated by it's old state and the sum of the
alive cells
among
its surrounding 8 nearest neighbours cells. All
these changes
are
simultaneously over the whole, infinite grid! - which can be
only simulated !
The Game of Life rules let a cell in the next
generation only
alive if
a living cell is either surrounded by either 2 or 3 alive
cells, the
*survive condition*, or a dead cell flips into the
alive state
in the
next generation if it is surrounded by exactly 3
living cells,
the *borne
condition*. Otherwise it dies or stays dead.
Therefore a given initial pattern, a collection of
alive cells
in a
universe of dead cells, develops according to these
rules over
the
generations and produces various configurations.
These special rules were invented 1970 by the mathematician
J.H.
Conway to garanty that the cellular automaton is on the
boundary
between unbounded growth and decay into dullness. It was
proven that
it's chaotic behaviour is unpredictable and it could be used
to build
an universal turing-machine and even an universal
constructor.
One
of the important open problems is whether a sufficient large
random
populated universe will develop selforganization structures.
}
usage: {
do %gol.r
*ESC*
unview
A dimension of 10x10 works fast enough on a P233 under WinNT4
}
]
init-map: func [
set initial pattern
max-x [integer!]
max-y [integer!]
/local x y map
][
map: make block! []
for x 1 max-x 1 [
;random/seed now
for y 1 max-y 1 [
append map to-integer rejoin [x y]
append/only map to-block pick reduce [true false] random 2
]
]
return map
]
kill: func [
set given cell to dead
map [block!]
x [integer!]
y [integer!]
][
clear select map to-integer rejoin [x y]
append select map to-integer rejoin [x y] false
return map
]
birth: func [
set given cell to life
map [block!]
x [integer!]
y [integer!]
][
clear select map to-integer rejoin [x y]
append select map to-integer rejoin [x y] true
return map
]
alive?: func [
get cell status
map [block!]
x [integer!]
y [integer!]
][
return first select map to-integer rejoin [x y]
]
neightboor: func [
get amount of surronding alive cells
map [block!]
x [integer!]
y [integer!]
/local lives
][
lives: make integer! 0
if all [(x 1)(y max-y)(alive? map (x - 1) (y + 1))][lives: lives +
1]
if all [(x)(y max-y)(alive? map (x) (y + 1))][lives: lives + 1]
if all [(x max-x)(y max-y)(alive? map (x + 1) (y +
1))][lives: lives
+ 1]
if all [(x 1)(y)(alive? map (x - 1) (y))][lives: lives + 1]
if all [(x max-x)(y)(alive? map (x + 1) (y))][lives: lives + 1]
if all [(x 1)(y 1)(alive? map (x - 1) (y - 1))][lives: lives + 1]
if all [(x)(y 1)(alive? map (x) (y - 1))][lives: lives + 1]
if all [(x max-x)(y 1)(alive? map (x + 1) (y - 1))][lives: lives +
1]
return lives
]
make-generation: func [
compute status of each cell
map [block!]
max-x [integer!]
max-y [integer!]
/local x y
][
for x 1 max-x 1 [
for y 1 max-y 1 [
;--- survive condition
if any [((neightboor map x y) 2)((neightboor map x y) 3)]
[map: kill map x y]
;--- borne condition
[REBOL] Re: retrieve-user-data needs help
From: [EMAIL PROTECTED] I'm trying to incorporate my 'decode-multipart/form-data function into the commonly used 'retrieve-user-data function, but I am getting something wrong. The function works now for GET operations but not for POST. If I use 'read-io on system/ports/input, that clears the port, correct? snip Hi, Ryan, On May 2nd on a different thread (read bug?), Holger said (excerpt): excerpt About the other problem, i.e. getting data from a POST request within a REBOL CGI script: keep in mind that read-io is a very-low-level read request that returns as soon as the OS returns something. The amount of data returned is not necessarily what was requested. It can be less. This is not a bug, it is by design. If you see a limit of around 4096 bytes then this is caused by how the OS clusters its data. What you need to do in a CGI script is loop until read-io returns 0, e.g. cgi-str: make string! 10 while [0 read-io system/ports/input cgi-str 10] [] /excerpt I've not had a chance to play with this approach. Maybe it will help. --Scott Jones Then... return make object! decode-cgi input ...will no longer work. But if I replace that line with... return make object! decode-cgi post-data ...thus using the data I have already retrieved, (using 'post-data in my function below instead of 'input) the function does not work. Why? 'decode-cgi requres an argument of 'any-string! and should be able to handle my 'post-data argument, shouldn't it? Here is the version of 'retrieve-user-data I am trying to use... retrieve-user-data: func [][ either system/options/cgi/request-method = POST [ content-length: 20 + load system/options/cgi/content-length post-data: make string! content-length read-io system/ports/input post-data content-length parse/all post-data [thru Content-Disposition: copy text to ; (post-type: copy text)] switch/default post-type [ form-data [ decode-multipart/form-data ] return make object! decode-cgi input ] ][ return make object! decode-cgi system/options/cgi/query-string ] ] Ryan C. Christiansen Web Developer Intellisol International 4733 Amber Valley Parkway Fargo, ND 58104 701-235-3390 ext. 6671 FAX: 701-235-9940 http://www.intellisol.com Global Leader in People Performance Software _ Confidentiality Notice This message may contain privileged and confidential information. If you think, for any reason, that this message may have been addressed to you in error, you must not disseminate, copy or take any action in reliance on it, and we would ask you to notify us immediately by return email to [EMAIL PROTECTED] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: [SCRIPT]Game of Life in /View
Christophe can enclose his functions in a context so that the global wordspace won't be cluttered, and functions like 'alive? won't be redefined. On a second note, the function 'neightboor should be 'neighbour or 'neighbor, in English, yes? Regards, Anton. On Fri, 4 May 2001 11:26:40 +0200 CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN [EMAIL PROTECTED] wrote: Just for the fun of learning /View, I've just hack a *Game of Life* ... I don't know if it matters, but 'alive? is already used in View. -- Graham Chiu -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: [SCRIPT]Game of Life in /View
Thanks for the tip: I did know that. I don't know if it matters, but I changed the function *alive?* in *is-alive?* CU, chr== On Fri, 4 May 2001 11:26:40 +0200 CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN [EMAIL PROTECTED] wrote: Just for the fun of learning /View, I've just hack a *Game of Life* ... I don't know if it matters, but 'alive? is already used in View. -- Graham Chiu -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: [SCRIPT]Game of Life in /View
Christophe can enclose his functions in a context so that the global wordspace won't be cluttered, and functions like 'alive? won't be redefined. [Keep it simple: I just renamed it.] On a second note, the function 'neightboor should be 'neighbour or 'neighbor, in English, yes? [Oowh, sourry four my pour English ! ;-)) ] Regards, Anton. [ CU, chr== ] On Fri, 4 May 2001 11:26:40 +0200 CRS - Psy Sel/SPO, COUSSEMENT Christophe, CPN [EMAIL PROTECTED] wrote: Just for the fun of learning /View, I've just hack a *Game of Life* ... I don't know if it matters, but 'alive? is already used in View. -- Graham Chiu -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: unix question
Thanks for the useful information. My next concern is how to make sure the rebol script is relaunched after a reboot, bearing in mind I'm just a user on the system (no administrator). fantam = Original Message From Kenneth LO [EMAIL PROTECTED] = That's because /view is attched to a visual i.e. it requires an X client to display itself. X clients are usually closed when you exit and so your /view session is also killed. For /core as it does not require a visual it can exist after a logout using and/or -nohup. You can preserve your X client using the VNC technology. See http://www.uk.research.att.com/vnc/ 2001/5/1 PM 05:35:47, Dunlop, Scott [EMAIL PROTECTED] wrote: I was just about to propose that, but it /isn't/ working for me with Rebol/View 1.1 on Solaris at the moment. Odd. [EMAIL PROTECTED] Tuesday, May 01, 2001 8:28 PM rebol myscript.r works for me with /core 2.3 on Solaris If that dosen't work on your unix you can add -nohup 2001/5/2 AM 03:56:45, Fantam [EMAIL PROTECTED] wrote: How do I launch a rebol process on a remote unix box that is to survive my telnet session, i.e. it should continue to run after I log off (I'm no administrator). -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- [EMAIL PROTECTED] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Can Rebol Do?. (was) Re: International REBOL Use
Hmm.. Dumping them on PS would help too.. I've *glanced* at PS and PDF. I suspect PS would be easier to code because it is a programming language and therefore you can create subroutines to do all the hard work. Then generate the PS like you might HTML, by spitting out the fixed header including subroutine definitions and then data and subroutine call(s). I don't know if Ghostscript handles it but I recall that PS has operations to read external files as well (may or may not be handy). PDF on the other hand I believe is a superset of PS, but encapsulated within a data model. I've there have been quite a few articles on spitting out PDF using Java and other languages - and the examples looked quite straight forward - as long as your output was not too dynamic. Sorry I can't contribute to your image question. Brett. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Printer
I'm just getting started with REBOL. With help from another list, I managed to get REBOL to print a file. I used append to add a formfeed (chr12) to the end of the file. I'd like to be able to get rid of the popup box that asks permission to write to the printer. I tried using allow/write, but I couldn't get that to work. Does anyone know how to give blankent permission to write to the printer? Here's the script: REBOL [Title: Send Mail] mail: [EMAIL PROTECTED] file: read %test.txt printerfile: append file #^L ;appends a formfeed to file view layout [ across text white Subject: field 343 linen white below area wrap linen white file across button Save [write %test.txt file] button E-mail [send [EMAIL PROTECTED] file] button Print [write %//prn printerfile] ] Thanks, Jim -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Printer
Maybe you want to call the script with parameters like -s -w -q -i --script to avoid rebol console and override permissions. -=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=-=*=- Miracles happen only to those who believe in them. * Visit 'The International Order of Sea-Monkey Owners' web site * http://home.coqui.net/menace/seamonke.htm * To subscribe to our monthly news, send a blank email to: * [EMAIL PROTECTED] - Original Message - From: Jim Clatfelter [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, May 04, 2001 7:02 AM Subject: [REBOL] Printer I'm just getting started with REBOL. With help from another list, I managed to get REBOL to print a file. I used append to add a formfeed (chr12) to the end of the file. I'd like to be able to get rid of the popup box that asks permission to write to the printer. I tried using allow/write, but I couldn't get that to work. Does anyone know how to give blankent permission to write to the printer? Here's the script: REBOL [Title: Send Mail] mail: [EMAIL PROTECTED] file: read %test.txt printerfile: append file #^L ;appends a formfeed to file view layout [ across text white Subject: field 343 linen white below area wrap linen white file across button Save [write %test.txt file] button E-mail [send [EMAIL PROTECTED] file] button Print [write %//prn printerfile] ] Thanks, Jim -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: [SCRIPT]Game of Life in /View
Christophe can enclose his functions in a context so that the global wordspace won't be cluttered, and functions like 'alive? won't be redefined. [Keep it simple: I just renamed it.] Fair enough. On a second note, the function 'neightboor should be 'neighbour or 'neighbor, in English, yes? [Oowh, sourry four my pour English ! ;-)) ] Forgiven :) I wondered if it was close to a word in another language? We should make a rebol dialect called 'bad-english. It should translate bad English into good English. Then none of us have to worry about spelling mistakes in our code. Regards, Anton. [ CU, chr== ] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Poke and Pick and binary! Part 2
Thanx! Anton, Joel Neely, and Larry Palmiter. I now understand a little
more.
But...
The reason I want to do this is to swap elements of _any_ series!
The previous code was part of the following function, the purpose of which
is to swap elements in any type of series!
First, if I add the to-char refinement then other types of series no
longer work (try adding the to-char change and then swap elements of [1 2
3 4 5 6 7 8 9 0] !).
Second, is there a rebol native or mezzanine that does this already?
Third, if the answer to 2 is false, any suggestions on changing the
s-swap function so that it will swap elements of any type of series (the
primary focus of this is to be able to swap block!s string!s and compressed
string!s - which are binary!)
;Here is the function as it stands**
s-swap: func [{swaps the elements of two series at the given index
positions}
a [series!] 1st series
index-a [integer!] index position to swap in 1st series
b [series!] 2nd series
index-b [integer!] index position to swap in 2nd series
/local holder
] [
holder: pick a index-a
poke a index-a pick b index-b
poke b index-b holder
]
;
__
FREE Personalized Email at Mail.com
Sign up at http://www.mail.com/?sr=signup
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Re: Poke and Pick and binary! Part 2
Hi, Alan,
...try this.
alan parman wrote:
Thanx! Anton, Joel Neely, and Larry Palmiter. I now understand a little
more.
But...
The reason I want to do this is to swap elements of _any_ series!
The previous code was part of the following function, the purpose of which
is to swap elements in any type of series!
swapper: func [s [series!] i [integer!] j [integer!] /local si sj] [
si: copy/part at s i 1
sj: copy/part at s j 1
change at s i sj
change at s j si
]
which behaves as follows...
foo: this is a Test
== this is a Test
swapper foo 1 11 foo
== This is a test
foo: to-binary this is a Test
== #{7468697320697320612054657374}
swapper foo 1 11 foo
== #{5468697320697320612074657374}
to-string foo
== This is a test
Improvements, anyone?
-jn-
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Re: Can Rebol Do?. (was) Re: International REBOL Use
[rebol [
comment: {
JUF (just for fun):
if iam done this right, /view can
grayscale and dump an image 500x350
in ~2.5sec (k2/350)
dump means, it extracts one color from each
pixel in a loop (*175000) (dont know which color :).
should do this
tricky part.. Image encoding must be direct hex stream (1,2,4
or 8 bits per pixel, greyscale)
with 8bit/pixel?
don't know if its fast enough compared to native tools,
and you need a running x-server with access for the cgi-owner
to use it.. (or windows?)
now learning pdf ..
oh yes, the code is high dirty,
yell if you need cleanup :)
Volker
}]
;---
;some helpers
;debug2/cmd source ???
???: func ['wort wert] [
print [mold :wort : mold wert]
wort wert
]
;---
;get image
b: load read-thru
;http://www.rebol.com/view/demos/palms.jpg
http://www.rebolforces.com/reb/images/rebolt.jpg
probe type? b
??? a: b/size
;---
;a bit show-sugar before
h: to image! layout [origin 0x0 image b effect [grayscale]]
view layout [
title here is the used picture
across image b image h
return
button benchmark [unview/all]
text read on console..
;box a effect[cross]
]
??? c: a/x * a/y
d: make binary! c
;---
; the benchmark (!!)
do [
t1: now/precise
;---
;the real working part..
i: to image! layout [origin 0x0 image b effect [grayscale]]
repeat f divide length? i 4 [
insert tail d to char! i/:f/1
]
??? t2: now/time/precise - t1/time
]
probe length? d
;halt
]
Ursprüngliche Nachricht
Am 04.05.01, 08:24:18, schrieb Joanna Kurki [EMAIL PROTECTED] zum
Thema [REBOL] Re: Can Rebol Do?. (was) Re: International REBOL Use:
Atachment easy, Sterlings %attach.r in the script-library.
Pdf? I found nothing ready i know not much about it.
Some kind of postscript with some packing? grin
In my original implementation idea I'm going to Hand-code PS (it's
yet
another programming language, looks related to Forth) and then find
some
Linux tool (Ghostscript package has tool named ps2pdf and it's part if
standard Linux RH7) to convert it into PDF..
I know it's possible to use some 3:rd part library to make PDF
directly
within PHP but those libraries have such high licensing fees they
don't fit
into this project. (not my fault, I did not sell this idea it to
customer,
I would have just offered plain ascii E-mail ;-)
Use your pdf-tools with /Pro /Command?
Or php calling some rebol-scripts?
Call the tools for php, make the files,
then call a caller for %attach.r (args..)
(since it sounds the attaching is a project in php :)
Hm, with postscript the email would look like
...lots of stuff...
{line 1 of email} show-somehow
{line 2 of email} show-somehow
...
size-of-pic
pic-somehow-encoded
This is the tricky part.. Image encoding must be direct hex stream
(1,2,4
or 8 bits per pixel, greyscale) ... This is not what I want to do with
PHP.
(it's good on many things.. ;)
swipswopswap show-picture-somehow
... goddbye and that ...
if pdf is text this looks like a
template with some placeholders,
where rebol can paste in this stuff?
hm. if /view could dump its faces to pdf.. dreaming
Hmm.. Dumping them on PS would help too..
Joanna
Volker
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] PDF to HTML Converter
Becuase of all the interist lately in reading PDF's, I just had to put a user interface on a conversion script I made. Its pretty cheezy, but also kinda cute in its own right, as it demonstrates remote processing. --Ryan REBOL[ Title: PDF to HTML Converter file: %pdf-html.r Author: Ryan S. Cole Comments: Just some junk code I had that I slopped a UI on. ] PDF-conversion-URL: http://access.adobe.com/perl/convertPDF.pl convert: function [ converts pdf url to html pdf [URL!] where-to [file! URL! block!] ] [ document ] [ document: read/custom PDF-conversion-URL reduce [ 'post rejoin [url= pdf extract_order=-xreflow_p=Xclear_p=X] ] either empty? where-to [ write %temp.html document editor %temp.html ] [ foreach f where-to [write f document] ] ] view layout [ title PDF to HTML Converter label URL of PDF document pdf-url: field (http://www.ftc.gov/os/1999/9910/64fr59888.pdf;) label Save to across save-to: field button Browse [save-to/text: mold request-file show save-to] return button Convert [ convert load pdf-url/text load save-to/text ] ] -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: International REBOL Use
How do you think that PNG is being generated right now? ;) I'll give you three guesses, the first two don't count, and the right answer starts with a big capital R You're preaching to the preacher in this case... hehe. Take it easy, Sterling See how your country scores in worldwide REBOL interest... http://www.rebol.com/sitehits.html -Carl That's really interesting, I hope you'll keep posting these data monthly. If it's too much work to generate that PNG, you could try to ease it up with REBOL... ;-) -- Paolo Russo [EMAIL PROTECTED] _ -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Encryption How-to
Yes, you can write encryption and decryption in just a few lines. Good stuff at: http://www.rebol.com/how-to/encrypt.html Please send me an email if you find typos and such. -Carl -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] REBOL.com
The REBOL rebsite needs a link to the How To's. Ammon -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Desktop
Hi, How do I add Items to the left hand pane? Thanks!! Ammon -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Desktop
Hi Ammon, How do I add Items to the left hand pane? Edit %bookmarks.r in the %desktop/ folder where you have View installed. It works in a similar fashion to a regular 'index file. - Chris -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Desktop
On Fri, 4 May 2001 17:31:05 -0700 Ammon Cooke [EMAIL PROTECTED] wrote: Hi, How do I add Items to the left hand pane? CTRL-E to bring up the editor. Then edit the desktop/bookmarks.r -- Graham Chiu -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: THANK YOU! (was Re: Re: retrieve-user-data needs help)
From: [EMAIL PROTECTED] Thank you, Scott, for digging this up! We'll redirect the thanks for the actual helpful part to Holger; I just happened to notice the similar problems addressed in different threads. :) I can now upload large files using multipart/form-data. See for yourself by uploading a nice big browser-capable image here... http://www.fargonews.com/post-data.html Works great, Ryan. Volker's 47k Rebolution pic uploaded just fine and dandy. --Scott Jones -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: International REBOL Use
How do you think that PNG is being generated right now? ;) I'll give you three guesses, the first two don't count, and the right answer starts with a big capital R I have it: _R_asterizing a vector file, what else? Did I win something? :-))) You're preaching to the preacher in this case... hehe. Take it easy, Sterling See how your country scores in worldwide REBOL interest... http://www.rebol.com/sitehits.html -Carl That's really interesting, I hope you'll keep posting these data monthly. If it's too much work to generate that PNG, you could try to ease it up with REBOL... ;-) -- Paolo Russo [EMAIL PROTECTED] _ -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes. -- Paolo Russo [EMAIL PROTECTED] _ PERD s.r.l. Virtual Technologies for Real Solutions http://www.perd.com -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: Encryption How-to
Yes, you can write encryption and decryption in just a few lines. Good stuff at: http://www.rebol.com/how-to/encrypt.html Please send me an email if you find typos and such. Carl, good stuff as usual. I found one typo, perhaps two. 5. Creating a Good Encryption Key Here is a handy function that requests the a key phrase from the user, encodes it, and returns it as a result. 10. Encrypted Email dest: to-email f-to/data file: to-file f-file/data key: checksum/secure f-key/data subject: f-sub/data Shouldn't this code example be bold formatted? Greetings -- Paolo Russo [EMAIL PROTECTED] _ PERD s.r.l. Virtual Technologies for Real Solutions http://www.perd.com -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] IRSee.r Now with private chat rooms
Hello all.
Updated IRSee.r (IRSee... view..get it? Never mind.)
Improvements...
- IRSee now has private chat rooms... just pick a handle, room name and hit enter.
(It's private as long as no one can guess your room, encryption on the way) General
room for public discussions.. maybe a chat with Mr. Sassenrath and co. one day?
- Buttons names no longer scroll off the buttons
- Input field clears and re-focuses upon hitting the Enter key or submit button.
Great thing about View.. it's completely skinable... how about an IRSee.r skin contest
just for fun?
IRSee.r available at the LFReD rebsite (may need a reload) or below...
Again, any enhancement suggestions appreciated.
Terry Brownell
REBOL [
Title: LFReD IRSee
Author: Terry Brownell
Email: [EMAIL PROTECTED]
Date: 04-May-2001
File: %IRSee.r
History: [{
Ver 1.2.4
}]
]
irc-in: http://216.232.249.87/cgi-bin/irc-in.LFReD?room=
irc-out: http://216.232.249.87/cgi-bin/irc-out.LFReD?
view layout [
backdrop 103.134.170 effect [ grid 10x10 93.124.160 ]
across
h4 Name/Handle: handle: field Handle 100 93.124.160
h4 Chat Room: room: field General 100 93.124.160
button Enter 75x25 93.124.160 [the-room: rejoin [irc-in room/text] forever [ m/text:
copy read the-room show m wait 3]]
return
m: info 442x200 wrap
s4: slider 14x200 93.124.160 [scroll-para m s4] return
message: field 93.124.160 return
button 93.124.160 75x25 Submit #^M [read rejoin [irc-out said= rejoin
[handle/text : message/text]room= room/text]message/text: copy show message
focus message]
button Quit 75x25 93.124.160 [quit]
]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with unsubscribe in the
subject, without the quotes.
[REBOL] Is it possible to send a short binary string to a URL via GET
Is it possible to send a short binary string to a URL via GET TBrownell -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
[REBOL] Re: THANK YOU! (was Re: Re: retrieve-user-data needs help)
From: [EMAIL PROTECTED] Thank you, Scott, for digging this up! We'll redirect the thanks for the actual helpful part to Holger; I just happened to notice the similar problems addressed in different threads. :) I can now upload large files using multipart/form-data. See for yourself by uploading a nice big browser-capable image here... http://www.fargonews.com/post-data.html Works great, Ryan. Volker's 47k Rebolution pic uploaded just fine and dandy. --Scott Jones -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with unsubscribe in the subject, without the quotes.
