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: 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 \>>