Home » Personal collection » Acorn hard disk » files » DomFord » OldMand/MANDEL3

OldMand/MANDEL3

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » files » DomFord
Filename: OldMand/MANDEL3
Read OK:
File size: 01F9 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10ON ERROR GOTO 130
   20INPUTxpix,ypix
   25xpix=xpix*2:ypix=ypix*2
   30XMIN=-2:XMAX=2:YMIN=-2:YMAX=2:X3=(XMAX-XMIN)/xpix
   40X4=(YMAX-YMIN)/ypix
   50FORX=0TOxpix STEP8
   60FORY=0TOypix STEP8
   70PROCsetp
   72DRAWX+7,Y:DRAWX+7,Y+7:DRAWX,Y+7:DRAWX,Y+4:DRAWX+7,Y+4
   80NEXT,
   90FORX=0TOxpix STEP2
  100FORY=0TOypix STEP2
  110PROCsetp
  120NEXT,
  130ON ERROR OFF
  140*RAM
  150OSCLI"SCREENSAVE SCR"
  160:
  170DEFPROCsetp
  180XB=XMIN+(X3*X)
  190YB=YMIN+(X4*Y)
  200C=0:U=XB:V=YB
  210REPEAT
  220US=U^2:VS=V^2
  230UN=US-VS+XB
  240VN=2*U*V+YB
  250U=UN:V=VN
  260C=C+1
  270UNTIL US+VS>4 OR C=10
  280IFC=255THENC=0
  290GCOL0,C
  300POINTX,Y
  310ENDPROC

� � � �tB@
�xpix,ypix
xpix=xpix*2:ypix=ypix*2
5XMIN=-2:XMAX=2:YMIN=-2:YMAX=2:X3=(XMAX-XMIN)/xpix
(X4=(YMAX-YMIN)/ypix
2�X=0�xpix �8
<�Y=0�ypix �8
F	�setp
H*�X+7,Y:�X+7,Y+7:�X,Y+7:�X,Y+4:�X+7,Y+4
P�,
Z�X=0�xpix �2
d�Y=0�ypix �2
n	�setp
x�,
�	� � �
�*RAM
��"SCREENSAVE SCR"
�:
�
��setp
�XB=XMIN+(X3*X)
�YB=YMIN+(X4*Y)
�C=0:U=XB:V=YB
��
�US=U^2:VS=V^2
�UN=US-VS+XB
�VN=2*U*V+YB
�
U=UN:V=VN
	C=C+1
� US+VS>4 � C=10
�C=255�C=0
"�0,C
,	ȒX,Y
6�
�
00000000  0d 00 0a 0e ee 20 85 20  e5 20 8d 74 42 40 0d 00  |..... . . .tB@..|
00000010  14 0e e8 78 70 69 78 2c  79 70 69 78 0d 00 19 1b  |...xpix,ypix....|
00000020  78 70 69 78 3d 78 70 69  78 2a 32 3a 79 70 69 78  |xpix=xpix*2:ypix|
00000030  3d 79 70 69 78 2a 32 0d  00 1e 35 58 4d 49 4e 3d  |=ypix*2...5XMIN=|
00000040  2d 32 3a 58 4d 41 58 3d  32 3a 59 4d 49 4e 3d 2d  |-2:XMAX=2:YMIN=-|
00000050  32 3a 59 4d 41 58 3d 32  3a 58 33 3d 28 58 4d 41  |2:YMAX=2:X3=(XMA|
00000060  58 2d 58 4d 49 4e 29 2f  78 70 69 78 0d 00 28 17  |X-XMIN)/xpix..(.|
00000070  58 34 3d 28 59 4d 41 58  2d 59 4d 49 4e 29 2f 79  |X4=(YMAX-YMIN)/y|
00000080  70 69 78 0d 00 32 10 e3  58 3d 30 b8 78 70 69 78  |pix..2..X=0.xpix|
00000090  20 88 38 0d 00 3c 10 e3  59 3d 30 b8 79 70 69 78  | .8..<..Y=0.ypix|
000000a0  20 88 38 0d 00 46 09 f2  73 65 74 70 0d 00 48 2a  | .8..F..setp..H*|
000000b0  df 58 2b 37 2c 59 3a df  58 2b 37 2c 59 2b 37 3a  |.X+7,Y:.X+7,Y+7:|
000000c0  df 58 2c 59 2b 37 3a df  58 2c 59 2b 34 3a df 58  |.X,Y+7:.X,Y+4:.X|
000000d0  2b 37 2c 59 2b 34 0d 00  50 06 ed 2c 0d 00 5a 10  |+7,Y+4..P..,..Z.|
000000e0  e3 58 3d 30 b8 78 70 69  78 20 88 32 0d 00 64 10  |.X=0.xpix .2..d.|
000000f0  e3 59 3d 30 b8 79 70 69  78 20 88 32 0d 00 6e 09  |.Y=0.ypix .2..n.|
00000100  f2 73 65 74 70 0d 00 78  06 ed 2c 0d 00 82 09 ee  |.setp..x..,.....|
00000110  20 85 20 87 0d 00 8c 08  2a 52 41 4d 0d 00 96 15  | . .....*RAM....|
00000120  ff 22 53 43 52 45 45 4e  53 41 56 45 20 53 43 52  |."SCREENSAVE SCR|
00000130  22 0d 00 a0 05 3a 0d 00  aa 0a dd f2 73 65 74 70  |"....:......setp|
00000140  0d 00 b4 12 58 42 3d 58  4d 49 4e 2b 28 58 33 2a  |....XB=XMIN+(X3*|
00000150  58 29 0d 00 be 12 59 42  3d 59 4d 49 4e 2b 28 58  |X)....YB=YMIN+(X|
00000160  34 2a 59 29 0d 00 c8 11  43 3d 30 3a 55 3d 58 42  |4*Y)....C=0:U=XB|
00000170  3a 56 3d 59 42 0d 00 d2  05 f5 0d 00 dc 11 55 53  |:V=YB.........US|
00000180  3d 55 5e 32 3a 56 53 3d  56 5e 32 0d 00 e6 0f 55  |=U^2:VS=V^2....U|
00000190  4e 3d 55 53 2d 56 53 2b  58 42 0d 00 f0 0f 56 4e  |N=US-VS+XB....VN|
000001a0  3d 32 2a 55 2a 56 2b 59  42 0d 00 fa 0d 55 3d 55  |=2*U*V+YB....U=U|
000001b0  4e 3a 56 3d 56 4e 0d 01  04 09 43 3d 43 2b 31 0d  |N:V=VN....C=C+1.|
000001c0  01 0e 14 fd 20 55 53 2b  56 53 3e 34 20 84 20 43  |.... US+VS>4 . C|
000001d0  3d 31 30 0d 01 18 0e e7  43 3d 32 35 35 8c 43 3d  |=10.....C=255.C=|
000001e0  30 0d 01 22 08 e6 30 2c  43 0d 01 2c 09 c8 92 58  |0.."..0,C..,...X|
000001f0  2c 59 0d 01 36 05 e1 0d  ff                       |,Y..6....|
000001f9