Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Regulars » info/Vlietinck/Ifs_morph
info/Vlietinck/Ifs_morph
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-07 A.adf » Regulars |
| Filename: | info/Vlietinck/Ifs_morph |
| Read OK: | ✔ |
| File size: | 2B7C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Ifs_morph
20REM (c) Jan Vlieinck
30
40ON ERROR:REPORT:PRINT ERL:END
50MODE 128+13:MODE13
60VDU 19,1,24,2*64,1*64,2*64:OFF
70COLOUR 128+38:CLS
80DIM mat (6*4)*100
90DIM ifs(20)
100DIM ifs 24*20*100
110S=2^12
120PROCASS
130PROCread
140M%=2
150*POINTER
160PROCmorph2(0,0)
170REPEAT
180PROCmorph4(0,7):g=INKEY(100)
190PROCmorph4(7,9):g=INKEY(25)
200PROCmorph4(9,5):g=INKEY(25)
210PROCmorph3(5,4):g=INKEY(25)
220PROCmorph3(4,1):g=INKEY(25)
230PROCmorph2(1,3):g=INKEY(25)
240PROCmorph2(3,2):g=INKEY(25)
250PROCmorph2(2,1):g=INKEY(25)
260PROCmorph3(1,8):g=INKEY(25)
270PROCmorph11(10,11):g=INKEY(25)
280PROCmorph11(11,0):g=INKEY(25)
290UNTIL 0
300END
310
320DEF PROCmove(I%)
330r=0:s=1
340REPEAT
350N%=!ifs(I%)
360P%=ifs(I%)+4
370SYS "OS_Byte",&70,M%:CLS
380MOUSE X%,Y%,Z%
390IF Z%=4 r+=PI/20
400IF Z%=1 r-=PI/20
410IF Z%=3 s-=0.05:IF s<0 THEN s=0.05
420IF Z%=6 s+=0.05:IF s>2 THEN s=2
430PROCtransform(X%/128,Y%/128,r,s,N%,P%)
440CALL set
450CASE N% OF
460WHEN 2:CALL tr2
470WHEN 3:CALL tr3
480WHEN 4:CALL tr4
490WHEN 9:CALL tr9:PRINT "negen"
500WHEN 11::PRINT "elf":CALL tr11
510ENDCASE
520WAIT:SYS "OS_Byte",&71,M%:M%=M% EOR 3
530UNTIL 0
540ENDPROC
550
560
570DEF PROCtransform(x,y,r,s,N%,P%)
580Mat%=mat
590FOR M=1 TO N%
600A%=!P%:P%+=4
610B%=!P%:P%+=4
620C%=!P%:P%+=4
630D%=!P%:P%+=4
640E%=!P%:P%+=4
650F%=!P%:P%+=4
660A=A%*CS-C%*SN
670C=A%*SN+C%*CS
680B=B%*CS-D%*SN
690D=B%*SN+D%*CS
700A%=A*CS-B*SN
710B%=A*SN+B*CS
720C%=C*CS-D*SN
730D%=C*SN+D*CS
740T%=x*S-A%*x-B%*y+(E%*CS-F%*SN)*s
750F%=y*S-C%*x-D%*y+(E%*SN+F%*CS)*s
760!Mat%=A%:Mat%+=4
770!Mat%=B%:Mat%+=4
780!Mat%=C%:Mat%+=4
790!Mat%=D%:Mat%+=4
800!Mat%=T%:Mat%+=4
810!Mat%=F%:Mat%+=4
820NEXT
830ENDPROC
840
850DEF PROCadjust(x,y,r,s,I%)
860LOCAL A,B,C,D,E,F,CS,SN
870N%=!ifs(I%)
880P%=ifs(I%)+4
890CS=COSr
900SN=SINr
910Mat%=mat
920FOR M=1 TO N%
930A%=!P%:P%+=4
940B%=!P%:P%+=4
950C%=!P%:P%+=4
960D%=!P%:P%+=4
970E%=!P%:P%+=4
980F%=!P%:P%+=4
990A=A%*CS-C%*SN
1000C=A%*SN+C%*CS
1010B=B%*CS-D%*SN
1020D=B%*SN+D%*CS
1030A%=A*CS-B*SN
1040B%=A*SN+B*CS
1050C%=C*CS-D*SN
1060D%=C*SN+D*CS
1070T%=x*S-A%*x-B%*y+(E%*CS-F%*SN)*s
1080F%=y*S-C%*x-D%*y+(E%*SN+F%*CS)*s
1090P%-=6*4
1100!P%=A%:P%+=4
1110!P%=B%:P%+=4
1120!P%=C%:P%+=4
1130!P%=D%:P%+=4
1140!P%=T%:P%+=4
1150!P%=F%:P%+=4
1160NEXT
1170ENDPROC
1180
1190
1200
1210DEF PROCmorph2(I%,J%)
1220FOR t=0 TO 1.015 STEP 0.015
1230IF t>1 PROCset(I%,J%,1) ELSE PROCset(I%,J%,t)
1240SYS "OS_Byte",&70,M%:CLS
1250CALL set
1260CALL tr2
1270WAIT:SYS "OS_Byte",&71,M%:M%=M% EOR 3
1280NEXT
1290ENDPROC
1300
1310DEF PROCmorph3(I%,J%)
1320FOR t=0 TO 1.015 STEP 0.015
1330IF t>1 PROCset(I%,J%,1) ELSE PROCset(I%,J%,t)
1340PROCset(I%,J%,t)
1350SYS "OS_Byte",&70,M%:CLS
1360CALL set
1370CALL tr3
1380WAIT:SYS "OS_Byte",&71,M%:M%=M% EOR 3
1390NEXT
1400ENDPROC
1410
1420DEF PROCmorph4(I%,J%)
1430FOR t=0 TO 1.015 STEP 0.015
1440IF t>1 PROCset(I%,J%,1) ELSE PROCset(I%,J%,t)
1450PROCset(I%,J%,t)
1460SYS "OS_Byte",&70,M%:CLS
1470CALL set
1480CALL tr4
1490WAIT:SYS "OS_Byte",&71,M%:M%=M% EOR 3
1500NEXT
1510ENDPROC
1520
1530DEF PROCmorph9(I%,J%)
1540FOR t=0 TO 1.015 STEP 0.015
1550IF t>1 PROCset(I%,J%,1) ELSE PROCset(I%,J%,t)
1560PROCset(I%,J%,t)
1570SYS "OS_Byte",&70,M%:CLS
1580CALL set
1590CALL tr9
1600WAIT:SYS "OS_Byte",&71,M%:M%=M% EOR 3
1610NEXT
1620ENDPROC
1630
1640DEF PROCmorph11(I%,J%)
1650FOR t=0 TO 1.015 STEP 0.015
1660IF t>1 PROCset(I%,J%,1) ELSE PROCset(I%,J%,t)
1670PROCset(I%,J%,t)
1680SYS "OS_Byte",&70,M%:CLS
1690CALL set
1700CALL tr11
1710WAIT:SYS "OS_Byte",&71,M%:M%=M% EOR 3
1720NEXT
1730ENDPROC
1740
1750
1760DEF PROCset(I%,J%,t)
1770N1%=!ifs(I%)
1780N2%=!ifs(J%)
1790P1%=ifs(I%)+4
1800P2%=ifs(J%)+4
1810Mat%=mat
1820IF N1%=N2% THEN
1830FOR M=1 TO N1%
1840FOR I=0 TO 5
1850!Mat%=!P1%*(1-t)+t*!P2%
1860Mat%+=4:P1%+=4:P2%+=4
1870NEXT
1880NEXT
1890ELSE
1900IF N1%<N2% THEN
1910FOR M=1 TO N1%
1920FOR I=0 TO 5
1930!Mat%=!P1%*(1-t)+t*!P2%
1940Mat%+=4:P1%+=4:P2%+=4
1950NEXT
1960PRINT
1970NEXT
1980
1990FOR N=M TO N2%
2000P1%-=24
2010FOR I=0 TO 5
2020!Mat%=!P1%*(1-t)+t*!P2%
2030Mat%+=4:P1%+=4:P2%+=4
2040NEXT
2050PRINT
2060NEXT
2070ELSE
2080
2090FOR M=1 TO N2%
2100FOR I=0 TO 5
2110!Mat%=!P1%*(1-t)+t*!P2%
2120Mat%+=4:P1%+=4:P2%+=4
2130NEXT
2140PRINT
2150NEXT
2160
2170FOR N=M TO N1%
2180P2%-=24
2190FOR I=0 TO 5
2200!Mat%=!P1%*(1-t)+t*!P2%
2210Mat%+=4:P1%+=4:P2%+=4
2220NEXT
2230PRINT
2240NEXT
2250
2260ENDIF
2270ENDIF
2280ENDPROC
2290
2300
2310DEF PROCread
2320LOCAL C
2330S=2^12
2340P=ifs
2350C=0
2360READ name$:REMPRINT name$
2370READ nr_tr
2380WHILE nr_tr<>0
2390 ifs(C)=P :REM rem pointer to ifs
2400 !P=nr_tr:P+=4
2410 FOR J=1 TO nr_tr
2420 READ R:!P=R*S:P+=4
2430 READ R:!P=R*S:P+=4
2440 READ R:!P=R*S:P+=4
2450 READ R:!P=R*S:P+=4
2460 READ R:!P=R*S*1.5:P+=4
2470 READ R:!P=R*S*1.5:P+=4
2480 READ R
2490 NEXT
2500 READ name$:REMPRINT name$
2510 READ nr_tr
2520 C+=1
2530ENDWHILE
2540ifs(C)=P:C+=1
2550!P=9:P+=4
2560PROCthe
2570ifs(C)=P:C+=1
2580!P=11:P+=4
2590PROCend
2600ENDPROC
2610
2620DEF PROCthe
2630PROCtr(5,1,0,0,4) :REM "T"
2640PROCtr(3.5,1,90,3,0)
2650PROCtr(5,1,90,7,0) :REM "H"
2660PROCtr(5,1,-90,9,5)
2670PROCtr(1,1,0,7.5,2)
2680PROCtr(5,1,90,12.75,0) :REM "E"
2690PROCtr(2,1,0,13,4)
2700PROCtr(2,1,0,13,2)
2710PROCtr(2,1,0,13,0)
2720PROCadjust(-8,4,0,1,10)
2730ENDPROC
2740
2750DEF PROCend
2760PROCtr(5,1,90,1,0) :REM "E"
2770PROCtr(2,1,0,1.25,4)
2780PROCtr(2,1,0,1.25,2)
2790PROCtr(2,1,0,1.25,0)
2800PROCtr(5,1,90,6,0) :REM "N"
2810PROCtr(5,1,-90,8,5)
2820PROCtr(6,1,130,8.7,0.7)
2830PROCtr(5,1,90,12,0) :REM "D"
2840PROCtr(2,1,90,14,1.5)
2850PROCtr(2.5,1,-30,11.3,4.2)
2860PROCtr(2.5,1, 30,12,0)
2870PROCadjust(-6,4,0,1,11)
2880ENDPROC
2890
2900DEF PROCtr(sx,sy,r,tx,ty)
2910sx=sx/15:sy=sy/5
2920r=RADr
2930!P= sx*COSr*S:P+=4
2940!P=-sy*SINr*S:P+=4
2950!P= sx*SINr*S:P+=4
2960!P= sy*COSr*S:P+=4
2970!P=tx*S:P+=4
2980!P=ty*S:P+=4
2990ENDPROC
3000
3010DEF PROCtr2(sx,sy,r,tx,ty)
3020sx=sx/15:sy=sy/5
3030tx=tx:ty=ty
3040r=RADr
3050!P= sx*COSr*S:P+=4
3060!P=-sy*SINr*S:P+=4
3070!P= sx*SINr*S:P+=4
3080!P= sy*COSr*S:P+=4
3090!P=tx*S:P+=4
3100!P=ty*S:P+=4
3110ENDPROC
3120
3130
3140DATA "Null"
3150DATA 2
3160DATA 0, 0.1, -0.1, 0, 0, 0, 0.5
3170DATA 0, -0.1, 0.1, 0, 0, 0, 0.5
3180
3190
3200DATA "Jagged"
3210DATA 2
3220DATA .70, -.48, -.39, -.66, 2.15, 10.31, .75
3230DATA .09, -.44, 0.52, -.09, 4.29, 2.93, .25
3240
3250DATA "Dragon"
3260DATA 2
3270DATA .09, .52, -.46, -.38, .79, 8.10, .21
3280DATA .82, .28, -.21, .86, -1.88, -.01, .79
3290
3300DATA "Swirl"
3310DATA 2
3320DATA-0.42, -0.07, -0.18, -0.22, .381*8, .674*8, .09
3330DATA 0.75, -0.46, 0.41, 0.89, .146*8, .069*8, .91
3340
3350
3360DATA "Sierpinski Triangle"
3370DATA 3
3380DATA 1/2, 0, 0, 1/2, -2, 0, 1/3
3390DATA 1/2, 0, 0, 1/2, 2, 0, 1/3
3400DATA 1/2, 0, 0, 1/2, 0, 4, 1/3
3410
3420DATA "Spiral of spirals"
3430DATA 3
3440DATA 0.79, -0.42, 0.24, 0.86, 1.76*0.9, 1.41, .9
3450DATA-0.12, 0.26, 0.15, 0.05, -6.72*0.9, 1.38, .05
3460DATA 0.18, -0.14, 0.09, 0.18, 6.09*0.9, 1.57, .05
3470
3480DATA "Coral"
3490DATA 3
3500DATA 0.31, -0.53, -0.46, -0.29, 5.4, 8.66, .4
3510DATA 0.31, -0.08, 0.15, -0.45, -1.3, 4.15, .15
3520DATA 0 , 0.55, 0.69, -0.20, -4.89, 7.27, .45
3530
3540DATA "Fern"
3550DATA 4
3560
3570DATA 0, 0, 0, 0.16, 0, 0, 0.01
3580DATA -0.15, 0.28, 0.26, 0.24, 0, 0.44*0.9, 0.07
3590DATA 0.2, -0.26, 0.23, 0.22, 0, 1.6*0.9, 0.07
3600DATA 0.85, 0.04, -0.04, 0.85, 0, 1.6*0.9, 0.85
3610
3620
3630DATA "Binary"
3640DATA 3
3650DATA 1/2, 0.0, 0.0, 1/2, -2.56*.8, 0, 1/3
3660DATA 1/2, 0.0, 0.0, 1/2, 2.44*.8, 0, 1/3
3670DATA 0, -1/2, 1/2, 0, 4.87*.8, 7.56*.8, 1/3
3680
3690DATA "von Koch snowflake"
3700DATA 4
3710DATA 1/3, 0, 0, 1/3, -4, 2/3*4, 1/4
3720DATA 1/3, 0, 0, 1/3, 4, 2/3*4, 1/4
3730DATA 0.5/3, -0.866/3, 0.866/3, 0.5/3, -0.5/2*4+0.866/3*4, 0.866/2*4+5/6*4, 1/4
3740DATA 0.5/3, 0.866/3, -0.866/3, 0.5/3, 0.5/2*4-0.866/3*4, 0.866/2*4+5/6*4, 1/4
3750
3760DATA "Stop"
3770DATA 0
3780
3790DEF PROCASS
3800DIM Q% 100000
3810a=0:b=1:c=2:d=3:e=4:f=5:x=6:y=7:t=8:col=9:scr=10:mtr=11:cnt=12
3820u=0:v=1
3830
3840FOR PASS=0 TO 2 STEP 2
3850P%=Q%
3860[OPT PASS
3870.screend EQUD 148:EQUD -1
3880.screen EQUD 0
3890.set
3900ADR r0,screend:ADR r1,screen:SWI "OS_ReadVduVariables"
3910MOV pc,r14
3920
3930.output_buffer DCD 0:DCD 0:DCD 0:DCD 0
3940.display_ppf
3950; SWI &11E
3960 MOV R0,cnt,LSL #(32-18)
3970 MOV R0,R0,LSR #(32-18)
3980 ADR R1,output_buffer
3990 MOV R2,#16
4000 SWI "OS_ConvertInteger3"
4010 SWI "OS_Write0"
4020 SWI "OS_NewLine"
4030 MOV R0,cnt,LSR #18
4040 ADR R1,output_buffer
4050 MOV R2,#16
4060 SWI "OS_ConvertInteger3"
4070 SWI "OS_Write0"
4080 MOV PC,R14
4090
4100.mtrd EQUD mat
4110.tr2
4120STMFD 13!,{14}
4130BL init
4140BL tr_2
4150LDMFD 13!,{PC}
4160
4170.tr3
4180STMFD 13!,{14}
4190BL init
4200BL tr_3
4210LDMFD 13!,{PC}
4220
4230.tr4
4240STMFD 13!,{14}
4250BL init
4260BL tr_4
4270LDMFD 13!,{PC}
4280
4290.tr9
4300STMFD 13!,{14}
4310BL init
4320BL tr_9
4330LDMFD 13!,{PC}
4340
4350.tr11
4360STMFD 13!,{14}
4370BL init
4380BL tr_11
4390LDMFD 13!,{PC}
4400
4410.spd EQUD 0
4420.init
4430STR 13,spd
4440LDR scr,screen
4450MOV x,#1<<11
4460MOV y,#1<<11
4470LDR mtr,mtrd
4480MOV col,#100
4490.inloop
4500LDMIA mtr,{a,b,c,d,e,f}
4510MUL t,a,x
4520MLA t,b,y,t
4530MUL x,c,x
4540MLA y,d,y,x
4550ADD x,e,t,ASR #12
4560ADD y,f,y,ASR #12
4570SUBS col,col,#1
4580BNE inloop
4590;LDR x,[mtr,#16]
4600;LDR y,[mtr,#20]
4610MOV col,#%01100011
4620MOV cnt,#1024*8 ; limit number of pixels ploted
4630MOV cnt,#0
4640MOV t,mtr
4650MOV PC,R14
4660
4670.quit
4680LDR 13,spd
4690LDMFD 13!,{PC}
4700
4710REM two transformations
4720.tr_2
4730FNtr
4740STMFD 13!,{x,y,14}
4750MOV t,mtr
4760BL tr_2
4770LDMFD 13!,{x,y}
4780ADD t,mtr,#24
4790BL tr_2
4800LDMFD 13!,{PC}
4810
4820REM three transformations
4830.tr_3
4840FNtr
4850STMFD 13!,{x,y,14}
4860MOV t,mtr
4870BL tr_3
4880LDMFD 13,{x,y}
4890ADD t,mtr,#24
4900BL tr_3
4910LDMFD 13!,{x,y}
4920ADD t,mtr,#24*2
4930BL tr_3
4940LDMFD 13!,{PC}
4950
4960REM four transformations
4970.tr_4
4980FNtr
4990STMFD 13!,{x,y,14}
5000ADD t,mtr,#0
5010BL tr_4
5020LDMFD 13,{x,y}
5030ADD t,mtr,#24
5040BL tr_4
5050LDMFD 13,{x,y}
5060ADD t,mtr,#24*2
5070BL tr_4
5080LDMFD 13!,{x,y}
5090ADD t,mtr,#24*3
5100BL tr_4
5110LDMFD 13!,{PC}
5120
5130
5140REM nine transformations
5150.tr_9
5160FNtr
5170STMFD 13!,{x,y,14}
5180ADD t,mtr,#24*0
5190BL tr_9
5200LDMFD 13,{x,y}
5210ADD t,mtr,#24*1
5220BL tr_9
5230LDMFD 13,{x,y}
5240ADD t,mtr,#24*2
5250BL tr_9
5260LDMFD 13,{x,y}
5270ADD t,mtr,#24*3
5280BL tr_9
5290LDMFD 13,{x,y}
5300ADD t,mtr,#24*4
5310BL tr_9
5320LDMFD 13,{x,y}
5330ADD t,mtr,#24*5
5340BL tr_9
5350LDMFD 13,{x,y}
5360ADD t,mtr,#24*6
5370BL tr_9
5380LDMFD 13,{x,y}
5390ADD t,mtr,#24*7
5400BL tr_9
5410LDMFD 13!,{x,y}
5420ADD t,mtr,#24*8
5430BL tr_9
5440LDMFD 13!,{PC}
5450
5460REM eleven transformations
5470.tr_11
5480FNtr
5490STMFD 13!,{x,y,14}
5500ADD t,mtr,#24*0
5510BL tr_11
5520LDMFD 13,{x,y}
5530ADD t,mtr,#24*1
5540BL tr_11
5550LDMFD 13,{x,y}
5560ADD t,mtr,#24*2
5570BL tr_11
5580LDMFD 13,{x,y}
5590ADD t,mtr,#24*3
5600BL tr_11
5610LDMFD 13,{x,y}
5620ADD t,mtr,#24*4
5630BL tr_11
5640LDMFD 13,{x,y}
5650ADD t,mtr,#24*5
5660BL tr_11
5670LDMFD 13,{x,y}
5680ADD t,mtr,#24*6
5690BL tr_11
5700LDMFD 13,{x,y}
5710ADD t,mtr,#24*7
5720BL tr_11
5730LDMFD 13,{x,y}
5740ADD t,mtr,#24*8
5750BL tr_11
5760LDMFD 13,{x,y}
5770ADD t,mtr,#24*9
5780BL tr_11
5790LDMFD 13!,{x,y}
5800ADD t,mtr,#24*10
5810BL tr_11
5820LDMFD 13!,{PC}
5830
5840]
5850NEXT
5860ENDPROC
5870
5880DEF FNtr
5890[OPT PASS
5900ADD cnt,cnt,#1
5910LDMIA t,{a,b,c,d,e,f}
5920MUL t,a,x
5930MLA t,b,y,t
5940;MOV u,x,ASR #12
5950;MOV v,y,ASR #12
5960MUL x,c,x
5970MLA y,d,y,x
5980ADD x,e,t,ASR #12
5990ADD y,f,y,ASR #12
6000;CMP u,x,ASR #12
6010;CMPEQ v,y,ASR #12
6020;MOVEQ PC,R14
6030MOV u,x,ASR #8
6040MOV v,y,ASR #8
6050ADD u,u,#160
6060RSB v,v,#244
6070;ADD u,u,#80
6080;SUB v,v,#80
6090CMP u,#320-4
6100CMPLO v,#256-4
6110MOVHS PC,R14
6120ADD t,v,v,LSL #2
6130ADD t,u,t,LSL #6
6140LDRB u,[t,scr]!
6150CMP u,col
6160MOVEQ PC,R14
6170;LDMEQFD 13!,{x,y,PC}
6180;SUBS cnt,cnt,#1
6190;BMI quit
6200ADD cnt,cnt,#1<<18
6210STRB col,[t]
6220LDRB u,[t,#320*4+4]!
6230CMP u,col
6240MOV u,#%00101101
6250STRNEB u,[t]
6260;SWI 4
6270]
6280=""
� >Ifs_morph
� (c) Jan Vlieinck
(� �:�:� �:�
2� 128+13:�13
< � 19,1,24,2*64,1*64,2*64:�
F� 128+38:�
P� mat (6*4)*100
Z
� ifs(20)
d� ifs 24*20*100
n
S=2^12
x�ASS
� �read
�M%=2
� *POINTER
��morph2(0,0)
��
��morph4(0,7):g=�(100)
��morph4(7,9):g=�(25)
��morph4(9,5):g=�(25)
��morph3(5,4):g=�(25)
��morph3(4,1):g=�(25)
��morph2(1,3):g=�(25)
��morph2(3,2):g=�(25)
��morph2(2,1):g=�(25)
�morph3(1,8):g=�(25)
�morph11(10,11):g=�(25)
�morph11(11,0):g=�(25)
"� 0
,�
6
@� �move(I%)
J r=0:s=1
T�
^N%=!ifs(I%)
hP%=ifs(I%)+4
rș "OS_Byte",&70,M%:�
|ȗ X%,Y%,Z%
�� Z%=4 r+=�/20
�� Z%=1 r-=�/20
�!� Z%=3 s-=0.05:� s<0 � s=0.05
� � Z%=6 s+=0.05:� s>2 � s=2
�'�transform(X%/128,Y%/128,r,s,N%,P%)
� � set
� Ȏ N% �
�
� 2:� tr2
�
� 3:� tr3
�
� 4:� tr4
�� 9:� tr9:� "negen"
�� 11::� "elf":� tr11
��
$Ȗ:ș "OS_Byte",&71,M%:M%=M% � 3
� 0
�
&
0
: � �transform(x,y,r,s,N%,P%)
D Mat%=mat
N� M=1 � N%
XA%=!P%:P%+=4
bB%=!P%:P%+=4
lC%=!P%:P%+=4
vD%=!P%:P%+=4
�E%=!P%:P%+=4
�F%=!P%:P%+=4
�A=A%*CS-C%*SN
�C=A%*SN+C%*CS
�B=B%*CS-D%*SN
�D=B%*SN+D%*CS
�A%=A*CS-B*SN
�B%=A*SN+B*CS
�C%=C*CS-D*SN
�D%=C*SN+D*CS
�$T%=x*S-A%*x-B%*y+(E%*CS-F%*SN)*s
�$F%=y*S-C%*x-D%*y+(E%*SN+F%*CS)*s
�!Mat%=A%:Mat%+=4
!Mat%=B%:Mat%+=4
!Mat%=C%:Mat%+=4
!Mat%=D%:Mat%+=4
!Mat%=T%:Mat%+=4
*!Mat%=F%:Mat%+=4
4�
>�
H
R� �adjust(x,y,r,s,I%)
\� A,B,C,D,E,F,CS,SN
fN%=!ifs(I%)
pP%=ifs(I%)+4
z CS=�r
� SN=�r
� Mat%=mat
�� M=1 � N%
�A%=!P%:P%+=4
�B%=!P%:P%+=4
�C%=!P%:P%+=4
�D%=!P%:P%+=4
�E%=!P%:P%+=4
�F%=!P%:P%+=4
�A=A%*CS-C%*SN
�C=A%*SN+C%*CS
�B=B%*CS-D%*SN
�D=B%*SN+D%*CS
A%=A*CS-B*SN
B%=A*SN+B*CS
C%=C*CS-D*SN
$D%=C*SN+D*CS
.$T%=x*S-A%*x-B%*y+(E%*CS-F%*SN)*s
8$F%=y*S-C%*x-D%*y+(E%*SN+F%*CS)*s
B P%-=6*4
L!P%=A%:P%+=4
V!P%=B%:P%+=4
`!P%=C%:P%+=4
j!P%=D%:P%+=4
t!P%=T%:P%+=4
~!P%=F%:P%+=4
��
��
�
�
�
�� �morph2(I%,J%)
�� t=0 � 1.015 � 0.015
�'� t>1 �set(I%,J%,1) � �set(I%,J%,t)
�ș "OS_Byte",&70,M%:�
� � set
� � tr2
�$Ȗ:ș "OS_Byte",&71,M%:M%=M% � 3
�
�
� �morph3(I%,J%)
(� t=0 � 1.015 � 0.015
2'� t>1 �set(I%,J%,1) � �set(I%,J%,t)
<�set(I%,J%,t)
Fș "OS_Byte",&70,M%:�
P � set
Z � tr3
d$Ȗ:ș "OS_Byte",&71,M%:M%=M% � 3
n�
x�
�
�� �morph4(I%,J%)
�� t=0 � 1.015 � 0.015
�'� t>1 �set(I%,J%,1) � �set(I%,J%,t)
��set(I%,J%,t)
�ș "OS_Byte",&70,M%:�
� � set
� � tr4
�$Ȗ:ș "OS_Byte",&71,M%:M%=M% � 3
��
��
�
�� �morph9(I%,J%)
� t=0 � 1.015 � 0.015
'� t>1 �set(I%,J%,1) � �set(I%,J%,t)
�set(I%,J%,t)
"ș "OS_Byte",&70,M%:�
, � set
6 � tr9
@$Ȗ:ș "OS_Byte",&71,M%:M%=M% � 3
J�
T�
^
h� �morph11(I%,J%)
r� t=0 � 1.015 � 0.015
|'� t>1 �set(I%,J%,1) � �set(I%,J%,t)
��set(I%,J%,t)
�ș "OS_Byte",&70,M%:�
� � set
�
� tr11
�$Ȗ:ș "OS_Byte",&71,M%:M%=M% � 3
��
��
�
�
�� �set(I%,J%,t)
�N1%=!ifs(I%)
�N2%=!ifs(J%)
�P1%=ifs(I%)+4
P2%=ifs(J%)+4
Mat%=mat
� N1%=N2% �
&� M=1 � N1%
0
� I=0 � 5
:!Mat%=!P1%*(1-t)+t*!P2%
DMat%+=4:P1%+=4:P2%+=4
N�
X�
b�
l� N1%<N2% �
v� M=1 � N1%
�
� I=0 � 5
�!Mat%=!P1%*(1-t)+t*!P2%
�Mat%+=4:P1%+=4:P2%+=4
��
��
��
�
�� N=M � N2%
� P1%-=24
�
� I=0 � 5
�!Mat%=!P1%*(1-t)+t*!P2%
�Mat%+=4:P1%+=4:P2%+=4
��
�
�
�
*� M=1 � N2%
4
� I=0 � 5
>!Mat%=!P1%*(1-t)+t*!P2%
HMat%+=4:P1%+=4:P2%+=4
R�
\�
f�
p
z� N=M � N1%
� P2%-=24
�
� I=0 � 5
�!Mat%=!P1%*(1-t)+t*!P2%
�Mat%+=4:P1%+=4:P2%+=4
��
��
��
�
��
��
��
�
�
� �read
� C
S=2^12
$ P=ifs
.C=0
8� name$:�PRINT name$
B � nr_tr
Lȕ nr_tr<>0
V- ifs(C)=P :� rem pointer to ifs
` !P=nr_tr:P+=4
j � J=1 � nr_tr
t � R:!P=R*S:P+=4
~ � R:!P=R*S:P+=4
� � R:!P=R*S:P+=4
� � R:!P=R*S:P+=4
� � R:!P=R*S*1.5:P+=4
� � R:!P=R*S*1.5:P+=4
� � R
� �
� � name$:�PRINT name$
�
� nr_tr
�
C+=1
��
�ifs(C)=P:C+=1
�
!P=9:P+=4
�the
ifs(C)=P:C+=1
!P=11:P+=4
�end
(�
2
<
� �the
F�tr(5,1,0,0,4) :� "T"
P�tr(3.5,1,90,3,0)
Z�tr(5,1,90,7,0) :� "H"
d�tr(5,1,-90,9,5)
n�tr(1,1,0,7.5,2)
x �tr(5,1,90,12.75,0) :� "E"
��tr(2,1,0,13,4)
��tr(2,1,0,13,2)
��tr(2,1,0,13,0)
��adjust(-8,4,0,1,10)
��
�
�
� �end
��tr(5,1,90,1,0) :� "E"
��tr(2,1,0,1.25,4)
��tr(2,1,0,1.25,2)
��tr(2,1,0,1.25,0)
��tr(5,1,90,6,0) :� "N"
��tr(5,1,-90,8,5)
�tr(6,1,130,8.7,0.7)
�tr(5,1,90,12,0) :� "D"
�tr(2,1,90,14,1.5)
"�tr(2.5,1,-30,11.3,4.2)
,�tr(2.5,1, 30,12,0)
6�adjust(-6,4,0,1,11)
@�
J
T� �tr(sx,sy,r,tx,ty)
^sx=sx/15:sy=sy/5
hr=�r
r!P= sx*�r*S:P+=4
|!P=-sy*�r*S:P+=4
�!P= sx*�r*S:P+=4
�!P= sy*�r*S:P+=4
�!P=tx*S:P+=4
�!P=ty*S:P+=4
��
�
�� �tr2(sx,sy,r,tx,ty)
�sx=sx/15:sy=sy/5
�tx=tx:ty=ty
�r=�r
�!P= sx*�r*S:P+=4
�!P=-sy*�r*S:P+=4
�!P= sx*�r*S:P+=4
!P= sy*�r*S:P+=4
!P=tx*S:P+=4
!P=ty*S:P+=4
&�
0
:
D � "Null"
N� 2
X � 0, 0.1, -0.1, 0, 0, 0, 0.5
b � 0, -0.1, 0.1, 0, 0, 0, 0.5
l
v
�� "Jagged"
�� 2
�9� .70, -.48, -.39, -.66, 2.15, 10.31, .75
�9� .09, -.44, 0.52, -.09, 4.29, 2.93, .25
�
�� "Dragon"
�� 2
�9� .09, .52, -.46, -.38, .79, 8.10, .21
�9� .82, .28, -.21, .86, -1.88, -.01, .79
�
�
� "Swirl"
�� 2
�B�-0.42, -0.07, -0.18, -0.22, .381*8, .674*8, .09
B� 0.75, -0.46, 0.41, 0.89, .146*8, .069*8, .91
� "Sierpinski Triangle"
*� 3
4,� 1/2, 0, 0, 1/2, -2, 0, 1/3
>,� 1/2, 0, 0, 1/2, 2, 0, 1/3
H,� 1/2, 0, 0, 1/2, 0, 4, 1/3
R
\� "Spiral of spirals"
f� 3
pC� 0.79, -0.42, 0.24, 0.86, 1.76*0.9, 1.41, .9
zD�-0.12, 0.26, 0.15, 0.05, -6.72*0.9, 1.38, .05
�D� 0.18, -0.14, 0.09, 0.18, 6.09*0.9, 1.57, .05
�
�
� "Coral"
�� 3
�>� 0.31, -0.53, -0.46, -0.29, 5.4, 8.66, .4
�?� 0.31, -0.08, 0.15, -0.45, -1.3, 4.15, .15
�?� 0 , 0.55, 0.69, -0.20, -4.89, 7.27, .45
�
� � "Fern"
�� 4
�
�C� 0, 0, 0, 0.16, 0, 0, 0.01
�C� -0.15, 0.28, 0.26, 0.24, 0, 0.44*0.9, 0.07
C� 0.2, -0.26, 0.23, 0.22, 0, 1.6*0.9, 0.07
C� 0.85, 0.04, -0.04, 0.85, 0, 1.6*0.9, 0.85
$
.� "Binary"
8� 3
B?� 1/2, 0.0, 0.0, 1/2, -2.56*.8, 0, 1/3
L?� 1/2, 0.0, 0.0, 1/2, 2.44*.8, 0, 1/3
VD� 0, -1/2, 1/2, 0, 4.87*.8, 7.56*.8, 1/3
`
j� "von Koch snowflake"
t� 4
~'� 1/3, 0, 0, 1/3, -4, 2/3*4, 1/4
�'� 1/3, 0, 0, 1/3, 4, 2/3*4, 1/4
�P� 0.5/3, -0.866/3, 0.866/3, 0.5/3, -0.5/2*4+0.866/3*4, 0.866/2*4+5/6*4, 1/4
�P� 0.5/3, 0.866/3, -0.866/3, 0.5/3, 0.5/2*4-0.866/3*4, 0.866/2*4+5/6*4, 1/4
�
� � "Stop"
�� 0
�
�
� �ASS
�� Q% 100000
�Ba=0:b=1:c=2:d=3:e=4:f=5:x=6:y=7:t=8:col=9:scr=10:mtr=11:cnt=12
� u=0:v=1
�
� PASS=0 � 2 � 2
P%=Q%
[OPT PASS
.screend EQUD 148:EQUD -1
(.screen EQUD 0
2.set
<:ADR r0,screend:ADR r1,screen:SWI "OS_ReadVduVariables"
FMOV pc,r14
P
Z/.output_buffer DCD 0:DCD 0:DCD 0:DCD 0
d.display_ppf
n ; SWI &11E
x+ MOV R0,cnt,LSL #(32-18)
�* MOV R0,R0,LSR #(32-18)
�( ADR R1,output_buffer
� MOV R2,#16
�, SWI "OS_ConvertInteger3"
�# SWI "OS_Write0"
�$ SWI "OS_NewLine"
�& MOV R0,cnt,LSR #18
�( ADR R1,output_buffer
� MOV R2,#16
�, SWI "OS_ConvertInteger3"
�# SWI "OS_Write0"
� MOV PC,R14
�
.mtrd EQUD mat
.tr2
STMFD 13!,{14}
" BL init
, BL tr_2
6LDMFD 13!,{PC}
@
J.tr3
TSTMFD 13!,{14}
^ BL init
h BL tr_3
rLDMFD 13!,{PC}
|
�.tr4
�STMFD 13!,{14}
� BL init
� BL tr_4
�LDMFD 13!,{PC}
�
�.tr9
�STMFD 13!,{14}
� BL init
� BL tr_9
�LDMFD 13!,{PC}
�
� .tr11
STMFD 13!,{14}
BL init
BL tr_11
&LDMFD 13!,{PC}
0
:.spd EQUD 0
D .init
NSTR 13,spd
XLDR scr,screen
bMOV x,#1<<11
lMOV y,#1<<11
vLDR mtr,mtrd
�MOV col,#100
� .inloop
�LDMIA mtr,{a,b,c,d,e,f}
�
MUL t,a,x
�MLA t,b,y,t
�
MUL x,c,x
�MLA y,d,y,x
�ADD x,e,t,ASR #12
�ADD y,f,y,ASR #12
�SUBS col,col,#1
�BNE inloop
�;LDR x,[mtr,#16]
�;LDR y,[mtr,#20]
MOV col,#%01100011
7MOV cnt,#1024*8 ; limit number of pixels ploted
MOV cnt,#0
MOV t,mtr
*MOV PC,R14
4
> .quit
HLDR 13,spd
RLDMFD 13!,{PC}
\
f� two transformations
p .tr_2
z�tr
�STMFD 13!,{x,y,14}
�
MOV t,mtr
� BL tr_2
�LDMFD 13!,{x,y}
�ADD t,mtr,#24
� BL tr_2
�LDMFD 13!,{PC}
�
�� three transformations
� .tr_3
��tr
�STMFD 13!,{x,y,14}
�
MOV t,mtr
BL tr_3
LDMFD 13,{x,y}
ADD t,mtr,#24
$ BL tr_3
.LDMFD 13!,{x,y}
8ADD t,mtr,#24*2
B BL tr_3
LLDMFD 13!,{PC}
V
`� four transformations
j .tr_4
t�tr
~STMFD 13!,{x,y,14}
�ADD t,mtr,#0
� BL tr_4
�LDMFD 13,{x,y}
�ADD t,mtr,#24
� BL tr_4
�LDMFD 13,{x,y}
�ADD t,mtr,#24*2
� BL tr_4
�LDMFD 13!,{x,y}
�ADD t,mtr,#24*3
� BL tr_4
�LDMFD 13!,{PC}
� nine transformations
.tr_9
(�tr
2STMFD 13!,{x,y,14}
<ADD t,mtr,#24*0
F BL tr_9
PLDMFD 13,{x,y}
ZADD t,mtr,#24*1
d BL tr_9
nLDMFD 13,{x,y}
xADD t,mtr,#24*2
� BL tr_9
�LDMFD 13,{x,y}
�ADD t,mtr,#24*3
� BL tr_9
�LDMFD 13,{x,y}
�ADD t,mtr,#24*4
� BL tr_9
�LDMFD 13,{x,y}
�ADD t,mtr,#24*5
� BL tr_9
�LDMFD 13,{x,y}
�ADD t,mtr,#24*6
� BL tr_9
LDMFD 13,{x,y}
ADD t,mtr,#24*7
BL tr_9
"LDMFD 13!,{x,y}
,ADD t,mtr,#24*8
6 BL tr_9
@LDMFD 13!,{PC}
J
T � eleven transformations
^
.tr_11
h�tr
rSTMFD 13!,{x,y,14}
|ADD t,mtr,#24*0
� BL tr_11
�LDMFD 13,{x,y}
�ADD t,mtr,#24*1
� BL tr_11
�LDMFD 13,{x,y}
�ADD t,mtr,#24*2
� BL tr_11
�LDMFD 13,{x,y}
�ADD t,mtr,#24*3
� BL tr_11
�LDMFD 13,{x,y}
�ADD t,mtr,#24*4
� BL tr_11
LDMFD 13,{x,y}
ADD t,mtr,#24*5
BL tr_11
&LDMFD 13,{x,y}
0ADD t,mtr,#24*6
: BL tr_11
DLDMFD 13,{x,y}
NADD t,mtr,#24*7
X BL tr_11
bLDMFD 13,{x,y}
lADD t,mtr,#24*8
v BL tr_11
�LDMFD 13,{x,y}
�ADD t,mtr,#24*9
� BL tr_11
�LDMFD 13!,{x,y}
�ADD t,mtr,#24*10
� BL tr_11
�LDMFD 13!,{PC}
�
�]
��
��
�
� � �tr
[OPT PASS
ADD cnt,cnt,#1
LDMIA t,{a,b,c,d,e,f}
MUL t,a,x
*MLA t,b,y,t
4;MOV u,x,ASR #12
>;MOV v,y,ASR #12
H
MUL x,c,x
RMLA y,d,y,x
\ADD x,e,t,ASR #12
fADD y,f,y,ASR #12
p;CMP u,x,ASR #12
z;CMPEQ v,y,ASR #12
�;�Q PC,R14
�MOV u,x,ASR #8
�MOV v,y,ASR #8
�ADD u,u,#160
�RSB v,v,#244
�;ADD u,u,#80
�;SUB v,v,#80
�CMP u,#320-4
�CMPLO v,#256-4
�MOVHS PC,R14
�ADD t,v,v,LSL #2
�ADD t,u,t,LSL #6
�LDRB u,[t,scr]!
CMP u,col
�Q PC,R14
;LDMEQFD 13!,{x,y,PC}
$;SUBS cnt,cnt,#1
.
;BMI quit
8ADD cnt,cnt,#1<<18
BSTRB col,[t]
LLDRB u,[t,#320*4+4]!
V
CMP u,col
`MOV u,#%00101101
jSTRNEB u,[t]
t
;SWI 4
~]
�=""
� 00000000 0d 00 0a 10 f4 20 3e 49 66 73 5f 6d 6f 72 70 68 |..... >Ifs_morph|
00000010 0d 00 14 16 f4 20 28 63 29 20 4a 61 6e 20 56 6c |..... (c) Jan Vl|
00000020 69 65 69 6e 63 6b 0d 00 1e 04 0d 00 28 0f ee 20 |ieinck......(.. |
00000030 85 3a f6 3a f1 20 9e 3a e0 0d 00 32 10 eb 20 31 |.:.:. .:...2.. 1|
00000040 32 38 2b 31 33 3a eb 31 33 0d 00 3c 1e ef 20 31 |28+13:.13..<.. 1|
00000050 39 2c 31 2c 32 34 2c 32 2a 36 34 2c 31 2a 36 34 |9,1,24,2*64,1*64|
00000060 2c 32 2a 36 34 3a 87 0d 00 46 0e fb 20 31 32 38 |,2*64:...F.. 128|
00000070 2b 33 38 3a db 0d 00 50 13 de 20 6d 61 74 20 28 |+38:...P.. mat (|
00000080 36 2a 34 29 2a 31 30 30 0d 00 5a 0d de 20 69 66 |6*4)*100..Z.. if|
00000090 73 28 32 30 29 0d 00 64 13 de 20 69 66 73 20 32 |s(20)..d.. ifs 2|
000000a0 34 2a 32 30 2a 31 30 30 0d 00 6e 0a 53 3d 32 5e |4*20*100..n.S=2^|
000000b0 31 32 0d 00 78 08 f2 41 53 53 0d 00 82 09 f2 72 |12..x..ASS.....r|
000000c0 65 61 64 0d 00 8c 08 4d 25 3d 32 0d 00 96 0c 2a |ead....M%=2....*|
000000d0 50 4f 49 4e 54 45 52 0d 00 a0 10 f2 6d 6f 72 70 |POINTER.....morp|
000000e0 68 32 28 30 2c 30 29 0d 00 aa 05 f5 0d 00 b4 19 |h2(0,0).........|
000000f0 f2 6d 6f 72 70 68 34 28 30 2c 37 29 3a 67 3d a6 |.morph4(0,7):g=.|
00000100 28 31 30 30 29 0d 00 be 18 f2 6d 6f 72 70 68 34 |(100).....morph4|
00000110 28 37 2c 39 29 3a 67 3d a6 28 32 35 29 0d 00 c8 |(7,9):g=.(25)...|
00000120 18 f2 6d 6f 72 70 68 34 28 39 2c 35 29 3a 67 3d |..morph4(9,5):g=|
00000130 a6 28 32 35 29 0d 00 d2 18 f2 6d 6f 72 70 68 33 |.(25).....morph3|
00000140 28 35 2c 34 29 3a 67 3d a6 28 32 35 29 0d 00 dc |(5,4):g=.(25)...|
00000150 18 f2 6d 6f 72 70 68 33 28 34 2c 31 29 3a 67 3d |..morph3(4,1):g=|
00000160 a6 28 32 35 29 0d 00 e6 18 f2 6d 6f 72 70 68 32 |.(25).....morph2|
00000170 28 31 2c 33 29 3a 67 3d a6 28 32 35 29 0d 00 f0 |(1,3):g=.(25)...|
00000180 18 f2 6d 6f 72 70 68 32 28 33 2c 32 29 3a 67 3d |..morph2(3,2):g=|
00000190 a6 28 32 35 29 0d 00 fa 18 f2 6d 6f 72 70 68 32 |.(25).....morph2|
000001a0 28 32 2c 31 29 3a 67 3d a6 28 32 35 29 0d 01 04 |(2,1):g=.(25)...|
000001b0 18 f2 6d 6f 72 70 68 33 28 31 2c 38 29 3a 67 3d |..morph3(1,8):g=|
000001c0 a6 28 32 35 29 0d 01 0e 1b f2 6d 6f 72 70 68 31 |.(25).....morph1|
000001d0 31 28 31 30 2c 31 31 29 3a 67 3d a6 28 32 35 29 |1(10,11):g=.(25)|
000001e0 0d 01 18 1a f2 6d 6f 72 70 68 31 31 28 31 31 2c |.....morph11(11,|
000001f0 30 29 3a 67 3d a6 28 32 35 29 0d 01 22 07 fd 20 |0):g=.(25)..".. |
00000200 30 0d 01 2c 05 e0 0d 01 36 04 0d 01 40 0f dd 20 |0..,....6...@.. |
00000210 f2 6d 6f 76 65 28 49 25 29 0d 01 4a 0b 72 3d 30 |.move(I%)..J.r=0|
00000220 3a 73 3d 31 0d 01 54 05 f5 0d 01 5e 0f 4e 25 3d |:s=1..T....^.N%=|
00000230 21 69 66 73 28 49 25 29 0d 01 68 10 50 25 3d 69 |!ifs(I%)..h.P%=i|
00000240 66 73 28 49 25 29 2b 34 0d 01 72 19 c8 99 20 22 |fs(I%)+4..r... "|
00000250 4f 53 5f 42 79 74 65 22 2c 26 37 30 2c 4d 25 3a |OS_Byte",&70,M%:|
00000260 db 0d 01 7c 0f c8 97 20 58 25 2c 59 25 2c 5a 25 |...|... X%,Y%,Z%|
00000270 0d 01 86 12 e7 20 5a 25 3d 34 20 72 2b 3d af 2f |..... Z%=4 r+=./|
00000280 32 30 0d 01 90 12 e7 20 5a 25 3d 31 20 72 2d 3d |20..... Z%=1 r-=|
00000290 af 2f 32 30 0d 01 9a 21 e7 20 5a 25 3d 33 20 73 |./20...!. Z%=3 s|
000002a0 2d 3d 30 2e 30 35 3a e7 20 73 3c 30 20 8c 20 73 |-=0.05:. s<0 . s|
000002b0 3d 30 2e 30 35 0d 01 a4 1e e7 20 5a 25 3d 36 20 |=0.05..... Z%=6 |
000002c0 73 2b 3d 30 2e 30 35 3a e7 20 73 3e 32 20 8c 20 |s+=0.05:. s>2 . |
000002d0 73 3d 32 0d 01 ae 27 f2 74 72 61 6e 73 66 6f 72 |s=2...'.transfor|
000002e0 6d 28 58 25 2f 31 32 38 2c 59 25 2f 31 32 38 2c |m(X%/128,Y%/128,|
000002f0 72 2c 73 2c 4e 25 2c 50 25 29 0d 01 b8 09 d6 20 |r,s,N%,P%)..... |
00000300 73 65 74 0d 01 c2 0b c8 8e 20 4e 25 20 ca 0d 01 |set...... N% ...|
00000310 cc 0d c9 20 32 3a d6 20 74 72 32 0d 01 d6 0d c9 |... 2:. tr2.....|
00000320 20 33 3a d6 20 74 72 33 0d 01 e0 0d c9 20 34 3a | 3:. tr3..... 4:|
00000330 d6 20 74 72 34 0d 01 ea 17 c9 20 39 3a d6 20 74 |. tr4..... 9:. t|
00000340 72 39 3a f1 20 22 6e 65 67 65 6e 22 0d 01 f4 18 |r9:. "negen"....|
00000350 c9 20 31 31 3a 3a f1 20 22 65 6c 66 22 3a d6 20 |. 11::. "elf":. |
00000360 74 72 31 31 0d 01 fe 05 cb 0d 02 08 24 c8 96 3a |tr11........$..:|
00000370 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 26 37 31 |.. "OS_Byte",&71|
00000380 2c 4d 25 3a 4d 25 3d 4d 25 20 82 20 33 0d 02 12 |,M%:M%=M% . 3...|
00000390 07 fd 20 30 0d 02 1c 05 e1 0d 02 26 04 0d 02 30 |.. 0.......&...0|
000003a0 04 0d 02 3a 1f dd 20 f2 74 72 61 6e 73 66 6f 72 |...:.. .transfor|
000003b0 6d 28 78 2c 79 2c 72 2c 73 2c 4e 25 2c 50 25 29 |m(x,y,r,s,N%,P%)|
000003c0 0d 02 44 0c 4d 61 74 25 3d 6d 61 74 0d 02 4e 0e |..D.Mat%=mat..N.|
000003d0 e3 20 4d 3d 31 20 b8 20 4e 25 0d 02 58 10 41 25 |. M=1 . N%..X.A%|
000003e0 3d 21 50 25 3a 50 25 2b 3d 34 0d 02 62 10 42 25 |=!P%:P%+=4..b.B%|
000003f0 3d 21 50 25 3a 50 25 2b 3d 34 0d 02 6c 10 43 25 |=!P%:P%+=4..l.C%|
00000400 3d 21 50 25 3a 50 25 2b 3d 34 0d 02 76 10 44 25 |=!P%:P%+=4..v.D%|
00000410 3d 21 50 25 3a 50 25 2b 3d 34 0d 02 80 10 45 25 |=!P%:P%+=4....E%|
00000420 3d 21 50 25 3a 50 25 2b 3d 34 0d 02 8a 10 46 25 |=!P%:P%+=4....F%|
00000430 3d 21 50 25 3a 50 25 2b 3d 34 0d 02 94 11 41 3d |=!P%:P%+=4....A=|
00000440 41 25 2a 43 53 2d 43 25 2a 53 4e 0d 02 9e 11 43 |A%*CS-C%*SN....C|
00000450 3d 41 25 2a 53 4e 2b 43 25 2a 43 53 0d 02 a8 11 |=A%*SN+C%*CS....|
00000460 42 3d 42 25 2a 43 53 2d 44 25 2a 53 4e 0d 02 b2 |B=B%*CS-D%*SN...|
00000470 11 44 3d 42 25 2a 53 4e 2b 44 25 2a 43 53 0d 02 |.D=B%*SN+D%*CS..|
00000480 bc 10 41 25 3d 41 2a 43 53 2d 42 2a 53 4e 0d 02 |..A%=A*CS-B*SN..|
00000490 c6 10 42 25 3d 41 2a 53 4e 2b 42 2a 43 53 0d 02 |..B%=A*SN+B*CS..|
000004a0 d0 10 43 25 3d 43 2a 43 53 2d 44 2a 53 4e 0d 02 |..C%=C*CS-D*SN..|
000004b0 da 10 44 25 3d 43 2a 53 4e 2b 44 2a 43 53 0d 02 |..D%=C*SN+D*CS..|
000004c0 e4 24 54 25 3d 78 2a 53 2d 41 25 2a 78 2d 42 25 |.$T%=x*S-A%*x-B%|
000004d0 2a 79 2b 28 45 25 2a 43 53 2d 46 25 2a 53 4e 29 |*y+(E%*CS-F%*SN)|
000004e0 2a 73 0d 02 ee 24 46 25 3d 79 2a 53 2d 43 25 2a |*s...$F%=y*S-C%*|
000004f0 78 2d 44 25 2a 79 2b 28 45 25 2a 53 4e 2b 46 25 |x-D%*y+(E%*SN+F%|
00000500 2a 43 53 29 2a 73 0d 02 f8 14 21 4d 61 74 25 3d |*CS)*s....!Mat%=|
00000510 41 25 3a 4d 61 74 25 2b 3d 34 0d 03 02 14 21 4d |A%:Mat%+=4....!M|
00000520 61 74 25 3d 42 25 3a 4d 61 74 25 2b 3d 34 0d 03 |at%=B%:Mat%+=4..|
00000530 0c 14 21 4d 61 74 25 3d 43 25 3a 4d 61 74 25 2b |..!Mat%=C%:Mat%+|
00000540 3d 34 0d 03 16 14 21 4d 61 74 25 3d 44 25 3a 4d |=4....!Mat%=D%:M|
00000550 61 74 25 2b 3d 34 0d 03 20 14 21 4d 61 74 25 3d |at%+=4.. .!Mat%=|
00000560 54 25 3a 4d 61 74 25 2b 3d 34 0d 03 2a 14 21 4d |T%:Mat%+=4..*.!M|
00000570 61 74 25 3d 46 25 3a 4d 61 74 25 2b 3d 34 0d 03 |at%=F%:Mat%+=4..|
00000580 34 05 ed 0d 03 3e 05 e1 0d 03 48 04 0d 03 52 19 |4....>....H...R.|
00000590 dd 20 f2 61 64 6a 75 73 74 28 78 2c 79 2c 72 2c |. .adjust(x,y,r,|
000005a0 73 2c 49 25 29 0d 03 5c 17 ea 20 41 2c 42 2c 43 |s,I%)..\.. A,B,C|
000005b0 2c 44 2c 45 2c 46 2c 43 53 2c 53 4e 0d 03 66 0f |,D,E,F,CS,SN..f.|
000005c0 4e 25 3d 21 69 66 73 28 49 25 29 0d 03 70 10 50 |N%=!ifs(I%)..p.P|
000005d0 25 3d 69 66 73 28 49 25 29 2b 34 0d 03 7a 09 43 |%=ifs(I%)+4..z.C|
000005e0 53 3d 9b 72 0d 03 84 09 53 4e 3d b5 72 0d 03 8e |S=.r....SN=.r...|
000005f0 0c 4d 61 74 25 3d 6d 61 74 0d 03 98 0e e3 20 4d |.Mat%=mat..... M|
00000600 3d 31 20 b8 20 4e 25 0d 03 a2 10 41 25 3d 21 50 |=1 . N%....A%=!P|
00000610 25 3a 50 25 2b 3d 34 0d 03 ac 10 42 25 3d 21 50 |%:P%+=4....B%=!P|
00000620 25 3a 50 25 2b 3d 34 0d 03 b6 10 43 25 3d 21 50 |%:P%+=4....C%=!P|
00000630 25 3a 50 25 2b 3d 34 0d 03 c0 10 44 25 3d 21 50 |%:P%+=4....D%=!P|
00000640 25 3a 50 25 2b 3d 34 0d 03 ca 10 45 25 3d 21 50 |%:P%+=4....E%=!P|
00000650 25 3a 50 25 2b 3d 34 0d 03 d4 10 46 25 3d 21 50 |%:P%+=4....F%=!P|
00000660 25 3a 50 25 2b 3d 34 0d 03 de 11 41 3d 41 25 2a |%:P%+=4....A=A%*|
00000670 43 53 2d 43 25 2a 53 4e 0d 03 e8 11 43 3d 41 25 |CS-C%*SN....C=A%|
00000680 2a 53 4e 2b 43 25 2a 43 53 0d 03 f2 11 42 3d 42 |*SN+C%*CS....B=B|
00000690 25 2a 43 53 2d 44 25 2a 53 4e 0d 03 fc 11 44 3d |%*CS-D%*SN....D=|
000006a0 42 25 2a 53 4e 2b 44 25 2a 43 53 0d 04 06 10 41 |B%*SN+D%*CS....A|
000006b0 25 3d 41 2a 43 53 2d 42 2a 53 4e 0d 04 10 10 42 |%=A*CS-B*SN....B|
000006c0 25 3d 41 2a 53 4e 2b 42 2a 43 53 0d 04 1a 10 43 |%=A*SN+B*CS....C|
000006d0 25 3d 43 2a 43 53 2d 44 2a 53 4e 0d 04 24 10 44 |%=C*CS-D*SN..$.D|
000006e0 25 3d 43 2a 53 4e 2b 44 2a 43 53 0d 04 2e 24 54 |%=C*SN+D*CS...$T|
000006f0 25 3d 78 2a 53 2d 41 25 2a 78 2d 42 25 2a 79 2b |%=x*S-A%*x-B%*y+|
00000700 28 45 25 2a 43 53 2d 46 25 2a 53 4e 29 2a 73 0d |(E%*CS-F%*SN)*s.|
00000710 04 38 24 46 25 3d 79 2a 53 2d 43 25 2a 78 2d 44 |.8$F%=y*S-C%*x-D|
00000720 25 2a 79 2b 28 45 25 2a 53 4e 2b 46 25 2a 43 53 |%*y+(E%*SN+F%*CS|
00000730 29 2a 73 0d 04 42 0b 50 25 2d 3d 36 2a 34 0d 04 |)*s..B.P%-=6*4..|
00000740 4c 10 21 50 25 3d 41 25 3a 50 25 2b 3d 34 0d 04 |L.!P%=A%:P%+=4..|
00000750 56 10 21 50 25 3d 42 25 3a 50 25 2b 3d 34 0d 04 |V.!P%=B%:P%+=4..|
00000760 60 10 21 50 25 3d 43 25 3a 50 25 2b 3d 34 0d 04 |`.!P%=C%:P%+=4..|
00000770 6a 10 21 50 25 3d 44 25 3a 50 25 2b 3d 34 0d 04 |j.!P%=D%:P%+=4..|
00000780 74 10 21 50 25 3d 54 25 3a 50 25 2b 3d 34 0d 04 |t.!P%=T%:P%+=4..|
00000790 7e 10 21 50 25 3d 46 25 3a 50 25 2b 3d 34 0d 04 |~.!P%=F%:P%+=4..|
000007a0 88 05 ed 0d 04 92 05 e1 0d 04 9c 04 0d 04 a6 04 |................|
000007b0 0d 04 b0 04 0d 04 ba 14 dd 20 f2 6d 6f 72 70 68 |......... .morph|
000007c0 32 28 49 25 2c 4a 25 29 0d 04 c4 19 e3 20 74 3d |2(I%,J%)..... t=|
000007d0 30 20 b8 20 31 2e 30 31 35 20 88 20 30 2e 30 31 |0 . 1.015 . 0.01|
000007e0 35 0d 04 ce 27 e7 20 74 3e 31 20 f2 73 65 74 28 |5...'. t>1 .set(|
000007f0 49 25 2c 4a 25 2c 31 29 20 8b 20 f2 73 65 74 28 |I%,J%,1) . .set(|
00000800 49 25 2c 4a 25 2c 74 29 0d 04 d8 19 c8 99 20 22 |I%,J%,t)...... "|
00000810 4f 53 5f 42 79 74 65 22 2c 26 37 30 2c 4d 25 3a |OS_Byte",&70,M%:|
00000820 db 0d 04 e2 09 d6 20 73 65 74 0d 04 ec 09 d6 20 |...... set..... |
00000830 74 72 32 0d 04 f6 24 c8 96 3a c8 99 20 22 4f 53 |tr2...$..:.. "OS|
00000840 5f 42 79 74 65 22 2c 26 37 31 2c 4d 25 3a 4d 25 |_Byte",&71,M%:M%|
00000850 3d 4d 25 20 82 20 33 0d 05 00 05 ed 0d 05 0a 05 |=M% . 3.........|
00000860 e1 0d 05 14 04 0d 05 1e 14 dd 20 f2 6d 6f 72 70 |.......... .morp|
00000870 68 33 28 49 25 2c 4a 25 29 0d 05 28 19 e3 20 74 |h3(I%,J%)..(.. t|
00000880 3d 30 20 b8 20 31 2e 30 31 35 20 88 20 30 2e 30 |=0 . 1.015 . 0.0|
00000890 31 35 0d 05 32 27 e7 20 74 3e 31 20 f2 73 65 74 |15..2'. t>1 .set|
000008a0 28 49 25 2c 4a 25 2c 31 29 20 8b 20 f2 73 65 74 |(I%,J%,1) . .set|
000008b0 28 49 25 2c 4a 25 2c 74 29 0d 05 3c 11 f2 73 65 |(I%,J%,t)..<..se|
000008c0 74 28 49 25 2c 4a 25 2c 74 29 0d 05 46 19 c8 99 |t(I%,J%,t)..F...|
000008d0 20 22 4f 53 5f 42 79 74 65 22 2c 26 37 30 2c 4d | "OS_Byte",&70,M|
000008e0 25 3a db 0d 05 50 09 d6 20 73 65 74 0d 05 5a 09 |%:...P.. set..Z.|
000008f0 d6 20 74 72 33 0d 05 64 24 c8 96 3a c8 99 20 22 |. tr3..d$..:.. "|
00000900 4f 53 5f 42 79 74 65 22 2c 26 37 31 2c 4d 25 3a |OS_Byte",&71,M%:|
00000910 4d 25 3d 4d 25 20 82 20 33 0d 05 6e 05 ed 0d 05 |M%=M% . 3..n....|
00000920 78 05 e1 0d 05 82 04 0d 05 8c 14 dd 20 f2 6d 6f |x........... .mo|
00000930 72 70 68 34 28 49 25 2c 4a 25 29 0d 05 96 19 e3 |rph4(I%,J%).....|
00000940 20 74 3d 30 20 b8 20 31 2e 30 31 35 20 88 20 30 | t=0 . 1.015 . 0|
00000950 2e 30 31 35 0d 05 a0 27 e7 20 74 3e 31 20 f2 73 |.015...'. t>1 .s|
00000960 65 74 28 49 25 2c 4a 25 2c 31 29 20 8b 20 f2 73 |et(I%,J%,1) . .s|
00000970 65 74 28 49 25 2c 4a 25 2c 74 29 0d 05 aa 11 f2 |et(I%,J%,t).....|
00000980 73 65 74 28 49 25 2c 4a 25 2c 74 29 0d 05 b4 19 |set(I%,J%,t)....|
00000990 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 26 37 30 |.. "OS_Byte",&70|
000009a0 2c 4d 25 3a db 0d 05 be 09 d6 20 73 65 74 0d 05 |,M%:...... set..|
000009b0 c8 09 d6 20 74 72 34 0d 05 d2 24 c8 96 3a c8 99 |... tr4...$..:..|
000009c0 20 22 4f 53 5f 42 79 74 65 22 2c 26 37 31 2c 4d | "OS_Byte",&71,M|
000009d0 25 3a 4d 25 3d 4d 25 20 82 20 33 0d 05 dc 05 ed |%:M%=M% . 3.....|
000009e0 0d 05 e6 05 e1 0d 05 f0 04 0d 05 fa 14 dd 20 f2 |.............. .|
000009f0 6d 6f 72 70 68 39 28 49 25 2c 4a 25 29 0d 06 04 |morph9(I%,J%)...|
00000a00 19 e3 20 74 3d 30 20 b8 20 31 2e 30 31 35 20 88 |.. t=0 . 1.015 .|
00000a10 20 30 2e 30 31 35 0d 06 0e 27 e7 20 74 3e 31 20 | 0.015...'. t>1 |
00000a20 f2 73 65 74 28 49 25 2c 4a 25 2c 31 29 20 8b 20 |.set(I%,J%,1) . |
00000a30 f2 73 65 74 28 49 25 2c 4a 25 2c 74 29 0d 06 18 |.set(I%,J%,t)...|
00000a40 11 f2 73 65 74 28 49 25 2c 4a 25 2c 74 29 0d 06 |..set(I%,J%,t)..|
00000a50 22 19 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 26 |"... "OS_Byte",&|
00000a60 37 30 2c 4d 25 3a db 0d 06 2c 09 d6 20 73 65 74 |70,M%:...,.. set|
00000a70 0d 06 36 09 d6 20 74 72 39 0d 06 40 24 c8 96 3a |..6.. tr9..@$..:|
00000a80 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 26 37 31 |.. "OS_Byte",&71|
00000a90 2c 4d 25 3a 4d 25 3d 4d 25 20 82 20 33 0d 06 4a |,M%:M%=M% . 3..J|
00000aa0 05 ed 0d 06 54 05 e1 0d 06 5e 04 0d 06 68 15 dd |....T....^...h..|
00000ab0 20 f2 6d 6f 72 70 68 31 31 28 49 25 2c 4a 25 29 | .morph11(I%,J%)|
00000ac0 0d 06 72 19 e3 20 74 3d 30 20 b8 20 31 2e 30 31 |..r.. t=0 . 1.01|
00000ad0 35 20 88 20 30 2e 30 31 35 0d 06 7c 27 e7 20 74 |5 . 0.015..|'. t|
00000ae0 3e 31 20 f2 73 65 74 28 49 25 2c 4a 25 2c 31 29 |>1 .set(I%,J%,1)|
00000af0 20 8b 20 f2 73 65 74 28 49 25 2c 4a 25 2c 74 29 | . .set(I%,J%,t)|
00000b00 0d 06 86 11 f2 73 65 74 28 49 25 2c 4a 25 2c 74 |.....set(I%,J%,t|
00000b10 29 0d 06 90 19 c8 99 20 22 4f 53 5f 42 79 74 65 |)...... "OS_Byte|
00000b20 22 2c 26 37 30 2c 4d 25 3a db 0d 06 9a 09 d6 20 |",&70,M%:...... |
00000b30 73 65 74 0d 06 a4 0a d6 20 74 72 31 31 0d 06 ae |set..... tr11...|
00000b40 24 c8 96 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 |$..:.. "OS_Byte"|
00000b50 2c 26 37 31 2c 4d 25 3a 4d 25 3d 4d 25 20 82 20 |,&71,M%:M%=M% . |
00000b60 33 0d 06 b8 05 ed 0d 06 c2 05 e1 0d 06 cc 04 0d |3...............|
00000b70 06 d6 04 0d 06 e0 13 dd 20 f2 73 65 74 28 49 25 |........ .set(I%|
00000b80 2c 4a 25 2c 74 29 0d 06 ea 10 4e 31 25 3d 21 69 |,J%,t)....N1%=!i|
00000b90 66 73 28 49 25 29 0d 06 f4 10 4e 32 25 3d 21 69 |fs(I%)....N2%=!i|
00000ba0 66 73 28 4a 25 29 0d 06 fe 11 50 31 25 3d 69 66 |fs(J%)....P1%=if|
00000bb0 73 28 49 25 29 2b 34 0d 07 08 11 50 32 25 3d 69 |s(I%)+4....P2%=i|
00000bc0 66 73 28 4a 25 29 2b 34 0d 07 12 0c 4d 61 74 25 |fs(J%)+4....Mat%|
00000bd0 3d 6d 61 74 0d 07 1c 0f e7 20 4e 31 25 3d 4e 32 |=mat..... N1%=N2|
00000be0 25 20 8c 0d 07 26 0f e3 20 4d 3d 31 20 b8 20 4e |% ...&.. M=1 . N|
00000bf0 31 25 0d 07 30 0d e3 20 49 3d 30 20 b8 20 35 0d |1%..0.. I=0 . 5.|
00000c00 07 3a 1b 21 4d 61 74 25 3d 21 50 31 25 2a 28 31 |.:.!Mat%=!P1%*(1|
00000c10 2d 74 29 2b 74 2a 21 50 32 25 0d 07 44 19 4d 61 |-t)+t*!P2%..D.Ma|
00000c20 74 25 2b 3d 34 3a 50 31 25 2b 3d 34 3a 50 32 25 |t%+=4:P1%+=4:P2%|
00000c30 2b 3d 34 0d 07 4e 05 ed 0d 07 58 05 ed 0d 07 62 |+=4..N....X....b|
00000c40 05 cc 0d 07 6c 0f e7 20 4e 31 25 3c 4e 32 25 20 |....l.. N1%<N2% |
00000c50 8c 0d 07 76 0f e3 20 4d 3d 31 20 b8 20 4e 31 25 |...v.. M=1 . N1%|
00000c60 0d 07 80 0d e3 20 49 3d 30 20 b8 20 35 0d 07 8a |..... I=0 . 5...|
00000c70 1b 21 4d 61 74 25 3d 21 50 31 25 2a 28 31 2d 74 |.!Mat%=!P1%*(1-t|
00000c80 29 2b 74 2a 21 50 32 25 0d 07 94 19 4d 61 74 25 |)+t*!P2%....Mat%|
00000c90 2b 3d 34 3a 50 31 25 2b 3d 34 3a 50 32 25 2b 3d |+=4:P1%+=4:P2%+=|
00000ca0 34 0d 07 9e 05 ed 0d 07 a8 05 f1 0d 07 b2 05 ed |4...............|
00000cb0 0d 07 bc 04 0d 07 c6 0f e3 20 4e 3d 4d 20 b8 20 |......... N=M . |
00000cc0 4e 32 25 0d 07 d0 0b 50 31 25 2d 3d 32 34 0d 07 |N2%....P1%-=24..|
00000cd0 da 0d e3 20 49 3d 30 20 b8 20 35 0d 07 e4 1b 21 |... I=0 . 5....!|
00000ce0 4d 61 74 25 3d 21 50 31 25 2a 28 31 2d 74 29 2b |Mat%=!P1%*(1-t)+|
00000cf0 74 2a 21 50 32 25 0d 07 ee 19 4d 61 74 25 2b 3d |t*!P2%....Mat%+=|
00000d00 34 3a 50 31 25 2b 3d 34 3a 50 32 25 2b 3d 34 0d |4:P1%+=4:P2%+=4.|
00000d10 07 f8 05 ed 0d 08 02 05 f1 0d 08 0c 05 ed 0d 08 |................|
00000d20 16 05 cc 0d 08 20 04 0d 08 2a 0f e3 20 4d 3d 31 |..... ...*.. M=1|
00000d30 20 b8 20 4e 32 25 0d 08 34 0d e3 20 49 3d 30 20 | . N2%..4.. I=0 |
00000d40 b8 20 35 0d 08 3e 1b 21 4d 61 74 25 3d 21 50 31 |. 5..>.!Mat%=!P1|
00000d50 25 2a 28 31 2d 74 29 2b 74 2a 21 50 32 25 0d 08 |%*(1-t)+t*!P2%..|
00000d60 48 19 4d 61 74 25 2b 3d 34 3a 50 31 25 2b 3d 34 |H.Mat%+=4:P1%+=4|
00000d70 3a 50 32 25 2b 3d 34 0d 08 52 05 ed 0d 08 5c 05 |:P2%+=4..R....\.|
00000d80 f1 0d 08 66 05 ed 0d 08 70 04 0d 08 7a 0f e3 20 |...f....p...z.. |
00000d90 4e 3d 4d 20 b8 20 4e 31 25 0d 08 84 0b 50 32 25 |N=M . N1%....P2%|
00000da0 2d 3d 32 34 0d 08 8e 0d e3 20 49 3d 30 20 b8 20 |-=24..... I=0 . |
00000db0 35 0d 08 98 1b 21 4d 61 74 25 3d 21 50 31 25 2a |5....!Mat%=!P1%*|
00000dc0 28 31 2d 74 29 2b 74 2a 21 50 32 25 0d 08 a2 19 |(1-t)+t*!P2%....|
00000dd0 4d 61 74 25 2b 3d 34 3a 50 31 25 2b 3d 34 3a 50 |Mat%+=4:P1%+=4:P|
00000de0 32 25 2b 3d 34 0d 08 ac 05 ed 0d 08 b6 05 f1 0d |2%+=4...........|
00000df0 08 c0 05 ed 0d 08 ca 04 0d 08 d4 05 cd 0d 08 de |................|
00000e00 05 cd 0d 08 e8 05 e1 0d 08 f2 04 0d 08 fc 04 0d |................|
00000e10 09 06 0b dd 20 f2 72 65 61 64 0d 09 10 07 ea 20 |.... .read..... |
00000e20 43 0d 09 1a 0a 53 3d 32 5e 31 32 0d 09 24 09 50 |C....S=2^12..$.P|
00000e30 3d 69 66 73 0d 09 2e 07 43 3d 30 0d 09 38 18 f3 |=ifs....C=0..8..|
00000e40 20 6e 61 6d 65 24 3a f4 50 52 49 4e 54 20 6e 61 | name$:.PRINT na|
00000e50 6d 65 24 0d 09 42 0b f3 20 6e 72 5f 74 72 0d 09 |me$..B.. nr_tr..|
00000e60 4c 0f c8 95 20 6e 72 5f 74 72 3c 3e 30 0d 09 56 |L... nr_tr<>0..V|
00000e70 2d 20 20 69 66 73 28 43 29 3d 50 20 20 20 20 20 |- ifs(C)=P |
00000e80 20 20 20 20 20 3a f4 20 72 65 6d 20 70 6f 69 6e | :. rem poin|
00000e90 74 65 72 20 74 6f 20 69 66 73 0d 09 60 13 20 20 |ter to ifs..`. |
00000ea0 21 50 3d 6e 72 5f 74 72 3a 50 2b 3d 34 0d 09 6a |!P=nr_tr:P+=4..j|
00000eb0 13 20 20 e3 20 4a 3d 31 20 b8 20 6e 72 5f 74 72 |. . J=1 . nr_tr|
00000ec0 0d 09 74 17 20 20 20 20 f3 20 52 3a 21 50 3d 52 |..t. . R:!P=R|
00000ed0 2a 53 3a 50 2b 3d 34 0d 09 7e 17 20 20 20 20 f3 |*S:P+=4..~. .|
00000ee0 20 52 3a 21 50 3d 52 2a 53 3a 50 2b 3d 34 0d 09 | R:!P=R*S:P+=4..|
00000ef0 88 17 20 20 20 20 f3 20 52 3a 21 50 3d 52 2a 53 |.. . R:!P=R*S|
00000f00 3a 50 2b 3d 34 0d 09 92 17 20 20 20 20 f3 20 52 |:P+=4.... . R|
00000f10 3a 21 50 3d 52 2a 53 3a 50 2b 3d 34 0d 09 9c 1b |:!P=R*S:P+=4....|
00000f20 20 20 20 20 f3 20 52 3a 21 50 3d 52 2a 53 2a 31 | . R:!P=R*S*1|
00000f30 2e 35 3a 50 2b 3d 34 0d 09 a6 1b 20 20 20 20 f3 |.5:P+=4.... .|
00000f40 20 52 3a 21 50 3d 52 2a 53 2a 31 2e 35 3a 50 2b | R:!P=R*S*1.5:P+|
00000f50 3d 34 0d 09 b0 0b 20 20 20 20 f3 20 52 0d 09 ba |=4.... . R...|
00000f60 07 20 20 ed 0d 09 c4 1a 20 20 f3 20 6e 61 6d 65 |. ..... . name|
00000f70 24 3a f4 50 52 49 4e 54 20 6e 61 6d 65 24 0d 09 |$:.PRINT name$..|
00000f80 ce 0d 20 20 f3 20 6e 72 5f 74 72 0d 09 d8 0a 20 |.. . nr_tr.... |
00000f90 20 43 2b 3d 31 0d 09 e2 05 ce 0d 09 ec 11 69 66 | C+=1.........if|
00000fa0 73 28 43 29 3d 50 3a 43 2b 3d 31 0d 09 f6 0d 21 |s(C)=P:C+=1....!|
00000fb0 50 3d 39 3a 50 2b 3d 34 0d 0a 00 08 f2 74 68 65 |P=9:P+=4.....the|
00000fc0 0d 0a 0a 11 69 66 73 28 43 29 3d 50 3a 43 2b 3d |....ifs(C)=P:C+=|
00000fd0 31 0d 0a 14 0e 21 50 3d 31 31 3a 50 2b 3d 34 0d |1....!P=11:P+=4.|
00000fe0 0a 1e 08 f2 65 6e 64 0d 0a 28 05 e1 0d 0a 32 04 |....end..(....2.|
00000ff0 0d 0a 3c 0a dd 20 f2 74 68 65 0d 0a 46 1b f2 74 |..<.. .the..F..t|
00001000 72 28 35 2c 31 2c 30 2c 30 2c 34 29 20 20 20 3a |r(5,1,0,0,4) :|
00001010 f4 20 22 54 22 0d 0a 50 15 f2 74 72 28 33 2e 35 |. "T"..P..tr(3.5|
00001020 2c 31 2c 39 30 2c 33 2c 30 29 0d 0a 5a 1b f2 74 |,1,90,3,0)..Z..t|
00001030 72 28 35 2c 31 2c 39 30 2c 37 2c 30 29 20 20 3a |r(5,1,90,7,0) :|
00001040 f4 20 22 48 22 0d 0a 64 14 f2 74 72 28 35 2c 31 |. "H"..d..tr(5,1|
00001050 2c 2d 39 30 2c 39 2c 35 29 0d 0a 6e 14 f2 74 72 |,-90,9,5)..n..tr|
00001060 28 31 2c 31 2c 30 2c 37 2e 35 2c 32 29 0d 0a 78 |(1,1,0,7.5,2)..x|
00001070 1e f2 74 72 28 35 2c 31 2c 39 30 2c 31 32 2e 37 |..tr(5,1,90,12.7|
00001080 35 2c 30 29 20 3a f4 20 22 45 22 0d 0a 82 13 f2 |5,0) :. "E".....|
00001090 74 72 28 32 2c 31 2c 30 2c 31 33 2c 34 29 0d 0a |tr(2,1,0,13,4)..|
000010a0 8c 13 f2 74 72 28 32 2c 31 2c 30 2c 31 33 2c 32 |...tr(2,1,0,13,2|
000010b0 29 0d 0a 96 13 f2 74 72 28 32 2c 31 2c 30 2c 31 |).....tr(2,1,0,1|
000010c0 33 2c 30 29 0d 0a a0 18 f2 61 64 6a 75 73 74 28 |3,0).....adjust(|
000010d0 2d 38 2c 34 2c 30 2c 31 2c 31 30 29 0d 0a aa 05 |-8,4,0,1,10)....|
000010e0 e1 0d 0a b4 04 0d 0a be 0a dd 20 f2 65 6e 64 0d |.......... .end.|
000010f0 0a c8 1b f2 74 72 28 35 2c 31 2c 39 30 2c 31 2c |....tr(5,1,90,1,|
00001100 30 29 20 20 3a f4 20 22 45 22 0d 0a d2 15 f2 74 |0) :. "E".....t|
00001110 72 28 32 2c 31 2c 30 2c 31 2e 32 35 2c 34 29 0d |r(2,1,0,1.25,4).|
00001120 0a dc 15 f2 74 72 28 32 2c 31 2c 30 2c 31 2e 32 |....tr(2,1,0,1.2|
00001130 35 2c 32 29 0d 0a e6 15 f2 74 72 28 32 2c 31 2c |5,2).....tr(2,1,|
00001140 30 2c 31 2e 32 35 2c 30 29 0d 0a f0 1b f2 74 72 |0,1.25,0).....tr|
00001150 28 35 2c 31 2c 39 30 2c 36 2c 30 29 20 20 3a f4 |(5,1,90,6,0) :.|
00001160 20 22 4e 22 0d 0a fa 14 f2 74 72 28 35 2c 31 2c | "N".....tr(5,1,|
00001170 2d 39 30 2c 38 2c 35 29 0d 0b 04 18 f2 74 72 28 |-90,8,5).....tr(|
00001180 36 2c 31 2c 31 33 30 2c 38 2e 37 2c 30 2e 37 29 |6,1,130,8.7,0.7)|
00001190 0d 0b 0e 1e f2 74 72 28 35 2c 31 2c 39 30 2c 31 |.....tr(5,1,90,1|
000011a0 32 2c 30 29 20 20 20 20 3a f4 20 22 44 22 0d 0b |2,0) :. "D"..|
000011b0 18 16 f2 74 72 28 32 2c 31 2c 39 30 2c 31 34 2c |...tr(2,1,90,14,|
000011c0 31 2e 35 29 0d 0b 22 1b f2 74 72 28 32 2e 35 2c |1.5).."..tr(2.5,|
000011d0 31 2c 2d 33 30 2c 31 31 2e 33 2c 34 2e 32 29 0d |1,-30,11.3,4.2).|
000011e0 0b 2c 17 f2 74 72 28 32 2e 35 2c 31 2c 20 33 30 |.,..tr(2.5,1, 30|
000011f0 2c 31 32 2c 30 29 0d 0b 36 18 f2 61 64 6a 75 73 |,12,0)..6..adjus|
00001200 74 28 2d 36 2c 34 2c 30 2c 31 2c 31 31 29 0d 0b |t(-6,4,0,1,11)..|
00001210 40 05 e1 0d 0b 4a 04 0d 0b 54 18 dd 20 f2 74 72 |@....J...T.. .tr|
00001220 28 73 78 2c 73 79 2c 72 2c 74 78 2c 74 79 29 0d |(sx,sy,r,tx,ty).|
00001230 0b 5e 14 73 78 3d 73 78 2f 31 35 3a 73 79 3d 73 |.^.sx=sx/15:sy=s|
00001240 79 2f 35 0d 0b 68 08 72 3d b2 72 0d 0b 72 14 21 |y/5..h.r=.r..r.!|
00001250 50 3d 20 73 78 2a 9b 72 2a 53 3a 50 2b 3d 34 0d |P= sx*.r*S:P+=4.|
00001260 0b 7c 14 21 50 3d 2d 73 79 2a b5 72 2a 53 3a 50 |.|.!P=-sy*.r*S:P|
00001270 2b 3d 34 0d 0b 86 14 21 50 3d 20 73 78 2a b5 72 |+=4....!P= sx*.r|
00001280 2a 53 3a 50 2b 3d 34 0d 0b 90 14 21 50 3d 20 73 |*S:P+=4....!P= s|
00001290 79 2a 9b 72 2a 53 3a 50 2b 3d 34 0d 0b 9a 10 21 |y*.r*S:P+=4....!|
000012a0 50 3d 74 78 2a 53 3a 50 2b 3d 34 0d 0b a4 10 21 |P=tx*S:P+=4....!|
000012b0 50 3d 74 79 2a 53 3a 50 2b 3d 34 0d 0b ae 05 e1 |P=ty*S:P+=4.....|
000012c0 0d 0b b8 04 0d 0b c2 19 dd 20 f2 74 72 32 28 73 |......... .tr2(s|
000012d0 78 2c 73 79 2c 72 2c 74 78 2c 74 79 29 0d 0b cc |x,sy,r,tx,ty)...|
000012e0 14 73 78 3d 73 78 2f 31 35 3a 73 79 3d 73 79 2f |.sx=sx/15:sy=sy/|
000012f0 35 0d 0b d6 0f 74 78 3d 74 78 3a 74 79 3d 74 79 |5....tx=tx:ty=ty|
00001300 0d 0b e0 08 72 3d b2 72 0d 0b ea 14 21 50 3d 20 |....r=.r....!P= |
00001310 73 78 2a 9b 72 2a 53 3a 50 2b 3d 34 0d 0b f4 14 |sx*.r*S:P+=4....|
00001320 21 50 3d 2d 73 79 2a b5 72 2a 53 3a 50 2b 3d 34 |!P=-sy*.r*S:P+=4|
00001330 0d 0b fe 14 21 50 3d 20 73 78 2a b5 72 2a 53 3a |....!P= sx*.r*S:|
00001340 50 2b 3d 34 0d 0c 08 14 21 50 3d 20 73 79 2a 9b |P+=4....!P= sy*.|
00001350 72 2a 53 3a 50 2b 3d 34 0d 0c 12 10 21 50 3d 74 |r*S:P+=4....!P=t|
00001360 78 2a 53 3a 50 2b 3d 34 0d 0c 1c 10 21 50 3d 74 |x*S:P+=4....!P=t|
00001370 79 2a 53 3a 50 2b 3d 34 0d 0c 26 05 e1 0d 0c 30 |y*S:P+=4..&....0|
00001380 04 0d 0c 3a 04 0d 0c 44 0c dc 20 22 4e 75 6c 6c |...:...D.. "Null|
00001390 22 0d 0c 4e 07 dc 20 32 0d 0c 58 20 dc 20 30 2c |"..N.. 2..X . 0,|
000013a0 20 30 2e 31 2c 20 2d 30 2e 31 2c 20 30 2c 20 30 | 0.1, -0.1, 0, 0|
000013b0 2c 20 30 2c 20 30 2e 35 0d 0c 62 20 dc 20 30 2c |, 0, 0.5..b . 0,|
000013c0 20 2d 30 2e 31 2c 20 30 2e 31 2c 20 30 2c 20 30 | -0.1, 0.1, 0, 0|
000013d0 2c 20 30 2c 20 30 2e 35 0d 0c 6c 04 0d 0c 76 04 |, 0, 0.5..l...v.|
000013e0 0d 0c 80 0e dc 20 22 4a 61 67 67 65 64 22 0d 0c |..... "Jagged"..|
000013f0 8a 07 dc 20 32 0d 0c 94 39 dc 20 2e 37 30 2c 20 |... 2...9. .70, |
00001400 20 20 20 2d 2e 34 38 2c 20 20 20 2d 2e 33 39 2c | -.48, -.39,|
00001410 20 20 20 2d 2e 36 36 2c 20 20 20 32 2e 31 35 2c | -.66, 2.15,|
00001420 20 20 20 31 30 2e 33 31 2c 20 20 2e 37 35 0d 0c | 10.31, .75..|
00001430 9e 39 dc 20 2e 30 39 2c 20 20 20 20 2d 2e 34 34 |.9. .09, -.44|
00001440 2c 20 20 20 30 2e 35 32 2c 20 20 20 2d 2e 30 39 |, 0.52, -.09|
00001450 2c 20 20 20 34 2e 32 39 2c 20 20 20 20 32 2e 39 |, 4.29, 2.9|
00001460 33 2c 20 20 2e 32 35 0d 0c a8 04 0d 0c b2 0e dc |3, .25.........|
00001470 20 22 44 72 61 67 6f 6e 22 0d 0c bc 07 dc 20 32 | "Dragon"..... 2|
00001480 0d 0c c6 39 dc 20 2e 30 39 2c 20 20 20 20 2e 35 |...9. .09, .5|
00001490 32 2c 20 20 20 20 2d 2e 34 36 2c 20 20 20 2d 2e |2, -.46, -.|
000014a0 33 38 2c 20 20 20 20 20 2e 37 39 2c 20 20 38 2e |38, .79, 8.|
000014b0 31 30 2c 20 20 20 2e 32 31 0d 0c d0 39 dc 20 2e |10, .21...9. .|
000014c0 38 32 2c 20 20 20 20 2e 32 38 2c 20 20 20 20 2d |82, .28, -|
000014d0 2e 32 31 2c 20 20 20 20 2e 38 36 2c 20 20 20 2d |.21, .86, -|
000014e0 31 2e 38 38 2c 20 20 2d 2e 30 31 2c 20 20 20 2e |1.88, -.01, .|
000014f0 37 39 0d 0c da 04 0d 0c e4 0d dc 20 22 53 77 69 |79......... "Swi|
00001500 72 6c 22 0d 0c ee 07 dc 20 32 0d 0c f8 42 dc 2d |rl"..... 2...B.-|
00001510 30 2e 34 32 2c 20 20 20 2d 30 2e 30 37 2c 20 20 |0.42, -0.07, |
00001520 20 2d 30 2e 31 38 2c 20 20 20 2d 30 2e 32 32 2c | -0.18, -0.22,|
00001530 20 20 20 20 2e 33 38 31 2a 38 2c 20 20 20 20 2e | .381*8, .|
00001540 36 37 34 2a 38 2c 20 20 20 2e 30 39 0d 0d 02 42 |674*8, .09...B|
00001550 dc 20 30 2e 37 35 2c 20 20 20 2d 30 2e 34 36 2c |. 0.75, -0.46,|
00001560 20 20 20 20 30 2e 34 31 2c 20 20 20 20 30 2e 38 | 0.41, 0.8|
00001570 39 2c 20 20 20 20 2e 31 34 36 2a 38 2c 20 20 20 |9, .146*8, |
00001580 20 2e 30 36 39 2a 38 2c 20 20 20 2e 39 31 0d 0d | .069*8, .91..|
00001590 0c 04 0d 0d 16 04 0d 0d 20 1b dc 20 22 53 69 65 |........ .. "Sie|
000015a0 72 70 69 6e 73 6b 69 20 54 72 69 61 6e 67 6c 65 |rpinski Triangle|
000015b0 22 0d 0d 2a 07 dc 20 33 0d 0d 34 2c dc 20 31 2f |"..*.. 3..4,. 1/|
000015c0 32 2c 20 20 20 30 2c 20 20 20 30 2c 20 20 20 31 |2, 0, 0, 1|
000015d0 2f 32 2c 20 20 20 20 2d 32 2c 20 20 20 30 2c 20 |/2, -2, 0, |
000015e0 20 31 2f 33 0d 0d 3e 2c dc 20 31 2f 32 2c 20 20 | 1/3..>,. 1/2, |
000015f0 20 30 2c 20 20 20 30 2c 20 20 20 31 2f 32 2c 20 | 0, 0, 1/2, |
00001600 20 20 20 20 32 2c 20 20 20 30 2c 20 20 31 2f 33 | 2, 0, 1/3|
00001610 0d 0d 48 2c dc 20 31 2f 32 2c 20 20 20 30 2c 20 |..H,. 1/2, 0, |
00001620 20 20 30 2c 20 20 20 31 2f 32 2c 20 20 20 20 20 | 0, 1/2, |
00001630 30 2c 20 20 20 34 2c 20 20 31 2f 33 0d 0d 52 04 |0, 4, 1/3..R.|
00001640 0d 0d 5c 19 dc 20 22 53 70 69 72 61 6c 20 6f 66 |..\.. "Spiral of|
00001650 20 73 70 69 72 61 6c 73 22 0d 0d 66 07 dc 20 33 | spirals"..f.. 3|
00001660 0d 0d 70 43 dc 20 30 2e 37 39 2c 20 20 20 2d 30 |..pC. 0.79, -0|
00001670 2e 34 32 2c 20 20 20 20 30 2e 32 34 2c 20 20 20 |.42, 0.24, |
00001680 20 30 2e 38 36 2c 20 20 20 20 31 2e 37 36 2a 30 | 0.86, 1.76*0|
00001690 2e 39 2c 20 20 20 20 31 2e 34 31 2c 20 20 20 20 |.9, 1.41, |
000016a0 20 2e 39 0d 0d 7a 44 dc 2d 30 2e 31 32 2c 20 20 | .9..zD.-0.12, |
000016b0 20 20 30 2e 32 36 2c 20 20 20 20 30 2e 31 35 2c | 0.26, 0.15,|
000016c0 20 20 20 20 30 2e 30 35 2c 20 20 20 2d 36 2e 37 | 0.05, -6.7|
000016d0 32 2a 30 2e 39 2c 20 20 20 20 31 2e 33 38 2c 20 |2*0.9, 1.38, |
000016e0 20 20 20 20 2e 30 35 0d 0d 84 44 dc 20 30 2e 31 | .05...D. 0.1|
000016f0 38 2c 20 20 20 2d 30 2e 31 34 2c 20 20 20 20 30 |8, -0.14, 0|
00001700 2e 30 39 2c 20 20 20 20 30 2e 31 38 2c 20 20 20 |.09, 0.18, |
00001710 20 36 2e 30 39 2a 30 2e 39 2c 20 20 20 20 31 2e | 6.09*0.9, 1.|
00001720 35 37 2c 20 20 20 20 20 2e 30 35 0d 0d 8e 04 0d |57, .05.....|
00001730 0d 98 0d dc 20 22 43 6f 72 61 6c 22 0d 0d a2 07 |.... "Coral"....|
00001740 dc 20 33 0d 0d ac 3e dc 20 30 2e 33 31 2c 20 20 |. 3...>. 0.31, |
00001750 20 2d 30 2e 35 33 2c 20 20 20 2d 30 2e 34 36 2c | -0.53, -0.46,|
00001760 20 20 20 2d 30 2e 32 39 2c 20 20 20 20 35 2e 34 | -0.29, 5.4|
00001770 2c 20 20 20 20 38 2e 36 36 2c 20 20 20 20 20 2e |, 8.66, .|
00001780 34 0d 0d b6 3f dc 20 30 2e 33 31 2c 20 20 20 2d |4...?. 0.31, -|
00001790 30 2e 30 38 2c 20 20 20 20 30 2e 31 35 2c 20 20 |0.08, 0.15, |
000017a0 20 2d 30 2e 34 35 2c 20 20 20 2d 31 2e 33 2c 20 | -0.45, -1.3, |
000017b0 20 20 20 34 2e 31 35 2c 20 20 20 20 20 2e 31 35 | 4.15, .15|
000017c0 0d 0d c0 3f dc 20 30 20 20 20 2c 20 20 20 20 30 |...?. 0 , 0|
000017d0 2e 35 35 2c 20 20 20 20 30 2e 36 39 2c 20 20 20 |.55, 0.69, |
000017e0 2d 30 2e 32 30 2c 20 20 2d 34 2e 38 39 2c 20 20 |-0.20, -4.89, |
000017f0 20 20 37 2e 32 37 2c 20 20 20 20 20 2e 34 35 0d | 7.27, .45.|
00001800 0d ca 04 0d 0d d4 0c dc 20 22 46 65 72 6e 22 0d |........ "Fern".|
00001810 0d de 07 dc 20 34 0d 0d e8 04 0d 0d f2 43 dc 20 |.... 4.......C. |
00001820 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 | 0, 0, |
00001830 20 20 20 20 20 30 2c 20 20 20 20 30 2e 31 36 2c | 0, 0.16,|
00001840 20 20 20 20 20 30 2c 20 20 20 20 20 20 30 2c 20 | 0, 0, |
00001850 20 20 20 20 20 20 20 20 20 30 2e 30 31 0d 0d fc | 0.01...|
00001860 43 dc 20 2d 30 2e 31 35 2c 20 20 20 20 30 2e 32 |C. -0.15, 0.2|
00001870 38 2c 20 20 20 30 2e 32 36 2c 20 20 20 20 30 2e |8, 0.26, 0.|
00001880 32 34 2c 20 20 20 20 20 30 2c 20 20 20 20 30 2e |24, 0, 0.|
00001890 34 34 2a 30 2e 39 2c 20 20 20 20 20 30 2e 30 37 |44*0.9, 0.07|
000018a0 0d 0e 06 43 dc 20 20 30 2e 32 2c 20 20 20 20 2d |...C. 0.2, -|
000018b0 30 2e 32 36 2c 20 20 20 30 2e 32 33 2c 20 20 20 |0.26, 0.23, |
000018c0 20 30 2e 32 32 2c 20 20 20 20 20 30 2c 20 20 20 | 0.22, 0, |
000018d0 20 31 2e 36 2a 30 2e 39 2c 20 20 20 20 20 20 30 | 1.6*0.9, 0|
000018e0 2e 30 37 0d 0e 10 43 dc 20 20 30 2e 38 35 2c 20 |.07...C. 0.85, |
000018f0 20 20 20 30 2e 30 34 2c 20 20 2d 30 2e 30 34 2c | 0.04, -0.04,|
00001900 20 20 20 20 30 2e 38 35 2c 20 20 20 20 20 30 2c | 0.85, 0,|
00001910 20 20 20 20 31 2e 36 2a 30 2e 39 2c 20 20 20 20 | 1.6*0.9, |
00001920 20 20 30 2e 38 35 0d 0e 1a 04 0d 0e 24 04 0d 0e | 0.85......$...|
00001930 2e 0e dc 20 22 42 69 6e 61 72 79 22 0d 0e 38 07 |... "Binary"..8.|
00001940 dc 20 33 0d 0e 42 3f dc 20 31 2f 32 2c 20 20 20 |. 3..B?. 1/2, |
00001950 20 20 30 2e 30 2c 20 20 20 20 20 30 2e 30 2c 20 | 0.0, 0.0, |
00001960 20 20 20 20 31 2f 32 2c 20 20 20 20 2d 32 2e 35 | 1/2, -2.5|
00001970 36 2a 2e 38 2c 20 20 20 30 2c 20 20 20 20 20 31 |6*.8, 0, 1|
00001980 2f 33 0d 0e 4c 3f dc 20 31 2f 32 2c 20 20 20 20 |/3..L?. 1/2, |
00001990 20 30 2e 30 2c 20 20 20 20 20 30 2e 30 2c 20 20 | 0.0, 0.0, |
000019a0 20 20 20 31 2f 32 2c 20 20 20 20 20 32 2e 34 34 | 1/2, 2.44|
000019b0 2a 2e 38 2c 20 20 20 30 2c 20 20 20 20 20 31 2f |*.8, 0, 1/|
000019c0 33 0d 0e 56 44 dc 20 20 20 30 2c 20 20 20 20 2d |3..VD. 0, -|
000019d0 31 2f 32 2c 20 20 20 20 20 31 2f 32 2c 20 20 20 |1/2, 1/2, |
000019e0 20 20 20 20 30 2c 20 20 20 20 20 34 2e 38 37 2a | 0, 4.87*|
000019f0 2e 38 2c 20 20 37 2e 35 36 2a 2e 38 2c 20 20 20 |.8, 7.56*.8, |
00001a00 20 20 31 2f 33 0d 0e 60 04 0d 0e 6a 1a dc 20 22 | 1/3..`...j.. "|
00001a10 76 6f 6e 20 4b 6f 63 68 20 73 6e 6f 77 66 6c 61 |von Koch snowfla|
00001a20 6b 65 22 0d 0e 74 07 dc 20 34 0d 0e 7e 27 dc 20 |ke"..t.. 4..~'. |
00001a30 31 2f 33 2c 20 20 30 2c 20 20 30 2c 20 31 2f 33 |1/3, 0, 0, 1/3|
00001a40 2c 20 20 2d 34 2c 20 32 2f 33 2a 34 2c 20 31 2f |, -4, 2/3*4, 1/|
00001a50 34 0d 0e 88 27 dc 20 31 2f 33 2c 20 20 30 2c 20 |4...'. 1/3, 0, |
00001a60 20 30 2c 20 31 2f 33 2c 20 20 20 34 2c 20 32 2f | 0, 1/3, 4, 2/|
00001a70 33 2a 34 2c 20 31 2f 34 0d 0e 92 50 dc 20 30 2e |3*4, 1/4...P. 0.|
00001a80 35 2f 33 2c 20 2d 30 2e 38 36 36 2f 33 2c 20 20 |5/3, -0.866/3, |
00001a90 30 2e 38 36 36 2f 33 2c 20 30 2e 35 2f 33 2c 20 |0.866/3, 0.5/3, |
00001aa0 2d 30 2e 35 2f 32 2a 34 2b 30 2e 38 36 36 2f 33 |-0.5/2*4+0.866/3|
00001ab0 2a 34 2c 20 30 2e 38 36 36 2f 32 2a 34 2b 35 2f |*4, 0.866/2*4+5/|
00001ac0 36 2a 34 2c 20 31 2f 34 0d 0e 9c 50 dc 20 30 2e |6*4, 1/4...P. 0.|
00001ad0 35 2f 33 2c 20 20 30 2e 38 36 36 2f 33 2c 20 2d |5/3, 0.866/3, -|
00001ae0 30 2e 38 36 36 2f 33 2c 20 30 2e 35 2f 33 2c 20 |0.866/3, 0.5/3, |
00001af0 20 30 2e 35 2f 32 2a 34 2d 30 2e 38 36 36 2f 33 | 0.5/2*4-0.866/3|
00001b00 2a 34 2c 20 30 2e 38 36 36 2f 32 2a 34 2b 35 2f |*4, 0.866/2*4+5/|
00001b10 36 2a 34 2c 20 31 2f 34 0d 0e a6 04 0d 0e b0 0c |6*4, 1/4........|
00001b20 dc 20 22 53 74 6f 70 22 0d 0e ba 07 dc 20 30 0d |. "Stop"..... 0.|
00001b30 0e c4 04 0d 0e ce 0a dd 20 f2 41 53 53 0d 0e d8 |........ .ASS...|
00001b40 0f de 20 51 25 20 31 30 30 30 30 30 0d 0e e2 42 |.. Q% 100000...B|
00001b50 61 3d 30 3a 62 3d 31 3a 63 3d 32 3a 64 3d 33 3a |a=0:b=1:c=2:d=3:|
00001b60 65 3d 34 3a 66 3d 35 3a 78 3d 36 3a 79 3d 37 3a |e=4:f=5:x=6:y=7:|
00001b70 74 3d 38 3a 63 6f 6c 3d 39 3a 73 63 72 3d 31 30 |t=8:col=9:scr=10|
00001b80 3a 6d 74 72 3d 31 31 3a 63 6e 74 3d 31 32 0d 0e |:mtr=11:cnt=12..|
00001b90 ec 0b 75 3d 30 3a 76 3d 31 0d 0e f6 04 0d 0f 00 |..u=0:v=1.......|
00001ba0 14 e3 20 50 41 53 53 3d 30 20 b8 20 32 20 88 20 |.. PASS=0 . 2 . |
00001bb0 32 0d 0f 0a 09 50 25 3d 51 25 0d 0f 14 0d 5b 4f |2....P%=Q%....[O|
00001bc0 50 54 20 50 41 53 53 0d 0f 1e 1d 2e 73 63 72 65 |PT PASS.....scre|
00001bd0 65 6e 64 20 45 51 55 44 20 31 34 38 3a 45 51 55 |end EQUD 148:EQU|
00001be0 44 20 2d 31 0d 0f 28 12 2e 73 63 72 65 65 6e 20 |D -1..(..screen |
00001bf0 45 51 55 44 20 30 0d 0f 32 08 2e 73 65 74 0d 0f |EQUD 0..2..set..|
00001c00 3c 3a 41 44 52 20 72 30 2c 73 63 72 65 65 6e 64 |<:ADR r0,screend|
00001c10 3a 41 44 52 20 72 31 2c 73 63 72 65 65 6e 3a 53 |:ADR r1,screen:S|
00001c20 57 49 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 |WI "OS_ReadVduVa|
00001c30 72 69 61 62 6c 65 73 22 0d 0f 46 0e 4d 4f 56 20 |riables"..F.MOV |
00001c40 70 63 2c 72 31 34 0d 0f 50 04 0d 0f 5a 2f 2e 6f |pc,r14..P...Z/.o|
00001c50 75 74 70 75 74 5f 62 75 66 66 65 72 20 20 20 20 |utput_buffer |
00001c60 20 20 44 43 44 20 30 3a 44 43 44 20 30 3a 44 43 | DCD 0:DCD 0:DC|
00001c70 44 20 30 3a 44 43 44 20 30 0d 0f 64 10 2e 64 69 |D 0:DCD 0..d..di|
00001c80 73 70 6c 61 79 5f 70 70 66 0d 0f 6e 1d 3b 20 20 |splay_ppf..n.; |
00001c90 20 20 20 20 20 20 20 20 53 57 49 20 20 20 20 20 | SWI |
00001ca0 20 20 26 31 31 45 0d 0f 78 2b 20 20 20 20 20 20 | &11E..x+ |
00001cb0 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 52 30 | MOV R0|
00001cc0 2c 63 6e 74 2c 4c 53 4c 20 23 28 33 32 2d 31 38 |,cnt,LSL #(32-18|
00001cd0 29 0d 0f 82 2a 20 20 20 20 20 20 20 20 20 20 4d |)...* M|
00001ce0 4f 56 20 20 20 20 20 20 20 52 30 2c 52 30 2c 4c |OV R0,R0,L|
00001cf0 53 52 20 23 28 33 32 2d 31 38 29 0d 0f 8c 28 20 |SR #(32-18)...( |
00001d00 20 20 20 20 20 20 20 20 20 41 44 52 20 20 20 20 | ADR |
00001d10 20 20 20 52 31 2c 6f 75 74 70 75 74 5f 62 75 66 | R1,output_buf|
00001d20 66 65 72 0d 0f 96 1e 20 20 20 20 20 20 20 20 20 |fer.... |
00001d30 20 4d 4f 56 20 20 20 20 20 20 20 52 32 2c 23 31 | MOV R2,#1|
00001d40 36 0d 0f a0 2c 20 20 20 20 20 20 20 20 20 20 53 |6..., S|
00001d50 57 49 20 20 20 20 20 20 20 22 4f 53 5f 43 6f 6e |WI "OS_Con|
00001d60 76 65 72 74 49 6e 74 65 67 65 72 33 22 0d 0f aa |vertInteger3"...|
00001d70 23 20 20 20 20 20 20 20 20 20 20 53 57 49 20 20 |# SWI |
00001d80 20 20 20 20 20 22 4f 53 5f 57 72 69 74 65 30 22 | "OS_Write0"|
00001d90 0d 0f b4 24 20 20 20 20 20 20 20 20 20 20 53 57 |...$ SW|
00001da0 49 20 20 20 20 20 20 20 22 4f 53 5f 4e 65 77 4c |I "OS_NewL|
00001db0 69 6e 65 22 0d 0f be 26 20 20 20 20 20 20 20 20 |ine"...& |
00001dc0 20 20 4d 4f 56 20 20 20 20 20 20 20 52 30 2c 63 | MOV R0,c|
00001dd0 6e 74 2c 4c 53 52 20 23 31 38 0d 0f c8 28 20 20 |nt,LSR #18...( |
00001de0 20 20 20 20 20 20 20 20 41 44 52 20 20 20 20 20 | ADR |
00001df0 20 20 52 31 2c 6f 75 74 70 75 74 5f 62 75 66 66 | R1,output_buff|
00001e00 65 72 0d 0f d2 1e 20 20 20 20 20 20 20 20 20 20 |er.... |
00001e10 4d 4f 56 20 20 20 20 20 20 20 52 32 2c 23 31 36 |MOV R2,#16|
00001e20 0d 0f dc 2c 20 20 20 20 20 20 20 20 20 20 53 57 |..., SW|
00001e30 49 20 20 20 20 20 20 20 22 4f 53 5f 43 6f 6e 76 |I "OS_Conv|
00001e40 65 72 74 49 6e 74 65 67 65 72 33 22 0d 0f e6 23 |ertInteger3"...#|
00001e50 20 20 20 20 20 20 20 20 20 20 53 57 49 20 20 20 | SWI |
00001e60 20 20 20 20 22 4f 53 5f 57 72 69 74 65 30 22 0d | "OS_Write0".|
00001e70 0f f0 1e 20 20 20 20 20 20 20 20 20 20 4d 4f 56 |... MOV|
00001e80 20 20 20 20 20 20 20 50 43 2c 52 31 34 0d 0f fa | PC,R14...|
00001e90 04 0d 10 04 12 2e 6d 74 72 64 20 45 51 55 44 20 |......mtrd EQUD |
00001ea0 6d 61 74 0d 10 0e 08 2e 74 72 32 0d 10 18 12 53 |mat.....tr2....S|
00001eb0 54 4d 46 44 20 31 33 21 2c 7b 31 34 7d 0d 10 22 |TMFD 13!,{14}.."|
00001ec0 0b 42 4c 20 69 6e 69 74 0d 10 2c 0b 42 4c 20 74 |.BL init..,.BL t|
00001ed0 72 5f 32 0d 10 36 12 4c 44 4d 46 44 20 31 33 21 |r_2..6.LDMFD 13!|
00001ee0 2c 7b 50 43 7d 0d 10 40 04 0d 10 4a 08 2e 74 72 |,{PC}..@...J..tr|
00001ef0 33 0d 10 54 12 53 54 4d 46 44 20 31 33 21 2c 7b |3..T.STMFD 13!,{|
00001f00 31 34 7d 0d 10 5e 0b 42 4c 20 69 6e 69 74 0d 10 |14}..^.BL init..|
00001f10 68 0b 42 4c 20 74 72 5f 33 0d 10 72 12 4c 44 4d |h.BL tr_3..r.LDM|
00001f20 46 44 20 31 33 21 2c 7b 50 43 7d 0d 10 7c 04 0d |FD 13!,{PC}..|..|
00001f30 10 86 08 2e 74 72 34 0d 10 90 12 53 54 4d 46 44 |....tr4....STMFD|
00001f40 20 31 33 21 2c 7b 31 34 7d 0d 10 9a 0b 42 4c 20 | 13!,{14}....BL |
00001f50 69 6e 69 74 0d 10 a4 0b 42 4c 20 74 72 5f 34 0d |init....BL tr_4.|
00001f60 10 ae 12 4c 44 4d 46 44 20 31 33 21 2c 7b 50 43 |...LDMFD 13!,{PC|
00001f70 7d 0d 10 b8 04 0d 10 c2 08 2e 74 72 39 0d 10 cc |}.........tr9...|
00001f80 12 53 54 4d 46 44 20 31 33 21 2c 7b 31 34 7d 0d |.STMFD 13!,{14}.|
00001f90 10 d6 0b 42 4c 20 69 6e 69 74 0d 10 e0 0b 42 4c |...BL init....BL|
00001fa0 20 74 72 5f 39 0d 10 ea 12 4c 44 4d 46 44 20 31 | tr_9....LDMFD 1|
00001fb0 33 21 2c 7b 50 43 7d 0d 10 f4 04 0d 10 fe 09 2e |3!,{PC}.........|
00001fc0 74 72 31 31 0d 11 08 12 53 54 4d 46 44 20 31 33 |tr11....STMFD 13|
00001fd0 21 2c 7b 31 34 7d 0d 11 12 0b 42 4c 20 69 6e 69 |!,{14}....BL ini|
00001fe0 74 0d 11 1c 0c 42 4c 20 74 72 5f 31 31 0d 11 26 |t....BL tr_11..&|
00001ff0 12 4c 44 4d 46 44 20 31 33 21 2c 7b 50 43 7d 0d |.LDMFD 13!,{PC}.|
00002000 11 30 04 0d 11 3a 0f 2e 73 70 64 20 45 51 55 44 |.0...:..spd EQUD|
00002010 20 30 0d 11 44 09 2e 69 6e 69 74 0d 11 4e 0e 53 | 0..D..init..N.S|
00002020 54 52 20 31 33 2c 73 70 64 0d 11 58 12 4c 44 52 |TR 13,spd..X.LDR|
00002030 20 73 63 72 2c 73 63 72 65 65 6e 0d 11 62 10 4d | scr,screen..b.M|
00002040 4f 56 20 78 2c 23 31 3c 3c 31 31 0d 11 6c 10 4d |OV x,#1<<11..l.M|
00002050 4f 56 20 79 2c 23 31 3c 3c 31 31 0d 11 76 10 4c |OV y,#1<<11..v.L|
00002060 44 52 20 6d 74 72 2c 6d 74 72 64 0d 11 80 10 4d |DR mtr,mtrd....M|
00002070 4f 56 20 63 6f 6c 2c 23 31 30 30 0d 11 8a 0b 2e |OV col,#100.....|
00002080 69 6e 6c 6f 6f 70 0d 11 94 1b 4c 44 4d 49 41 20 |inloop....LDMIA |
00002090 6d 74 72 2c 7b 61 2c 62 2c 63 2c 64 2c 65 2c 66 |mtr,{a,b,c,d,e,f|
000020a0 7d 0d 11 9e 0d 4d 55 4c 20 74 2c 61 2c 78 0d 11 |}....MUL t,a,x..|
000020b0 a8 0f 4d 4c 41 20 74 2c 62 2c 79 2c 74 0d 11 b2 |..MLA t,b,y,t...|
000020c0 0d 4d 55 4c 20 78 2c 63 2c 78 0d 11 bc 0f 4d 4c |.MUL x,c,x....ML|
000020d0 41 20 79 2c 64 2c 79 2c 78 0d 11 c6 15 41 44 44 |A y,d,y,x....ADD|
000020e0 20 78 2c 65 2c 74 2c 41 53 52 20 23 31 32 0d 11 | x,e,t,ASR #12..|
000020f0 d0 15 41 44 44 20 79 2c 66 2c 79 2c 41 53 52 20 |..ADD y,f,y,ASR |
00002100 23 31 32 0d 11 da 13 53 55 42 53 20 63 6f 6c 2c |#12....SUBS col,|
00002110 63 6f 6c 2c 23 31 0d 11 e4 0e 42 4e 45 20 69 6e |col,#1....BNE in|
00002120 6c 6f 6f 70 0d 11 ee 14 3b 4c 44 52 20 78 2c 5b |loop....;LDR x,[|
00002130 6d 74 72 2c 23 31 36 5d 0d 11 f8 14 3b 4c 44 52 |mtr,#16]....;LDR|
00002140 20 79 2c 5b 6d 74 72 2c 23 32 30 5d 0d 12 02 16 | y,[mtr,#20]....|
00002150 4d 4f 56 20 63 6f 6c 2c 23 25 30 31 31 30 30 30 |MOV col,#%011000|
00002160 31 31 0d 12 0c 37 4d 4f 56 20 63 6e 74 2c 23 31 |11...7MOV cnt,#1|
00002170 30 32 34 2a 38 20 20 20 20 20 3b 20 6c 69 6d 69 |024*8 ; limi|
00002180 74 20 6e 75 6d 62 65 72 20 6f 66 20 70 69 78 65 |t number of pixe|
00002190 6c 73 20 70 6c 6f 74 65 64 0d 12 16 0e 4d 4f 56 |ls ploted....MOV|
000021a0 20 63 6e 74 2c 23 30 0d 12 20 0d 4d 4f 56 20 74 | cnt,#0.. .MOV t|
000021b0 2c 6d 74 72 0d 12 2a 0e 4d 4f 56 20 50 43 2c 52 |,mtr..*.MOV PC,R|
000021c0 31 34 0d 12 34 04 0d 12 3e 09 2e 71 75 69 74 0d |14..4...>..quit.|
000021d0 12 48 0e 4c 44 52 20 31 33 2c 73 70 64 0d 12 52 |.H.LDR 13,spd..R|
000021e0 12 4c 44 4d 46 44 20 31 33 21 2c 7b 50 43 7d 0d |.LDMFD 13!,{PC}.|
000021f0 12 5c 04 0d 12 66 19 f4 20 74 77 6f 20 74 72 61 |.\...f.. two tra|
00002200 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 0d 12 70 09 |nsformations..p.|
00002210 2e 74 72 5f 32 0d 12 7a 07 a4 74 72 0d 12 84 16 |.tr_2..z..tr....|
00002220 53 54 4d 46 44 20 31 33 21 2c 7b 78 2c 79 2c 31 |STMFD 13!,{x,y,1|
00002230 34 7d 0d 12 8e 0d 4d 4f 56 20 74 2c 6d 74 72 0d |4}....MOV t,mtr.|
00002240 12 98 0b 42 4c 20 74 72 5f 32 0d 12 a2 13 4c 44 |...BL tr_2....LD|
00002250 4d 46 44 20 31 33 21 2c 7b 78 2c 79 7d 0d 12 ac |MFD 13!,{x,y}...|
00002260 11 41 44 44 20 74 2c 6d 74 72 2c 23 32 34 0d 12 |.ADD t,mtr,#24..|
00002270 b6 0b 42 4c 20 74 72 5f 32 0d 12 c0 12 4c 44 4d |..BL tr_2....LDM|
00002280 46 44 20 31 33 21 2c 7b 50 43 7d 0d 12 ca 04 0d |FD 13!,{PC}.....|
00002290 12 d4 1b f4 20 74 68 72 65 65 20 74 72 61 6e 73 |.... three trans|
000022a0 66 6f 72 6d 61 74 69 6f 6e 73 0d 12 de 09 2e 74 |formations.....t|
000022b0 72 5f 33 0d 12 e8 07 a4 74 72 0d 12 f2 16 53 54 |r_3.....tr....ST|
000022c0 4d 46 44 20 31 33 21 2c 7b 78 2c 79 2c 31 34 7d |MFD 13!,{x,y,14}|
000022d0 0d 12 fc 0d 4d 4f 56 20 74 2c 6d 74 72 0d 13 06 |....MOV t,mtr...|
000022e0 0b 42 4c 20 74 72 5f 33 0d 13 10 12 4c 44 4d 46 |.BL tr_3....LDMF|
000022f0 44 20 31 33 2c 7b 78 2c 79 7d 0d 13 1a 11 41 44 |D 13,{x,y}....AD|
00002300 44 20 74 2c 6d 74 72 2c 23 32 34 0d 13 24 0b 42 |D t,mtr,#24..$.B|
00002310 4c 20 74 72 5f 33 0d 13 2e 13 4c 44 4d 46 44 20 |L tr_3....LDMFD |
00002320 31 33 21 2c 7b 78 2c 79 7d 0d 13 38 13 41 44 44 |13!,{x,y}..8.ADD|
00002330 20 74 2c 6d 74 72 2c 23 32 34 2a 32 0d 13 42 0b | t,mtr,#24*2..B.|
00002340 42 4c 20 74 72 5f 33 0d 13 4c 12 4c 44 4d 46 44 |BL tr_3..L.LDMFD|
00002350 20 31 33 21 2c 7b 50 43 7d 0d 13 56 04 0d 13 60 | 13!,{PC}..V...`|
00002360 1a f4 20 66 6f 75 72 20 74 72 61 6e 73 66 6f 72 |.. four transfor|
00002370 6d 61 74 69 6f 6e 73 0d 13 6a 09 2e 74 72 5f 34 |mations..j..tr_4|
00002380 0d 13 74 07 a4 74 72 0d 13 7e 16 53 54 4d 46 44 |..t..tr..~.STMFD|
00002390 20 31 33 21 2c 7b 78 2c 79 2c 31 34 7d 0d 13 88 | 13!,{x,y,14}...|
000023a0 10 41 44 44 20 74 2c 6d 74 72 2c 23 30 0d 13 92 |.ADD t,mtr,#0...|
000023b0 0b 42 4c 20 74 72 5f 34 0d 13 9c 12 4c 44 4d 46 |.BL tr_4....LDMF|
000023c0 44 20 31 33 2c 7b 78 2c 79 7d 0d 13 a6 11 41 44 |D 13,{x,y}....AD|
000023d0 44 20 74 2c 6d 74 72 2c 23 32 34 0d 13 b0 0b 42 |D t,mtr,#24....B|
000023e0 4c 20 74 72 5f 34 0d 13 ba 12 4c 44 4d 46 44 20 |L tr_4....LDMFD |
000023f0 31 33 2c 7b 78 2c 79 7d 0d 13 c4 13 41 44 44 20 |13,{x,y}....ADD |
00002400 74 2c 6d 74 72 2c 23 32 34 2a 32 0d 13 ce 0b 42 |t,mtr,#24*2....B|
00002410 4c 20 74 72 5f 34 0d 13 d8 13 4c 44 4d 46 44 20 |L tr_4....LDMFD |
00002420 31 33 21 2c 7b 78 2c 79 7d 0d 13 e2 13 41 44 44 |13!,{x,y}....ADD|
00002430 20 74 2c 6d 74 72 2c 23 32 34 2a 33 0d 13 ec 0b | t,mtr,#24*3....|
00002440 42 4c 20 74 72 5f 34 0d 13 f6 12 4c 44 4d 46 44 |BL tr_4....LDMFD|
00002450 20 31 33 21 2c 7b 50 43 7d 0d 14 00 04 0d 14 0a | 13!,{PC}.......|
00002460 04 0d 14 14 1a f4 20 6e 69 6e 65 20 74 72 61 6e |...... nine tran|
00002470 73 66 6f 72 6d 61 74 69 6f 6e 73 0d 14 1e 09 2e |sformations.....|
00002480 74 72 5f 39 0d 14 28 07 a4 74 72 0d 14 32 16 53 |tr_9..(..tr..2.S|
00002490 54 4d 46 44 20 31 33 21 2c 7b 78 2c 79 2c 31 34 |TMFD 13!,{x,y,14|
000024a0 7d 0d 14 3c 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}..<.ADD t,mtr,#|
000024b0 32 34 2a 30 0d 14 46 0b 42 4c 20 74 72 5f 39 0d |24*0..F.BL tr_9.|
000024c0 14 50 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |.P.LDMFD 13,{x,y|
000024d0 7d 0d 14 5a 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}..Z.ADD t,mtr,#|
000024e0 32 34 2a 31 0d 14 64 0b 42 4c 20 74 72 5f 39 0d |24*1..d.BL tr_9.|
000024f0 14 6e 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |.n.LDMFD 13,{x,y|
00002500 7d 0d 14 78 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}..x.ADD t,mtr,#|
00002510 32 34 2a 32 0d 14 82 0b 42 4c 20 74 72 5f 39 0d |24*2....BL tr_9.|
00002520 14 8c 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |...LDMFD 13,{x,y|
00002530 7d 0d 14 96 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}....ADD t,mtr,#|
00002540 32 34 2a 33 0d 14 a0 0b 42 4c 20 74 72 5f 39 0d |24*3....BL tr_9.|
00002550 14 aa 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |...LDMFD 13,{x,y|
00002560 7d 0d 14 b4 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}....ADD t,mtr,#|
00002570 32 34 2a 34 0d 14 be 0b 42 4c 20 74 72 5f 39 0d |24*4....BL tr_9.|
00002580 14 c8 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |...LDMFD 13,{x,y|
00002590 7d 0d 14 d2 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}....ADD t,mtr,#|
000025a0 32 34 2a 35 0d 14 dc 0b 42 4c 20 74 72 5f 39 0d |24*5....BL tr_9.|
000025b0 14 e6 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |...LDMFD 13,{x,y|
000025c0 7d 0d 14 f0 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}....ADD t,mtr,#|
000025d0 32 34 2a 36 0d 14 fa 0b 42 4c 20 74 72 5f 39 0d |24*6....BL tr_9.|
000025e0 15 04 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |...LDMFD 13,{x,y|
000025f0 7d 0d 15 0e 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}....ADD t,mtr,#|
00002600 32 34 2a 37 0d 15 18 0b 42 4c 20 74 72 5f 39 0d |24*7....BL tr_9.|
00002610 15 22 13 4c 44 4d 46 44 20 31 33 21 2c 7b 78 2c |.".LDMFD 13!,{x,|
00002620 79 7d 0d 15 2c 13 41 44 44 20 74 2c 6d 74 72 2c |y}..,.ADD t,mtr,|
00002630 23 32 34 2a 38 0d 15 36 0b 42 4c 20 74 72 5f 39 |#24*8..6.BL tr_9|
00002640 0d 15 40 12 4c 44 4d 46 44 20 31 33 21 2c 7b 50 |..@.LDMFD 13!,{P|
00002650 43 7d 0d 15 4a 04 0d 15 54 1c f4 20 65 6c 65 76 |C}..J...T.. elev|
00002660 65 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f |en transformatio|
00002670 6e 73 0d 15 5e 0a 2e 74 72 5f 31 31 0d 15 68 07 |ns..^..tr_11..h.|
00002680 a4 74 72 0d 15 72 16 53 54 4d 46 44 20 31 33 21 |.tr..r.STMFD 13!|
00002690 2c 7b 78 2c 79 2c 31 34 7d 0d 15 7c 13 41 44 44 |,{x,y,14}..|.ADD|
000026a0 20 74 2c 6d 74 72 2c 23 32 34 2a 30 0d 15 86 0c | t,mtr,#24*0....|
000026b0 42 4c 20 74 72 5f 31 31 0d 15 90 12 4c 44 4d 46 |BL tr_11....LDMF|
000026c0 44 20 31 33 2c 7b 78 2c 79 7d 0d 15 9a 13 41 44 |D 13,{x,y}....AD|
000026d0 44 20 74 2c 6d 74 72 2c 23 32 34 2a 31 0d 15 a4 |D t,mtr,#24*1...|
000026e0 0c 42 4c 20 74 72 5f 31 31 0d 15 ae 12 4c 44 4d |.BL tr_11....LDM|
000026f0 46 44 20 31 33 2c 7b 78 2c 79 7d 0d 15 b8 13 41 |FD 13,{x,y}....A|
00002700 44 44 20 74 2c 6d 74 72 2c 23 32 34 2a 32 0d 15 |DD t,mtr,#24*2..|
00002710 c2 0c 42 4c 20 74 72 5f 31 31 0d 15 cc 12 4c 44 |..BL tr_11....LD|
00002720 4d 46 44 20 31 33 2c 7b 78 2c 79 7d 0d 15 d6 13 |MFD 13,{x,y}....|
00002730 41 44 44 20 74 2c 6d 74 72 2c 23 32 34 2a 33 0d |ADD t,mtr,#24*3.|
00002740 15 e0 0c 42 4c 20 74 72 5f 31 31 0d 15 ea 12 4c |...BL tr_11....L|
00002750 44 4d 46 44 20 31 33 2c 7b 78 2c 79 7d 0d 15 f4 |DMFD 13,{x,y}...|
00002760 13 41 44 44 20 74 2c 6d 74 72 2c 23 32 34 2a 34 |.ADD t,mtr,#24*4|
00002770 0d 15 fe 0c 42 4c 20 74 72 5f 31 31 0d 16 08 12 |....BL tr_11....|
00002780 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 7d 0d 16 |LDMFD 13,{x,y}..|
00002790 12 13 41 44 44 20 74 2c 6d 74 72 2c 23 32 34 2a |..ADD t,mtr,#24*|
000027a0 35 0d 16 1c 0c 42 4c 20 74 72 5f 31 31 0d 16 26 |5....BL tr_11..&|
000027b0 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 7d 0d |.LDMFD 13,{x,y}.|
000027c0 16 30 13 41 44 44 20 74 2c 6d 74 72 2c 23 32 34 |.0.ADD t,mtr,#24|
000027d0 2a 36 0d 16 3a 0c 42 4c 20 74 72 5f 31 31 0d 16 |*6..:.BL tr_11..|
000027e0 44 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 7d |D.LDMFD 13,{x,y}|
000027f0 0d 16 4e 13 41 44 44 20 74 2c 6d 74 72 2c 23 32 |..N.ADD t,mtr,#2|
00002800 34 2a 37 0d 16 58 0c 42 4c 20 74 72 5f 31 31 0d |4*7..X.BL tr_11.|
00002810 16 62 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c 79 |.b.LDMFD 13,{x,y|
00002820 7d 0d 16 6c 13 41 44 44 20 74 2c 6d 74 72 2c 23 |}..l.ADD t,mtr,#|
00002830 32 34 2a 38 0d 16 76 0c 42 4c 20 74 72 5f 31 31 |24*8..v.BL tr_11|
00002840 0d 16 80 12 4c 44 4d 46 44 20 31 33 2c 7b 78 2c |....LDMFD 13,{x,|
00002850 79 7d 0d 16 8a 13 41 44 44 20 74 2c 6d 74 72 2c |y}....ADD t,mtr,|
00002860 23 32 34 2a 39 0d 16 94 0c 42 4c 20 74 72 5f 31 |#24*9....BL tr_1|
00002870 31 0d 16 9e 13 4c 44 4d 46 44 20 31 33 21 2c 7b |1....LDMFD 13!,{|
00002880 78 2c 79 7d 0d 16 a8 14 41 44 44 20 74 2c 6d 74 |x,y}....ADD t,mt|
00002890 72 2c 23 32 34 2a 31 30 0d 16 b2 0c 42 4c 20 74 |r,#24*10....BL t|
000028a0 72 5f 31 31 0d 16 bc 12 4c 44 4d 46 44 20 31 33 |r_11....LDMFD 13|
000028b0 21 2c 7b 50 43 7d 0d 16 c6 04 0d 16 d0 05 5d 0d |!,{PC}........].|
000028c0 16 da 05 ed 0d 16 e4 05 e1 0d 16 ee 04 0d 16 f8 |................|
000028d0 09 dd 20 a4 74 72 0d 17 02 0d 5b 4f 50 54 20 50 |.. .tr....[OPT P|
000028e0 41 53 53 0d 17 0c 12 41 44 44 20 63 6e 74 2c 63 |ASS....ADD cnt,c|
000028f0 6e 74 2c 23 31 0d 17 16 19 4c 44 4d 49 41 20 74 |nt,#1....LDMIA t|
00002900 2c 7b 61 2c 62 2c 63 2c 64 2c 65 2c 66 7d 0d 17 |,{a,b,c,d,e,f}..|
00002910 20 0d 4d 55 4c 20 74 2c 61 2c 78 0d 17 2a 0f 4d | .MUL t,a,x..*.M|
00002920 4c 41 20 74 2c 62 2c 79 2c 74 0d 17 34 14 3b 4d |LA t,b,y,t..4.;M|
00002930 4f 56 20 75 2c 78 2c 41 53 52 20 23 31 32 0d 17 |OV u,x,ASR #12..|
00002940 3e 14 3b 4d 4f 56 20 76 2c 79 2c 41 53 52 20 23 |>.;MOV v,y,ASR #|
00002950 31 32 0d 17 48 0d 4d 55 4c 20 78 2c 63 2c 78 0d |12..H.MUL x,c,x.|
00002960 17 52 0f 4d 4c 41 20 79 2c 64 2c 79 2c 78 0d 17 |.R.MLA y,d,y,x..|
00002970 5c 15 41 44 44 20 78 2c 65 2c 74 2c 41 53 52 20 |\.ADD x,e,t,ASR |
00002980 23 31 32 0d 17 66 15 41 44 44 20 79 2c 66 2c 79 |#12..f.ADD y,f,y|
00002990 2c 41 53 52 20 23 31 32 0d 17 70 14 3b 43 4d 50 |,ASR #12..p.;CMP|
000029a0 20 75 2c 78 2c 41 53 52 20 23 31 32 0d 17 7a 16 | u,x,ASR #12..z.|
000029b0 3b 43 4d 50 45 51 20 76 2c 79 2c 41 53 52 20 23 |;CMPEQ v,y,ASR #|
000029c0 31 32 0d 17 84 0e 3b ec 51 20 50 43 2c 52 31 34 |12....;.Q PC,R14|
000029d0 0d 17 8e 12 4d 4f 56 20 75 2c 78 2c 41 53 52 20 |....MOV u,x,ASR |
000029e0 23 38 0d 17 98 12 4d 4f 56 20 76 2c 79 2c 41 53 |#8....MOV v,y,AS|
000029f0 52 20 23 38 0d 17 a2 10 41 44 44 20 75 2c 75 2c |R #8....ADD u,u,|
00002a00 23 31 36 30 0d 17 ac 10 52 53 42 20 76 2c 76 2c |#160....RSB v,v,|
00002a10 23 32 34 34 0d 17 b6 10 3b 41 44 44 20 75 2c 75 |#244....;ADD u,u|
00002a20 2c 23 38 30 0d 17 c0 10 3b 53 55 42 20 76 2c 76 |,#80....;SUB v,v|
00002a30 2c 23 38 30 0d 17 ca 10 43 4d 50 20 75 2c 23 33 |,#80....CMP u,#3|
00002a40 32 30 2d 34 0d 17 d4 12 43 4d 50 4c 4f 20 76 2c |20-4....CMPLO v,|
00002a50 23 32 35 36 2d 34 0d 17 de 10 4d 4f 56 48 53 20 |#256-4....MOVHS |
00002a60 50 43 2c 52 31 34 0d 17 e8 14 41 44 44 20 74 2c |PC,R14....ADD t,|
00002a70 76 2c 76 2c 4c 53 4c 20 23 32 0d 17 f2 14 41 44 |v,v,LSL #2....AD|
00002a80 44 20 74 2c 75 2c 74 2c 4c 53 4c 20 23 36 0d 17 |D t,u,t,LSL #6..|
00002a90 fc 13 4c 44 52 42 20 75 2c 5b 74 2c 73 63 72 5d |..LDRB u,[t,scr]|
00002aa0 21 0d 18 06 0d 43 4d 50 20 75 2c 63 6f 6c 0d 18 |!....CMP u,col..|
00002ab0 10 0d ec 51 20 50 43 2c 52 31 34 0d 18 1a 19 3b |...Q PC,R14....;|
00002ac0 4c 44 4d 45 51 46 44 20 31 33 21 2c 7b 78 2c 79 |LDMEQFD 13!,{x,y|
00002ad0 2c 50 43 7d 0d 18 24 14 3b 53 55 42 53 20 63 6e |,PC}..$.;SUBS cn|
00002ae0 74 2c 63 6e 74 2c 23 31 0d 18 2e 0d 3b 42 4d 49 |t,cnt,#1....;BMI|
00002af0 20 71 75 69 74 0d 18 38 16 41 44 44 20 63 6e 74 | quit..8.ADD cnt|
00002b00 2c 63 6e 74 2c 23 31 3c 3c 31 38 0d 18 42 10 53 |,cnt,#1<<18..B.S|
00002b10 54 52 42 20 63 6f 6c 2c 5b 74 5d 0d 18 4c 18 4c |TRB col,[t]..L.L|
00002b20 44 52 42 20 75 2c 5b 74 2c 23 33 32 30 2a 34 2b |DRB u,[t,#320*4+|
00002b30 34 5d 21 0d 18 56 0d 43 4d 50 20 75 2c 63 6f 6c |4]!..V.CMP u,col|
00002b40 0d 18 60 14 4d 4f 56 20 75 2c 23 25 30 30 31 30 |..`.MOV u,#%0010|
00002b50 31 31 30 31 0d 18 6a 10 53 54 52 4e 45 42 20 75 |1101..j.STRNEB u|
00002b60 2c 5b 74 5d 0d 18 74 0a 3b 53 57 49 20 34 0d 18 |,[t]..t.;SWI 4..|
00002b70 7e 05 5d 0d 18 88 07 3d 22 22 0d ff |~.]....=""..|
00002b7c 
.