Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars » StarInfo/Stoner/Henon2
StarInfo/Stoner/Henon2
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-03 B.adf » Regulars |
| Filename: | StarInfo/Stoner/Henon2 |
| Read OK: | ✔ |
| File size: | 07BD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1ON ERROR REPORT:PRINT" at line ";ERL:END
2REM Henon Mapper
3REM from Chaos Cook Book
4REM by Nigel Stoner LEN 1996.
5PROCinit
6REPEAT
7PROCchoose
8IF decide% >50 PROCfast
9IF decide% <50 PROCslow
10UNTIL FALSE
11END
12DEF PROCinit
13DIM r%(15),g%(15),b%(15)
14t=RND(-TIME):PROCmode: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
15ENDPROC
16DEF PROCchoose
17LOCAL c%
18decide%=RND(1)*100:PROCcolors:a=RND(1)*720-360:col%=RND(15)
19CASE TRUE OF
20WHEN decide%>50 :xinc=0.01:cdiv%=4:sm=RND(1)*720-360:c%=RND(650)+150:ys=RND(600):xs=ys*1.25:IF c%>50 b=a+sm ELSE b=a-sm
21WHEN 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
22ENDCASE
23sa=SIN(a):ca=COS(a):sb=SIN(b):cb=COS(b):ang%=RND(1)*360:s=SIN RAD(ang%):c=COS RAD(ang%):CLS
24ORIGIN 0,0:FOR c%=0 TO 15 :GCOLc%:RECTANGLEFILLc%*8,0,8,4:NEXT c%:ORIGIN RND(160)+560,RND(128)+448
25ENDPROC
26DEF PROCfast
27LOCAL done%
28stx=0.0:REPEAT:sty=0.0:x=stx:y=sty:REPEAT:x2=x*x:y2=y-x2:x1=x*ca-y2*sa:y1=x*sb+y2*cb:x=-x1*(ABS(x1)<20):f1=1*(ABS(x1)<20):y=-y1*(ABS(y1)<20):f2=1*(ABS(y1)<20)
29IF (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
30sty+=0.05:UNTIL(sty>1.0):stx+=xinc:col%+=1:PROCcycle:WAIT:UNTIL(stx>4)OR(done%>300)
31ENDPROC
32DEF PROCslow
33LOCAL g%
34stx=0.0:REPEAT:sty=0.0:x=stx:y=sty:REPEAT:FOR g%=0TO15:x2=x*x:y2=y-x2:x1=x*ca-y2*sa:y1=x*sb+y2*cb:x=-x1*(ABS(x1)<20):f1=1*(ABS(x1)<20):y=-y1*(ABS(y1)<20):f2=1*(ABS(y1)<20)
35IF(f1 AND f2)THEN GCOL0,((col%/cdiv%)MOD15)+1:PLOT69,(x1*c+y*s)*xs,(y*c-x1*s)*ys:f1=0:f2=0
36NEXT g%:sty+=0.05:UNTIL(sty>1.0):stx+=xinc:col%+=1:PROCcycle:UNTIL(stx>1.5)
37ENDPROC
38DEF PROCcolors
39FOR a%=0 TO 12 STEP 4:r%(a%)=RND(255):g%(a%)=RND(255):b%(a%)=RND(255):NEXT a%
40s%=4:d%=2:FORb%=0 TO 1:FORa%=0+d% TO 16-d% STEP s%
41r%(a%)=(r%(a%-d%)+r%((a%+d%)MOD16))/2:g%(a%)=(g%(a%-d%)+g%((a%+d%)MOD16))/2:b%(a%)=(b%(a%-d%)+g%((a%+d%)MOD16))/2
42NEXTa%:s%=2:d%=1:NEXT b%
43FOR a%=1 TO 15:COLOURa%,r%(a%),g%(a%),b%(a%):NEXT
44ENDPROC
45DEFPROCcycle
46SWAP r%(15),r%(1):SWAP g%(15),g%(1):SWAP b%(15),b%(1):COLOUR1,r%(1),g%(1),b%(1)
47FOR d%=15 TO 2STEP-1:SWAP r%(d%-1),r%(d%):SWAP g%(d%-1),g%(d%):SWAP b%(d%-1),b%(d%):COLOURd%,r%(d%),g%(d%),b%(d%):NEXTd%
48ENDPROC
49DEFPROCmode:MODE27:IF MODE <>27 MODE 12
50ENDPROC
� � �:�" at line ";�:� � Henon Mapper � from Chaos Cook Book � by Nigel Stoner � 1996. �init � �choose � decide% >50 �fast � decide% <50 �slow � � � � �init � r%(15),g%(15),b%(15) kt=�(-�):�mode:�: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% 6decide%=�(1)*100:�colors:a=�(1)*720-360:col%=�(15) Ȏ � � n� decide%>50 :xinc=0.01:cdiv%=4:sm=�(1)*720-360: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 � Ksa=�(a):ca=�(a):sb=�(b):cb=�(b):ang%=�(1)*360:s=� �(ang%):c=� �(ang%):� Hȑ 0,0:� c%=0 � 15 :�c%:ȓȐc%*8,0,8,4:� c%:ȑ �(160)+560,�(128)+448 � � �fast � done% �stx=0.0:�:sty=0.0:x=stx:y=sty:�:x2=x*x:y2=y-x2:x1=x*ca-y2*sa:y1=x*sb+y2*cb:x=-x1*(�(x1)<20):f1=1*(�(x1)<20):y=-y1*(�(y1)<20):f2=1*(�(y1)<20) \� (f1 � f2)� �0,((col%/cdiv%)�15)+1:�69,(x1*c+y*s)*xs,(y*c-x1*s)*ys:f1=0:f2=0 � done%+=1 Isty+=0.05:�(sty>1.0):stx+=xinc:col%+=1:�cycle:Ȗ:�(stx>4)�(done%>300) � � �slow !� g% "�stx=0.0:�:sty=0.0:x=stx:y=sty:�:� g%=0�15:x2=x*x:y2=y-x2:x1=x*ca-y2*sa:y1=x*sb+y2*cb:x=-x1*(�(x1)<20):f1=1*(�(x1)<20):y=-y1*(�(y1)<20):f2=1*(�(y1)<20) #P�(f1 � f2)� �0,((col%/cdiv%)�15)+1:�69,(x1*c+y*s)*xs,(y*c-x1*s)*ys:f1=0:f2=0 $A� g%:sty+=0.05:�(sty>1.0):stx+=xinc:col%+=1:�cycle:�(stx>1.5) %� & � �colors 'B� a%=0 � 12 � 4:r%(a%)=�(255):g%(a%)=�(255):b%(a%)=�(255):� a% (-s%=4:d%=2:�b%=0 � 1:�a%=0+d% � 16-d% � s% )or%(a%)=(r%(a%-d%)+r%((a%+d%)�16))/2:g%(a%)=(g%(a%-d%)+g%((a%+d%)�16))/2:b%(a%)=(b%(a%-d%)+g%((a%+d%)�16))/2 *�a%:s%=2:d%=1:� b% +*� a%=1 � 15:�a%,r%(a%),g%(a%),b%(a%):� ,� - ��cycle .HȔ r%(15),r%(1):Ȕ g%(15),g%(1):Ȕ b%(15),b%(1):�1,r%(1),g%(1),b%(1) /h� d%=15 � 2�-1:Ȕ r%(d%-1),r%(d%):Ȕ g%(d%-1),g%(d%):Ȕ b%(d%-1),b%(d%):�d%,r%(d%),g%(d%),b%(d%):�d% 0� 1 ��mode:�27:� � <>27 � 12 2� �
00000000 0d 00 01 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 02 12 f4 20 |line ";.:...... | 00000020 48 65 6e 6f 6e 20 4d 61 70 70 65 72 0d 00 03 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 04 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 05 09 f2 69 6e 69 74 0d 00 06 05 |96......init....| 00000070 f5 0d 00 07 0b f2 63 68 6f 6f 73 65 0d 00 08 17 |......choose....| 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 09 17 e7 20 64 65 63 69 64 65 25 |ast..... decide%| 000000a0 20 3c 35 30 20 f2 73 6c 6f 77 0d 00 0a 07 fd 20 | <50 .slow..... | 000000b0 a3 0d 00 0b 05 e0 0d 00 0c 0b dd 20 f2 69 6e 69 |........... .ini| 000000c0 74 0d 00 0d 1a de 20 72 25 28 31 35 29 2c 67 25 |t..... r%(15),g%| 000000d0 28 31 35 29 2c 62 25 28 31 35 29 0d 00 0e 6b 74 |(15),b%(15)...kt| 000000e0 3d b3 28 2d 91 29 3a f2 6d 6f 64 65 3a 87 3a 61 |=.(-.):.mode:.: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 0f 05 e1 0d 00 10 0d dd |ide%=0..........| 00000150 20 f2 63 68 6f 6f 73 65 0d 00 11 08 ea 20 63 25 | .choose..... c%| 00000160 0d 00 12 36 64 65 63 69 64 65 25 3d b3 28 31 29 |...6decide%=.(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 2d 33 36 30 3a 63 6f 6c 25 |(1)*720-360:col%| 00000190 3d b3 28 31 35 29 0d 00 13 0a c8 8e 20 b9 20 ca |=.(15)...... . .| 000001a0 0d 00 14 6e c9 20 64 65 63 69 64 65 25 3e 35 30 |...n. decide%>50| 000001b0 20 3a 78 69 6e 63 3d 30 2e 30 31 3a 63 64 69 76 | :xinc=0.01:cdiv| 000001c0 25 3d 34 3a 73 6d 3d b3 28 31 29 2a 37 32 30 2d |%=4:sm=.(1)*720-| 000001d0 33 36 30 3a 63 25 3d b3 28 36 35 30 29 2b 31 35 |360:c%=.(650)+15| 000001e0 30 3a 79 73 3d b3 28 36 30 30 29 3a 78 73 3d 79 |0:ys=.(600):xs=y| 000001f0 73 2a 31 2e 32 35 3a e7 20 63 25 3e 35 30 20 62 |s*1.25:. c%>50 b| 00000200 3d 61 2b 73 6d 20 8b 20 62 3d 61 2d 73 6d 0d 00 |=a+sm . b=a-sm..| 00000210 15 6c c9 20 64 65 63 69 64 65 25 3c 35 30 20 3a |.l. decide%<50 :| 00000220 78 69 6e 63 3d 30 2e 30 32 35 3a 63 64 69 76 25 |xinc=0.025:cdiv%| 00000230 3d 31 3a 73 6d 3d b3 28 31 29 2a 31 2d 2e 35 3a |=1:sm=.(1)*1-.5:| 00000240 63 25 3d b3 28 31 30 30 29 3a 79 73 3d b3 28 37 |c%=.(100):ys=.(7| 00000250 30 30 29 2b 31 30 30 3a 78 73 3d 79 73 2a 31 2e |00)+100:xs=ys*1.| 00000260 32 35 3a e7 20 63 25 3e 35 30 20 62 3d 61 2b 73 |25:. c%>50 b=a+s| 00000270 6d 20 8b 20 62 3d 61 2d 73 6d 0d 00 16 05 cb 0d |m . b=a-sm......| 00000280 00 17 4b 73 61 3d b5 28 61 29 3a 63 61 3d 9b 28 |..Ksa=.(a):ca=.(| 00000290 61 29 3a 73 62 3d b5 28 62 29 3a 63 62 3d 9b 28 |a):sb=.(b):cb=.(| 000002a0 62 29 3a 61 6e 67 25 3d b3 28 31 29 2a 33 36 30 |b):ang%=.(1)*360| 000002b0 3a 73 3d b5 20 b2 28 61 6e 67 25 29 3a 63 3d 9b |:s=. .(ang%):c=.| 000002c0 20 b2 28 61 6e 67 25 29 3a db 0d 00 18 48 c8 91 | .(ang%):....H..| 000002d0 20 30 2c 30 3a e3 20 63 25 3d 30 20 b8 20 31 35 | 0,0:. c%=0 . 15| 000002e0 20 3a e6 63 25 3a c8 93 c8 90 63 25 2a 38 2c 30 | :.c%:....c%*8,0| 000002f0 2c 38 2c 34 3a ed 20 63 25 3a c8 91 20 b3 28 31 |,8,4:. c%:.. .(1| 00000300 36 30 29 2b 35 36 30 2c b3 28 31 32 38 29 2b 34 |60)+560,.(128)+4| 00000310 34 38 0d 00 19 05 e1 0d 00 1a 0b dd 20 f2 66 61 |48.......... .fa| 00000320 73 74 0d 00 1b 0b ea 20 64 6f 6e 65 25 0d 00 1c |st..... done%...| 00000330 90 73 74 78 3d 30 2e 30 3a f5 3a 73 74 79 3d 30 |.stx=0.0:.:sty=0| 00000340 2e 30 3a 78 3d 73 74 78 3a 79 3d 73 74 79 3a f5 |.0:x=stx:y=sty:.| 00000350 3a 78 32 3d 78 2a 78 3a 79 32 3d 79 2d 78 32 3a |:x2=x*x:y2=y-x2:| 00000360 78 31 3d 78 2a 63 61 2d 79 32 2a 73 61 3a 79 31 |x1=x*ca-y2*sa:y1| 00000370 3d 78 2a 73 62 2b 79 32 2a 63 62 3a 78 3d 2d 78 |=x*sb+y2*cb:x=-x| 00000380 31 2a 28 94 28 78 31 29 3c 32 30 29 3a 66 31 3d |1*(.(x1)<20):f1=| 00000390 31 2a 28 94 28 78 31 29 3c 32 30 29 3a 79 3d 2d |1*(.(x1)<20):y=-| 000003a0 79 31 2a 28 94 28 79 31 29 3c 32 30 29 3a 66 32 |y1*(.(y1)<20):f2| 000003b0 3d 31 2a 28 94 28 79 31 29 3c 32 30 29 0d 00 1d |=1*(.(y1)<20)...| 000003c0 5c e7 20 28 66 31 20 80 20 66 32 29 8c 20 e6 30 |\. (f1 . f2). .0| 000003d0 2c 28 28 63 6f 6c 25 2f 63 64 69 76 25 29 83 31 |,((col%/cdiv%).1| 000003e0 35 29 2b 31 3a f0 36 39 2c 28 78 31 2a 63 2b 79 |5)+1:.69,(x1*c+y| 000003f0 2a 73 29 2a 78 73 2c 28 79 2a 63 2d 78 31 2a 73 |*s)*xs,(y*c-x1*s| 00000400 29 2a 79 73 3a 66 31 3d 30 3a 66 32 3d 30 20 8b |)*ys:f1=0:f2=0 .| 00000410 20 64 6f 6e 65 25 2b 3d 31 0d 00 1e 49 73 74 79 | done%+=1...Isty| 00000420 2b 3d 30 2e 30 35 3a fd 28 73 74 79 3e 31 2e 30 |+=0.05:.(sty>1.0| 00000430 29 3a 73 74 78 2b 3d 78 69 6e 63 3a 63 6f 6c 25 |):stx+=xinc:col%| 00000440 2b 3d 31 3a f2 63 79 63 6c 65 3a c8 96 3a fd 28 |+=1:.cycle:..:.(| 00000450 73 74 78 3e 34 29 84 28 64 6f 6e 65 25 3e 33 30 |stx>4).(done%>30| 00000460 30 29 0d 00 1f 05 e1 0d 00 20 0b dd 20 f2 73 6c |0)....... .. .sl| 00000470 6f 77 0d 00 21 08 ea 20 67 25 0d 00 22 9a 73 74 |ow..!.. g%..".st| 00000480 78 3d 30 2e 30 3a f5 3a 73 74 79 3d 30 2e 30 3a |x=0.0:.:sty=0.0:| 00000490 78 3d 73 74 78 3a 79 3d 73 74 79 3a f5 3a e3 20 |x=stx:y=sty:.:. | 000004a0 67 25 3d 30 b8 31 35 3a 78 32 3d 78 2a 78 3a 79 |g%=0.15:x2=x*x:y| 000004b0 32 3d 79 2d 78 32 3a 78 31 3d 78 2a 63 61 2d 79 |2=y-x2:x1=x*ca-y| 000004c0 32 2a 73 61 3a 79 31 3d 78 2a 73 62 2b 79 32 2a |2*sa:y1=x*sb+y2*| 000004d0 63 62 3a 78 3d 2d 78 31 2a 28 94 28 78 31 29 3c |cb:x=-x1*(.(x1)<| 000004e0 32 30 29 3a 66 31 3d 31 2a 28 94 28 78 31 29 3c |20):f1=1*(.(x1)<| 000004f0 32 30 29 3a 79 3d 2d 79 31 2a 28 94 28 79 31 29 |20):y=-y1*(.(y1)| 00000500 3c 32 30 29 3a 66 32 3d 31 2a 28 94 28 79 31 29 |<20):f2=1*(.(y1)| 00000510 3c 32 30 29 0d 00 23 50 e7 28 66 31 20 80 20 66 |<20)..#P.(f1 . f| 00000520 32 29 8c 20 e6 30 2c 28 28 63 6f 6c 25 2f 63 64 |2). .0,((col%/cd| 00000530 69 76 25 29 83 31 35 29 2b 31 3a f0 36 39 2c 28 |iv%).15)+1:.69,(| 00000540 78 31 2a 63 2b 79 2a 73 29 2a 78 73 2c 28 79 2a |x1*c+y*s)*xs,(y*| 00000550 63 2d 78 31 2a 73 29 2a 79 73 3a 66 31 3d 30 3a |c-x1*s)*ys:f1=0:| 00000560 66 32 3d 30 0d 00 24 41 ed 20 67 25 3a 73 74 79 |f2=0..$A. g%:sty| 00000570 2b 3d 30 2e 30 35 3a fd 28 73 74 79 3e 31 2e 30 |+=0.05:.(sty>1.0| 00000580 29 3a 73 74 78 2b 3d 78 69 6e 63 3a 63 6f 6c 25 |):stx+=xinc:col%| 00000590 2b 3d 31 3a f2 63 79 63 6c 65 3a fd 28 73 74 78 |+=1:.cycle:.(stx| 000005a0 3e 31 2e 35 29 0d 00 25 05 e1 0d 00 26 0d dd 20 |>1.5)..%....&.. | 000005b0 f2 63 6f 6c 6f 72 73 0d 00 27 42 e3 20 61 25 3d |.colors..'B. a%=| 000005c0 30 20 b8 20 31 32 20 88 20 34 3a 72 25 28 61 25 |0 . 12 . 4:r%(a%| 000005d0 29 3d b3 28 32 35 35 29 3a 67 25 28 61 25 29 3d |)=.(255):g%(a%)=| 000005e0 b3 28 32 35 35 29 3a 62 25 28 61 25 29 3d b3 28 |.(255):b%(a%)=.(| 000005f0 32 35 35 29 3a ed 20 61 25 0d 00 28 2d 73 25 3d |255):. a%..(-s%=| 00000600 34 3a 64 25 3d 32 3a e3 62 25 3d 30 20 b8 20 31 |4:d%=2:.b%=0 . 1| 00000610 3a e3 61 25 3d 30 2b 64 25 20 b8 20 31 36 2d 64 |:.a%=0+d% . 16-d| 00000620 25 20 88 20 73 25 0d 00 29 6f 72 25 28 61 25 29 |% . s%..)or%(a%)| 00000630 3d 28 72 25 28 61 25 2d 64 25 29 2b 72 25 28 28 |=(r%(a%-d%)+r%((| 00000640 61 25 2b 64 25 29 83 31 36 29 29 2f 32 3a 67 25 |a%+d%).16))/2:g%| 00000650 28 61 25 29 3d 28 67 25 28 61 25 2d 64 25 29 2b |(a%)=(g%(a%-d%)+| 00000660 67 25 28 28 61 25 2b 64 25 29 83 31 36 29 29 2f |g%((a%+d%).16))/| 00000670 32 3a 62 25 28 61 25 29 3d 28 62 25 28 61 25 2d |2:b%(a%)=(b%(a%-| 00000680 64 25 29 2b 67 25 28 28 61 25 2b 64 25 29 83 31 |d%)+g%((a%+d%).1| 00000690 36 29 29 2f 32 0d 00 2a 16 ed 61 25 3a 73 25 3d |6))/2..*..a%:s%=| 000006a0 32 3a 64 25 3d 31 3a ed 20 62 25 0d 00 2b 2a e3 |2:d%=1:. b%..+*.| 000006b0 20 61 25 3d 31 20 b8 20 31 35 3a fb 61 25 2c 72 | a%=1 . 15:.a%,r| 000006c0 25 28 61 25 29 2c 67 25 28 61 25 29 2c 62 25 28 |%(a%),g%(a%),b%(| 000006d0 61 25 29 3a ed 0d 00 2c 05 e1 0d 00 2d 0b dd f2 |a%):...,....-...| 000006e0 63 79 63 6c 65 0d 00 2e 48 c8 94 20 72 25 28 31 |cycle...H.. r%(1| 000006f0 35 29 2c 72 25 28 31 29 3a c8 94 20 67 25 28 31 |5),r%(1):.. g%(1| 00000700 35 29 2c 67 25 28 31 29 3a c8 94 20 62 25 28 31 |5),g%(1):.. b%(1| 00000710 35 29 2c 62 25 28 31 29 3a fb 31 2c 72 25 28 31 |5),b%(1):.1,r%(1| 00000720 29 2c 67 25 28 31 29 2c 62 25 28 31 29 0d 00 2f |),g%(1),b%(1)../| 00000730 68 e3 20 64 25 3d 31 35 20 b8 20 32 88 2d 31 3a |h. d%=15 . 2.-1:| 00000740 c8 94 20 72 25 28 64 25 2d 31 29 2c 72 25 28 64 |.. r%(d%-1),r%(d| 00000750 25 29 3a c8 94 20 67 25 28 64 25 2d 31 29 2c 67 |%):.. g%(d%-1),g| 00000760 25 28 64 25 29 3a c8 94 20 62 25 28 64 25 2d 31 |%(d%):.. b%(d%-1| 00000770 29 2c 62 25 28 64 25 29 3a fb 64 25 2c 72 25 28 |),b%(d%):.d%,r%(| 00000780 64 25 29 2c 67 25 28 64 25 29 2c 62 25 28 64 25 |d%),g%(d%),b%(d%| 00000790 29 3a ed 64 25 0d 00 30 05 e1 0d 00 31 1c dd f2 |):.d%..0....1...| 000007a0 6d 6f 64 65 3a eb 32 37 3a e7 20 eb 20 3c 3e 32 |mode:.27:. . <>2| 000007b0 37 20 eb 20 31 32 0d 00 32 05 e1 0d ff |7 . 12..2....| 000007bd
.