�     >ColTri
� By  Jan Vibe
'� For 32-bit machines (Risc OS 3.1)
(� (c) BAU October 1993
2:
<� 15
F�
PBș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � set_gcol%
Zlim=256000
dȕ lim>=100
n: �col_tri(0,0,640,1020,1278,0,&0000FF,&00FF00,&FF0000)
x lim=lim/4
� wait=�(100)
��
��
�:
�3� �col_tri(sx1,sy1,sx2,sy2,sx3,sy3,c1%,c2%,c3%)
�.� r1%,r2%,r3%,g1%,g2%,g3%,b1%,b2%,b3%,ml,k
�r1%=(c1% � &FF)
�g1%=(c1% � &FF00)>>8
�b1%=(c1% � &FF0000)>>16
�r2%=(c2% � &FF)
�g2%=(c2% � &FF00)>>8
�b2%=(c2% � &FF0000)>>16
�r3%=(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

6 k=�((sx3-sx1)^2+(sy3-sy1)^2)

@� k>ml ml=k

J!�tri(sx1,sy1,sx2,sy2,sx3,sy3)

T�

^:

h� �tri(x1,y1,x2,y2,x3,y3)

r� xa,ya,xb,yb,xc,yc,a

|.a=�(x1*y2+y1*x3+y3*x2-y2*x3-y1*x2-x1*y3)/2

�
� a>lim �

� xa=(x1+x2)/2

� xb=(x2+x3)/2

� xc=(x3+x1)/2

� ya=(y1+y2)/2

� yb=(y2+y3)/2

� yc=(y3+y1)/2

� �tri(x1,y1,xa,ya,xc,yc)

� �tri(xa,ya,x2,y2,xb,yb)

� �tri(xc,yc,xb,yb,x3,y3)

� �tri(xa,ya,xb,yb,xc,yc)

��

� �col(x1,y1,x2,y2,x3,y3)
�
�
:
&� �col(x1,y1,x2,y2,x3,y3)
0� d1,d2,d3,dt,r,g,b
:cx=(x1+x2+x3)/3
Dcy=(y1+y2+y3)/3
Nd1=�((sx1-x1)^2+(sy1-y1)^2)
Xd2=�((sx2-x2)^2+(sy2-y2)^2)
bd3=�((sx3-x3)^2+(sy3-y3)^2)
ld1=1-(d1/ml)
vd2=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
�Bș set_gcol%,((r*&FF)<<8)+((g*&FF)<<16)+((b*&FF)<<24),,,&100,0
�� x1,y1
�� x2,y2
�� 85,x3,y3
��
�

00000000  0d 00 0a 11 f4 20 20 20  20 20 3e 43 6f 6c 54 72  |.....     >ColTr|
00000010  69 0d 00 14 12 f4 20 42  79 20 20 4a 61 6e 20 56  |i..... By  Jan V|
00000020  69 62 65 0d 00 1e 27 f4  20 46 6f 72 20 33 32 2d  |ibe...'. For 32-|
00000030  62 69 74 20 6d 61 63 68  69 6e 65 73 20 28 52 69  |bit machines (Ri|
00000040  73 63 20 4f 53 20 33 2e  31 29 0d 00 28 1a f4 20  |sc OS 3.1)..(.. |
00000050  28 63 29 20 42 41 55 20  4f 63 74 6f 62 65 72 20  |(c) BAU October |
00000060  31 39 39 33 0d 00 32 05  3a 0d 00 3c 08 eb 20 31  |1993..2.:..<.. 1|
00000070  35 0d 00 46 05 87 0d 00  50 42 c8 99 20 22 4f 53  |5..F....PB.. "OS|
00000080  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
00000090  72 69 6e 67 22 2c 2c 22  43 6f 6c 6f 75 72 54 72  |ring",,"ColourTr|
000000a0  61 6e 73 5f 53 65 74 47  43 4f 4c 22 20 b8 20 73  |ans_SetGCOL" . s|
000000b0  65 74 5f 67 63 6f 6c 25  0d 00 5a 0e 6c 69 6d 3d  |et_gcol%..Z.lim=|
000000c0  32 35 36 30 30 30 0d 00  64 0f c8 95 20 6c 69 6d  |256000..d... lim|
000000d0  3e 3d 31 30 30 0d 00 6e  3a 20 f2 63 6f 6c 5f 74  |>=100..n: .col_t|
000000e0  72 69 28 30 2c 30 2c 36  34 30 2c 31 30 32 30 2c  |ri(0,0,640,1020,|
000000f0  31 32 37 38 2c 30 2c 26  30 30 30 30 46 46 2c 26  |1278,0,&0000FF,&|
00000100  30 30 46 46 30 30 2c 26  46 46 30 30 30 30 29 0d  |00FF00,&FF0000).|
00000110  00 78 0e 20 6c 69 6d 3d  6c 69 6d 2f 34 0d 00 82  |.x. lim=lim/4...|
00000120  10 20 77 61 69 74 3d a6  28 31 30 30 29 0d 00 8c  |. wait=.(100)...|
00000130  05 ce 0d 00 96 05 e0 0d  00 a0 05 3a 0d 00 aa 33  |...........:...3|
00000140  dd 20 f2 63 6f 6c 5f 74  72 69 28 73 78 31 2c 73  |. .col_tri(sx1,s|
00000150  79 31 2c 73 78 32 2c 73  79 32 2c 73 78 33 2c 73  |y1,sx2,sy2,sx3,s|
00000160  79 33 2c 63 31 25 2c 63  32 25 2c 63 33 25 29 0d  |y3,c1%,c2%,c3%).|
00000170  00 b4 2e ea 20 72 31 25  2c 72 32 25 2c 72 33 25  |.... r1%,r2%,r3%|
00000180  2c 67 31 25 2c 67 32 25  2c 67 33 25 2c 62 31 25  |,g1%,g2%,g3%,b1%|
00000190  2c 62 32 25 2c 62 33 25  2c 6d 6c 2c 6b 0d 00 be  |,b2%,b3%,ml,k...|
000001a0  13 72 31 25 3d 28 63 31  25 20 80 20 26 46 46 29  |.r1%=(c1% . &FF)|
000001b0  0d 00 c8 18 67 31 25 3d  28 63 31 25 20 80 20 26  |....g1%=(c1% . &|
000001c0  46 46 30 30 29 3e 3e 38  0d 00 d2 1b 62 31 25 3d  |FF00)>>8....b1%=|
000001d0  28 63 31 25 20 80 20 26  46 46 30 30 30 30 29 3e  |(c1% . &FF0000)>|
000001e0  3e 31 36 0d 00 dc 13 72  32 25 3d 28 63 32 25 20  |>16....r2%=(c2% |
000001f0  80 20 26 46 46 29 0d 00  e6 18 67 32 25 3d 28 63  |. &FF)....g2%=(c|
00000200  32 25 20 80 20 26 46 46  30 30 29 3e 3e 38 0d 00  |2% . &FF00)>>8..|
00000210  f0 1b 62 32 25 3d 28 63  32 25 20 80 20 26 46 46  |..b2%=(c2% . &FF|
00000220  30 30 30 30 29 3e 3e 31  36 0d 00 fa 13 72 33 25  |0000)>>16....r3%|
00000230  3d 28 63 33 25 20 80 20  26 46 46 29 0d 01 04 18  |=(c3% . &FF)....|
00000240  67 33 25 3d 28 63 33 25  20 80 20 26 46 46 30 30  |g3%=(c3% . &FF00|
00000250  29 3e 3e 38 0d 01 0e 1b  62 33 25 3d 28 63 33 25  |)>>8....b3%=(c3%|
00000260  20 80 20 26 46 46 30 30  30 30 29 3e 3e 31 36 0d  | . &FF0000)>>16.|
00000270  01 18 21 6d 6c 3d b6 28  28 73 78 31 2d 73 78 32  |..!ml=.((sx1-sx2|
00000280  29 5e 32 2b 28 73 79 31  2d 73 79 32 29 5e 32 29  |)^2+(sy1-sy2)^2)|
00000290  0d 01 22 20 6b 3d b6 28  28 73 78 32 2d 73 78 33  |.." k=.((sx2-sx3|
000002a0  29 5e 32 2b 28 73 79 32  2d 73 79 33 29 5e 32 29  |)^2+(sy2-sy3)^2)|
000002b0  0d 01 2c 0f e7 20 6b 3e  6d 6c 20 6d 6c 3d 6b 0d  |..,.. k>ml ml=k.|
000002c0  01 36 20 6b 3d b6 28 28  73 78 33 2d 73 78 31 29  |.6 k=.((sx3-sx1)|
000002d0  5e 32 2b 28 73 79 33 2d  73 79 31 29 5e 32 29 0d  |^2+(sy3-sy1)^2).|
000002e0  01 40 0f e7 20 6b 3e 6d  6c 20 6d 6c 3d 6b 0d 01  |.@.. k>ml ml=k..|
000002f0  4a 21 f2 74 72 69 28 73  78 31 2c 73 79 31 2c 73  |J!.tri(sx1,sy1,s|
00000300  78 32 2c 73 79 32 2c 73  78 33 2c 73 79 33 29 0d  |x2,sy2,sx3,sy3).|
00000310  01 54 05 e1 0d 01 5e 05  3a 0d 01 68 1d dd 20 f2  |.T....^.:..h.. .|
00000320  74 72 69 28 78 31 2c 79  31 2c 78 32 2c 79 32 2c  |tri(x1,y1,x2,y2,|
00000330  78 33 2c 79 33 29 0d 01  72 19 ea 20 78 61 2c 79  |x3,y3)..r.. xa,y|
00000340  61 2c 78 62 2c 79 62 2c  78 63 2c 79 63 2c 61 0d  |a,xb,yb,xc,yc,a.|
00000350  01 7c 2e 61 3d 94 28 78  31 2a 79 32 2b 79 31 2a  |.|.a=.(x1*y2+y1*|
00000360  78 33 2b 79 33 2a 78 32  2d 79 32 2a 78 33 2d 79  |x3+y3*x2-y2*x3-y|
00000370  31 2a 78 32 2d 78 31 2a  79 33 29 2f 32 0d 01 86  |1*x2-x1*y3)/2...|
00000380  0d e7 20 61 3e 6c 69 6d  20 8c 0d 01 90 11 20 78  |.. a>lim ..... x|
00000390  61 3d 28 78 31 2b 78 32  29 2f 32 0d 01 9a 11 20  |a=(x1+x2)/2.... |
000003a0  78 62 3d 28 78 32 2b 78  33 29 2f 32 0d 01 a4 11  |xb=(x2+x3)/2....|
000003b0  20 78 63 3d 28 78 33 2b  78 31 29 2f 32 0d 01 ae  | xc=(x3+x1)/2...|
000003c0  11 20 79 61 3d 28 79 31  2b 79 32 29 2f 32 0d 01  |. ya=(y1+y2)/2..|
000003d0  b8 11 20 79 62 3d 28 79  32 2b 79 33 29 2f 32 0d  |.. yb=(y2+y3)/2.|
000003e0  01 c2 11 20 79 63 3d 28  79 33 2b 79 31 29 2f 32  |... yc=(y3+y1)/2|
000003f0  0d 01 cc 1c 20 f2 74 72  69 28 78 31 2c 79 31 2c  |.... .tri(x1,y1,|
00000400  78 61 2c 79 61 2c 78 63  2c 79 63 29 0d 01 d6 1c  |xa,ya,xc,yc)....|
00000410  20 f2 74 72 69 28 78 61  2c 79 61 2c 78 32 2c 79  | .tri(xa,ya,x2,y|
00000420  32 2c 78 62 2c 79 62 29  0d 01 e0 1c 20 f2 74 72  |2,xb,yb).... .tr|
00000430  69 28 78 63 2c 79 63 2c  78 62 2c 79 62 2c 78 33  |i(xc,yc,xb,yb,x3|
00000440  2c 79 33 29 0d 01 ea 1c  20 f2 74 72 69 28 78 61  |,y3).... .tri(xa|
00000450  2c 79 61 2c 78 62 2c 79  62 2c 78 63 2c 79 63 29  |,ya,xb,yb,xc,yc)|
00000460  0d 01 f4 05 cc 0d 01 fe  1c 20 f2 63 6f 6c 28 78  |......... .col(x|
00000470  31 2c 79 31 2c 78 32 2c  79 32 2c 78 33 2c 79 33  |1,y1,x2,y2,x3,y3|
00000480  29 0d 02 08 05 cd 0d 02  12 05 e1 0d 02 1c 05 3a  |)..............:|
00000490  0d 02 26 1d dd 20 f2 63  6f 6c 28 78 31 2c 79 31  |..&.. .col(x1,y1|
000004a0  2c 78 32 2c 79 32 2c 78  33 2c 79 33 29 0d 02 30  |,x2,y2,x3,y3)..0|
000004b0  17 ea 20 64 31 2c 64 32  2c 64 33 2c 64 74 2c 72  |.. d1,d2,d3,dt,r|
000004c0  2c 67 2c 62 0d 02 3a 13  63 78 3d 28 78 31 2b 78  |,g,b..:.cx=(x1+x|
000004d0  32 2b 78 33 29 2f 33 0d  02 44 13 63 79 3d 28 79  |2+x3)/3..D.cy=(y|
000004e0  31 2b 79 32 2b 79 33 29  2f 33 0d 02 4e 1f 64 31  |1+y2+y3)/3..N.d1|
000004f0  3d b6 28 28 73 78 31 2d  78 31 29 5e 32 2b 28 73  |=.((sx1-x1)^2+(s|
00000500  79 31 2d 79 31 29 5e 32  29 0d 02 58 1f 64 32 3d  |y1-y1)^2)..X.d2=|
00000510  b6 28 28 73 78 32 2d 78  32 29 5e 32 2b 28 73 79  |.((sx2-x2)^2+(sy|
00000520  32 2d 79 32 29 5e 32 29  0d 02 62 1f 64 33 3d b6  |2-y2)^2)..b.d3=.|
00000530  28 28 73 78 33 2d 78 33  29 5e 32 2b 28 73 79 33  |((sx3-x3)^2+(sy3|
00000540  2d 79 33 29 5e 32 29 0d  02 6c 10 64 31 3d 31 2d  |-y3)^2)..l.d1=1-|
00000550  28 64 31 2f 6d 6c 29 0d  02 76 10 64 32 3d 31 2d  |(d1/ml)..v.d2=1-|
00000560  28 64 32 2f 6d 6c 29 0d  02 80 10 64 33 3d 31 2d  |(d2/ml)....d3=1-|
00000570  28 64 33 2f 6d 6c 29 0d  02 8a 20 72 3d 28 64 31  |(d3/ml)... r=(d1|
00000580  2a 72 31 25 2b 64 32 2a  72 32 25 2b 64 33 2a 72  |*r1%+d2*r2%+d3*r|
00000590  33 25 29 2f 32 35 36 0d  02 94 20 67 3d 28 64 31  |3%)/256... g=(d1|
000005a0  2a 67 31 25 2b 64 32 2a  67 32 25 2b 64 33 2a 67  |*g1%+d2*g2%+d3*g|
000005b0  33 25 29 2f 32 35 36 0d  02 9e 20 62 3d 28 64 31  |3%)/256... b=(d1|
000005c0  2a 62 31 25 2b 64 32 2a  62 32 25 2b 64 33 2a 62  |*b1%+d2*b2%+d3*b|
000005d0  33 25 29 2f 32 35 36 0d  02 a8 42 c8 99 20 73 65  |3%)/256...B.. se|
000005e0  74 5f 67 63 6f 6c 25 2c  28 28 72 2a 26 46 46 29  |t_gcol%,((r*&FF)|
000005f0  3c 3c 38 29 2b 28 28 67  2a 26 46 46 29 3c 3c 31  |<<8)+((g*&FF)<<1|
00000600  36 29 2b 28 28 62 2a 26  46 46 29 3c 3c 32 34 29  |6)+((b*&FF)<<24)|
00000610  2c 2c 2c 26 31 30 30 2c  30 0d 02 b2 0b ec 20 78  |,,,&100,0..... x|
00000620  31 2c 79 31 0d 02 bc 0b  ec 20 78 32 2c 79 32 0d  |1,y1..... x2,y2.|
00000630  02 c6 0e f0 20 38 35 2c  78 33 2c 79 33 0d 02 d0  |.... 85,x3,y3...|
00000640  05 e1 0d ff                                       |....|
00000644