� > WibbleLine
� >
� > By Mark Adcock
(�
2� VARIABLES
<� --------
F:
P
FADE=0
ZR� SET FADE TO 1 TO HAVE A FADE EFFECT ON THE LINE, OR HIGHER FOR A '3D' EFFECT
d:
nNUM_OF_LINES=20
x]� SET NUM_OF_LINES TO THE NUMBER OF LINES IN THE FADE (INCLUDING THE ORIGINAL WHITE LINE)
�:
�N=50
�$� NUMBER OF SEGMENTS IN THE LINE
�:
�� LINE CONSTANTS
�W1=4
�+� HIGH W1 = RETURN TO ORIGINAL POSITION
�	W2=10
�+� LOW W2 = GET PULLED TO NEIGBOURS MORE
�:
�=ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � gcol
�	� 9:�

'� C = 1 � 15:� C,C*17,C*17,C*17:� C

� � �:�:�



"H=�(1280/N)

,� G(N),GP(N)

6� O(NUM_OF_LINES,N)

@ȑ 0,512

JB=1

TLOCKED=0

^ȗ �

h:

r�

|:

�ȗ MX,MY,MB

�� MB=4 � LOCKED=�(MX/H)

�V� MB=2 � LOCKED>0 � LOCKED<=N � LOCKED=�(MX/H):O(1,LOCKED)=0:GP(LOCKED)=0:LOCKED=0

�+� MB=1 � � L=1 � N:O(1,L)=0:GP(L)=0:� L

�.� MB=0 � LOCKED<=1 � LOCKED>N-2 � LOCKED=0

�� LOCKED O(1,LOCKED)=MY

�:

�O(1,1)=0:O(1,N-1)=0

�O(1,2)=0:O(1,N-1)=0

�� FADE �

�FADD=0:� FADE>1 FADD=FADE

�� O = NUM_OF_LINES � 2 � -1

�� L = 1 � N

�O(O,L)=O(O-1,L)+FADD
� L
� O
�
&:
0O(1,1)=0:O(1,N-1)=0
:O(1,2)=0:O(1,N-1)=0
D� L = 3 � N-2
N:
X� L<>LOCKED �
b GP(L)-=O(1,L)/W2
l' GP(L)+=(O(1,L+1)+O(1,L-1))/(10*W1)
v O(1,L)+=GP(L)
� O(1,L)=O(1,L)*0.95
��
�:
�� L
�
�ș 6,19
�ș 6,112,B
�ș 6,113,3-B
�	B=3-B
��
�
�� L*H,O(1,N-1)
�:
�� FADE � � O = NUM_OF_LINES � 1�-1:C=255-255*O/NUM_OF_LINES:ș gcol,(C<<8)+(C<<16)+(C<<24):� H,O(O,1):� L = 2 � N-1:� L*H,O(O,L):� L:� O
:
Yș gcol,(255<<8)+(255<<16)+(255<<24),,,&333:� H,O(1,1):� L = 2 � N-1:� L*H,O(1,L):� L
 :
*k=�0-48
4� k=0 FADE=0
>� k=1 FADE=1
H� k>=2 � k<=9 FADE=k*2
\:
f� �
�

00000000  0d 00 0a 12 f4 20 3e 20  57 69 62 62 6c 65 4c 69  |..... > WibbleLi|
00000010  6e 65 0d 00 14 07 f4 20  3e 0d 00 1e 16 f4 20 3e  |ne..... >..... >|
00000020  20 42 79 20 4d 61 72 6b  20 41 64 63 6f 63 6b 0d  | By Mark Adcock.|
00000030  00 28 05 f4 0d 00 32 0f  f4 20 56 41 52 49 41 42  |.(....2.. VARIAB|
00000040  4c 45 53 0d 00 3c 0e f4  20 2d 2d 2d 2d 2d 2d 2d  |LES..<.. -------|
00000050  2d 0d 00 46 05 3a 0d 00  50 0a 46 41 44 45 3d 30  |-..F.:..P.FADE=0|
00000060  0d 00 5a 52 f4 20 53 45  54 20 46 41 44 45 20 54  |..ZR. SET FADE T|
00000070  4f 20 31 20 54 4f 20 48  41 56 45 20 41 20 46 41  |O 1 TO HAVE A FA|
00000080  44 45 20 45 46 46 45 43  54 20 4f 4e 20 54 48 45  |DE EFFECT ON THE|
00000090  20 4c 49 4e 45 2c 20 4f  52 20 48 49 47 48 45 52  | LINE, OR HIGHER|
000000a0  20 46 4f 52 20 41 20 27  33 44 27 20 45 46 46 45  | FOR A '3D' EFFE|
000000b0  43 54 0d 00 64 05 3a 0d  00 6e 13 4e 55 4d 5f 4f  |CT..d.:..n.NUM_O|
000000c0  46 5f 4c 49 4e 45 53 3d  32 30 0d 00 78 5d f4 20  |F_LINES=20..x]. |
000000d0  53 45 54 20 4e 55 4d 5f  4f 46 5f 4c 49 4e 45 53  |SET NUM_OF_LINES|
000000e0  20 54 4f 20 54 48 45 20  4e 55 4d 42 45 52 20 4f  | TO THE NUMBER O|
000000f0  46 20 4c 49 4e 45 53 20  49 4e 20 54 48 45 20 46  |F LINES IN THE F|
00000100  41 44 45 20 28 49 4e 43  4c 55 44 49 4e 47 20 54  |ADE (INCLUDING T|
00000110  48 45 20 4f 52 49 47 49  4e 41 4c 20 57 48 49 54  |HE ORIGINAL WHIT|
00000120  45 20 4c 49 4e 45 29 0d  00 82 05 3a 0d 00 8c 08  |E LINE)....:....|
00000130  4e 3d 35 30 0d 00 96 24  f4 20 4e 55 4d 42 45 52  |N=50...$. NUMBER|
00000140  20 4f 46 20 53 45 47 4d  45 4e 54 53 20 49 4e 20  | OF SEGMENTS IN |
00000150  54 48 45 20 4c 49 4e 45  0d 00 a0 05 3a 0d 00 aa  |THE LINE....:...|
00000160  14 f4 20 4c 49 4e 45 20  43 4f 4e 53 54 41 4e 54  |.. LINE CONSTANT|
00000170  53 0d 00 b4 08 57 31 3d  34 0d 00 be 2b f4 20 48  |S....W1=4...+. H|
00000180  49 47 48 20 57 31 20 3d  20 52 45 54 55 52 4e 20  |IGH W1 = RETURN |
00000190  54 4f 20 4f 52 49 47 49  4e 41 4c 20 50 4f 53 49  |TO ORIGINAL POSI|
000001a0  54 49 4f 4e 0d 00 c8 09  57 32 3d 31 30 0d 00 d2  |TION....W2=10...|
000001b0  2b f4 20 4c 4f 57 20 57  32 20 3d 20 47 45 54 20  |+. LOW W2 = GET |
000001c0  50 55 4c 4c 45 44 20 54  4f 20 4e 45 49 47 42 4f  |PULLED TO NEIGBO|
000001d0  55 52 53 20 4d 4f 52 45  0d 00 dc 05 3a 0d 00 e6  |URS MORE....:...|
000001e0  3d c8 99 20 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |=.. "OS_SWINumbe|
000001f0  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 43  |rFromString",,"C|
00000200  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00000210  4f 4c 22 20 b8 20 67 63  6f 6c 0d 00 fa 09 eb 20  |OL" . gcol..... |
00000220  39 3a 87 0d 01 04 27 e3  20 43 20 3d 20 31 20 b8  |9:....'. C = 1 .|
00000230  20 31 35 3a fb 20 43 2c  43 2a 31 37 2c 43 2a 31  | 15:. C,C*17,C*1|
00000240  37 2c 43 2a 31 37 3a ed  20 43 0d 01 0e 0e ee 20  |7,C*17:. C..... |
00000250  85 20 f1 9e 3a f6 3a e0  0d 01 18 04 0d 01 22 0f  |. ..:.:.......".|
00000260  48 3d a8 28 31 32 38 30  2f 4e 29 0d 01 2c 10 de  |H=.(1280/N)..,..|
00000270  20 47 28 4e 29 2c 47 50  28 4e 29 0d 01 36 17 de  | G(N),GP(N)..6..|
00000280  20 4f 28 4e 55 4d 5f 4f  46 5f 4c 49 4e 45 53 2c  | O(NUM_OF_LINES,|
00000290  4e 29 0d 01 40 0c c8 91  20 30 2c 35 31 32 0d 01  |N)..@... 0,512..|
000002a0  4a 07 42 3d 31 0d 01 54  0c 4c 4f 43 4b 45 44 3d  |J.B=1..T.LOCKED=|
000002b0  30 0d 01 5e 08 c8 97 20  ee 0d 01 68 05 3a 0d 01  |0..^... ...h.:..|
000002c0  72 05 f5 0d 01 7c 05 3a  0d 01 86 0f c8 97 20 4d  |r....|.:...... M|
000002d0  58 2c 4d 59 2c 4d 42 0d  01 90 1b e7 20 4d 42 3d  |X,MY,MB..... MB=|
000002e0  34 20 8c 20 4c 4f 43 4b  45 44 3d a8 28 4d 58 2f  |4 . LOCKED=.(MX/|
000002f0  48 29 0d 01 9a 56 e7 20  4d 42 3d 32 20 80 20 4c  |H)...V. MB=2 . L|
00000300  4f 43 4b 45 44 3e 30 20  80 20 4c 4f 43 4b 45 44  |OCKED>0 . LOCKED|
00000310  3c 3d 4e 20 8c 20 4c 4f  43 4b 45 44 3d a8 28 4d  |<=N . LOCKED=.(M|
00000320  58 2f 48 29 3a 4f 28 31  2c 4c 4f 43 4b 45 44 29  |X/H):O(1,LOCKED)|
00000330  3d 30 3a 47 50 28 4c 4f  43 4b 45 44 29 3d 30 3a  |=0:GP(LOCKED)=0:|
00000340  4c 4f 43 4b 45 44 3d 30  0d 01 a4 2b e7 20 4d 42  |LOCKED=0...+. MB|
00000350  3d 31 20 8c 20 e3 20 4c  3d 31 20 b8 20 4e 3a 4f  |=1 . . L=1 . N:O|
00000360  28 31 2c 4c 29 3d 30 3a  47 50 28 4c 29 3d 30 3a  |(1,L)=0:GP(L)=0:|
00000370  ed 20 4c 0d 01 ae 2e e7  20 4d 42 3d 30 20 84 20  |. L..... MB=0 . |
00000380  4c 4f 43 4b 45 44 3c 3d  31 20 84 20 4c 4f 43 4b  |LOCKED<=1 . LOCK|
00000390  45 44 3e 4e 2d 32 20 8c  20 4c 4f 43 4b 45 44 3d  |ED>N-2 . LOCKED=|
000003a0  30 0d 01 b8 1b e7 20 4c  4f 43 4b 45 44 20 4f 28  |0..... LOCKED O(|
000003b0  31 2c 4c 4f 43 4b 45 44  29 3d 4d 59 0d 01 c2 05  |1,LOCKED)=MY....|
000003c0  3a 0d 01 cc 17 4f 28 31  2c 31 29 3d 30 3a 4f 28  |:....O(1,1)=0:O(|
000003d0  31 2c 4e 2d 31 29 3d 30  0d 01 d6 17 4f 28 31 2c  |1,N-1)=0....O(1,|
000003e0  32 29 3d 30 3a 4f 28 31  2c 4e 2d 31 29 3d 30 0d  |2)=0:O(1,N-1)=0.|
000003f0  01 e0 0c e7 20 46 41 44  45 20 8c 0d 01 e1 1d 46  |.... FADE .....F|
00000400  41 44 44 3d 30 3a e7 20  46 41 44 45 3e 31 20 46  |ADD=0:. FADE>1 F|
00000410  41 44 44 3d 46 41 44 45  0d 01 ea 1f e3 20 4f 20  |ADD=FADE..... O |
00000420  3d 20 4e 55 4d 5f 4f 46  5f 4c 49 4e 45 53 20 b8  |= NUM_OF_LINES .|
00000430  20 32 20 88 20 2d 31 0d  01 f4 0f e3 20 4c 20 3d  | 2 . -1..... L =|
00000440  20 31 20 b8 20 4e 0d 01  fe 18 4f 28 4f 2c 4c 29  | 1 . N....O(O,L)|
00000450  3d 4f 28 4f 2d 31 2c 4c  29 2b 46 41 44 44 0d 02  |=O(O-1,L)+FADD..|
00000460  08 07 ed 20 4c 0d 02 12  07 ed 20 4f 0d 02 1c 05  |... L..... O....|
00000470  cd 0d 02 26 05 3a 0d 02  30 17 4f 28 31 2c 31 29  |...&.:..0.O(1,1)|
00000480  3d 30 3a 4f 28 31 2c 4e  2d 31 29 3d 30 0d 02 3a  |=0:O(1,N-1)=0..:|
00000490  17 4f 28 31 2c 32 29 3d  30 3a 4f 28 31 2c 4e 2d  |.O(1,2)=0:O(1,N-|
000004a0  31 29 3d 30 0d 02 44 11  e3 20 4c 20 3d 20 33 20  |1)=0..D.. L = 3 |
000004b0  b8 20 4e 2d 32 0d 02 4e  05 3a 0d 02 58 11 e7 20  |. N-2..N.:..X.. |
000004c0  4c 3c 3e 4c 4f 43 4b 45  44 20 8c 0d 02 62 15 20  |L<>LOCKED ...b. |
000004d0  47 50 28 4c 29 2d 3d 4f  28 31 2c 4c 29 2f 57 32  |GP(L)-=O(1,L)/W2|
000004e0  0d 02 6c 27 20 47 50 28  4c 29 2b 3d 28 4f 28 31  |..l' GP(L)+=(O(1|
000004f0  2c 4c 2b 31 29 2b 4f 28  31 2c 4c 2d 31 29 29 2f  |,L+1)+O(1,L-1))/|
00000500  28 31 30 2a 57 31 29 0d  02 76 12 20 4f 28 31 2c  |(10*W1)..v. O(1,|
00000510  4c 29 2b 3d 47 50 28 4c  29 0d 02 80 17 20 4f 28  |L)+=GP(L).... O(|
00000520  31 2c 4c 29 3d 4f 28 31  2c 4c 29 2a 30 2e 39 35  |1,L)=O(1,L)*0.95|
00000530  0d 02 8a 05 cd 0d 02 94  05 3a 0d 02 9e 07 ed 20  |.........:..... |
00000540  4c 0d 02 a8 04 0d 02 b2  0b c8 99 20 36 2c 31 39  |L.......... 6,19|
00000550  0d 02 bc 0e c8 99 20 36  2c 31 31 32 2c 42 0d 02  |...... 6,112,B..|
00000560  c6 10 c8 99 20 36 2c 31  31 33 2c 33 2d 42 0d 02  |.... 6,113,3-B..|
00000570  d0 09 42 3d 33 2d 42 0d  02 da 05 db 0d 02 e4 04  |..B=3-B.........|
00000580  0d 02 ee 12 df 20 4c 2a  48 2c 4f 28 31 2c 4e 2d  |..... L*H,O(1,N-|
00000590  31 29 0d 02 f8 05 3a 0d  03 02 8c e7 20 46 41 44  |1)....:..... FAD|
000005a0  45 20 8c 20 e3 20 4f 20  3d 20 4e 55 4d 5f 4f 46  |E . . O = NUM_OF|
000005b0  5f 4c 49 4e 45 53 20 b8  20 31 88 2d 31 3a 43 3d  |_LINES . 1.-1:C=|
000005c0  32 35 35 2d 32 35 35 2a  4f 2f 4e 55 4d 5f 4f 46  |255-255*O/NUM_OF|
000005d0  5f 4c 49 4e 45 53 3a c8  99 20 67 63 6f 6c 2c 28  |_LINES:.. gcol,(|
000005e0  43 3c 3c 38 29 2b 28 43  3c 3c 31 36 29 2b 28 43  |C<<8)+(C<<16)+(C|
000005f0  3c 3c 32 34 29 3a ec 20  48 2c 4f 28 4f 2c 31 29  |<<24):. H,O(O,1)|
00000600  3a e3 20 4c 20 3d 20 32  20 b8 20 4e 2d 31 3a df  |:. L = 2 . N-1:.|
00000610  20 4c 2a 48 2c 4f 28 4f  2c 4c 29 3a ed 20 4c 3a  | L*H,O(O,L):. L:|
00000620  ed 20 4f 0d 03 0c 05 3a  0d 03 16 59 c8 99 20 67  |. O....:...Y.. g|
00000630  63 6f 6c 2c 28 32 35 35  3c 3c 38 29 2b 28 32 35  |col,(255<<8)+(25|
00000640  35 3c 3c 31 36 29 2b 28  32 35 35 3c 3c 32 34 29  |5<<16)+(255<<24)|
00000650  2c 2c 2c 26 33 33 33 3a  ec 20 48 2c 4f 28 31 2c  |,,,&333:. H,O(1,|
00000660  31 29 3a e3 20 4c 20 3d  20 32 20 b8 20 4e 2d 31  |1):. L = 2 . N-1|
00000670  3a df 20 4c 2a 48 2c 4f  28 31 2c 4c 29 3a ed 20  |:. L*H,O(1,L):. |
00000680  4c 0d 03 20 05 3a 0d 03  2a 0b 6b 3d a6 30 2d 34  |L.. .:..*.k=.0-4|
00000690  38 0d 03 34 10 e7 20 6b  3d 30 20 46 41 44 45 3d  |8..4.. k=0 FADE=|
000006a0  30 0d 03 3e 10 e7 20 6b  3d 31 20 46 41 44 45 3d  |0..>.. k=1 FADE=|
000006b0  31 0d 03 48 1a e7 20 6b  3e 3d 32 20 80 20 6b 3c  |1..H.. k>=2 . k<|
000006c0  3d 39 20 46 41 44 45 3d  6b 2a 32 0d 03 5c 05 3a  |=9 FADE=k*2..\.:|
000006d0  0d 03 66 07 fd 20 a3 0d  ff                       |..f.. ...|
000006d9