ares@alessia.dei.unipd.it (Nicola Catacchio 259126) (05/20/91)
New version of mandgen posted on this group last autumn:thanks to
the author of the original one, but I'm sorry for not remembering his name.
I've speeded up the previous version by eliminating all the memory
operations (STO, STO+, etc.) and substituting them whith stack operations.
I've modified also the quality of dithering, I didn't like the old
one; I kept the SAVE and LOAD routines that are like the original ones.
To draw a view of the mandelbrot set, first set the coordinates
the same way you would do to plot a graphic: use PMIN and PMAX in the CST
menu to define lower left and upper right corners, or XRNG and YRNG in the
PLOTR menu: then [PLOT] {PLOTR} {DRAW} (the same to plot functions.).
This is fast enough to plot a screen with mandelbrot set in 4 hours
(more or less) and enter in GRAPH mode.
Exiting with [ON], select the {SAVE} program from CST menu; this
will prompt for a name (warning! it rewrites already defined names) and
store in a list the PICT with your drawing and its ccordinates.
To recover it, losing the old PICT, use {LOAD}.
DON'T change the PTYPE or the INDEP / DEPN variables, otherwise
an error may not be detected by the DRAW command.
|------------------------------------------------------------------------------|
|Nicola Catacchio |E-mail: ares@alessia.unipd.it |
|Universita' di Padova |mail : Cannaregio 4389, Venezia, Italy |
| )/A |tel.# : 041/52225216 |
| A A | |
| A A RR E EE SSSS |
|AAAAAAA--R--R-E-E--E-S--------------------------------------------------------|
A A RRR E E SSSS
R E S
R E SS
------------------------------------CUT----------------------------------------
%%HP: T(3)A(R)F(.);
DIR
MAND
\<< ITER 1 - X Y
R\->C DUP
DO DUP * OVER
+ ROT 1 - ROT ROT
UNTIL DUP C\->R
SQ SWAP SQ + 4 > 4
PICK NOT OR
END DROP2 2
MOD
\>>
SAVE
\<< "{"
"Enter name to save as"
"" INPUT + OBJ\-> 1
GET PICT RCL PPAR 2
\->LIST SWAP STO
\>>
LOAD
\<<
"Enter Picture to load"
"" INPUT OBJ\-> OBJ\->
DROP 'PPAR' STO
PICT STO { } PVIEW
33 MENU
\>>
ITER 30
CST { SAVE LOAD {
"EDIT"
\<< 33 MENU PICT
RCL \->LCD 3 FREEZE
\>> } { "RESET"
\<< (1.5,1) DUP
NEG PMIN PMAX 33
MENU
\>> } ITER {
"QUIT"
\<< 0 MENU
\>> } }
EQ MAND
PPAR {
(-.369230769231,.68253968254)
(-.253846153846,.777777777778)
X 0 (100,100) TRUTH
Y }
END