Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » StarInfo/Stoner/Henon

StarInfo/Stoner/Henon

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 » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars
Filename: StarInfo/Stoner/Henon
Read OK: ✔
File size: 0627 bytes
Load address: 0000
Exec address: 0000
File contents
   10ON ERROR REPORT:PRINT" at line ";ERL:END
   20REM Henon Mapper
   30REM from Chaos Cook Book
   40REM by Nigel Stoner LEN 1996.
   50PROCinit
   60REPEAT
   70PROCchoose
   80IF decide% >50 PROCfast
   90IF decide% <50 PROCslow
  100UNTIL FALSE
  110END
  120DEF PROCinit
  130DIM C1%(15),C2%(15),C3%(15)
  140t=RND(-TIME):MODE9:OFF:a=0:b=0:xs=0:ys=0:sm=0:sa=0:sb=0:ca=0:cb=0:s=0:c=0:d%=0:ang%=0:col%=0:cdiv%=0:decide%=0
  150ENDPROC
  160DEF PROCchoose
  170LOCAL c%
  180decide%=RND(1)*100:PROCcolors:a=RND(1)*72000-36000:col%=RND(15)
  190CASE TRUE OF
  200WHEN decide%>50 :xinc=0.01:cdiv%=4:sm=RND(1)*72000-36000:c%=RND(650)+150:ys=RND(600):xs=ys*1.25:IF c%>50 b=a+sm ELSE b=a-sm
  210WHEN decide%<50 :xinc=0.025:cdiv%=1:sm=RND(1)*1-.5:c%=RND(100):ys=RND(700)+100:xs=ys*1.25:IF c%>50 b=a+sm ELSE b=a-sm
  220ENDCASE
  230sa=SIN(a):ca=COS(a):sb=SIN(b):cb=COS(b):ang%=RND(360):s=SIN RAD(ang%):c=COS RAD(ang%):ORIGIN RND(160)+560,RND(128)+448:CLS
  240ENDPROC
  250DEF PROCfast
  260LOCAL done%
  270stx=0.0:REPEAT:sty=0.0:x=stx:y=sty:REPEAT:x1=x*ca-(y-x*x)*sa:y1=x*sb+(y-x*x)*cb:
  280x=-x1*(ABS(x1)<2E6):f1=1*(ABS(x1)<2E6):y=-y1*(ABS(y1)<2E6):f2=1*(ABS(y1)<2E6)
  290IF (f1 AND f2)THEN GCOL0,((col%/cdiv%)MOD15)+1:PLOT69,(x1*c+y*s)*xs,(y*c-x1*s)*ys:f1=0:f2=0 ELSE done%+=1
  300sty+=0.05:UNTIL(sty>1.0):stx+=xinc:col%+=1:UNTIL(stx>4)OR(done%>500)
  310ENDPROC
  320DEF PROCslow
  330LOCAL g%
  340stx=0.0:REPEAT:sty=0.0:x=stx:y=sty:REPEAT:FOR g%=0TO15:x1=x*ca-(y-x*x)*sa:y1=x*sb+(y-x*x)*cb:x=-x1*(ABS(x1)<2E6):f1=1*(ABS(x1)<2E6):y=-y1*(ABS(y1)<2E6):f2=1*(ABS(y1)<2E6)
  350IF(f1 AND f2)THEN GCOL0,((col%/cdiv%)MOD15)+1:PLOT69,(x1*c+y*s)*xs,(y*c-x1*s)*ys:f1=0:f2=0
  360NEXT g%:sty+=0.05:UNTIL(sty>1.0):stx+=xinc:col%+=1:UNTIL(stx>1.5)
  370ENDPROC
  380DEF PROCcolors
  390d=RND(180):FOR N%=1TO15:F1%=100*(SIN RAD(24*N%)+1)+28:F2%=100*(SIN RAD(24*N%+d)+1)+28:F3%=100*(SIN RAD(24*N%+d+d)+1)+28:C1%(N%)=F1%:C2%(N%)=F2%:C3%(N%)=F3%:COLOUR N%,F1%,F2%,F3%:NEXT
  400ENDPROC


� � �:�" at line ";�:�
� Henon Mapper
� from Chaos Cook Book
(� by Nigel Stoner � 1996.
2	�init
<�
F�choose
P� decide% >50 �fast
Z� decide% <50 �slow
d� �
n�
x� �init
�� C1%(15),C2%(15),C3%(15)
�ht=�(-�):�9:�:a=0:b=0:xs=0:ys=0:sm=0:sa=0:sb=0:ca=0:cb=0:s=0:c=0:d%=0:ang%=0:col%=0:cdiv%=0:decide%=0
��
�
� �choose
�� c%
�:decide%=�(1)*100:�colors:a=�(1)*72000-36000:col%=�(15)
�
Ȏ � �
�r� decide%>50 :xinc=0.01:cdiv%=4:sm=�(1)*72000-36000:c%=�(650)+150:ys=�(600):xs=ys*1.25:� c%>50 b=a+sm � b=a-sm
�l� decide%<50 :xinc=0.025:cdiv%=1:sm=�(1)*1-.5:c%=�(100):ys=�(700)+100:xs=ys*1.25:� c%>50 b=a+sm � b=a-sm
��
�bsa=�(a):ca=�(a):sb=�(b):cb=�(b):ang%=�(360):s=� �(ang%):c=� �(ang%):ȑ �(160)+560,�(128)+448:�
��
�� �fast
� done%
Jstx=0.0:�:sty=0.0:x=stx:y=sty:�:x1=x*ca-(y-x*x)*sa:y1=x*sb+(y-x*x)*cb:
Ix=-x1*(�(x1)<2E6):f1=1*(�(x1)<2E6):y=-y1*(�(y1)<2E6):f2=1*(�(y1)<2E6)
"\� (f1 � f2)� �0,((col%/cdiv%)�15)+1:�69,(x1*c+y*s)*xs,(y*c-x1*s)*ys:f1=0:f2=0 � done%+=1
,?sty+=0.05:�(sty>1.0):stx+=xinc:col%+=1:�(stx>4)�(done%>500)
6�
@� �slow
J� g%
T�stx=0.0:�:sty=0.0:x=stx:y=sty:�:� g%=0�15:x1=x*ca-(y-x*x)*sa:y1=x*sb+(y-x*x)*cb:x=-x1*(�(x1)<2E6):f1=1*(�(x1)<2E6):y=-y1*(�(y1)<2E6):f2=1*(�(y1)<2E6)
^P�(f1 � f2)� �0,((col%/cdiv%)�15)+1:�69,(x1*c+y*s)*xs,(y*c-x1*s)*ys:f1=0:f2=0
h:� g%:sty+=0.05:�(sty>1.0):stx+=xinc:col%+=1:�(stx>1.5)
r�
|
� �colors
��d=�(180):� N%=1�15:F1%=100*(� �(24*N%)+1)+28:F2%=100*(� �(24*N%+d)+1)+28:F3%=100*(� �(24*N%+d+d)+1)+28:C1%(N%)=F1%:C2%(N%)=F2%:C3%(N%)=F3%:� N%,F1%,F2%,F3%:�
��
�
00000000  0d 00 0a 1a ee 20 85 20  f6 3a f1 22 20 61 74 20  |..... . .:." at |
00000010  6c 69 6e 65 20 22 3b 9e  3a e0 0d 00 14 12 f4 20  |line ";.:...... |
00000020  48 65 6e 6f 6e 20 4d 61  70 70 65 72 0d 00 1e 1a  |Henon Mapper....|
00000030  f4 20 66 72 6f 6d 20 43  68 61 6f 73 20 43 6f 6f  |. from Chaos Coo|
00000040  6b 20 42 6f 6f 6b 0d 00  28 1d f4 20 62 79 20 4e  |k Book..(.. by N|
00000050  69 67 65 6c 20 53 74 6f  6e 65 72 20 a9 20 31 39  |igel Stoner . 19|
00000060  39 36 2e 0d 00 32 09 f2  69 6e 69 74 0d 00 3c 05  |96...2..init..<.|
00000070  f5 0d 00 46 0b f2 63 68  6f 6f 73 65 0d 00 50 17  |...F..choose..P.|
00000080  e7 20 64 65 63 69 64 65  25 20 3e 35 30 20 f2 66  |. decide% >50 .f|
00000090  61 73 74 0d 00 5a 17 e7  20 64 65 63 69 64 65 25  |ast..Z.. decide%|
000000a0  20 3c 35 30 20 f2 73 6c  6f 77 0d 00 64 07 fd 20  | <50 .slow..d.. |
000000b0  a3 0d 00 6e 05 e0 0d 00  78 0b dd 20 f2 69 6e 69  |...n....x.. .ini|
000000c0  74 0d 00 82 1d de 20 43  31 25 28 31 35 29 2c 43  |t..... C1%(15),C|
000000d0  32 25 28 31 35 29 2c 43  33 25 28 31 35 29 0d 00  |2%(15),C3%(15)..|
000000e0  8c 68 74 3d b3 28 2d 91  29 3a eb 39 3a 87 3a 61  |.ht=.(-.):.9:.:a|
000000f0  3d 30 3a 62 3d 30 3a 78  73 3d 30 3a 79 73 3d 30  |=0:b=0:xs=0:ys=0|
00000100  3a 73 6d 3d 30 3a 73 61  3d 30 3a 73 62 3d 30 3a  |:sm=0:sa=0:sb=0:|
00000110  63 61 3d 30 3a 63 62 3d  30 3a 73 3d 30 3a 63 3d  |ca=0:cb=0:s=0:c=|
00000120  30 3a 64 25 3d 30 3a 61  6e 67 25 3d 30 3a 63 6f  |0:d%=0:ang%=0:co|
00000130  6c 25 3d 30 3a 63 64 69  76 25 3d 30 3a 64 65 63  |l%=0:cdiv%=0:dec|
00000140  69 64 65 25 3d 30 0d 00  96 05 e1 0d 00 a0 0d dd  |ide%=0..........|
00000150  20 f2 63 68 6f 6f 73 65  0d 00 aa 08 ea 20 63 25  | .choose..... c%|
00000160  0d 00 b4 3a 64 65 63 69  64 65 25 3d b3 28 31 29  |...:decide%=.(1)|
00000170  2a 31 30 30 3a f2 63 6f  6c 6f 72 73 3a 61 3d b3  |*100:.colors:a=.|
00000180  28 31 29 2a 37 32 30 30  30 2d 33 36 30 30 30 3a  |(1)*72000-36000:|
00000190  63 6f 6c 25 3d b3 28 31  35 29 0d 00 be 0a c8 8e  |col%=.(15)......|
000001a0  20 b9 20 ca 0d 00 c8 72  c9 20 64 65 63 69 64 65  | . ....r. decide|
000001b0  25 3e 35 30 20 3a 78 69  6e 63 3d 30 2e 30 31 3a  |%>50 :xinc=0.01:|
000001c0  63 64 69 76 25 3d 34 3a  73 6d 3d b3 28 31 29 2a  |cdiv%=4:sm=.(1)*|
000001d0  37 32 30 30 30 2d 33 36  30 30 30 3a 63 25 3d b3  |72000-36000:c%=.|
000001e0  28 36 35 30 29 2b 31 35  30 3a 79 73 3d b3 28 36  |(650)+150:ys=.(6|
000001f0  30 30 29 3a 78 73 3d 79  73 2a 31 2e 32 35 3a e7  |00):xs=ys*1.25:.|
00000200  20 63 25 3e 35 30 20 62  3d 61 2b 73 6d 20 8b 20  | c%>50 b=a+sm . |
00000210  62 3d 61 2d 73 6d 0d 00  d2 6c c9 20 64 65 63 69  |b=a-sm...l. deci|
00000220  64 65 25 3c 35 30 20 3a  78 69 6e 63 3d 30 2e 30  |de%<50 :xinc=0.0|
00000230  32 35 3a 63 64 69 76 25  3d 31 3a 73 6d 3d b3 28  |25:cdiv%=1:sm=.(|
00000240  31 29 2a 31 2d 2e 35 3a  63 25 3d b3 28 31 30 30  |1)*1-.5:c%=.(100|
00000250  29 3a 79 73 3d b3 28 37  30 30 29 2b 31 30 30 3a  |):ys=.(700)+100:|
00000260  78 73 3d 79 73 2a 31 2e  32 35 3a e7 20 63 25 3e  |xs=ys*1.25:. c%>|
00000270  35 30 20 62 3d 61 2b 73  6d 20 8b 20 62 3d 61 2d  |50 b=a+sm . b=a-|
00000280  73 6d 0d 00 dc 05 cb 0d  00 e6 62 73 61 3d b5 28  |sm........bsa=.(|
00000290  61 29 3a 63 61 3d 9b 28  61 29 3a 73 62 3d b5 28  |a):ca=.(a):sb=.(|
000002a0  62 29 3a 63 62 3d 9b 28  62 29 3a 61 6e 67 25 3d  |b):cb=.(b):ang%=|
000002b0  b3 28 33 36 30 29 3a 73  3d b5 20 b2 28 61 6e 67  |.(360):s=. .(ang|
000002c0  25 29 3a 63 3d 9b 20 b2  28 61 6e 67 25 29 3a c8  |%):c=. .(ang%):.|
000002d0  91 20 b3 28 31 36 30 29  2b 35 36 30 2c b3 28 31  |. .(160)+560,.(1|
000002e0  32 38 29 2b 34 34 38 3a  db 0d 00 f0 05 e1 0d 00  |28)+448:........|
000002f0  fa 0b dd 20 f2 66 61 73  74 0d 01 04 0b ea 20 64  |... .fast..... d|
00000300  6f 6e 65 25 0d 01 0e 4a  73 74 78 3d 30 2e 30 3a  |one%...Jstx=0.0:|
00000310  f5 3a 73 74 79 3d 30 2e  30 3a 78 3d 73 74 78 3a  |.:sty=0.0:x=stx:|
00000320  79 3d 73 74 79 3a f5 3a  78 31 3d 78 2a 63 61 2d  |y=sty:.:x1=x*ca-|
00000330  28 79 2d 78 2a 78 29 2a  73 61 3a 79 31 3d 78 2a  |(y-x*x)*sa:y1=x*|
00000340  73 62 2b 28 79 2d 78 2a  78 29 2a 63 62 3a 0d 01  |sb+(y-x*x)*cb:..|
00000350  18 49 78 3d 2d 78 31 2a  28 94 28 78 31 29 3c 32  |.Ix=-x1*(.(x1)<2|
00000360  45 36 29 3a 66 31 3d 31  2a 28 94 28 78 31 29 3c  |E6):f1=1*(.(x1)<|
00000370  32 45 36 29 3a 79 3d 2d  79 31 2a 28 94 28 79 31  |2E6):y=-y1*(.(y1|
00000380  29 3c 32 45 36 29 3a 66  32 3d 31 2a 28 94 28 79  |)<2E6):f2=1*(.(y|
00000390  31 29 3c 32 45 36 29 0d  01 22 5c e7 20 28 66 31  |1)<2E6).."\. (f1|
000003a0  20 80 20 66 32 29 8c 20  e6 30 2c 28 28 63 6f 6c  | . f2). .0,((col|
000003b0  25 2f 63 64 69 76 25 29  83 31 35 29 2b 31 3a f0  |%/cdiv%).15)+1:.|
000003c0  36 39 2c 28 78 31 2a 63  2b 79 2a 73 29 2a 78 73  |69,(x1*c+y*s)*xs|
000003d0  2c 28 79 2a 63 2d 78 31  2a 73 29 2a 79 73 3a 66  |,(y*c-x1*s)*ys:f|
000003e0  31 3d 30 3a 66 32 3d 30  20 8b 20 64 6f 6e 65 25  |1=0:f2=0 . done%|
000003f0  2b 3d 31 0d 01 2c 3f 73  74 79 2b 3d 30 2e 30 35  |+=1..,?sty+=0.05|
00000400  3a fd 28 73 74 79 3e 31  2e 30 29 3a 73 74 78 2b  |:.(sty>1.0):stx+|
00000410  3d 78 69 6e 63 3a 63 6f  6c 25 2b 3d 31 3a fd 28  |=xinc:col%+=1:.(|
00000420  73 74 78 3e 34 29 84 28  64 6f 6e 65 25 3e 35 30  |stx>4).(done%>50|
00000430  30 29 0d 01 36 05 e1 0d  01 40 0b dd 20 f2 73 6c  |0)..6....@.. .sl|
00000440  6f 77 0d 01 4a 08 ea 20  67 25 0d 01 54 99 73 74  |ow..J.. g%..T.st|
00000450  78 3d 30 2e 30 3a f5 3a  73 74 79 3d 30 2e 30 3a  |x=0.0:.:sty=0.0:|
00000460  78 3d 73 74 78 3a 79 3d  73 74 79 3a f5 3a e3 20  |x=stx:y=sty:.:. |
00000470  67 25 3d 30 b8 31 35 3a  78 31 3d 78 2a 63 61 2d  |g%=0.15:x1=x*ca-|
00000480  28 79 2d 78 2a 78 29 2a  73 61 3a 79 31 3d 78 2a  |(y-x*x)*sa:y1=x*|
00000490  73 62 2b 28 79 2d 78 2a  78 29 2a 63 62 3a 78 3d  |sb+(y-x*x)*cb:x=|
000004a0  2d 78 31 2a 28 94 28 78  31 29 3c 32 45 36 29 3a  |-x1*(.(x1)<2E6):|
000004b0  66 31 3d 31 2a 28 94 28  78 31 29 3c 32 45 36 29  |f1=1*(.(x1)<2E6)|
000004c0  3a 79 3d 2d 79 31 2a 28  94 28 79 31 29 3c 32 45  |:y=-y1*(.(y1)<2E|
000004d0  36 29 3a 66 32 3d 31 2a  28 94 28 79 31 29 3c 32  |6):f2=1*(.(y1)<2|
000004e0  45 36 29 0d 01 5e 50 e7  28 66 31 20 80 20 66 32  |E6)..^P.(f1 . f2|
000004f0  29 8c 20 e6 30 2c 28 28  63 6f 6c 25 2f 63 64 69  |). .0,((col%/cdi|
00000500  76 25 29 83 31 35 29 2b  31 3a f0 36 39 2c 28 78  |v%).15)+1:.69,(x|
00000510  31 2a 63 2b 79 2a 73 29  2a 78 73 2c 28 79 2a 63  |1*c+y*s)*xs,(y*c|
00000520  2d 78 31 2a 73 29 2a 79  73 3a 66 31 3d 30 3a 66  |-x1*s)*ys:f1=0:f|
00000530  32 3d 30 0d 01 68 3a ed  20 67 25 3a 73 74 79 2b  |2=0..h:. g%:sty+|
00000540  3d 30 2e 30 35 3a fd 28  73 74 79 3e 31 2e 30 29  |=0.05:.(sty>1.0)|
00000550  3a 73 74 78 2b 3d 78 69  6e 63 3a 63 6f 6c 25 2b  |:stx+=xinc:col%+|
00000560  3d 31 3a fd 28 73 74 78  3e 31 2e 35 29 0d 01 72  |=1:.(stx>1.5)..r|
00000570  05 e1 0d 01 7c 0d dd 20  f2 63 6f 6c 6f 72 73 0d  |....|.. .colors.|
00000580  01 86 a1 64 3d b3 28 31  38 30 29 3a e3 20 4e 25  |...d=.(180):. N%|
00000590  3d 31 b8 31 35 3a 46 31  25 3d 31 30 30 2a 28 b5  |=1.15:F1%=100*(.|
000005a0  20 b2 28 32 34 2a 4e 25  29 2b 31 29 2b 32 38 3a  | .(24*N%)+1)+28:|
000005b0  46 32 25 3d 31 30 30 2a  28 b5 20 b2 28 32 34 2a  |F2%=100*(. .(24*|
000005c0  4e 25 2b 64 29 2b 31 29  2b 32 38 3a 46 33 25 3d  |N%+d)+1)+28:F3%=|
000005d0  31 30 30 2a 28 b5 20 b2  28 32 34 2a 4e 25 2b 64  |100*(. .(24*N%+d|
000005e0  2b 64 29 2b 31 29 2b 32  38 3a 43 31 25 28 4e 25  |+d)+1)+28:C1%(N%|
000005f0  29 3d 46 31 25 3a 43 32  25 28 4e 25 29 3d 46 32  |)=F1%:C2%(N%)=F2|
00000600  25 3a 43 33 25 28 4e 25  29 3d 46 33 25 3a fb 20  |%:C3%(N%)=F3%:. |
00000610  4e 25 2c 46 31 25 2c 46  32 25 2c 46 33 25 3a ed  |N%,F1%,F2%,F3%:.|
00000620  0d 01 90 05 e1 0d ff                              |.......|
00000627

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .