Mercurial > hg > forks > pwpunix

annotate final_isi/time.c @ 69:c13a2f8c5b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename files and some minor cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 01 Jun 2012 17:41:15 +0300
parents final_isi/fisitime.c@acb5694e93d9
children 96dd9b4e3fe7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
1 #include "musa.h"
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
3 #define NUMCH 3
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
4
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 char cord=0,cpat=0,crow=0,drmt=0xff,drms=0;
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 char auditype;
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
8
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9 int plrbeep[2];
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 int musatempo=5;
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12 int freku[12] = {
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13 0x157,0x16b,0x181,0x198,0x1b0,0x1ca,
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
14 0x1e5,0x202,0x220,0x241,0x263,0x287
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15 };
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 char plst=0;
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
18 /*char ison[3]={1,1,1};*/
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 char hvilk[3]={0xfe,0xfe,0xfe};
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21 int lizayz=0;
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
23
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
24 void playtick()
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
25 {
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
26 plst++;
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
28 if (plst==musatempo) {
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
29 int l;
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
30 unsigned char mark,mkrl;
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
32 for(l=0;l<NUMCH;l++) {
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
33
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
34 mkrl=mark=trax[cpat][l][crow];
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
35
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
36 if(mark<0xf0)mkrl=mark+=lizayz;
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
37
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
38 if (auditype==2) plrbeep[l]=mark;
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
40 if(mark==0xfa){musatempo=8;lizayz=-16;}
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
41
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
42 if (mark==0xfb)if(auditype==2){
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
43 if(crow&1)mark=0xfe;else
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
44 mark=hvilk[l];
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
45 plrbeep[l]=mark;
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
46 }
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
47
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
48 if (mark==0xfe)
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
49 gbsound(l,0);
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
50
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
51 if (mark==0xfd) musatempo=16;
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
52 if (mark==0xfc) musatempo=4;
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
53
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
54 if (mark<0xf0) {
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
55
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
56 if(mark==mkrl)hvilk[l]=mark;
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
57 if((mark&15)>=12)mark+=4;
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
58
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
59 gbsound(l,(mark&15)+((mark>>4)*12));
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
60
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
61 } }
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
62
69
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
63 crow++; if (crow==64) {
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
64 crow=0;cord++;
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
65 cpat=patord[cord];
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
66 if (cpat==99) { cord=0; cpat=patord[cord]; }}
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
67 plst=0;
c13a2f8c5b10 Rename files and some minor cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 0
diff changeset
68 }
0
acb5694e93d9 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
69 }