From creiman@ncsa.uiuc.edu  Sun Mar 10 14:29:09 1991
Received: from bank.ecn.purdue.edu by en.ecn.purdue.edu (5.65/1.30jrs)
	id AA07707; Sun, 10 Mar 91 14:29:09 -0500
Received: from bardeen.ncsa.uiuc.edu by bank.ecn.purdue.edu (5.65/1.30jrs)
	id AA29102; Sun, 10 Mar 91 14:29:06 -0500
Received: from headroom.ncsa.uiuc.edu by bardeen.ncsa.uiuc.edu with SMTP id AA14394
  (5.65a/IDA-1.4.2 for wscott@ecn.purdue.edu); Sun, 10 Mar 91 13:29:04 -0600
Return-Path: <creiman@ncsa.uiuc.edu>
Received: by headroom.ncsa.uiuc.edu (4.0/NCSA-4.1)
	id AA24752; Sun, 10 Mar 91 13:32:57 CST
Date: Sun, 10 Mar 91 13:32:57 CST
From: creiman@ncsa.uiuc.edu (Chuck Reiman)
Message-Id: <9103101932.AA24752@headroom.ncsa.uiuc.edu>
To: wscott@ecn.purdue.edu
Subject: For archives
Status: OR

Hello, Scott Weston. Please post this in the graphics archives
for the HP48. Name it... uh... cheap.fractal.

Techincally, it is not a fractal, since it doesn't have infinte geometry.

There isn't much to say, except it leaves you in scrolling mode when
your done, and it takes about a minute to draw the whole object.

Have fun,
Charlie Reiman
creiman@ncsa.uiuc.edu
National Center for Supercomputing 

Oh, almost forgot- This program was inspired by an old Apple ][ program
that I think was called Brian's folley. Always give credit where credit
is due.

%%HP: T(3)A(D)F(.);
\<< PICT PURGE # 131d
# 131d PDIM { # 0d
# 33d } PVIEW 0 130
  FOR i # 130d i
R\->B DUP 3 ROLLD -
DUP # 0d 2 \->LIST 3
PICK # 130d 2 \->LIST
TLINE # 130d SWAP 2
\->LIST SWAP # 0d
SWAP 2 \->LIST TLINE
  NEXT { } PVIEW
\>>