Home » Archimedes archive » Acorn User » AU 1994-06.adf » !QTM_Music » !QTMTrack/Extras/VUBars
!QTMTrack/Extras/VUBars
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 1994-06.adf » !QTM_Music |
| Filename: | !QTMTrack/Extras/VUBars |
| Read OK: | ✔ |
| File size: | 0339 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM VU Bar example by PNX
2MODE 0
3OFF
4SYS "QTM_SongStatus" TO state%
5IF (state% AND 1)=0 THEN ERROR 255,"Load a song first!!!"
6:
7SYS "QTM_VUBarControl",1,2 TO oldtype,oldgrav :REM 'fake' bars, gravity=2
8ON ERROR SYS "XQTM_VUBarControl",oldtype,oldgrav:REPORT:PRINT" at line ";ERL:END
9PRINT"Press (F) for 'fake' bars, (E) for 'effect' bars, (R) for 'real' bars"
10PRINT'"Press 1-9 to alter gravity"
11REPEAT
12 WAIT
13 GCOL 0,0
14 RECTANGLE FILL 0,0,600,256
15 GCOL 0,1
16 x=0
17 channel=1
18 REPEAT
19 SYS "QTM_ReadVULevels",channel TO height
20 MOVE x,0
21 DRAW x,height*4
22 x+=200
23 channel+=1
24 UNTIL channel>4
25 key=INKEY(0)
26 IF key>=ASC"1" AND key<=ASC"9" THEN SYS "QTM_VUBarControl",-1,key-48
27 IF key=ASC"F" OR key=ASC"f" THEN SYS "QTM_VUBarControl",1,-1
28 IF key=ASC"E" OR key=ASC"e" THEN SYS "QTM_VUBarControl",2,-1
29 IF key=ASC"R" OR key=ASC"r" THEN SYS "QTM_VUBarControl",3,-1
30UNTIL0
� VU Bar example by PNX
� 0
�
ș "QTM_SongStatus" � state%
3� (state% � 1)=0 � � 255,"Load a song first!!!"
:
Lș "QTM_VUBarControl",1,2 � oldtype,oldgrav :� 'fake' bars, gravity=2
A� � ș "XQTM_VUBarControl",oldtype,oldgrav:�:�" at line ";�:�
L�"Press (F) for 'fake' bars, (E) for 'effect' bars, (R) for 'real' bars"
"�'"Press 1-9 to alter gravity"
�
Ȗ
� 0,0
ȓ Ȑ 0,0,600,256
� 0,1
x=0
channel=1
�
, ș "QTM_ReadVULevels",channel � height
� x,0
� x,height*4
x+=200
channel+=1
� channel>4
key=�(0)
> � key>=�"1" � key<=�"9" � ș "QTM_VUBarControl",-1,key-48
7 � key=�"F" � key=�"f" � ș "QTM_VUBarControl",1,-1
7 � key=�"E" � key=�"e" � ș "QTM_VUBarControl",2,-1
7 � key=�"R" � key=�"r" � ș "QTM_VUBarControl",3,-1
�0
� 00000000 0d 00 01 1b f4 20 56 55 20 42 61 72 20 65 78 61 |..... VU Bar exa| 00000010 6d 70 6c 65 20 62 79 20 50 4e 58 0d 00 02 07 eb |mple by PNX.....| 00000020 20 30 0d 00 03 05 87 0d 00 04 20 c8 99 20 22 51 | 0........ .. "Q| 00000030 54 4d 5f 53 6f 6e 67 53 74 61 74 75 73 22 20 b8 |TM_SongStatus" .| 00000040 20 73 74 61 74 65 25 0d 00 05 33 e7 20 28 73 74 | state%...3. (st| 00000050 61 74 65 25 20 80 20 31 29 3d 30 20 8c 20 85 20 |ate% . 1)=0 . . | 00000060 32 35 35 2c 22 4c 6f 61 64 20 61 20 73 6f 6e 67 |255,"Load a song| 00000070 20 66 69 72 73 74 21 21 21 22 0d 00 06 05 3a 0d | first!!!"....:.| 00000080 00 07 4c c8 99 20 22 51 54 4d 5f 56 55 42 61 72 |..L.. "QTM_VUBar| 00000090 43 6f 6e 74 72 6f 6c 22 2c 31 2c 32 20 b8 20 6f |Control",1,2 . o| 000000a0 6c 64 74 79 70 65 2c 6f 6c 64 67 72 61 76 20 20 |ldtype,oldgrav | 000000b0 20 20 3a f4 20 27 66 61 6b 65 27 20 62 61 72 73 | :. 'fake' bars| 000000c0 2c 20 67 72 61 76 69 74 79 3d 32 0d 00 08 41 ee |, gravity=2...A.| 000000d0 20 85 20 c8 99 20 22 58 51 54 4d 5f 56 55 42 61 | . .. "XQTM_VUBa| 000000e0 72 43 6f 6e 74 72 6f 6c 22 2c 6f 6c 64 74 79 70 |rControl",oldtyp| 000000f0 65 2c 6f 6c 64 67 72 61 76 3a f6 3a f1 22 20 61 |e,oldgrav:.:." a| 00000100 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 09 4c |t line ";.:....L| 00000110 f1 22 50 72 65 73 73 20 28 46 29 20 66 6f 72 20 |."Press (F) for | 00000120 27 66 61 6b 65 27 20 62 61 72 73 2c 20 28 45 29 |'fake' bars, (E)| 00000130 20 66 6f 72 20 27 65 66 66 65 63 74 27 20 62 61 | for 'effect' ba| 00000140 72 73 2c 20 28 52 29 20 66 6f 72 20 27 72 65 61 |rs, (R) for 'rea| 00000150 6c 27 20 62 61 72 73 22 0d 00 0a 22 f1 27 22 50 |l' bars"...".'"P| 00000160 72 65 73 73 20 31 2d 39 20 74 6f 20 61 6c 74 65 |ress 1-9 to alte| 00000170 72 20 67 72 61 76 69 74 79 22 0d 00 0b 05 f5 0d |r gravity"......| 00000180 00 0c 07 20 c8 96 0d 00 0d 0a 20 e6 20 30 2c 30 |... ...... . 0,0| 00000190 0d 00 0e 16 20 c8 93 20 c8 90 20 30 2c 30 2c 36 |.... .. .. 0,0,6| 000001a0 30 30 2c 32 35 36 0d 00 0f 0a 20 e6 20 30 2c 31 |00,256.... . 0,1| 000001b0 0d 00 10 08 20 78 3d 30 0d 00 11 0e 20 63 68 61 |.... x=0.... cha| 000001c0 6e 6e 65 6c 3d 31 0d 00 12 06 20 f5 0d 00 13 2c |nnel=1.... ....,| 000001d0 20 20 c8 99 20 22 51 54 4d 5f 52 65 61 64 56 55 | .. "QTM_ReadVU| 000001e0 4c 65 76 65 6c 73 22 2c 63 68 61 6e 6e 65 6c 20 |Levels",channel | 000001f0 b8 20 68 65 69 67 68 74 0d 00 14 0b 20 20 ec 20 |. height.... . | 00000200 78 2c 30 0d 00 15 12 20 20 df 20 78 2c 68 65 69 |x,0.... . x,hei| 00000210 67 68 74 2a 34 0d 00 16 0c 20 20 78 2b 3d 32 30 |ght*4.... x+=20| 00000220 30 0d 00 17 10 20 20 63 68 61 6e 6e 65 6c 2b 3d |0.... channel+=| 00000230 31 0d 00 18 10 20 fd 20 63 68 61 6e 6e 65 6c 3e |1.... . channel>| 00000240 34 0d 00 19 0d 20 6b 65 79 3d a6 28 30 29 0d 00 |4.... key=.(0)..| 00000250 1a 3e 20 e7 20 6b 65 79 3e 3d 97 22 31 22 20 80 |.> . key>=."1" .| 00000260 20 6b 65 79 3c 3d 97 22 39 22 20 8c 20 c8 99 20 | key<=."9" . .. | 00000270 22 51 54 4d 5f 56 55 42 61 72 43 6f 6e 74 72 6f |"QTM_VUBarContro| 00000280 6c 22 2c 2d 31 2c 6b 65 79 2d 34 38 0d 00 1b 37 |l",-1,key-48...7| 00000290 20 e7 20 6b 65 79 3d 97 22 46 22 20 84 20 6b 65 | . key=."F" . ke| 000002a0 79 3d 97 22 66 22 20 8c 20 c8 99 20 22 51 54 4d |y=."f" . .. "QTM| 000002b0 5f 56 55 42 61 72 43 6f 6e 74 72 6f 6c 22 2c 31 |_VUBarControl",1| 000002c0 2c 2d 31 0d 00 1c 37 20 e7 20 6b 65 79 3d 97 22 |,-1...7 . key=."| 000002d0 45 22 20 84 20 6b 65 79 3d 97 22 65 22 20 8c 20 |E" . key=."e" . | 000002e0 c8 99 20 22 51 54 4d 5f 56 55 42 61 72 43 6f 6e |.. "QTM_VUBarCon| 000002f0 74 72 6f 6c 22 2c 32 2c 2d 31 0d 00 1d 37 20 e7 |trol",2,-1...7 .| 00000300 20 6b 65 79 3d 97 22 52 22 20 84 20 6b 65 79 3d | key=."R" . key=| 00000310 97 22 72 22 20 8c 20 c8 99 20 22 51 54 4d 5f 56 |."r" . .. "QTM_V| 00000320 55 42 61 72 43 6f 6e 74 72 6f 6c 22 2c 33 2c 2d |UBarControl",3,-| 00000330 31 0d 00 1e 06 fd 30 0d ff |1.....0..| 00000339
.