� Psychodelic Carpet!
� By Philip Mellor (age 15)
� Acorn User/Star Info
(:
2
� 12:�
<� I=0 � 15
F� I,I*17,I*17,I*17
P�
Z� c(32,32,2),a(3,2)
d� x=0 � 32
n� y=0 � 32
xc(x,y,2)=�(255)
�c(x,y,1)=c(x,y,2)
�c(x,y,0)=c(x,y,2)
��
��
�:
�� x=0 � 31
�� y=0 � 31
�3a(0,0)=c(x,y,0):a(0,1)=c(x,y,1):a(0,2)=c(x,y,2)
�9a(1,0)=c(x+1,y,0):a(1,1)=c(x+1,y,1):a(1,2)=c(x+1,y,2)
�9a(2,0)=c(x,y+1,0):a(2,1)=c(x,y+1,1):a(2,2)=c(x,y+1,2)
�?a(3,0)=c(x+1,y+1,0):a(3,1)=c(x+1,y+1,1):a(3,2)=c(x+1,y+1,2)
�r1s=(a(0,0)-a(2,0))/32
�g1s=(a(0,1)-a(2,1))/32

b1s=(a(0,2)-a(2,2))/32

r2s=(a(1,0)-a(3,0))/32

g2s=(a(1,1)-a(3,1))/32

"b2s=(a(1,2)-a(3,2))/32

,ȑ x*40,y*32

6� p=0 � 32 � 4

@n�blendH((r1s*p)+a(2,0),g1s*p+a(2,1),b1s*p+a(2,2),r2s*p+a(3,0),g2s*p+a(3,1),b2s*2+a(3,2),40,40,32-p,0,32-p)

J�

T�

^�

h:

r� col(15,3)

|'r=col(15,1):g=col(15,2):b=col(15,3)

�rd=�num:gd=�num:bd=�num

�t=1

��

�
� �-1 t=0

�� �-99 t=1

�� �-74 t=2

�� t=0 r+=rd:g+=gd:b+=bd

�!� t=1 r+=rd*2:g+=gd*2:b+=bd*2

�!� t=2 r+=rd/2:g+=gd/2:b+=bd/2

�

�� r>255 r=255:rd=-�(8)

�� g>255 g=255:gd=-�(8)

�� b>255 b=255:bd=-�(8)
� r<0 r=0:rd=�(8)
� g<0 g=0:gd=�(8)
� b<0 b=0:bd=�(8)
&� �(100)=1 rd=�num
0� �(100)=1 gd=�num
:� �(100)=1 bd=�num
D'col(15,1)=r:col(15,2)=g:col(15,3)=b
N� I=0 � 14
X
� C=1 � 3
bcol(I,C)=col(I+1,C)
l�
v�
�� I=0 � 15
�"� I,col(I,1),col(I,2),col(I,3)
��
�	Ȗ:Ȗ
�� �-1 Ȗ
��0
�:
��
�:
�	ݤnum
�� �(2)=1 =�(8) � =-�(8)
�:
�/��blendV(r1,g1,b1,r2,g2,b2,num,bx,by,tx,ty)
(� step,rstep,gstep,bstep,i,set_gcol%
Bș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � set_gcol%
step=(ty-by)/num
 rstep=(r1-r2)/num
*gstep=(g1-g2)/num
4bstep=(b1-b2)/num
>� i=0 � num
Hr=(rstep*i)+r2
Rg=(gstep*i)+g2
\b=(bstep*i)+b2
f0ș set_gcol%,(r<<8)+(g<<16)+(b<<24),,,&100,0
p#ȓ Ȑ bx,(i*step)+by,tx-bx,step
z�
��
�:
�/��blendH(r1,g1,b1,r2,g2,b2,num,bx,by,tx,ty)
�(� step,rstep,gstep,bstep,i,set_gcol%
�Bș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � set_gcol%
�step=(tx-bx)/num
�rstep=(r1-r2)/num
�gstep=(g1-g2)/num
�bstep=(b1-b2)/num
�� i=0 � num
�r=(rstep*i)+r2
�g=(gstep*i)+g2
�b=(bstep*i)+b2
0ș set_gcol%,(r<<8)+(g<<16)+(b<<24),,,&100,0
#ȓ Ȑ (i*step)+bx,by,step,ty-by
�
$�
�

00000000  0d 00 0a 19 f4 20 50 73  79 63 68 6f 64 65 6c 69  |..... Psychodeli|
00000010  63 20 43 61 72 70 65 74  21 0d 00 14 1f f4 20 42  |c Carpet!..... B|
00000020  79 20 50 68 69 6c 69 70  20 4d 65 6c 6c 6f 72 20  |y Philip Mellor |
00000030  28 61 67 65 20 31 35 29  0d 00 1e 1a f4 20 41 63  |(age 15)..... Ac|
00000040  6f 72 6e 20 55 73 65 72  2f 53 74 61 72 20 49 6e  |orn User/Star In|
00000050  66 6f 0d 00 28 05 3a 0d  00 32 0a eb 20 31 32 3a  |fo..(.:..2.. 12:|
00000060  87 0d 00 3c 0e e3 20 49  3d 30 20 b8 20 31 35 0d  |...<.. I=0 . 15.|
00000070  00 46 16 fb 20 49 2c 49  2a 31 37 2c 49 2a 31 37  |.F.. I,I*17,I*17|
00000080  2c 49 2a 31 37 0d 00 50  05 ed 0d 00 5a 17 de 20  |,I*17..P....Z.. |
00000090  63 28 33 32 2c 33 32 2c  32 29 2c 61 28 33 2c 32  |c(32,32,2),a(3,2|
000000a0  29 0d 00 64 0e e3 20 78  3d 30 20 b8 20 33 32 0d  |)..d.. x=0 . 32.|
000000b0  00 6e 0e e3 20 79 3d 30  20 b8 20 33 32 0d 00 78  |.n.. y=0 . 32..x|
000000c0  13 63 28 78 2c 79 2c 32  29 3d b3 28 32 35 35 29  |.c(x,y,2)=.(255)|
000000d0  0d 00 82 15 63 28 78 2c  79 2c 31 29 3d 63 28 78  |....c(x,y,1)=c(x|
000000e0  2c 79 2c 32 29 0d 00 8c  15 63 28 78 2c 79 2c 30  |,y,2)....c(x,y,0|
000000f0  29 3d 63 28 78 2c 79 2c  32 29 0d 00 96 05 ed 0d  |)=c(x,y,2)......|
00000100  00 a0 05 ed 0d 00 aa 05  3a 0d 00 b4 0e e3 20 78  |........:..... x|
00000110  3d 30 20 b8 20 33 31 0d  00 be 0e e3 20 79 3d 30  |=0 . 31..... y=0|
00000120  20 b8 20 33 31 0d 00 c8  33 61 28 30 2c 30 29 3d  | . 31...3a(0,0)=|
00000130  63 28 78 2c 79 2c 30 29  3a 61 28 30 2c 31 29 3d  |c(x,y,0):a(0,1)=|
00000140  63 28 78 2c 79 2c 31 29  3a 61 28 30 2c 32 29 3d  |c(x,y,1):a(0,2)=|
00000150  63 28 78 2c 79 2c 32 29  0d 00 d2 39 61 28 31 2c  |c(x,y,2)...9a(1,|
00000160  30 29 3d 63 28 78 2b 31  2c 79 2c 30 29 3a 61 28  |0)=c(x+1,y,0):a(|
00000170  31 2c 31 29 3d 63 28 78  2b 31 2c 79 2c 31 29 3a  |1,1)=c(x+1,y,1):|
00000180  61 28 31 2c 32 29 3d 63  28 78 2b 31 2c 79 2c 32  |a(1,2)=c(x+1,y,2|
00000190  29 0d 00 dc 39 61 28 32  2c 30 29 3d 63 28 78 2c  |)...9a(2,0)=c(x,|
000001a0  79 2b 31 2c 30 29 3a 61  28 32 2c 31 29 3d 63 28  |y+1,0):a(2,1)=c(|
000001b0  78 2c 79 2b 31 2c 31 29  3a 61 28 32 2c 32 29 3d  |x,y+1,1):a(2,2)=|
000001c0  63 28 78 2c 79 2b 31 2c  32 29 0d 00 e6 3f 61 28  |c(x,y+1,2)...?a(|
000001d0  33 2c 30 29 3d 63 28 78  2b 31 2c 79 2b 31 2c 30  |3,0)=c(x+1,y+1,0|
000001e0  29 3a 61 28 33 2c 31 29  3d 63 28 78 2b 31 2c 79  |):a(3,1)=c(x+1,y|
000001f0  2b 31 2c 31 29 3a 61 28  33 2c 32 29 3d 63 28 78  |+1,1):a(3,2)=c(x|
00000200  2b 31 2c 79 2b 31 2c 32  29 0d 00 f0 1a 72 31 73  |+1,y+1,2)....r1s|
00000210  3d 28 61 28 30 2c 30 29  2d 61 28 32 2c 30 29 29  |=(a(0,0)-a(2,0))|
00000220  2f 33 32 0d 00 fa 1a 67  31 73 3d 28 61 28 30 2c  |/32....g1s=(a(0,|
00000230  31 29 2d 61 28 32 2c 31  29 29 2f 33 32 0d 01 04  |1)-a(2,1))/32...|
00000240  1a 62 31 73 3d 28 61 28  30 2c 32 29 2d 61 28 32  |.b1s=(a(0,2)-a(2|
00000250  2c 32 29 29 2f 33 32 0d  01 0e 1a 72 32 73 3d 28  |,2))/32....r2s=(|
00000260  61 28 31 2c 30 29 2d 61  28 33 2c 30 29 29 2f 33  |a(1,0)-a(3,0))/3|
00000270  32 0d 01 18 1a 67 32 73  3d 28 61 28 31 2c 31 29  |2....g2s=(a(1,1)|
00000280  2d 61 28 33 2c 31 29 29  2f 33 32 0d 01 22 1a 62  |-a(3,1))/32..".b|
00000290  32 73 3d 28 61 28 31 2c  32 29 2d 61 28 33 2c 32  |2s=(a(1,2)-a(3,2|
000002a0  29 29 2f 33 32 0d 01 2c  10 c8 91 20 78 2a 34 30  |))/32..,... x*40|
000002b0  2c 79 2a 33 32 0d 01 36  12 e3 20 70 3d 30 20 b8  |,y*32..6.. p=0 .|
000002c0  20 33 32 20 88 20 34 0d  01 40 6e f2 62 6c 65 6e  | 32 . 4..@n.blen|
000002d0  64 48 28 28 72 31 73 2a  70 29 2b 61 28 32 2c 30  |dH((r1s*p)+a(2,0|
000002e0  29 2c 67 31 73 2a 70 2b  61 28 32 2c 31 29 2c 62  |),g1s*p+a(2,1),b|
000002f0  31 73 2a 70 2b 61 28 32  2c 32 29 2c 72 32 73 2a  |1s*p+a(2,2),r2s*|
00000300  70 2b 61 28 33 2c 30 29  2c 67 32 73 2a 70 2b 61  |p+a(3,0),g2s*p+a|
00000310  28 33 2c 31 29 2c 62 32  73 2a 32 2b 61 28 33 2c  |(3,1),b2s*2+a(3,|
00000320  32 29 2c 34 30 2c 34 30  2c 33 32 2d 70 2c 30 2c  |2),40,40,32-p,0,|
00000330  33 32 2d 70 29 0d 01 4a  05 ed 0d 01 54 05 ed 0d  |32-p)..J....T...|
00000340  01 5e 05 ed 0d 01 68 05  3a 0d 01 72 0f de 20 63  |.^....h.:..r.. c|
00000350  6f 6c 28 31 35 2c 33 29  0d 01 7c 27 72 3d 63 6f  |ol(15,3)..|'r=co|
00000360  6c 28 31 35 2c 31 29 3a  67 3d 63 6f 6c 28 31 35  |l(15,1):g=col(15|
00000370  2c 32 29 3a 62 3d 63 6f  6c 28 31 35 2c 33 29 0d  |,2):b=col(15,3).|
00000380  01 86 1b 72 64 3d a4 6e  75 6d 3a 67 64 3d a4 6e  |...rd=.num:gd=.n|
00000390  75 6d 3a 62 64 3d a4 6e  75 6d 0d 01 90 07 74 3d  |um:bd=.num....t=|
000003a0  31 0d 01 9a 05 f5 0d 01  a4 0d e7 20 a6 2d 31 20  |1.......... .-1 |
000003b0  74 3d 30 0d 01 ae 0e e7  20 a6 2d 39 39 20 74 3d  |t=0..... .-99 t=|
000003c0  31 0d 01 b8 0e e7 20 a6  2d 37 34 20 74 3d 32 0d  |1..... .-74 t=2.|
000003d0  01 c2 1b e7 20 74 3d 30  20 72 2b 3d 72 64 3a 67  |.... t=0 r+=rd:g|
000003e0  2b 3d 67 64 3a 62 2b 3d  62 64 0d 01 cc 21 e7 20  |+=gd:b+=bd...!. |
000003f0  74 3d 31 20 72 2b 3d 72  64 2a 32 3a 67 2b 3d 67  |t=1 r+=rd*2:g+=g|
00000400  64 2a 32 3a 62 2b 3d 62  64 2a 32 0d 01 d6 21 e7  |d*2:b+=bd*2...!.|
00000410  20 74 3d 32 20 72 2b 3d  72 64 2f 32 3a 67 2b 3d  | t=2 r+=rd/2:g+=|
00000420  67 64 2f 32 3a 62 2b 3d  62 64 2f 32 0d 01 e0 04  |gd/2:b+=bd/2....|
00000430  0d 01 ea 1a e7 20 72 3e  32 35 35 20 72 3d 32 35  |..... r>255 r=25|
00000440  35 3a 72 64 3d 2d b3 28  38 29 0d 01 f4 1a e7 20  |5:rd=-.(8)..... |
00000450  67 3e 32 35 35 20 67 3d  32 35 35 3a 67 64 3d 2d  |g>255 g=255:gd=-|
00000460  b3 28 38 29 0d 01 fe 1a  e7 20 62 3e 32 35 35 20  |.(8)..... b>255 |
00000470  62 3d 32 35 35 3a 62 64  3d 2d b3 28 38 29 0d 02  |b=255:bd=-.(8)..|
00000480  08 15 e7 20 72 3c 30 20  72 3d 30 3a 72 64 3d b3  |... r<0 r=0:rd=.|
00000490  28 38 29 0d 02 12 15 e7  20 67 3c 30 20 67 3d 30  |(8)..... g<0 g=0|
000004a0  3a 67 64 3d b3 28 38 29  0d 02 1c 15 e7 20 62 3c  |:gd=.(8)..... b<|
000004b0  30 20 62 3d 30 3a 62 64  3d b3 28 38 29 0d 02 26  |0 b=0:bd=.(8)..&|
000004c0  16 e7 20 b3 28 31 30 30  29 3d 31 20 72 64 3d a4  |.. .(100)=1 rd=.|
000004d0  6e 75 6d 0d 02 30 16 e7  20 b3 28 31 30 30 29 3d  |num..0.. .(100)=|
000004e0  31 20 67 64 3d a4 6e 75  6d 0d 02 3a 16 e7 20 b3  |1 gd=.num..:.. .|
000004f0  28 31 30 30 29 3d 31 20  62 64 3d a4 6e 75 6d 0d  |(100)=1 bd=.num.|
00000500  02 44 27 63 6f 6c 28 31  35 2c 31 29 3d 72 3a 63  |.D'col(15,1)=r:c|
00000510  6f 6c 28 31 35 2c 32 29  3d 67 3a 63 6f 6c 28 31  |ol(15,2)=g:col(1|
00000520  35 2c 33 29 3d 62 0d 02  4e 0e e3 20 49 3d 30 20  |5,3)=b..N.. I=0 |
00000530  b8 20 31 34 0d 02 58 0d  e3 20 43 3d 31 20 b8 20  |. 14..X.. C=1 . |
00000540  33 0d 02 62 17 63 6f 6c  28 49 2c 43 29 3d 63 6f  |3..b.col(I,C)=co|
00000550  6c 28 49 2b 31 2c 43 29  0d 02 6c 05 ed 0d 02 76  |l(I+1,C)..l....v|
00000560  05 ed 0d 02 80 0e e3 20  49 3d 30 20 b8 20 31 35  |....... I=0 . 15|
00000570  0d 02 8a 22 fb 20 49 2c  63 6f 6c 28 49 2c 31 29  |...". I,col(I,1)|
00000580  2c 63 6f 6c 28 49 2c 32  29 2c 63 6f 6c 28 49 2c  |,col(I,2),col(I,|
00000590  33 29 0d 02 94 05 ed 0d  02 9e 09 c8 96 3a c8 96  |3)...........:..|
000005a0  0d 02 a8 0c e7 20 a6 2d  31 20 c8 96 0d 02 b2 06  |..... .-1 ......|
000005b0  fd 30 0d 02 bc 05 3a 0d  02 c6 05 e0 0d 02 d0 05  |.0....:.........|
000005c0  3a 0d 02 da 09 dd a4 6e  75 6d 0d 02 e4 1b e7 20  |:......num..... |
000005d0  b3 28 32 29 3d 31 20 3d  b3 28 38 29 20 8b 20 3d  |.(2)=1 =.(8) . =|
000005e0  2d b3 28 38 29 0d 02 ee  05 3a 0d 02 f8 2f dd f2  |-.(8)....:.../..|
000005f0  62 6c 65 6e 64 56 28 72  31 2c 67 31 2c 62 31 2c  |blendV(r1,g1,b1,|
00000600  72 32 2c 67 32 2c 62 32  2c 6e 75 6d 2c 62 78 2c  |r2,g2,b2,num,bx,|
00000610  62 79 2c 74 78 2c 74 79  29 0d 03 02 28 ea 20 73  |by,tx,ty)...(. s|
00000620  74 65 70 2c 72 73 74 65  70 2c 67 73 74 65 70 2c  |tep,rstep,gstep,|
00000630  62 73 74 65 70 2c 69 2c  73 65 74 5f 67 63 6f 6c  |bstep,i,set_gcol|
00000640  25 0d 03 0c 42 c8 99 20  22 4f 53 5f 53 57 49 4e  |%...B.. "OS_SWIN|
00000650  75 6d 62 65 72 46 72 6f  6d 53 74 72 69 6e 67 22  |umberFromString"|
00000660  2c 2c 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |,,"ColourTrans_S|
00000670  65 74 47 43 4f 4c 22 20  b8 20 73 65 74 5f 67 63  |etGCOL" . set_gc|
00000680  6f 6c 25 0d 03 16 14 73  74 65 70 3d 28 74 79 2d  |ol%....step=(ty-|
00000690  62 79 29 2f 6e 75 6d 0d  03 20 15 72 73 74 65 70  |by)/num.. .rstep|
000006a0  3d 28 72 31 2d 72 32 29  2f 6e 75 6d 0d 03 2a 15  |=(r1-r2)/num..*.|
000006b0  67 73 74 65 70 3d 28 67  31 2d 67 32 29 2f 6e 75  |gstep=(g1-g2)/nu|
000006c0  6d 0d 03 34 15 62 73 74  65 70 3d 28 62 31 2d 62  |m..4.bstep=(b1-b|
000006d0  32 29 2f 6e 75 6d 0d 03  3e 0f e3 20 69 3d 30 20  |2)/num..>.. i=0 |
000006e0  b8 20 6e 75 6d 0d 03 48  12 72 3d 28 72 73 74 65  |. num..H.r=(rste|
000006f0  70 2a 69 29 2b 72 32 0d  03 52 12 67 3d 28 67 73  |p*i)+r2..R.g=(gs|
00000700  74 65 70 2a 69 29 2b 67  32 0d 03 5c 12 62 3d 28  |tep*i)+g2..\.b=(|
00000710  62 73 74 65 70 2a 69 29  2b 62 32 0d 03 66 30 c8  |bstep*i)+b2..f0.|
00000720  99 20 73 65 74 5f 67 63  6f 6c 25 2c 28 72 3c 3c  |. set_gcol%,(r<<|
00000730  38 29 2b 28 67 3c 3c 31  36 29 2b 28 62 3c 3c 32  |8)+(g<<16)+(b<<2|
00000740  34 29 2c 2c 2c 26 31 30  30 2c 30 0d 03 70 23 c8  |4),,,&100,0..p#.|
00000750  93 20 c8 90 20 62 78 2c  28 69 2a 73 74 65 70 29  |. .. bx,(i*step)|
00000760  2b 62 79 2c 74 78 2d 62  78 2c 73 74 65 70 0d 03  |+by,tx-bx,step..|
00000770  7a 05 ed 0d 03 84 05 e1  0d 03 8e 05 3a 0d 03 98  |z...........:...|
00000780  2f dd f2 62 6c 65 6e 64  48 28 72 31 2c 67 31 2c  |/..blendH(r1,g1,|
00000790  62 31 2c 72 32 2c 67 32  2c 62 32 2c 6e 75 6d 2c  |b1,r2,g2,b2,num,|
000007a0  62 78 2c 62 79 2c 74 78  2c 74 79 29 0d 03 a2 28  |bx,by,tx,ty)...(|
000007b0  ea 20 73 74 65 70 2c 72  73 74 65 70 2c 67 73 74  |. step,rstep,gst|
000007c0  65 70 2c 62 73 74 65 70  2c 69 2c 73 65 74 5f 67  |ep,bstep,i,set_g|
000007d0  63 6f 6c 25 0d 03 ac 42  c8 99 20 22 4f 53 5f 53  |col%...B.. "OS_S|
000007e0  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
000007f0  6e 67 22 2c 2c 22 43 6f  6c 6f 75 72 54 72 61 6e  |ng",,"ColourTran|
00000800  73 5f 53 65 74 47 43 4f  4c 22 20 b8 20 73 65 74  |s_SetGCOL" . set|
00000810  5f 67 63 6f 6c 25 0d 03  b6 14 73 74 65 70 3d 28  |_gcol%....step=(|
00000820  74 78 2d 62 78 29 2f 6e  75 6d 0d 03 c0 15 72 73  |tx-bx)/num....rs|
00000830  74 65 70 3d 28 72 31 2d  72 32 29 2f 6e 75 6d 0d  |tep=(r1-r2)/num.|
00000840  03 ca 15 67 73 74 65 70  3d 28 67 31 2d 67 32 29  |...gstep=(g1-g2)|
00000850  2f 6e 75 6d 0d 03 d4 15  62 73 74 65 70 3d 28 62  |/num....bstep=(b|
00000860  31 2d 62 32 29 2f 6e 75  6d 0d 03 de 0f e3 20 69  |1-b2)/num..... i|
00000870  3d 30 20 b8 20 6e 75 6d  0d 03 e8 12 72 3d 28 72  |=0 . num....r=(r|
00000880  73 74 65 70 2a 69 29 2b  72 32 0d 03 f2 12 67 3d  |step*i)+r2....g=|
00000890  28 67 73 74 65 70 2a 69  29 2b 67 32 0d 03 fc 12  |(gstep*i)+g2....|
000008a0  62 3d 28 62 73 74 65 70  2a 69 29 2b 62 32 0d 04  |b=(bstep*i)+b2..|
000008b0  06 30 c8 99 20 73 65 74  5f 67 63 6f 6c 25 2c 28  |.0.. set_gcol%,(|
000008c0  72 3c 3c 38 29 2b 28 67  3c 3c 31 36 29 2b 28 62  |r<<8)+(g<<16)+(b|
000008d0  3c 3c 32 34 29 2c 2c 2c  26 31 30 30 2c 30 0d 04  |<<24),,,&100,0..|
000008e0  10 23 c8 93 20 c8 90 20  28 69 2a 73 74 65 70 29  |.#.. .. (i*step)|
000008f0  2b 62 78 2c 62 79 2c 73  74 65 70 2c 74 79 2d 62  |+bx,by,step,ty-b|
00000900  79 0d 04 1a 05 ed 0d 04  24 05 e1 0d ff           |y.......$....|
0000090d