� Ripple
&� *FAST* Texture mapping in BASIC!
 � By Philip Mellor (aged 15)
(� Acorn User/Star Info
2:
<
�15:�13:�
F<st=4:� 4 on ARM3 or better; 8 on ARM2s and maybe ARM250s
P:
Zdir$="Sprite"
dfile%=�(dir$)
nsize%=�#file%+64
x�#file%
�� sprite% size%
�sprite%!0=size%
�"ș "OS_SpriteOp",256+9,sprite%
�(ș "OS_SpriteOp",256+10,sprite%,dir$
�:
�s$="picture"
�:
�wave=0:fr=1
��28,0,18,39,14
��MOUSE TO 320,256
�ȗ � 540,512
�ȗ �
�ȗ � 1,0,0,0

ȗ � 2,255,255,255

:

�

"ș6,112,fr:�

,ȗ X,Y,Z

67�wave(s$,194,420,892,148,wave,(640-X)/10,Y/1024,st)

@wave+=Y/1024

Jș6,113,fr:fr=3-fr:Ȗ

T�0

^:

h,� �wave(s$,x,y,w,h,wav,size_x,size_y,st)

r� ty=y � y+h � st

|/o=�(wav)*(size_x*(st/4)):wav+=size_y*(st/4)

��24,x+o;ty;x+w+o;ty+st;

�.ș "OS_SpriteOp",256+34,sprite%,s$,x+o,y,0

��

��
�

00000000  0d 00 0a 0c f4 20 52 69  70 70 6c 65 0d 00 14 26  |..... Ripple...&|
00000010  f4 20 2a 46 41 53 54 2a  20 54 65 78 74 75 72 65  |. *FAST* Texture|
00000020  20 6d 61 70 70 69 6e 67  20 69 6e 20 42 41 53 49  | mapping in BASI|
00000030  43 21 0d 00 1e 20 f4 20  42 79 20 50 68 69 6c 69  |C!... . By Phili|
00000040  70 20 4d 65 6c 6c 6f 72  20 28 61 67 65 64 20 31  |p Mellor (aged 1|
00000050  35 29 0d 00 28 1a f4 20  41 63 6f 72 6e 20 55 73  |5)..(.. Acorn Us|
00000060  65 72 2f 53 74 61 72 20  49 6e 66 6f 0d 00 32 05  |er/Star Info..2.|
00000070  3a 0d 00 3c 0d eb 31 35  3a eb 31 33 3a 87 0d 00  |:..<..15:.13:...|
00000080  46 3c 73 74 3d 34 3a f4  20 34 20 6f 6e 20 41 52  |F<st=4:. 4 on AR|
00000090  4d 33 20 6f 72 20 62 65  74 74 65 72 3b 20 38 20  |M3 or better; 8 |
000000a0  6f 6e 20 41 52 4d 32 73  20 61 6e 64 20 6d 61 79  |on ARM2s and may|
000000b0  62 65 20 41 52 4d 32 35  30 73 0d 00 50 05 3a 0d  |be ARM250s..P.:.|
000000c0  00 5a 11 64 69 72 24 3d  22 53 70 72 69 74 65 22  |.Z.dir$="Sprite"|
000000d0  0d 00 64 11 66 69 6c 65  25 3d 8e 28 64 69 72 24  |..d.file%=.(dir$|
000000e0  29 0d 00 6e 14 73 69 7a  65 25 3d a2 23 66 69 6c  |)..n.size%=.#fil|
000000f0  65 25 2b 36 34 0d 00 78  0b d9 23 66 69 6c 65 25  |e%+64..x..#file%|
00000100  0d 00 82 13 de 20 73 70  72 69 74 65 25 20 73 69  |..... sprite% si|
00000110  7a 65 25 0d 00 8c 13 73  70 72 69 74 65 25 21 30  |ze%....sprite%!0|
00000120  3d 73 69 7a 65 25 0d 00  96 22 c8 99 20 22 4f 53  |=size%...".. "OS|
00000130  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 39  |_SpriteOp",256+9|
00000140  2c 73 70 72 69 74 65 25  0d 00 a0 28 c8 99 20 22  |,sprite%...(.. "|
00000150  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00000160  2b 31 30 2c 73 70 72 69  74 65 25 2c 64 69 72 24  |+10,sprite%,dir$|
00000170  0d 00 aa 05 3a 0d 00 b4  10 73 24 3d 22 70 69 63  |....:....s$="pic|
00000180  74 75 72 65 22 0d 00 be  05 3a 0d 00 c8 0f 77 61  |ture"....:....wa|
00000190  76 65 3d 30 3a 66 72 3d  31 0d 00 d2 12 ef 32 38  |ve=0:fr=1.....28|
000001a0  2c 30 2c 31 38 2c 33 39  2c 31 34 0d 00 dc 15 f4  |,0,18,39,14.....|
000001b0  4d 4f 55 53 45 20 54 4f  20 33 32 30 2c 32 35 36  |MOUSE TO 320,256|
000001c0  0d 00 e6 10 c8 97 20 b8  20 35 34 30 2c 35 31 32  |...... . 540,512|
000001d0  0d 00 f0 08 c8 97 20 ee  0d 00 fa 10 c8 97 20 fb  |...... ....... .|
000001e0  20 31 2c 30 2c 30 2c 30  0d 01 04 16 c8 97 20 fb  | 1,0,0,0...... .|
000001f0  20 32 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 01  | 2,255,255,255..|
00000200  0e 05 3a 0d 01 18 05 f5  0d 01 22 10 c8 99 36 2c  |..:......."...6,|
00000210  31 31 32 2c 66 72 3a db  0d 01 2c 0c c8 97 20 58  |112,fr:...,... X|
00000220  2c 59 2c 5a 0d 01 36 37  f2 77 61 76 65 28 73 24  |,Y,Z..67.wave(s$|
00000230  2c 31 39 34 2c 34 32 30  2c 38 39 32 2c 31 34 38  |,194,420,892,148|
00000240  2c 77 61 76 65 2c 28 36  34 30 2d 58 29 2f 31 30  |,wave,(640-X)/10|
00000250  2c 59 2f 31 30 32 34 2c  73 74 29 0d 01 40 10 77  |,Y/1024,st)..@.w|
00000260  61 76 65 2b 3d 59 2f 31  30 32 34 0d 01 4a 19 c8  |ave+=Y/1024..J..|
00000270  99 36 2c 31 31 33 2c 66  72 3a 66 72 3d 33 2d 66  |.6,113,fr:fr=3-f|
00000280  72 3a c8 96 0d 01 54 06  fd 30 0d 01 5e 05 3a 0d  |r:....T..0..^.:.|
00000290  01 68 2c dd 20 f2 77 61  76 65 28 73 24 2c 78 2c  |.h,. .wave(s$,x,|
000002a0  79 2c 77 2c 68 2c 77 61  76 2c 73 69 7a 65 5f 78  |y,w,h,wav,size_x|
000002b0  2c 73 69 7a 65 5f 79 2c  73 74 29 0d 01 72 15 e3  |,size_y,st)..r..|
000002c0  20 74 79 3d 79 20 b8 20  79 2b 68 20 88 20 73 74  | ty=y . y+h . st|
000002d0  0d 01 7c 2f 6f 3d b5 28  77 61 76 29 2a 28 73 69  |..|/o=.(wav)*(si|
000002e0  7a 65 5f 78 2a 28 73 74  2f 34 29 29 3a 77 61 76  |ze_x*(st/4)):wav|
000002f0  2b 3d 73 69 7a 65 5f 79  2a 28 73 74 2f 34 29 0d  |+=size_y*(st/4).|
00000300  01 86 1b ef 32 34 2c 78  2b 6f 3b 74 79 3b 78 2b  |....24,x+o;ty;x+|
00000310  77 2b 6f 3b 74 79 2b 73  74 3b 0d 01 90 2e c8 99  |w+o;ty+st;......|
00000320  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00000330  35 36 2b 33 34 2c 73 70  72 69 74 65 25 2c 73 24  |56+34,sprite%,s$|
00000340  2c 78 2b 6f 2c 79 2c 30  0d 01 9a 05 ed 0d 01 a4  |,x+o,y,0........|
00000350  05 e1 0d ff                                       |....|
00000354