StarInfo/Vibe/WINGS4

Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars » StarInfo/Vibe/WINGS4

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars
Filename:	StarInfo/Vibe/WINGS4
Read OK:	✔
File size:	0781 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > WINGS4
   20
   30REPEAT
   40PRINT"Choose between the following modes:"'
   50FORN%=0TO127:N$=RIGHT$("    "+STR$(N%),3)
   60SYS"OS_ReadModeVariable",N%,9 TO,,P%:P%=2^P%
   70IF P%>=8 PRINT"MODE "N$" "2^P%" colours"
   80NEXT:PRINT
   90INPUT"MODE="M%:MODE M%
  100SYS"OS_ReadModeVariable",-1,9 TO,,P%:P%=2^P%
  110IF P%<8 PRINT"Mode must have 256 or more colours."'
  120UNTIL P%>=8
  130
  140SYS"OS_ReadModeVariable",-1,11 TO,,XS%
  150SYS"OS_ReadModeVariable",-1,12 TO,,YS%
  160SYS"OS_ReadModeVariable",-1,4 TO,,SX%:SX%=2^SX%
  170SYS"OS_ReadModeVariable",-1,5 TO,,SY%:SY%=2^SY%
  180XM%=XS%*SX%:YM%=YS%*SY%:XH%=XM%/2:YH%=YM%/2
  190XB%=XH%/2-10*SX%:YB%=YH%/2-10*SY%
  200
  210MODEM%:ORIGINXH%,YH%:MOVE0,0:OFF
  220R1%=RND(127):G1%=RND(127):B1%=RND(127)
  230R2%=RND(127):G2%=RND(127):B2%=RND(127)
  240R3%=RND(127)+127:G3%=RND(127)+127:B3%=RND(127)+127
  250R4%=RND(127)+127:G4%=RND(127)+127:B4%=RND(127)+127:RC%=0
  260REPEAT
  270A%=RND(8):B%=RND(8):C%=RND(8):D%=RND(8)
  280E%=RND(8):F%=RND(8):G%=RND(8):H%=RND(8)
  290FORN=0TO180STEP.4:T=RADN
  300X1%=XB%*(SIN(A%*T)+SIN(B%*T)):Y1%=YB%*(SIN(C%*T)+SIN(D%*T))
  310X2%=XB%*(SIN(E%*T)+SIN(F%*T)):Y2%=YB%*(SIN(G%*T)+SIN(H%*T))
  320PROCL(X1%,Y1%,X2%,Y2%)
  330NEXT
  340UNTIL0
  350
  360DEFPROCL(X1%,Y1%,X2%,Y2%)
  370LOCAL D,K%,C,N%,X%,Y%,RA%,GA%,BA%,RB%,GB%,BB%
  380D=SQR((X1%-X2%)^2+(Y1%-Y2%)^2):K%=D/12:IF K%<16 K%=16
  390C=255/K%
  400RA%=((15-RC%)*R1%+RC%*R2%)/15
  410GA%=((15-RC%)*G1%+RC%*G2%)/15
  420BA%=((15-RC%)*B1%+RC%*B2%)/15
  430RB%=((15-RC%)*R3%+RC%*R4%)/15
  440GB%=((15-RC%)*G3%+RC%*G4%)/15
  450BB%=((15-RC%)*B3%+RC%*B4%)/15
  460FORN%=0TOK%:PROCC
  470X%=(X1%*N%+X2%*(K%-N%))/K%:Y%=(Y1%*N%+Y2%*(K%-N%))/K%
  480CIRCLEFILL X%,Y%,16:CIRCLEFILL -X%,Y%,16
  490CIRCLEFILL X%,-Y%,16:CIRCLEFILL -X%,-Y%,16
  500NEXT
  510RC%+=1:IFRC%>15THEN
  520R1%=R2%:G1%=G2%:B1%=B2%:R2%=RND(127):G2%=RND(127):B2%=RND(127):
  530R3%=R4%:G3%=G4%:B3%=B4%:R4%=RND(127)+127:G4%=RND(127)+127:B4%=RND(127)+127:RC%=0
  540ENDIF
  550ENDPROC
  560
  570DEFPROCC
  580LOCAL R%,G%,B%
  590R%=((K%-N%)*RA%+N%*RB%)/K%
  600G%=((K%-N%)*GA%+N%*GB%)/K%
  610B%=((K%-N%)*BA%+N%*BB%)/K%
  620PROCRGB(R%,G%,B%)
  630ENDPROC
  640
  650DEFPROCRGB(R%,G%,B%)
  660LOCAL C%:C%=(R%<<8)+(G%<<16)+(B%<<24)
  670SYS "ColourTrans_SetGCOL",C%,,,&100,0
  680ENDPROC
  690


� > WINGS4

�
(+�"Choose between the following modes:"'
2!�N%=0�127:N$=�"    "+�(N%),3)
<.ș"OS_ReadModeVariable",N%,9 �,,P%:P%=2^P%
F'� P%>=8 �"MODE "N$" "2^P%" colours"
P�:�
Z�"MODE="M%:� M%
d.ș"OS_ReadModeVariable",-1,9 �,,P%:P%=2^P%
n2� P%<8 �"Mode must have 256 or more colours."'
x� P%>=8
�
�(ș"OS_ReadModeVariable",-1,11 �,,XS%
�(ș"OS_ReadModeVariable",-1,12 �,,YS%
�1ș"OS_ReadModeVariable",-1,4 �,,SX%:SX%=2^SX%
�1ș"OS_ReadModeVariable",-1,5 �,,SY%:SY%=2^SY%
�/XM%=XS%*SX%:YM%=YS%*SY%:XH%=XM%/2:YH%=YM%/2
�%XB%=XH%/2-10*SX%:YB%=YH%/2-10*SY%
�
��M%:ȑXH%,YH%:�0,0:�
�$R1%=�(127):G1%=�(127):B1%=�(127)
�$R2%=�(127):G2%=�(127):B2%=�(127)
�0R3%=�(127)+127:G3%=�(127)+127:B3%=�(127)+127
�6R4%=�(127)+127:G4%=�(127)+127:B4%=�(127)+127:RC%=0
�
#A%=�(8):B%=�(8):C%=�(8):D%=�(8)
#E%=�(8):F%=�(8):G%=�(8):H%=�(8)
"�N=0�180�.4:T=�N
,7X1%=XB%*(�(A%*T)+�(B%*T)):Y1%=YB%*(�(C%*T)+�(D%*T))
67X2%=XB%*(�(E%*T)+�(F%*T)):Y2%=YB%*(�(G%*T)+�(H%*T))
@�L(X1%,Y1%,X2%,Y2%)
J�
T�0
^
h��L(X1%,Y1%,X2%,Y2%)
r-� D,K%,C,N%,X%,Y%,RA%,GA%,BA%,RB%,GB%,BB%
|6D=�((X1%-X2%)^2+(Y1%-Y2%)^2):K%=D/12:� K%<16 K%=16
�C=255/K%
�!RA%=((15-RC%)*R1%+RC%*R2%)/15
�!GA%=((15-RC%)*G1%+RC%*G2%)/15
�!BA%=((15-RC%)*B1%+RC%*B2%)/15
�!RB%=((15-RC%)*R3%+RC%*R4%)/15
�!GB%=((15-RC%)*G3%+RC%*G4%)/15
�!BB%=((15-RC%)*B3%+RC%*B4%)/15
��N%=0�K%:�C
�9X%=(X1%*N%+X2%*(K%-N%))/K%:Y%=(Y1%*N%+Y2%*(K%-N%))/K%
� ȏȐ X%,Y%,16:ȏȐ -X%,Y%,16
�"ȏȐ X%,-Y%,16:ȏȐ -X%,-Y%,16
��
�RC%+=1:�RC%>15�
=R1%=R2%:G1%=G2%:B1%=B2%:R2%=�(127):G2%=�(127):B2%=�(127):
NR3%=R4%:G3%=G4%:B3%=B4%:R4%=�(127)+127:G4%=�(127)+127:B4%=�(127)+127:RC%=0
�
&�
0
:��C
D� R%,G%,B%
NR%=((K%-N%)*RA%+N%*RB%)/K%
XG%=((K%-N%)*GA%+N%*GB%)/K%
bB%=((K%-N%)*BA%+N%*BB%)/K%
l�RGB(R%,G%,B%)
v�
�
���RGB(R%,G%,B%)
�%� C%:C%=(R%<<8)+(G%<<16)+(B%<<24)
�(ș "ColourTrans_SetGCOL",C%,,,&100,0
��
�
�

00000000  0d 00 0a 0e f4 20 3e 20  57 49 4e 47 53 34 0d 00  |..... > WINGS4..|
00000010  14 04 0d 00 1e 05 f5 0d  00 28 2b f1 22 43 68 6f  |.........(+."Cho|
00000020  6f 73 65 20 62 65 74 77  65 65 6e 20 74 68 65 20  |ose between the |
00000030  66 6f 6c 6c 6f 77 69 6e  67 20 6d 6f 64 65 73 3a  |following modes:|
00000040  22 27 0d 00 32 21 e3 4e  25 3d 30 b8 31 32 37 3a  |"'..2!.N%=0.127:|
00000050  4e 24 3d c2 22 20 20 20  20 22 2b c3 28 4e 25 29  |N$=."    "+.(N%)|
00000060  2c 33 29 0d 00 3c 2e c8  99 22 4f 53 5f 52 65 61  |,3)..<..."OS_Rea|
00000070  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 4e  |dModeVariable",N|
00000080  25 2c 39 20 b8 2c 2c 50  25 3a 50 25 3d 32 5e 50  |%,9 .,,P%:P%=2^P|
00000090  25 0d 00 46 27 e7 20 50  25 3e 3d 38 20 f1 22 4d  |%..F'. P%>=8 ."M|
000000a0  4f 44 45 20 22 4e 24 22  20 22 32 5e 50 25 22 20  |ODE "N$" "2^P%" |
000000b0  63 6f 6c 6f 75 72 73 22  0d 00 50 07 ed 3a f1 0d  |colours"..P..:..|
000000c0  00 5a 13 e8 22 4d 4f 44  45 3d 22 4d 25 3a eb 20  |.Z.."MODE="M%:. |
000000d0  4d 25 0d 00 64 2e c8 99  22 4f 53 5f 52 65 61 64  |M%..d..."OS_Read|
000000e0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
000000f0  2c 39 20 b8 2c 2c 50 25  3a 50 25 3d 32 5e 50 25  |,9 .,,P%:P%=2^P%|
00000100  0d 00 6e 32 e7 20 50 25  3c 38 20 f1 22 4d 6f 64  |..n2. P%<8 ."Mod|
00000110  65 20 6d 75 73 74 20 68  61 76 65 20 32 35 36 20  |e must have 256 |
00000120  6f 72 20 6d 6f 72 65 20  63 6f 6c 6f 75 72 73 2e  |or more colours.|
00000130  22 27 0d 00 78 0b fd 20  50 25 3e 3d 38 0d 00 82  |"'..x.. P%>=8...|
00000140  04 0d 00 8c 28 c8 99 22  4f 53 5f 52 65 61 64 4d  |....(.."OS_ReadM|
00000150  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00000160  31 31 20 b8 2c 2c 58 53  25 0d 00 96 28 c8 99 22  |11 .,,XS%...(.."|
00000170  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000180  62 6c 65 22 2c 2d 31 2c  31 32 20 b8 2c 2c 59 53  |ble",-1,12 .,,YS|
00000190  25 0d 00 a0 31 c8 99 22  4f 53 5f 52 65 61 64 4d  |%...1.."OS_ReadM|
000001a0  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
000001b0  34 20 b8 2c 2c 53 58 25  3a 53 58 25 3d 32 5e 53  |4 .,,SX%:SX%=2^S|
000001c0  58 25 0d 00 aa 31 c8 99  22 4f 53 5f 52 65 61 64  |X%...1.."OS_Read|
000001d0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
000001e0  2c 35 20 b8 2c 2c 53 59  25 3a 53 59 25 3d 32 5e  |,5 .,,SY%:SY%=2^|
000001f0  53 59 25 0d 00 b4 2f 58  4d 25 3d 58 53 25 2a 53  |SY%.../XM%=XS%*S|
00000200  58 25 3a 59 4d 25 3d 59  53 25 2a 53 59 25 3a 58  |X%:YM%=YS%*SY%:X|
00000210  48 25 3d 58 4d 25 2f 32  3a 59 48 25 3d 59 4d 25  |H%=XM%/2:YH%=YM%|
00000220  2f 32 0d 00 be 25 58 42  25 3d 58 48 25 2f 32 2d  |/2...%XB%=XH%/2-|
00000230  31 30 2a 53 58 25 3a 59  42 25 3d 59 48 25 2f 32  |10*SX%:YB%=YH%/2|
00000240  2d 31 30 2a 53 59 25 0d  00 c8 04 0d 00 d2 18 eb  |-10*SY%.........|
00000250  4d 25 3a c8 91 58 48 25  2c 59 48 25 3a ec 30 2c  |M%:..XH%,YH%:.0,|
00000260  30 3a 87 0d 00 dc 24 52  31 25 3d b3 28 31 32 37  |0:....$R1%=.(127|
00000270  29 3a 47 31 25 3d b3 28  31 32 37 29 3a 42 31 25  |):G1%=.(127):B1%|
00000280  3d b3 28 31 32 37 29 0d  00 e6 24 52 32 25 3d b3  |=.(127)...$R2%=.|
00000290  28 31 32 37 29 3a 47 32  25 3d b3 28 31 32 37 29  |(127):G2%=.(127)|
000002a0  3a 42 32 25 3d b3 28 31  32 37 29 0d 00 f0 30 52  |:B2%=.(127)...0R|
000002b0  33 25 3d b3 28 31 32 37  29 2b 31 32 37 3a 47 33  |3%=.(127)+127:G3|
000002c0  25 3d b3 28 31 32 37 29  2b 31 32 37 3a 42 33 25  |%=.(127)+127:B3%|
000002d0  3d b3 28 31 32 37 29 2b  31 32 37 0d 00 fa 36 52  |=.(127)+127...6R|
000002e0  34 25 3d b3 28 31 32 37  29 2b 31 32 37 3a 47 34  |4%=.(127)+127:G4|
000002f0  25 3d b3 28 31 32 37 29  2b 31 32 37 3a 42 34 25  |%=.(127)+127:B4%|
00000300  3d b3 28 31 32 37 29 2b  31 32 37 3a 52 43 25 3d  |=.(127)+127:RC%=|
00000310  30 0d 01 04 05 f5 0d 01  0e 23 41 25 3d b3 28 38  |0........#A%=.(8|
00000320  29 3a 42 25 3d b3 28 38  29 3a 43 25 3d b3 28 38  |):B%=.(8):C%=.(8|
00000330  29 3a 44 25 3d b3 28 38  29 0d 01 18 23 45 25 3d  |):D%=.(8)...#E%=|
00000340  b3 28 38 29 3a 46 25 3d  b3 28 38 29 3a 47 25 3d  |.(8):F%=.(8):G%=|
00000350  b3 28 38 29 3a 48 25 3d  b3 28 38 29 0d 01 22 14  |.(8):H%=.(8)..".|
00000360  e3 4e 3d 30 b8 31 38 30  88 2e 34 3a 54 3d b2 4e  |.N=0.180..4:T=.N|
00000370  0d 01 2c 37 58 31 25 3d  58 42 25 2a 28 b5 28 41  |..,7X1%=XB%*(.(A|
00000380  25 2a 54 29 2b b5 28 42  25 2a 54 29 29 3a 59 31  |%*T)+.(B%*T)):Y1|
00000390  25 3d 59 42 25 2a 28 b5  28 43 25 2a 54 29 2b b5  |%=YB%*(.(C%*T)+.|
000003a0  28 44 25 2a 54 29 29 0d  01 36 37 58 32 25 3d 58  |(D%*T))..67X2%=X|
000003b0  42 25 2a 28 b5 28 45 25  2a 54 29 2b b5 28 46 25  |B%*(.(E%*T)+.(F%|
000003c0  2a 54 29 29 3a 59 32 25  3d 59 42 25 2a 28 b5 28  |*T)):Y2%=YB%*(.(|
000003d0  47 25 2a 54 29 2b b5 28  48 25 2a 54 29 29 0d 01  |G%*T)+.(H%*T))..|
000003e0  40 17 f2 4c 28 58 31 25  2c 59 31 25 2c 58 32 25  |@..L(X1%,Y1%,X2%|
000003f0  2c 59 32 25 29 0d 01 4a  05 ed 0d 01 54 06 fd 30  |,Y2%)..J....T..0|
00000400  0d 01 5e 04 0d 01 68 18  dd f2 4c 28 58 31 25 2c  |..^...h...L(X1%,|
00000410  59 31 25 2c 58 32 25 2c  59 32 25 29 0d 01 72 2d  |Y1%,X2%,Y2%)..r-|
00000420  ea 20 44 2c 4b 25 2c 43  2c 4e 25 2c 58 25 2c 59  |. D,K%,C,N%,X%,Y|
00000430  25 2c 52 41 25 2c 47 41  25 2c 42 41 25 2c 52 42  |%,RA%,GA%,BA%,RB|
00000440  25 2c 47 42 25 2c 42 42  25 0d 01 7c 36 44 3d b6  |%,GB%,BB%..|6D=.|
00000450  28 28 58 31 25 2d 58 32  25 29 5e 32 2b 28 59 31  |((X1%-X2%)^2+(Y1|
00000460  25 2d 59 32 25 29 5e 32  29 3a 4b 25 3d 44 2f 31  |%-Y2%)^2):K%=D/1|
00000470  32 3a e7 20 4b 25 3c 31  36 20 4b 25 3d 31 36 0d  |2:. K%<16 K%=16.|
00000480  01 86 0c 43 3d 32 35 35  2f 4b 25 0d 01 90 21 52  |...C=255/K%...!R|
00000490  41 25 3d 28 28 31 35 2d  52 43 25 29 2a 52 31 25  |A%=((15-RC%)*R1%|
000004a0  2b 52 43 25 2a 52 32 25  29 2f 31 35 0d 01 9a 21  |+RC%*R2%)/15...!|
000004b0  47 41 25 3d 28 28 31 35  2d 52 43 25 29 2a 47 31  |GA%=((15-RC%)*G1|
000004c0  25 2b 52 43 25 2a 47 32  25 29 2f 31 35 0d 01 a4  |%+RC%*G2%)/15...|
000004d0  21 42 41 25 3d 28 28 31  35 2d 52 43 25 29 2a 42  |!BA%=((15-RC%)*B|
000004e0  31 25 2b 52 43 25 2a 42  32 25 29 2f 31 35 0d 01  |1%+RC%*B2%)/15..|
000004f0  ae 21 52 42 25 3d 28 28  31 35 2d 52 43 25 29 2a  |.!RB%=((15-RC%)*|
00000500  52 33 25 2b 52 43 25 2a  52 34 25 29 2f 31 35 0d  |R3%+RC%*R4%)/15.|
00000510  01 b8 21 47 42 25 3d 28  28 31 35 2d 52 43 25 29  |..!GB%=((15-RC%)|
00000520  2a 47 33 25 2b 52 43 25  2a 47 34 25 29 2f 31 35  |*G3%+RC%*G4%)/15|
00000530  0d 01 c2 21 42 42 25 3d  28 28 31 35 2d 52 43 25  |...!BB%=((15-RC%|
00000540  29 2a 42 33 25 2b 52 43  25 2a 42 34 25 29 2f 31  |)*B3%+RC%*B4%)/1|
00000550  35 0d 01 cc 0f e3 4e 25  3d 30 b8 4b 25 3a f2 43  |5.....N%=0.K%:.C|
00000560  0d 01 d6 39 58 25 3d 28  58 31 25 2a 4e 25 2b 58  |...9X%=(X1%*N%+X|
00000570  32 25 2a 28 4b 25 2d 4e  25 29 29 2f 4b 25 3a 59  |2%*(K%-N%))/K%:Y|
00000580  25 3d 28 59 31 25 2a 4e  25 2b 59 32 25 2a 28 4b  |%=(Y1%*N%+Y2%*(K|
00000590  25 2d 4e 25 29 29 2f 4b  25 0d 01 e0 20 c8 8f c8  |%-N%))/K%... ...|
000005a0  90 20 58 25 2c 59 25 2c  31 36 3a c8 8f c8 90 20  |. X%,Y%,16:.... |
000005b0  2d 58 25 2c 59 25 2c 31  36 0d 01 ea 22 c8 8f c8  |-X%,Y%,16..."...|
000005c0  90 20 58 25 2c 2d 59 25  2c 31 36 3a c8 8f c8 90  |. X%,-Y%,16:....|
000005d0  20 2d 58 25 2c 2d 59 25  2c 31 36 0d 01 f4 05 ed  | -X%,-Y%,16.....|
000005e0  0d 01 fe 13 52 43 25 2b  3d 31 3a e7 52 43 25 3e  |....RC%+=1:.RC%>|
000005f0  31 35 8c 0d 02 08 3d 52  31 25 3d 52 32 25 3a 47  |15....=R1%=R2%:G|
00000600  31 25 3d 47 32 25 3a 42  31 25 3d 42 32 25 3a 52  |1%=G2%:B1%=B2%:R|
00000610  32 25 3d b3 28 31 32 37  29 3a 47 32 25 3d b3 28  |2%=.(127):G2%=.(|
00000620  31 32 37 29 3a 42 32 25  3d b3 28 31 32 37 29 3a  |127):B2%=.(127):|
00000630  0d 02 12 4e 52 33 25 3d  52 34 25 3a 47 33 25 3d  |...NR3%=R4%:G3%=|
00000640  47 34 25 3a 42 33 25 3d  42 34 25 3a 52 34 25 3d  |G4%:B3%=B4%:R4%=|
00000650  b3 28 31 32 37 29 2b 31  32 37 3a 47 34 25 3d b3  |.(127)+127:G4%=.|
00000660  28 31 32 37 29 2b 31 32  37 3a 42 34 25 3d b3 28  |(127)+127:B4%=.(|
00000670  31 32 37 29 2b 31 32 37  3a 52 43 25 3d 30 0d 02  |127)+127:RC%=0..|
00000680  1c 05 cd 0d 02 26 05 e1  0d 02 30 04 0d 02 3a 07  |.....&....0...:.|
00000690  dd f2 43 0d 02 44 0e ea  20 52 25 2c 47 25 2c 42  |..C..D.. R%,G%,B|
000006a0  25 0d 02 4e 1e 52 25 3d  28 28 4b 25 2d 4e 25 29  |%..N.R%=((K%-N%)|
000006b0  2a 52 41 25 2b 4e 25 2a  52 42 25 29 2f 4b 25 0d  |*RA%+N%*RB%)/K%.|
000006c0  02 58 1e 47 25 3d 28 28  4b 25 2d 4e 25 29 2a 47  |.X.G%=((K%-N%)*G|
000006d0  41 25 2b 4e 25 2a 47 42  25 29 2f 4b 25 0d 02 62  |A%+N%*GB%)/K%..b|
000006e0  1e 42 25 3d 28 28 4b 25  2d 4e 25 29 2a 42 41 25  |.B%=((K%-N%)*BA%|
000006f0  2b 4e 25 2a 42 42 25 29  2f 4b 25 0d 02 6c 12 f2  |+N%*BB%)/K%..l..|
00000700  52 47 42 28 52 25 2c 47  25 2c 42 25 29 0d 02 76  |RGB(R%,G%,B%)..v|
00000710  05 e1 0d 02 80 04 0d 02  8a 13 dd f2 52 47 42 28  |............RGB(|
00000720  52 25 2c 47 25 2c 42 25  29 0d 02 94 25 ea 20 43  |R%,G%,B%)...%. C|
00000730  25 3a 43 25 3d 28 52 25  3c 3c 38 29 2b 28 47 25  |%:C%=(R%<<8)+(G%|
00000740  3c 3c 31 36 29 2b 28 42  25 3c 3c 32 34 29 0d 02  |<<16)+(B%<<24)..|
00000750  9e 28 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |.(.. "ColourTran|
00000760  73 5f 53 65 74 47 43 4f  4c 22 2c 43 25 2c 2c 2c  |s_SetGCOL",C%,,,|
00000770  26 31 30 30 2c 30 0d 02  a8 05 e1 0d 02 b2 04 0d  |&100,0..........|
00000780  ff                                                |.|
00000781

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .