-� > ALIENGRASS  *** Jan Vibe march 97 ***

	�21:�
(� SPR &3000,SC 16,PX%(50)
2*SPR!0=&2FFF:SPR!4=0:SPR!8=16:SPR!12=16
<+SC!00=256:SC!04=256:SC!08=256:SC!12=256
F��d~A
P
Z1�Y%=0�1024�2:�RGB(0,(255*(1024-Y%))/1024,255)
d�0,Y%,1280,Y%:�
n0ș"OS_SpriteOp",256+15,SPR,"COL",0,128,16,21
x%�N%=0�40:PX%(N%)=32*N%+�(33)-17:�
�2�N%=1�500:Ȕ PX%(�(41)-1),PX%(�(41)-1):�:P%=-1
�%�N%=1024�200�-20:P%+=1:NF=N%/1024
��
�$R1%=�(255):G1%=�(255):B1%=�(255)
��R1%+G1%+B1%<=189
��
�$R2%=�(255):G2%=�(255):B2%=�(255)
��R2%+G2%+B2%>=510
�$ș"OS_SpriteOp",256+60,SPR,"COL"
��Y%=0�15�2:�X%=0�255�2
�I1%=�(128-X%):I2%=128-I1%
�5R%=�MIX(R1%,R2%,I1%,I2%):G%=�MIX(G1%,G2%,I1%,I2%)
�+B%=�MIX(B1%,B2%,I1%,I2%):�RGB(R%,G%,B%)

Ȓ X%,Y%:�,

 ș"OS_SpriteOp",256+60,SPR,0

CS=�(1)*2*�:D=�(1)*.02+0.015:X%=PX%(P%):W=NF*N%/8:E=�(1)*.75+.25

"�Y%=0�N%�2

,'S=S+D:F=(1-Y%/N%):X1%=100*F*E*�S+X%

6SC!00=256*F*NF

@$ș"OS_SpriteOp",256+60,SPR,"COL"

JC%=�(16)-1

T3ș"OS_SpriteOp",256+16,SPR,"LINE",0,0,C%,255,C%

^ ș"OS_SpriteOp",256+60,SPR,0

h5ș"OS_SpriteOp",256+52,SPR,"LINE",X1%-W*F,Y%,0,SC

r�,

|�

�

���RGB(R%,G%,B%)

�%� C%:C%=(R%<<8)+(G%<<16)+(B%<<24)

�(ș "ColourTrans_SetGCOL",C%,,,&100,0

��

�

�ݤMIX(C1%,C2%,I1%,I2%)

�� C%

�:C%=(C1%*I1%+C2%*I2%)/(I1%+I2%)+�(33)-17:�C%>255 C%=255

��C%<0 C%=0

�=C%

�

�3ș"OS_SpriteOp",256+60,SPR,0:�:�" at line "�(�)
�

00000000  0d 00 0a 2d f4 20 3e 20  41 4c 49 45 4e 47 52 41  |...-. > ALIENGRA|
00000010  53 53 20 20 2a 2a 2a 20  4a 61 6e 20 56 69 62 65  |SS  *** Jan Vibe|
00000020  20 6d 61 72 63 68 20 39  37 20 2a 2a 2a 0d 00 14  | march 97 ***...|
00000030  04 0d 00 1e 09 eb 32 31  3a 87 0d 00 28 1d de 20  |......21:...(.. |
00000040  53 50 52 20 26 33 30 30  30 2c 53 43 20 31 36 2c  |SPR &3000,SC 16,|
00000050  50 58 25 28 35 30 29 0d  00 32 2a 53 50 52 21 30  |PX%(50)..2*SPR!0|
00000060  3d 26 32 46 46 46 3a 53  50 52 21 34 3d 30 3a 53  |=&2FFF:SPR!4=0:S|
00000070  50 52 21 38 3d 31 36 3a  53 50 52 21 31 32 3d 31  |PR!8=16:SPR!12=1|
00000080  36 0d 00 3c 2b 53 43 21  30 30 3d 32 35 36 3a 53  |6..<+SC!00=256:S|
00000090  43 21 30 34 3d 32 35 36  3a 53 43 21 30 38 3d 32  |C!04=256:SC!08=2|
000000a0  35 36 3a 53 43 21 31 32  3d 32 35 36 0d 00 46 0b  |56:SC!12=256..F.|
000000b0  ee 85 e5 8d 64 7e 41 0d  00 50 04 0d 00 5a 31 e3  |....d~A..P...Z1.|
000000c0  59 25 3d 30 b8 31 30 32  34 88 32 3a f2 52 47 42  |Y%=0.1024.2:.RGB|
000000d0  28 30 2c 28 32 35 35 2a  28 31 30 32 34 2d 59 25  |(0,(255*(1024-Y%|
000000e0  29 29 2f 31 30 32 34 2c  32 35 35 29 0d 00 64 13  |))/1024,255)..d.|
000000f0  86 30 2c 59 25 2c 31 32  38 30 2c 59 25 3a ed 0d  |.0,Y%,1280,Y%:..|
00000100  00 6e 30 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.n0.."OS_SpriteO|
00000110  70 22 2c 32 35 36 2b 31  35 2c 53 50 52 2c 22 43  |p",256+15,SPR,"C|
00000120  4f 4c 22 2c 30 2c 31 32  38 2c 31 36 2c 32 31 0d  |OL",0,128,16,21.|
00000130  00 78 25 e3 4e 25 3d 30  b8 34 30 3a 50 58 25 28  |.x%.N%=0.40:PX%(|
00000140  4e 25 29 3d 33 32 2a 4e  25 2b b3 28 33 33 29 2d  |N%)=32*N%+.(33)-|
00000150  31 37 3a ed 0d 00 82 32  e3 4e 25 3d 31 b8 35 30  |17:....2.N%=1.50|
00000160  30 3a c8 94 20 50 58 25  28 b3 28 34 31 29 2d 31  |0:.. PX%(.(41)-1|
00000170  29 2c 50 58 25 28 b3 28  34 31 29 2d 31 29 3a ed  |),PX%(.(41)-1):.|
00000180  3a 50 25 3d 2d 31 0d 00  8c 25 e3 4e 25 3d 31 30  |:P%=-1...%.N%=10|
00000190  32 34 b8 32 30 30 88 2d  32 30 3a 50 25 2b 3d 31  |24.200.-20:P%+=1|
000001a0  3a 4e 46 3d 4e 25 2f 31  30 32 34 0d 00 96 05 f5  |:NF=N%/1024.....|
000001b0  0d 00 a0 24 52 31 25 3d  b3 28 32 35 35 29 3a 47  |...$R1%=.(255):G|
000001c0  31 25 3d b3 28 32 35 35  29 3a 42 31 25 3d b3 28  |1%=.(255):B1%=.(|
000001d0  32 35 35 29 0d 00 aa 15  fd 52 31 25 2b 47 31 25  |255).....R1%+G1%|
000001e0  2b 42 31 25 3c 3d 31 38  39 0d 00 b4 05 f5 0d 00  |+B1%<=189.......|
000001f0  be 24 52 32 25 3d b3 28  32 35 35 29 3a 47 32 25  |.$R2%=.(255):G2%|
00000200  3d b3 28 32 35 35 29 3a  42 32 25 3d b3 28 32 35  |=.(255):B2%=.(25|
00000210  35 29 0d 00 c8 15 fd 52  32 25 2b 47 32 25 2b 42  |5).....R2%+G2%+B|
00000220  32 25 3e 3d 35 31 30 0d  00 d2 24 c8 99 22 4f 53  |2%>=510...$.."OS|
00000230  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 36  |_SpriteOp",256+6|
00000240  30 2c 53 50 52 2c 22 43  4f 4c 22 0d 00 dc 1a e3  |0,SPR,"COL".....|
00000250  59 25 3d 30 b8 31 35 88  32 3a e3 58 25 3d 30 b8  |Y%=0.15.2:.X%=0.|
00000260  32 35 35 88 32 0d 00 e6  1d 49 31 25 3d 94 28 31  |255.2....I1%=.(1|
00000270  32 38 2d 58 25 29 3a 49  32 25 3d 31 32 38 2d 49  |28-X%):I2%=128-I|
00000280  31 25 0d 00 f0 35 52 25  3d a4 4d 49 58 28 52 31  |1%...5R%=.MIX(R1|
00000290  25 2c 52 32 25 2c 49 31  25 2c 49 32 25 29 3a 47  |%,R2%,I1%,I2%):G|
000002a0  25 3d a4 4d 49 58 28 47  31 25 2c 47 32 25 2c 49  |%=.MIX(G1%,G2%,I|
000002b0  31 25 2c 49 32 25 29 0d  00 fa 2b 42 25 3d a4 4d  |1%,I2%)...+B%=.M|
000002c0  49 58 28 42 31 25 2c 42  32 25 2c 49 31 25 2c 49  |IX(B1%,B2%,I1%,I|
000002d0  32 25 29 3a f2 52 47 42  28 52 25 2c 47 25 2c 42  |2%):.RGB(R%,G%,B|
000002e0  25 29 0d 01 04 0f c8 92  20 58 25 2c 59 25 3a ed  |%)...... X%,Y%:.|
000002f0  2c 0d 01 0e 20 c8 99 22  4f 53 5f 53 70 72 69 74  |,... .."OS_Sprit|
00000300  65 4f 70 22 2c 32 35 36  2b 36 30 2c 53 50 52 2c  |eOp",256+60,SPR,|
00000310  30 0d 01 18 43 53 3d b3  28 31 29 2a 32 2a af 3a  |0...CS=.(1)*2*.:|
00000320  44 3d b3 28 31 29 2a 2e  30 32 2b 30 2e 30 31 35  |D=.(1)*.02+0.015|
00000330  3a 58 25 3d 50 58 25 28  50 25 29 3a 57 3d 4e 46  |:X%=PX%(P%):W=NF|
00000340  2a 4e 25 2f 38 3a 45 3d  b3 28 31 29 2a 2e 37 35  |*N%/8:E=.(1)*.75|
00000350  2b 2e 32 35 0d 01 22 0e  e3 59 25 3d 30 b8 4e 25  |+.25.."..Y%=0.N%|
00000360  88 32 0d 01 2c 27 53 3d  53 2b 44 3a 46 3d 28 31  |.2..,'S=S+D:F=(1|
00000370  2d 59 25 2f 4e 25 29 3a  58 31 25 3d 31 30 30 2a  |-Y%/N%):X1%=100*|
00000380  46 2a 45 2a b5 53 2b 58  25 0d 01 36 12 53 43 21  |F*E*.S+X%..6.SC!|
00000390  30 30 3d 32 35 36 2a 46  2a 4e 46 0d 01 40 24 c8  |00=256*F*NF..@$.|
000003a0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
000003b0  35 36 2b 36 30 2c 53 50  52 2c 22 43 4f 4c 22 0d  |56+60,SPR,"COL".|
000003c0  01 4a 0e 43 25 3d b3 28  31 36 29 2d 31 0d 01 54  |.J.C%=.(16)-1..T|
000003d0  33 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |3.."OS_SpriteOp"|
000003e0  2c 32 35 36 2b 31 36 2c  53 50 52 2c 22 4c 49 4e  |,256+16,SPR,"LIN|
000003f0  45 22 2c 30 2c 30 2c 43  25 2c 32 35 35 2c 43 25  |E",0,0,C%,255,C%|
00000400  0d 01 5e 20 c8 99 22 4f  53 5f 53 70 72 69 74 65  |..^ .."OS_Sprite|
00000410  4f 70 22 2c 32 35 36 2b  36 30 2c 53 50 52 2c 30  |Op",256+60,SPR,0|
00000420  0d 01 68 35 c8 99 22 4f  53 5f 53 70 72 69 74 65  |..h5.."OS_Sprite|
00000430  4f 70 22 2c 32 35 36 2b  35 32 2c 53 50 52 2c 22  |Op",256+52,SPR,"|
00000440  4c 49 4e 45 22 2c 58 31  25 2d 57 2a 46 2c 59 25  |LINE",X1%-W*F,Y%|
00000450  2c 30 2c 53 43 0d 01 72  06 ed 2c 0d 01 7c 05 e0  |,0,SC..r..,..|..|
00000460  0d 01 86 04 0d 01 90 13  dd f2 52 47 42 28 52 25  |..........RGB(R%|
00000470  2c 47 25 2c 42 25 29 0d  01 9a 25 ea 20 43 25 3a  |,G%,B%)...%. C%:|
00000480  43 25 3d 28 52 25 3c 3c  38 29 2b 28 47 25 3c 3c  |C%=(R%<<8)+(G%<<|
00000490  31 36 29 2b 28 42 25 3c  3c 32 34 29 0d 01 a4 28  |16)+(B%<<24)...(|
000004a0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
000004b0  53 65 74 47 43 4f 4c 22  2c 43 25 2c 2c 2c 26 31  |SetGCOL",C%,,,&1|
000004c0  30 30 2c 30 0d 01 ae 05  e1 0d 01 b8 04 0d 01 c2  |00,0............|
000004d0  1a dd a4 4d 49 58 28 43  31 25 2c 43 32 25 2c 49  |...MIX(C1%,C2%,I|
000004e0  31 25 2c 49 32 25 29 0d  01 cc 08 ea 20 43 25 0d  |1%,I2%)..... C%.|
000004f0  01 d6 3a 43 25 3d 28 43  31 25 2a 49 31 25 2b 43  |..:C%=(C1%*I1%+C|
00000500  32 25 2a 49 32 25 29 2f  28 49 31 25 2b 49 32 25  |2%*I2%)/(I1%+I2%|
00000510  29 2b b3 28 33 33 29 2d  31 37 3a e7 43 25 3e 32  |)+.(33)-17:.C%>2|
00000520  35 35 20 43 25 3d 32 35  35 0d 01 e0 0e e7 43 25  |55 C%=255.....C%|
00000530  3c 30 20 43 25 3d 30 0d  01 ea 07 3d 43 25 0d 01  |<0 C%=0....=C%..|
00000540  f4 04 0d 01 fe 33 c8 99  22 4f 53 5f 53 70 72 69  |.....3.."OS_Spri|
00000550  74 65 4f 70 22 2c 32 35  36 2b 36 30 2c 53 50 52  |teOp",256+60,SPR|
00000560  2c 30 3a f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  |,0:.:." at line |
00000570  22 c3 28 9e 29 0d ff                              |".(.)..|
00000577