�     >ColTri
� by  Jan Vibe
� (Risc PC Version)

� (c) AU May 1995

�mode("X640 Y480 C32K"):�
23�CT(0,0,640,960,1280,0,&0000FF,&00FF00,&FF0000)
<�
F
P-��CT(SX1,SY1,SX2,SY2,SX3,SY3,C1%,C2%,C3%)
Z.� R1%,R2%,R3%,G1%,G2%,G3%,B1%,B2%,B3%,ML,K
d8R1%=C1%�&FF:G1%=(C1%�&FF00)>>8:B1%=(C1%�&FF0000)>>16
n8R2%=C2%�&FF:G2%=(C2%�&FF00)>>8:B2%=(C2%�&FF0000)>>16
x8R3%=C3%�&FF:G3%=(C3%�&FF00)>>8:B3%=(C3%�&FF0000)>>16
�!ML=�((SX1-SX2)^2+(SY1-SY2)^2)
�,K=�((SX2-SX3)^2+(SY2-SY3)^2):� K>ML ML=K
�,K=�((SX3-SX1)^2+(SY3-SY1)^2):� K>ML ML=K
��T(SX1,SY1,SX2,SY2,SX3,SY3)
��
�
���T(X1,Y1,X2,Y2,X3,Y3)
�� XA,YA,XB,YB,XC,YC,A
�.A=�(X1*Y2+Y1*X3+Y3*X2-Y2*X3-Y1*X2-X1*Y3)/2
�
� A>100 �
�*XA=(X1+X2)/2:XB=(X2+X3)/2:XC=(X3+X1)/2
�*YA=(Y1+Y2)/2:YB=(Y2+Y3)/2:YC=(Y3+Y1)/2
�/�T(X1,Y1,XA,YA,XC,YC):�T(XA,YA,X2,Y2,XB,YB)

/�T(XC,YC,XB,YB,X3,Y3):�T(XA,YA,XB,YB,XC,YC)

�

�COL(X1,Y1,X2,Y2,X3,Y3)

"�

,�

6

@��COL(X1,Y1,X2,Y2,X3,Y3)

J� D1,D2,D3,DT,R,G,B

T#CX=(X1+X2+X3)/3:CY=(Y1+Y2+Y3)/3

^D1=�((SX1-X1)^2+(SY1-Y1)^2)

hD2=�((SX2-X2)^2+(SY2-Y2)^2)

rD3=�((SX3-X3)^2+(SY3-Y3)^2)

|*D1=1-(D1/ML):D2=1-(D2/ML):D3=1-(D3/ML)

� R=(D1*R1%+D2*R2%+D3*R3%)/256

� G=(D1*G1%+D2*G2%+D3*G3%)/256

� B=(D1*B1%+D2*B2%+D3*B3%)/256

�� R*&FF,G*&FF,B*&FF

��X1,Y1:�X2,Y2:�85,X3,Y3

��

�:
� �mode(mode$)
� c$,ex,ey,mode,end

� mode 64
&end=mode+20
0!mode=1
:mode!4=��_m(mode$,"X","")
Dmode!8=��_m(mode$,"Y","")
Nc$=�_m(mode$,"C","*")
X� c$="*" �
b c$=�_m(mode$,"G","")
l' � c$="256" !end=3:end!4=255:end+=8
v�
�mode!12=�_bpp(c$)
� mode!16=��_m(mode$,"F","-1")
�ex=��_m(mode$,"EX","-1")
�#� ex<>-1 !end=4:end!4=ex:end+=8
�ey=��_m(mode$,"EY","-1")
�#� ey<>-1 !end=5:end!4=ey:end+=8
�!end=-1
�
� mode
��
�
�� �_m(s$,p$,d$)
�	� i,j
�
i=�s$,p$)
%� i<1 � d$="" � 490,"Missing "+p$
� i<1 � =d$
j=�s$+" "," ",i+1)
 =�s$,i+1,j-i-1)
*
4� �_bpp(n$)
>Ȏ n$ �
H
 � "2":=0
R
 � "4":=1
\ � "16":=2
f � "256":=3
p! � "32T","32t","32K","32k":=4
z � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�
�

00000000  0d 00 0a 11 f4 20 20 20  20 20 3e 43 6f 6c 54 72  |.....     >ColTr|
00000010  69 0d 00 0b 12 f4 20 62  79 20 20 4a 61 6e 20 56  |i..... by  Jan V|
00000020  69 62 65 0d 00 0c 17 f4  20 28 52 69 73 63 20 50  |ibe..... (Risc P|
00000030  43 20 56 65 72 73 69 6f  6e 29 0d 00 0d 15 f4 20  |C Version)..... |
00000040  28 63 29 20 41 55 20 4d  61 79 20 31 39 39 35 0d  |(c) AU May 1995.|
00000050  00 14 04 0d 00 1e 1d f2  6d 6f 64 65 28 22 58 36  |........mode("X6|
00000060  34 30 20 59 34 38 30 20  43 33 32 4b 22 29 3a 87  |40 Y480 C32K"):.|
00000070  0d 00 32 33 f2 43 54 28  30 2c 30 2c 36 34 30 2c  |..23.CT(0,0,640,|
00000080  39 36 30 2c 31 32 38 30  2c 30 2c 26 30 30 30 30  |960,1280,0,&0000|
00000090  46 46 2c 26 30 30 46 46  30 30 2c 26 46 46 30 30  |FF,&00FF00,&FF00|
000000a0  30 30 29 0d 00 3c 05 e0  0d 00 46 04 0d 00 50 2d  |00)..<....F...P-|
000000b0  dd f2 43 54 28 53 58 31  2c 53 59 31 2c 53 58 32  |..CT(SX1,SY1,SX2|
000000c0  2c 53 59 32 2c 53 58 33  2c 53 59 33 2c 43 31 25  |,SY2,SX3,SY3,C1%|
000000d0  2c 43 32 25 2c 43 33 25  29 0d 00 5a 2e ea 20 52  |,C2%,C3%)..Z.. R|
000000e0  31 25 2c 52 32 25 2c 52  33 25 2c 47 31 25 2c 47  |1%,R2%,R3%,G1%,G|
000000f0  32 25 2c 47 33 25 2c 42  31 25 2c 42 32 25 2c 42  |2%,G3%,B1%,B2%,B|
00000100  33 25 2c 4d 4c 2c 4b 0d  00 64 38 52 31 25 3d 43  |3%,ML,K..d8R1%=C|
00000110  31 25 80 26 46 46 3a 47  31 25 3d 28 43 31 25 80  |1%.&FF:G1%=(C1%.|
00000120  26 46 46 30 30 29 3e 3e  38 3a 42 31 25 3d 28 43  |&FF00)>>8:B1%=(C|
00000130  31 25 80 26 46 46 30 30  30 30 29 3e 3e 31 36 0d  |1%.&FF0000)>>16.|
00000140  00 6e 38 52 32 25 3d 43  32 25 80 26 46 46 3a 47  |.n8R2%=C2%.&FF:G|
00000150  32 25 3d 28 43 32 25 80  26 46 46 30 30 29 3e 3e  |2%=(C2%.&FF00)>>|
00000160  38 3a 42 32 25 3d 28 43  32 25 80 26 46 46 30 30  |8:B2%=(C2%.&FF00|
00000170  30 30 29 3e 3e 31 36 0d  00 78 38 52 33 25 3d 43  |00)>>16..x8R3%=C|
00000180  33 25 80 26 46 46 3a 47  33 25 3d 28 43 33 25 80  |3%.&FF:G3%=(C3%.|
00000190  26 46 46 30 30 29 3e 3e  38 3a 42 33 25 3d 28 43  |&FF00)>>8:B3%=(C|
000001a0  33 25 80 26 46 46 30 30  30 30 29 3e 3e 31 36 0d  |3%.&FF0000)>>16.|
000001b0  00 82 21 4d 4c 3d b6 28  28 53 58 31 2d 53 58 32  |..!ML=.((SX1-SX2|
000001c0  29 5e 32 2b 28 53 59 31  2d 53 59 32 29 5e 32 29  |)^2+(SY1-SY2)^2)|
000001d0  0d 00 8c 2c 4b 3d b6 28  28 53 58 32 2d 53 58 33  |...,K=.((SX2-SX3|
000001e0  29 5e 32 2b 28 53 59 32  2d 53 59 33 29 5e 32 29  |)^2+(SY2-SY3)^2)|
000001f0  3a e7 20 4b 3e 4d 4c 20  4d 4c 3d 4b 0d 00 96 2c  |:. K>ML ML=K...,|
00000200  4b 3d b6 28 28 53 58 33  2d 53 58 31 29 5e 32 2b  |K=.((SX3-SX1)^2+|
00000210  28 53 59 33 2d 53 59 31  29 5e 32 29 3a e7 20 4b  |(SY3-SY1)^2):. K|
00000220  3e 4d 4c 20 4d 4c 3d 4b  0d 00 a0 1f f2 54 28 53  |>ML ML=K.....T(S|
00000230  58 31 2c 53 59 31 2c 53  58 32 2c 53 59 32 2c 53  |X1,SY1,SX2,SY2,S|
00000240  58 33 2c 53 59 33 29 0d  00 aa 05 e1 0d 00 b4 04  |X3,SY3).........|
00000250  0d 00 be 1a dd f2 54 28  58 31 2c 59 31 2c 58 32  |......T(X1,Y1,X2|
00000260  2c 59 32 2c 58 33 2c 59  33 29 0d 00 c8 19 ea 20  |,Y2,X3,Y3)..... |
00000270  58 41 2c 59 41 2c 58 42  2c 59 42 2c 58 43 2c 59  |XA,YA,XB,YB,XC,Y|
00000280  43 2c 41 0d 00 d2 2e 41  3d 94 28 58 31 2a 59 32  |C,A....A=.(X1*Y2|
00000290  2b 59 31 2a 58 33 2b 59  33 2a 58 32 2d 59 32 2a  |+Y1*X3+Y3*X2-Y2*|
000002a0  58 33 2d 59 31 2a 58 32  2d 58 31 2a 59 33 29 2f  |X3-Y1*X2-X1*Y3)/|
000002b0  32 0d 00 dc 0d e7 20 41  3e 31 30 30 20 8c 0d 00  |2..... A>100 ...|
000002c0  e6 2a 58 41 3d 28 58 31  2b 58 32 29 2f 32 3a 58  |.*XA=(X1+X2)/2:X|
000002d0  42 3d 28 58 32 2b 58 33  29 2f 32 3a 58 43 3d 28  |B=(X2+X3)/2:XC=(|
000002e0  58 33 2b 58 31 29 2f 32  0d 00 f0 2a 59 41 3d 28  |X3+X1)/2...*YA=(|
000002f0  59 31 2b 59 32 29 2f 32  3a 59 42 3d 28 59 32 2b  |Y1+Y2)/2:YB=(Y2+|
00000300  59 33 29 2f 32 3a 59 43  3d 28 59 33 2b 59 31 29  |Y3)/2:YC=(Y3+Y1)|
00000310  2f 32 0d 00 fa 2f f2 54  28 58 31 2c 59 31 2c 58  |/2.../.T(X1,Y1,X|
00000320  41 2c 59 41 2c 58 43 2c  59 43 29 3a f2 54 28 58  |A,YA,XC,YC):.T(X|
00000330  41 2c 59 41 2c 58 32 2c  59 32 2c 58 42 2c 59 42  |A,YA,X2,Y2,XB,YB|
00000340  29 0d 01 04 2f f2 54 28  58 43 2c 59 43 2c 58 42  |).../.T(XC,YC,XB|
00000350  2c 59 42 2c 58 33 2c 59  33 29 3a f2 54 28 58 41  |,YB,X3,Y3):.T(XA|
00000360  2c 59 41 2c 58 42 2c 59  42 2c 58 43 2c 59 43 29  |,YA,XB,YB,XC,YC)|
00000370  0d 01 0e 05 cc 0d 01 18  1b f2 43 4f 4c 28 58 31  |..........COL(X1|
00000380  2c 59 31 2c 58 32 2c 59  32 2c 58 33 2c 59 33 29  |,Y1,X2,Y2,X3,Y3)|
00000390  0d 01 22 05 cd 0d 01 2c  05 e1 0d 01 36 04 0d 01  |.."....,....6...|
000003a0  40 1c dd f2 43 4f 4c 28  58 31 2c 59 31 2c 58 32  |@...COL(X1,Y1,X2|
000003b0  2c 59 32 2c 58 33 2c 59  33 29 0d 01 4a 17 ea 20  |,Y2,X3,Y3)..J.. |
000003c0  44 31 2c 44 32 2c 44 33  2c 44 54 2c 52 2c 47 2c  |D1,D2,D3,DT,R,G,|
000003d0  42 0d 01 54 23 43 58 3d  28 58 31 2b 58 32 2b 58  |B..T#CX=(X1+X2+X|
000003e0  33 29 2f 33 3a 43 59 3d  28 59 31 2b 59 32 2b 59  |3)/3:CY=(Y1+Y2+Y|
000003f0  33 29 2f 33 0d 01 5e 1f  44 31 3d b6 28 28 53 58  |3)/3..^.D1=.((SX|
00000400  31 2d 58 31 29 5e 32 2b  28 53 59 31 2d 59 31 29  |1-X1)^2+(SY1-Y1)|
00000410  5e 32 29 0d 01 68 1f 44  32 3d b6 28 28 53 58 32  |^2)..h.D2=.((SX2|
00000420  2d 58 32 29 5e 32 2b 28  53 59 32 2d 59 32 29 5e  |-X2)^2+(SY2-Y2)^|
00000430  32 29 0d 01 72 1f 44 33  3d b6 28 28 53 58 33 2d  |2)..r.D3=.((SX3-|
00000440  58 33 29 5e 32 2b 28 53  59 33 2d 59 33 29 5e 32  |X3)^2+(SY3-Y3)^2|
00000450  29 0d 01 7c 2a 44 31 3d  31 2d 28 44 31 2f 4d 4c  |)..|*D1=1-(D1/ML|
00000460  29 3a 44 32 3d 31 2d 28  44 32 2f 4d 4c 29 3a 44  |):D2=1-(D2/ML):D|
00000470  33 3d 31 2d 28 44 33 2f  4d 4c 29 0d 01 86 20 52  |3=1-(D3/ML)... R|
00000480  3d 28 44 31 2a 52 31 25  2b 44 32 2a 52 32 25 2b  |=(D1*R1%+D2*R2%+|
00000490  44 33 2a 52 33 25 29 2f  32 35 36 0d 01 90 20 47  |D3*R3%)/256... G|
000004a0  3d 28 44 31 2a 47 31 25  2b 44 32 2a 47 32 25 2b  |=(D1*G1%+D2*G2%+|
000004b0  44 33 2a 47 33 25 29 2f  32 35 36 0d 01 9a 20 42  |D3*G3%)/256... B|
000004c0  3d 28 44 31 2a 42 31 25  2b 44 32 2a 42 32 25 2b  |=(D1*B1%+D2*B2%+|
000004d0  44 33 2a 42 33 25 29 2f  32 35 36 0d 01 9b 17 e6  |D3*B3%)/256.....|
000004e0  20 52 2a 26 46 46 2c 47  2a 26 46 46 2c 42 2a 26  | R*&FF,G*&FF,B*&|
000004f0  46 46 0d 01 ae 1b ec 58  31 2c 59 31 3a ec 58 32  |FF.....X1,Y1:.X2|
00000500  2c 59 32 3a f0 38 35 2c  58 33 2c 59 33 0d 01 b8  |,Y2:.85,X3,Y3...|
00000510  05 e1 0d 01 fe 05 3a 0d  02 08 12 dd 20 f2 6d 6f  |......:..... .mo|
00000520  64 65 28 6d 6f 64 65 24  29 0d 02 12 17 ea 20 63  |de(mode$)..... c|
00000530  24 2c 65 78 2c 65 79 2c  6d 6f 64 65 2c 65 6e 64  |$,ex,ey,mode,end|
00000540  0d 02 1c 0d de 20 6d 6f  64 65 20 36 34 0d 02 26  |..... mode 64..&|
00000550  0f 65 6e 64 3d 6d 6f 64  65 2b 32 30 0d 02 30 0b  |.end=mode+20..0.|
00000560  21 6d 6f 64 65 3d 31 0d  02 3a 1d 6d 6f 64 65 21  |!mode=1..:.mode!|
00000570  34 3d bb a4 5f 6d 28 6d  6f 64 65 24 2c 22 58 22  |4=.._m(mode$,"X"|
00000580  2c 22 22 29 0d 02 44 1d  6d 6f 64 65 21 38 3d bb  |,"")..D.mode!8=.|
00000590  a4 5f 6d 28 6d 6f 64 65  24 2c 22 59 22 2c 22 22  |._m(mode$,"Y",""|
000005a0  29 0d 02 4e 19 63 24 3d  a4 5f 6d 28 6d 6f 64 65  |)..N.c$=._m(mode|
000005b0  24 2c 22 43 22 2c 22 2a  22 29 0d 02 58 0e e7 20  |$,"C","*")..X.. |
000005c0  63 24 3d 22 2a 22 20 8c  0d 02 62 19 20 63 24 3d  |c$="*" ...b. c$=|
000005d0  a4 5f 6d 28 6d 6f 64 65  24 2c 22 47 22 2c 22 22  |._m(mode$,"G",""|
000005e0  29 0d 02 6c 27 20 e7 20  63 24 3d 22 32 35 36 22  |)..l' . c$="256"|
000005f0  20 21 65 6e 64 3d 33 3a  65 6e 64 21 34 3d 32 35  | !end=3:end!4=25|
00000600  35 3a 65 6e 64 2b 3d 38  0d 02 76 05 cd 0d 02 80  |5:end+=8..v.....|
00000610  15 6d 6f 64 65 21 31 32  3d a4 5f 62 70 70 28 63  |.mode!12=._bpp(c|
00000620  24 29 0d 02 8a 20 6d 6f  64 65 21 31 36 3d bb a4  |$)... mode!16=..|
00000630  5f 6d 28 6d 6f 64 65 24  2c 22 46 22 2c 22 2d 31  |_m(mode$,"F","-1|
00000640  22 29 0d 02 94 1c 65 78  3d bb a4 5f 6d 28 6d 6f  |")....ex=.._m(mo|
00000650  64 65 24 2c 22 45 58 22  2c 22 2d 31 22 29 0d 02  |de$,"EX","-1")..|
00000660  9e 23 e7 20 65 78 3c 3e  2d 31 20 21 65 6e 64 3d  |.#. ex<>-1 !end=|
00000670  34 3a 65 6e 64 21 34 3d  65 78 3a 65 6e 64 2b 3d  |4:end!4=ex:end+=|
00000680  38 0d 02 a8 1c 65 79 3d  bb a4 5f 6d 28 6d 6f 64  |8....ey=.._m(mod|
00000690  65 24 2c 22 45 59 22 2c  22 2d 31 22 29 0d 02 b2  |e$,"EY","-1")...|
000006a0  23 e7 20 65 79 3c 3e 2d  31 20 21 65 6e 64 3d 35  |#. ey<>-1 !end=5|
000006b0  3a 65 6e 64 21 34 3d 65  79 3a 65 6e 64 2b 3d 38  |:end!4=ey:end+=8|
000006c0  0d 02 bc 0b 21 65 6e 64  3d 2d 31 0d 02 c6 0a eb  |....!end=-1.....|
000006d0  20 6d 6f 64 65 0d 02 d0  05 e1 0d 02 da 04 0d 02  | mode...........|
000006e0  e4 13 dd 20 a4 5f 6d 28  73 24 2c 70 24 2c 64 24  |... ._m(s$,p$,d$|
000006f0  29 0d 02 ee 09 ea 20 69  2c 6a 0d 02 f8 0d 69 3d  |)..... i,j....i=|
00000700  a7 73 24 2c 70 24 29 0d  03 02 25 e7 20 69 3c 31  |.s$,p$)...%. i<1|
00000710  20 80 20 64 24 3d 22 22  20 85 20 34 39 30 2c 22  | . d$="" . 490,"|
00000720  4d 69 73 73 69 6e 67 20  22 2b 70 24 0d 03 0c 0f  |Missing "+p$....|
00000730  e7 20 69 3c 31 20 8c 20  3d 64 24 0d 03 16 16 6a  |. i<1 . =d$....j|
00000740  3d a7 73 24 2b 22 20 22  2c 22 20 22 2c 69 2b 31  |=.s$+" "," ",i+1|
00000750  29 0d 03 20 13 3d c1 73  24 2c 69 2b 31 2c 6a 2d  |).. .=.s$,i+1,j-|
00000760  69 2d 31 29 0d 03 2a 04  0d 03 34 0f dd 20 a4 5f  |i-1)..*...4.. ._|
00000770  62 70 70 28 6e 24 29 0d  03 3e 0b c8 8e 20 6e 24  |bpp(n$)..>... n$|
00000780  20 ca 0d 03 48 0d 20 c9  20 22 32 22 3a 3d 30 0d  | ...H. . "2":=0.|
00000790  03 52 0d 20 c9 20 22 34  22 3a 3d 31 0d 03 5c 0e  |.R. . "4":=1..\.|
000007a0  20 c9 20 22 31 36 22 3a  3d 32 0d 03 66 0f 20 c9  | . "16":=2..f. .|
000007b0  20 22 32 35 36 22 3a 3d  33 0d 03 70 21 20 c9 20  | "256":=3..p! . |
000007c0  22 33 32 54 22 2c 22 33  32 74 22 2c 22 33 32 4b  |"32T","32t","32K|
000007d0  22 2c 22 33 32 6b 22 3a  3d 34 0d 03 7a 15 20 c9  |","32k":=4..z. .|
000007e0  20 22 31 36 4d 22 2c 22  31 36 6d 22 3a 3d 35 0d  | "16M","16m":=5.|
000007f0  03 84 21 20 7f 3a 20 85  20 34 39 30 2c 22 42 61  |..! .: . 490,"Ba|
00000800  64 20 70 61 72 61 6d 65  74 65 72 20 22 2b 6e 24  |d parameter "+n$|
00000810  0d 03 8e 05 cb 0d 03 98  04 0d ff                 |...........|
0000081b