[REBOL] Re: Random REBOL code
From: ryanc::iesco-dms::com at: 23-May-2001 15:11
Hey Ryan,
This is really good idea you have come up with. Especially if you take it the direction
Scott suggested: A random tabloid. It would get lots of free media
attention. The best part is you dont have to pay any writers! Let me know if you decide
not to do that, so I can.
--Ryan
[ryan--christiansen--intellisol--com] wrote:
> I've updated my experiment in REBOL-generated art at
>
> http://www.fargonews.com/random/random.cgi
>
> If you get an error, it's because the server which generates the words did
> not return anything. I have an if error? try statement which is supposed to
> kick in when there is an error, but it doesn't. Not sure about that one.
>
> Here's the code...
>
> REBOL []
>
> words-to-ignore: {
> a
> about
> above
> according
> across
> actually
> adj
> after
> afterwards
> again
> against
> all
> almost
> alone
> along
> already
> also
> although
> always
> among
> amongst
> an
> and
> another
> any
> anyhow
> anyone
> anything
> anywhere
> are
> aren't
> around
> as
> at
> b
> be
> became
> because
> become
> becomes
> becoming
> been
> before
> beforehand
> begin
> beginning
> behind
> being
> below
> beside
> besides
> between
> beyond
> billion
> both
> but
> by
> c
> can
> can't
> cannot
> caption
> co
> co.
> could
> couldn't
> d
> did
> didn't
> do
> does
> doesn't
> don't
> down
> during
> e
> each
> eg
> eight
> eighty
> either
> else
> elsewhere
> end
> ending
> enough
> etc
> even
> ever
> every
> everyone
> everything
> everywhere
> except
> f
> few
> fifty
> first
> five
> for
> former
> formerly
> forty
> found
> four
> from
> further
> g
> h
> had
> has
> hasn't
> have
> haven't
> he
> he'd
> he'll
> he's
> hence
> her
> here
> here's
> hereafter
> hereby
> herein
> hereupon
> hers
> herself
> him
> himself
> his
> how
> however
> hundred
> i
> i'd
> i'll
> i'm
> i've
> ie
> if
> in
> inc.
> indeed
> instead
> into
> is
> isn't
> it
> it's
> its
> itself
> j
> k
> l
> last
> later
> latter
> latterly
> least
> less
> let
> let's
> like
> likely
> ltd
> m
> made
> make
> makes
> many
> maybe
> me
> meantime
> meanwhile
> might
> million
> miss
> more
> moreover
> most
> mostly
> mr
> mrs
> much
> must
> my
> myself
> n
> namely
> neither
> never
> nevertheless
> next
> nine
> ninety
> no
> nobody
> none
> nonetheless
> noone
> nor
> not
> nothing
> now
> nowhere
> o
> of
> off
> often
> on
> once
> one
> one's
> only
> onto
> or
> other
> others
> otherwise
> our
> ours
> ourselves
> out
> over
> overall
> own
> p
> per
> perhaps
> q
> r
> rather
> recent
> recently
> s
> same
> seem
> seemed
> seeming
> seems
> seven
> seventy
> several
> she
> she'd
> she'll
> she's
> should
> shouldn't
> since
> six
> sixty
> so
> some
> somehow
> someone
> something
> sometime
> sometimes
> somewhere
> still
> stop
> stoplist
> such
> t
> taking
> ten
> than
> that
> that'll
> that's
> that've
> the
> their
> them
> themselves
> then
> thence
> there
> there'd
> there'll
> there're
> there's
> there've
> thereafter
> thereby
> therefore
> therein
> thereupon
> these
> they
> they'd
> they'll
> they're
> they've
> thirty
> this
> those
> though
> thousand
> three
> through
> throughout
> thru
> thus
> to
> together
> too
> toward
> towards
> trillion
> twenty
> two
> u
> under
> unless
> unlike
> unlikely
> until
> up
> upon
> us
> used
> using
> v
> very
> via
> w
> was
> wasn't
> we
> we'd
> we'll
> we're
> we've
> well
> were
> weren't
> what
> what'll
> what's
> what've
> whatever
> when
> whence
> whenever
> where
> where's
> whereafter
> whereas
> whereby
> wherein
> whereupon
> wherever
> whether
> which
> while
> whither
> who
> who'd
> who'll
> who's
> whoever
> whole
> whom
> whomever
> whose
> why
> will
> with
> within
> without
> won't
> would
> wouldn't
> x
> y
> yes
> yet
> you
> you'd
> you'll
> you're
> you've
> your
> yours
> yourself
> yourselves
> z
> }
>
> get-thumbnail: func [
> keyword [string!]
> ][
> page: read (make url! rejoin
> [{http://store.corbis.com/search/productsearch.asp?sc=&search=} keyword
> {&hidKeywordSearch=&hidSearchCategory=0&pf=&navid=&hidIsNewSearch=TRUE}])
> parse page [to {http://cache.corbis.com/Thumb} copy text thru {.jpg}
> (img-url: make url! copy text)]
> img: read/binary img-url
> img-file: make file! (rejoin [keyword {.jpg}])
> write/binary img-file img
> ]
>
> print "Content-Type: text/html^/" ;-- Required Page Header
>
> if error? try [quote-page: read
> http://www.ravenblack.net/cgi-bin/surreal.cgi?gif=no parse quote-page [thru
> <FONT SIZE=+0> copy text to </FONT> (quote: copy text)]][quote: {I always
> wanted to visit California and look at all the cute chicks}]
>
> quote-words: parse quote none
>
> foreach quote-word quote-words [
> if find words-to-ignore quote-word [replace quote-words quote-word ""]
> ]
>
> print rejoin [{<H1>} quote {</H1>}]
>
> foreach remaining-word quote-words [
> if error? try [
> existing-image: make file! (rejoin [remaining-word {.jpg}])
> directory: read %.
> either remaining-word = "" [
> next quote-words
> ][
> either find directory existing-image [
> print rejoin [{<IMG SRC="} remaining-word {.jpg">}]
> ][
> get-thumbnail remaining-word
> wait 1
> print rejoin [{<IMG SRC="} remaining-word {.jpg">}]
> ]
> ]
> ][
> next quote-words
> ]
> ]
>
> -Ryan
>
> --
> To unsubscribe from this list, please send an email to
> [rebol-request--rebol--com] with "unsubscribe" in the
> subject, without the quotes.
--
Ryan Cole
Programmer Analyst
www.iesco-dms.com
707-468-5400
I am enough of an artist to draw freely upon my imagination.
Imagination is more important than knowledge. Knowledge is
limited. Imagination encircles the world.
-Einstein
