Talk-Line-Code: Emacs Lisp ASCII stereogram genarator

Hey,

   Inspired by some of the recent postings, I fixed up my Emacs Lisp
ASCII stereogram generator.   It enables you create single image
random character stereograms.

************************** INTRODUCTION *************************

0. Install sird.el (instructions below).
1. Take a simple ASCII drawing like this:

                          **********
                      ****..........****
                    **.**...*..**.......**
                  ********..**..**...*....**
                **..***********.**......******
               **....*********.........********
              **.....********..........****...**
              **......*****.*............*....**
              **.......***..............*****.**
              **.........**............*********
              **...........**..........*********
              **..........******........********
               **.........********........*****
                **........*******...........**
                  **.......******.........**
                    **......****........**
                      ****..**......****
                          **********


(This picture of the earth was adapted from a posting in
		rec.arts.ascii.)

2. Put it in a GNU Emacs buffer by itself.
3. Type M-x sird-buffer.
4. The buffer will now look something like this:

x!'6ro,1ne!fnsutx!'6ro,1ne!fnsutx!'6ro,1ne!fnsutx!'6ro,1ne!fnsutx!'6ro,1ne!
%,)u&5xrgmfh&p02%,)u&5xrgmfh&p02%,)u&5xrfh&p02%,)u7%&5xrfh&p02%,)u7%&5xrfh&
"hp2&&-mxydl#6r1"hp2&&-mxydl#6r1"hp2-mxyidl#6r1"hp-mxy6.idl#6r1"hp-mxy6.idl
*u,wk3k.!tohc0e!*u,wk3k.!tohc0e!*uk3%.!ttoc20!*6uk3%.!to/1c20!*6uk3%.!to/1c
lpnyu(gqt%utpj"klpnyu(gqt%utpj"knyu(gqt%*upj""nydu(q!t%*pjlk""nydu(q!t%*pjl
*$jg!(n$ne3!foy)*$jg!(n$ne3!fo*$kj!(n$ne3!fo*5kj(!(n$n3!fo*5/5kj(!(n$n3!fo*
-m*w5idieqgnlp"s-m*w5idieqgnls-(m*widieqgnls)-(m*widiqgnls)-(0qm*widiqgnls)
/.'(u(gtqx-0#qj!/.'(u(gtqx-0j!//.'((gtqx-0jw!//.'((gtx-0j3w!/.'p'((gtx-0j3w
,m#),5oe,#u$&i'4,m#),5oe,#u$'4/,m#),oe,#u4'v4/,m#),oe,#4f'v4,m/q#),oe,#4f'v
5g/403fw17mwj!u35g/403fw17mwu345g/403w175mwu345g/403w15mwu3w5g4t/403w15mwu3
i#2evs2#wr*+q$hgi#2evs2#wr*+hg.i#2evs2#r*6+hg.i#2evs2r*6+hg.i#q$2evs2r*6+hg
y.kd'#y#gp-&1quvy.kd'#y#gp-&uv0y.kd'#y#gp&ukv0y.kd'#ygp&ukv0y.g"kd'#ygp&ukv
mg/h%.jp%')h!kn(mg/h%.jp%')hn($mg/h%.jp%)hn($mfg/h%.jp)hn($mfgm-/h%.jp)hn($
#rp6&h#..'j$#(5y#rp6&h#..'j$#y#3rp6&h#..j$#y#3rpo6&h#..j#y#3rgipo6&h#..j#y#
27onuxgepml.efn/27onuxgepml.ef27+onuxgepl.ef27+'onuxgepl.e270,+'onuxgepl.e2
q(lvmj4/'ou)."npq(lvmj4/'ou)."nplv2mj4/'o)."nplsv2mj4/'o.""(nplsv2mj4/'o.""
m37q+!3dgjls2(2rm37q+!3dgjls2(2rm3+!v3dgjl2(2rim3+!v3djlf"2(2rim3+!v3djlf"2
)"h%3krfr46"sw(x)"h%3krfr46"sw(x)"h%rfr4n6swl(x)"hrfr4f3n6swl(x)"hrfr4f3n6s
6qfh%"rd1(k#yu*66qfh%"rd1(k#yu*66qfh%"rdk#yu*66qfhru%"rdk#yu*66qfhru%"rdk#y
)/w3ril(-4-j2uqr)/w3ril(-4-j2uqr)/w3ril(-4-j2uqr)/w3ril(-4-j2uqr)/w3ril(-4-

This is a single image random character stereogram. The spaces in the
original image become background, the dots become slightly closer and
the asterisks closer still.

************************** INSTALLATION *************************

1. Clip out the Emacs Lisp code from the section labeled "CODE"
   below.  For instance, you could put it in ~/lisp/sird.el.
2. From inside of GNU-Emacs, load the code using M-x load-file
   followed by the file name (e.g., ~/lisp/sird.el).
3. Follow directions above to convert an image.

************************** CODE *************************

;; Program to make a 3d image from a 2d one.    Michael Littman  8/94
;;  Spaces are background, *'s foreground, anything else middle.

(defvar sird-alist '((?  16) (?. 15) (?* 14) (?\n 16)))

(defun sird-buffer ()
  (interactive)
  (goto-char (point-min))
  (let ((kill-whole-line t))
    (while (< (point) (point-max))
      (kill-line)
      (insert (sird-str (car kill-ring) 75) ?\n))))

(defun sird-str (instr len)
  (setq instr (concat instr (make-string (- len (length instr)) ? )))
  (let ((outstr (make-string len ? )) (i 0) fwd)
    (while (< i len)
      (if (= (aref outstr i) ? ) (aset outstr i (+ (random 89) 33)))
      (setq fwd (car (cdr (or (assoc (aref instr i) sird-alist) '(t 15)))))
      (if (< (+ i fwd) len) (aset outstr (+ i fwd) (aref outstr i)))
      (setq i (+ i 1)))
    outstr))

;;; You are free to use and distribute this code as long as you leave
;;; this message intact.  Copyright 1994, Michael Littman


************************** THEORY *************************

In a nutshell, here's how these stereograms work.  When you diverge
your eyes, each eye receives a different image.  The random characters
in the stereogram repeat in blocks of 14, 15, or 16 characters.  If
your eyes are focussed 16 characters apart, both eyes appear to be
looking at the same image.  Your brain concludes that you are seeing a
single image and that the image is some fixed distance behind the
computer screen.  The patches of the image that repeat more or less
often cause your brain to assume are correspondingly closer or further
away.  Thus, the illusion of depth comes from manipulation of the
spacing between the repeating patterns.

What is emacs? I here so much about it yet I have know idea what it is.
also is there a version for mac, if so what ftp sites can I find it at.

-- 
        _____                          _____       _   _                        
 ______//__][\_                       /  _  \     / | | \
/o _   |  -| _ |                      / (_) \     / |_| \
`-(_)-------(_)                       /  _  \     /  _  \
Beep Beep Beep Beep Yeah!             / | | \  _  / | | \  _
-Paul McCartney                       /_| |_\ |_| /_| |_\ |_| 

Andrew Hendler
ahe...@netaxs.com

Andrew Hendler <ahe...@netaxs.com> wrote:
>
>What is emacs? I here so much about it yet I have know idea what it is.
>also is there a version for mac, if so what ftp sites can I find it at.
>
>-- 
>        _____                          _____       _   _                        
> ______//__][\_                       /  _  \     / | | \
>/o _   |  -| _ |                      / (_) \     / |_| \
>`-(_)-------(_)                       /  _  \     /  _  \
>Beep Beep Beep Beep Yeah!             / | | \  _  / | | \  _
>-Paul McCartney                       /_| |_\ |_| /_| |_\ |_| 
>
>Andrew Hendler
>ahe...@netaxs.com
>


EMACS is a text editor that is quite powerful and, to some, much 
friendlier than vi. There are versions available on Mac, PC (DOS/OS2), 
UNIX, and Next (I think). You should be able to find it almost anywhere. 
I'd tell you if I could do an archie search, but this site doesn't 
provide that...
-- 
  ____/|  Kevin Sandal, dre...@bcstec.ca.boeing.com
  \ o.O|  (Am not now, nor will I ever be, a Boeing spokesperson)
   =(_)=  "...There's only one life and when comes the last call
     U    We'll find that the Bible was true after all!" -- Bethany Farms

Quoth dre...@bcstec.ca.boeing.com (Kevin D. Sandal):
> Andrew Hendler <ahe...@netaxs.com> wrote:
> >What is emacs? I here so much about it yet I have know idea what it is.
> >also is there a version for mac, if so what ftp sites can I find it at.
> 
> EMACS is a text editor that is quite powerful and, to some, much 
> friendlier than vi. There are versions available on Mac, PC (DOS/OS2), 
> UNIX, and Next (I think). You should be able to find it almost anywhere. 
> I'd tell you if I could do an archie search, but this site doesn't 
> provide that...

I did an archie search, but didn't find anything offhand (for Mac).
But I don't think a Mac user would get much out of an editor like Emacs
anyway.  It's nice for ASCII art, I'll agree, but can't compare to your
average word processor--especially if the user is already used to a
particular word processor.  Emacs is a good terminal-based editor.
 __ ___  __  __  _  ___  _  ___      _      ___  _  ___  _  __  __  ___ __
|_|  _| / | |_| / \. _| / \. |  | | / \ | |  | ./ \ |_ ./ \ |_| | \ |_  |_|
/ | __| \_| / | \_/   | \_/  |  |_| \_/ |_|  |  \_/ |   \_/ | \ |_/ |__ | \
          ude.cmh@sleumasp                       psa...@hmc.edu
                  (nosleumaS reteP r(O)r Peter Samuelson)

In article <34hqo7$e6...@gagme.wwa.com> Out of Order <psa...@hmc.edu>
writes:

   Quoth dre...@bcstec.ca.boeing.com (Kevin D. Sandal):

   > Andrew Hendler <ahe...@netaxs.com> wrote:

   > >What is emacs? I here so much about it yet I have know idea what
   it is.  > >also is there a version for mac, if so what ftp sites
...
   > EMACS is a text editor that is quite powerful and, to some, much
   > friendlier than vi. There are versions available on Mac, PC
   (DOS/OS2), > UNIX, and Next (I think). You should be able to find
...
   I did an archie search, but didn't find anything offhand (for Mac).
   But I don't think a Mac user would get much out of an editor like
   Emacs anyway.  It's nice for ASCII art, I'll agree, but can't
   compare to your average word processor--especially if the user is
   already used to a particular word processor.  Emacs is a good
   terminal-based editor.

Emacs is the most popular editor in the world of Unix.  It's the most
flexible, powerful, and extensible programming environment, bar none.
You can edit files, send mail, compile programs, play games, etc.,
without leaving the editor. -- adapted from ``Learning GNU Emacs'' by
Debra Cameron and Bill Rosenblatt, O'Reilly & Assoc., Inc.

As far as ASCII art is concerned, it has a picture-mode that allows
you to draw in ASCII much more powerfully than Word, Wordperfect, etc.

--
Brian Patrick Lee <ble...@media-lab.mit.edu> <le...@tcm.org>
PGP 2.6 Public Key available via finger and keyservers.
Stated opinions are personal, not institutional.

In <34ln8i$8o...@gagme.wwa.com> ble...@media.mit.edu (Brian Patrick Lee) writes:


>In article <34hqo7$e6...@gagme.wwa.com> Out of Order <psa...@hmc.edu>
>writes:

>   Quoth dre...@bcstec.ca.boeing.com (Kevin D. Sandal):

>   > Andrew Hendler <ahe...@netaxs.com> wrote:

>   > >What is emacs? I here so much about it yet I have know idea what
>   it is.  > >also is there a version for mac, if so what ftp sites
>...
>   > EMACS is a text editor that is quite powerful and, to some, much
>   > friendlier than vi. There are versions available on Mac, PC
>   (DOS/OS2), > UNIX, and Next (I think). You should be able to find
>...
>   I did an archie search, but didn't find anything offhand (for Mac).
>   But I don't think a Mac user would get much out of an editor like
>   Emacs anyway.  It's nice for ASCII art, I'll agree, but can't
>   compare to your average word processor--especially if the user is
>   already used to a particular word processor.  Emacs is a good
>   terminal-based editor.

>Emacs is the most popular editor in the world of Unix.  It's the most
>flexible, powerful, and extensible programming environment, bar none.
>You can edit files, send mail, compile programs, play games, etc.,
>without leaving the editor. -- adapted from ``Learning GNU Emacs'' by
>Debra Cameron and Bill Rosenblatt, O'Reilly & Assoc., Inc.

Oh? The most popular editor in the world of Unix? Why don't I see anybody
here using it?

>As far as ASCII art is concerned, it has a picture-mode that allows
>you to draw in ASCII much more powerfully than Word, Wordperfect, etc.

Hmm... sounds good.

Doei, Arthur.

--
Arthur van Leeuwen, art...@sci.kun.nl
  /\    /  Oh, how I wished that what I write was true. [Valensia]
 /--\  /   GCS d@ H(+) s+;- g+ p? !au a-- w v+ C++() USL P L+ 3 E--- N++ 
/    \/__  K W M- !V -po+ Y+ t+ !5 !j R G? tv+ b+ D B- e+ u++(*) h f !y+

In article <34mssm$bi...@gagme.wwa.com>,
Arthur van Leeuwen <art...@sci.kun.nl> wrote:
>
>Oh? The most popular editor in the world of Unix? Why don't I see anybody
>here using it?

Because it isn't very user-friendly. It's less strange than vi, but it's 
still very kludgy. Despite that, Emacs is still the most popular editor in 
the world of UNIX, mainly because it's very powerful, so hacker types like it.
-- 
       ___   ___  /  \____                  ############################
      /   \_/   \ \_   __ \                 # Bram Cohen               #
     /           \_/  /  \/                 # bco...@acsu.buffalo.edu  #
    /\            ___/                      # Just trying to be myself #

Well Just so you know, I use Emacs :-)
Ever read news in Emacs if your intrested :-)

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| e-mail:    sva...@stacken.kth.se   | Telephone office: +46 (0)8 781 4215   |
| snailmail: Bjorn Svartengren        |           Home:   +46 (0)8 756 6939   |
|            Radarvage 12 1tr         |                                       |
|            S-183 46 Taby            |    KultheaMUD is coming on nicelly!   |
|            Sweden                   |  Save your prayers, and wish me luck! |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| e-mail:    sva...@stacken.kth.se   | Telephone office: +46 (0)8 781 4215   |
| snailmail: Bjorn Svartengren        |           Home:   +46 (0)8 756 6939   |
|            Radarvage 12 1tr         |                                       |
|            S-183 46 Taby            |    KultheaMUD is coming on nicelly!   |
|            Sweden                   |  Save your prayers, and wish me luck! |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

   There are a couple pieces of Emacs code in the pub/Scarecrow/Info 
folder at ftp.wwa.com you might want to look into.

   One is EmacsMouseCode which let's you draw ASCII with a mouse.  The 
other is EmacsFigletCode which let's you use Figlet from within Emacs.

--
   __      __      __      __      __      __      __      __      __
  / /\    / /\    / /\    / /\    / /\    / /\    / /\    / /\    /_/\
 / / /_  / / /   / /  \  / /  \  / / /   / / /   / /  \  / /  \  /_/\ \
/_/ / /\/_/ /   /_/ /\ \/_/ /\ \/_/ /_  /_/ /   /_/ /\ \/_/ /\ \/_/\ \ \
\ \ \/  \ \ \  _\ \ \/  \ \ \/ /\ \ \/\_\ \ \  _\ \ \/ /\ \ \ \ \ \ \ \ \
 \ \  /\ \ \ \/ /\ \  /\ \ \  __ \ \  / /\ \ \/ /\ \  __ \ \ \_\ \ \ \ \ \
  \_\/ / /\ \ \/ /\ \ \_\/\ \ \_\/\ \ \/ /\ \ \/ /\ \ \_\/\ \ \/ /\ \ \  /
    /_/ /  \ \  /  \ \ \   \ \ \   \ \  /  \ \  /  \ \ \   \ \  /  \ \  /
    \_\/    \_\/    \_\/    \_\/    \_\/    \_\/    \_\/    \_\/    \_\/

    >Oh? The most popular editor in the world of Unix? Why don't I see anybody
    >here using it?

    Because it isn't very user-friendly. It's less strange than vi, but it's
    still very kludgy. Despite that, Emacs is still the most popular editor in
    the world of UNIX, mainly because it's very powerful; hacker types like it.

Also, some unix admin manuals recomend against installing it, because it is
BIG and uses a lot of resources, whether active or just sitting on disk.
Fortunately for those used to emacs, there are various "tiny" versions as
well.  While these usually don't support the more esoteric abilities of
"real" EMACS (picture mode, new reading, etc), at least the basic commands
and philosphies are maintained.

True Emacs is more than an editor, it's also provides a text processing
language.  Most modern EMACS provide a powerful enough langauge that you
can write just about anything in it.

My original excuse for becoming an emacs user was that it ran on everything
I was interested in: tops10, tops20, ITS, CPM, and even UNIX...  Emacs
clones for MSDOS preceeded other (large computer) editor ports by a couple
years, too.

BillW

In article <34mssm$bi...@gagme.wwa.com> art...@sci.kun.nl (Arthur van
Leeuwen) writes:
   In <34ln8i$8o...@gagme.wwa.com> ble...@media.mit.edu (Brian Patrick
   Lee) writes:
   >In article <34hqo7$e6...@gagme.wwa.com> Out of Order <psa...@hmc.edu>
   >writes:
   > Quoth dre...@bcstec.ca.boeing.com (Kevin D. Sandal):
   > > Andrew Hendler <ahe...@netaxs.com> wrote:

   > > >What is emacs? I here so much about it yet I have know idea
   what
...
   > > EMACS is a text editor that is quite powerful and, to some,
   much > > friendlier than vi. There are versions available on Mac,
   PC > (DOS/OS2), > UNIX, and Next (I think). You should be able to
   find >...

   >Emacs is the most popular editor in the world of Unix.  It's the
   >most >flexible, powerful, and extensible programming environment,
   bar none.  >You can edit files, send mail, compile programs, play
   games, etc., >without leaving the editor. -- adapted from
   ``Learning GNU Emacs'' by >Debra Cameron and Bill Rosenblatt,
   O'Reilly & Assoc., Inc.

   Oh? The most popular editor in the world of Unix? Why don't I see
   anybody here using it?

I'm sure someone in the Netherlands is using Emacs.  Talk to your
Computer Science Department.  If you see it, you'll understand.

   >As far as ASCII art is concerned, it has a picture-mode that
   allows >you to draw in ASCII much more powerfully than Word,
   Wordperfect, etc.

   Hmm... sounds good.

   Doei, Arthur.

   -- Arthur van Leeuwen, art...@sci.kun.nl /\ / Oh, how I wished
   that what I write was true. [Valensia] /--\ / GCS d@ H(+) s+;- g+
   p? !au a-- w v+ C++() USL P L+ 3 E--- N++ / \/__ K W M- !V -po+ Y+
   t+ !5 !j R G? tv+ b+ D B- e+ u++(*) h f !y+

How can you know about the Geek Code, but not Emacs?!  I don't get it.

--
Brian Patrick Lee <ble...@media-lab.mit.edu> <le...@tcm.org>
PGP 2.6 Public Key available via finger and keyservers.
Stated opinions are personal, not institutional.

In article <34qkug$7t...@gagme.wwa.com>, William  <bil...@glare.cisco.com> wrote:
>
>Also, some unix admin manuals recomend against installing it, because it is
>BIG and uses a lot of resources, whether active or just sitting on disk.
>Fortunately for those used to emacs, there are various "tiny" versions as
>well.  While these usually don't support the more esoteric abilities of
>"real" EMACS (picture mode, new reading, etc), at least the basic commands
>and philosphies are maintained.

   Hmmm ... I guess that means that if we want to use for 'our' purposes 
(meaning ASCII art), we have to use the full sized version.

>True Emacs is more than an editor, it's also provides a text processing
>language.  Most modern EMACS provide a powerful enough langauge that you
>can write just about anything in it.

   As some people have said, "it's more than an editor, it's an operating 
system." :-)


--
../"""""" ./"""" ./""""" ./"""""" ./""""" ./"""" /"""""" ../""""" ./"" /"" /""
./""""""" /""""" /""""""" /""""""" /""""" /""""" /""""""" /""""""" /"" /"" /""
./"" ...../"" .../"" ./"" /"" ./"" /"" .../"" .../"" ./"" /"" ./"" /"" /"" /""
./"""""" ./"" .../""""""" /"""""" ./"""" ./"" .../"""""" ./"" ./"" /"" /"" /""
../"""""" /"" .../""""""" /""""" ../"""" ./"" .../""""" ../"" ./"" /"" /"" /""
....../"" /"" .../"" ./"" /"" /"" ./"" .../"" .../"" /"" ./"" ./"" /"" /"" /""
./""""""" /""""" /"" ./"" /"" ./"" /""""" /""""" /"" ./"" /""""""" /""""""""""
./"""""" ../"""" /"" ./"" /"" ./"" /""""" ./"""" /"" ./"" ./""""" ../""""""""
..............................................................................

William (bil...@glare.cisco.com) wrote:

: Also, some unix admin manuals recomend against installing it, because it is
: BIG and uses a lot of resources, whether active or just sitting on disk.
: Fortunately for those used to emacs, there are various "tiny" versions as
: well.  While these usually don't support the more esoteric abilities of
: "real" EMACS (picture mode, new reading, etc), at least the basic commands
: and philosphies are maintained.

: True Emacs is more than an editor, it's also provides a text processing
: language.  Most modern EMACS provide a powerful enough langauge that you
: can write just about anything in it.

: BillW

Of course its big.  What other editor comes with a recipe for cookies,
the ability to play tetris, a big online tutorial, a psycho-analyst,
and I am not sure but isnt Zippy the pinhead (yow) also included in Emacs?

Heck you can even run yow through the psychoanalyst.  It can also
generate flame mail or mail with certain keywords that the government
looks for.  There is enough stuff in Emacs that you ouldteach a full 
graduate level course on it if you wanted to.

Everybody here at Binghamton U uses emacs.  If I actually knew how to
do all that neat stuff I would write Emacs for Dummies.  Unfortunately
keeping up with mail and news and my actual life away from a terminal
takes too much time for me to become the Emacs guru I would like to
be.

						Tim "nosigfile" Gray