Almathera Ten Pack 4: Demo 1/almathera_demo1.bin/amos/amosfrac/readme2.amos/readme2.amosSourceCode

AMOS Source Code | 1995-03-16 | 4KB | 126 lines

Screen Open 0,320,1023,8,0
Curs Off : Hide : Flash Off : Cls 0
Palette 2,$F80,$8F0
Paper 0
Print "README2 - press spacebar when ready"
Print ""
Pen 2
Print "FRACTALS by B.J.HILLS "
Print "" : Pen 1
Print "This disk is concerned with the"
Print "standard Mandelbrot and Julia sets"
Print "and contains MANZOOM and JULIA -"
Print "respectively Mandelbrot Generator"
Print "and Julia Generator programs."
Print "" : Pen 2
Print "Program 1. MANZOOM -"
Print "           Mandelbrot Set Generator."
Print "" : Pen 1
Print "Capabilities are:-"
Print ""
Print "   LOAD/SAVE IFF FILES."
Print "   DEFAULT - Load Mandelbrot Set figure"
Print "                        (ZOOM on this)"
Print "   ZOOM in on a specific area"
Print "                      - (rubber-box)"
Print "   CLEAR SCREEN"
Print "   INFO - gives coords of zoomed area"
Print "   CYCLE colors"
Print "           - spacebar to stop cycling"
Print "   SCRNSIZE quarter-screen,half-screen,"
Print "                   or full-screen plot"
Print "   (quarter-screen for preview of area)"
Print "   RGB - Palette Box"
Print "   ITS - Set number of iterations"
Print "   GENERATE - start plotting"
Print "   ABORT - press 'A' to stop plotting"
Print "   QUIT- to EDIT - examine program?"
Print ""
Print "Note: use ZOOM before clicking on"
Print "screensize, or you will get a blank"
Print "screen! "
Print "" : Pen 2
Print "Program 2. JULIA - Julia Set Generator."
Print "" : Pen 1
Print "Has ability to limit lower value colors."
Print "(i.e. limit plot to more detailed parts)"
Print ""
Print "No ZOOM in JULIA as zooms do not show"
Print "much of interest. (usually it is the"
Print "whole figure that is most interesting.)"
Print ""
Print "Using the programs....."
Print ""
Print "press 'a' to ABORT to stop plotting if"
Print "it is decided that further plotting"
Print "down the screen will not be interesting."
Print "You do not have to wait for entire"
Print "screen to finish plotting before"
Print "ZOOMing. The program will PING"
Print "when plot completed."
Print ""
Print "Use the x/y values from 'Info' as"
Print "P and Q constants to generate a JULIA"
Print "plot, i.e. zoom into an interesting bit"
Print "in MANZOOM, do 'Info',write down the x/y"
Print "coords for that point, run JULIA, click"
Print "on 'Constants',and key them in, you can"
Print "then generate the Julia plot for that"
Print "point. Full screen can be plotted,then"
Print "half-screen on top,then quarter-screen"
Print "on top of that. "
Print ""
Print "If you wanted to experiment, you could"
Print "change the formulae in the 'generate'"
Print "procedure, in either MANZOOM or JULIA,"
Print "as long as you only change XK# and/or"
Print "YK# in the while/wend loop, the program"
Print " will operate as before,including"
Print "'zooming' into a plot."
Print ""
Print "Run SHOWM and SHOWJ Slideshows for"
Print "pregenerated fractal pics and give"
Print "yourself severe eyeache! "
Print ""
Print "More info...... "
Print ""
Print "The Mandelbrot Set is considered to be"
Print "a sort of map or one page directory of"
Print "Julia Sets. Zoomed bits of Mandelbrot"
Print "set tend to look much like the full"
Print "Julia set for a particular area."
Print "P and Q in the generator progs. are the"
Print "x/y address of a particular point."
Print "In the Mandelbrot set we alter these to"
Print "address every point on screen."
Print "In the Julia set generator, P & Q are"
Print "fixed as constants, and if you wish a"
Print "different Julia plot, P & Q can be "
Print "altered.  The Julia Set plots are quite"
Print "pretty - set them up with colour"
Print "cycling and slide show them at a party!"
Print ""
Print "The drawback with all fractal programs"
Print "is that they take a while to plot and"
Print "unless you can afford a maths"
Print "co-processor, you just have to wait."
Print ""
Print "If anyone would like a colour plot from"
Print "a Star LC-10 printer  of their own"
Print "fractals, send me a disk with your"
Print "Iff's on (plus a small remuneration for"
Print "my trouble,) and I will post them back."
Print ""
Print "BRIAN J.HILLS   7,MAYFIELD CLOSE,"
Print "PATCHAM, BRIGHTON, SUSSEX BN1 8BA "
Print "" : Pen 2
Print "END OF README2"
Wait Key
For Z=0 To 600 Step 180
   For Y=Z To Z+180
      Screen Offset 0,0,Y
      Wait Vbl
   Next Y
   Wait Key
Next Z
Run "df0:MENU.AMOS"