pmdwin: pmdwin.cpp annotate

annotate pmdwin.cpp @ 10:e3849cd10ad3 default tip

Build an intermediary fmgen.a archive.

author	Emmanuel Gil Peyrot <linkmauve@linkmauve.fr>
date	Mon, 08 Sep 2014 17:44:53 +0200
parents	c55ea9478c80
children

rev	line source
0 c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2 // Professional Music Driver [P.M.D.] version 4.8
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3 // Programmed By M.Kajihara
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4 // Windows Converted by C60
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	6
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	7 #include <stdint.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	8 #include <stdlib.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	9 #include <string.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	10 #include <math.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	11 #include <limits.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	12 #include <fcntl.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	13 #include <unistd.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	14 #include <sys/time.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	15 #if defined(WIN32) \|\| defined(WIN64)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	16 #include <stdarg.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	17 #include <windef.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	18 #include <winbase.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	19 #include <winnt.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	20 #else
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	21 #include <sys/mman.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	22 #endif
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	23 #include "jisx0208.h"
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	24 #include "pmdwin.h"
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	25
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	26 /******************************************************************************
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	27 ; Part Table
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	28 ******************************************************************************/
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	29 static const uint8_t part_table[][3] = { // for PMDB2
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	30 // Part<94>ﾔ<8d><86>,Partb,<89>ｹ<8c>ｹ<94>ﾔ<8d><86>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	31 { 0, 1, 0 }, //A
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	32 { 1, 2, 0 }, //B
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	33 { 2, 3, 0 }, //C
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	34 { 3, 1, 1 }, //D
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	35 { 4, 2, 1 }, //E
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	36 { 5, 3, 1 }, //F
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	37 { 6, 1, 2 }, //G
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	38 { 7, 2, 2 }, //H
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	39 { 8, 3, 2 }, //I
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	40 { 9, 1, 3 }, //J
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	41 { 10, 3, 4 }, //K
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	42 { 11, 3, 0 }, //c2
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	43 { 12, 3, 0 }, //c3
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	44 { 13, 3, 0 }, //c4
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	45 { 255, 0, 255 }, //Rhythm
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	46 { 22, 3, 1 }, //Effect
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	47 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	48
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	49 static char *notes[12] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	50 "C ", "Db", "D ", "Eb", "E ", "F ", "F#", "G ", "G#", "A ", "Bb", "B "
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	51 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	52
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	53 static char *drums[6] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	54 "Bass ", "Snare ", "RideCym", "Hi-Hat ", "Tom-Tom", "Rim "
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	55 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	56
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	57 static inline unsigned int av_log2(unsigned int x) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	58 unsigned int ret;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	59 __asm__ volatile("or $1, %1 \n\t"
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	60 "bsr %1, %0 \n\t"
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	61 :"=a"(ret) : "D"(x));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	62 return ret;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	63 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	64
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	65 /******************************************************************************
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	66 ; <89>ｹ<8a>KDATA(FM)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	67 ******************************************************************************/
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	68 static const uint16_t fnum_data[] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	69 0x026a, // C
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	70 0x028f, // D-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	71 0x02b6, // D
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	72 0x02df, // E-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	73 0x030b, // E
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	74 0x0339, // F
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	75 0x036a, // G-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	76 0x039e, // G
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	77 0x03d5, // A-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	78 0x0410, // A
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	79 0x044e, // B-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	80 0x048f // B
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	81 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	82
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	83 /******************************************************************************
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	84 ; <89>ｹ<8a>KDATA(PSG)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	85 ******************************************************************************/
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	86 static const uint16_t psg_tune_data[] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	87 0x0ee8, // C
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	88 0x0e12, // D-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	89 0x0d48, // D
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	90 0x0c89, // E-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	91 0x0bd5, // E
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	92 0x0b2b, // F
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	93 0x0a8a, // G-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	94 0x09f3, // G
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	95 0x0964, // A-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	96 0x08dd, // A
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	97 0x085e, // B-
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	98 0x07e6, // B
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	99 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	100
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	101
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	102 /******************************************************************************
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	103 ; <82>e<82>l<89>ｹ<90>F<82>ﾌ<83>L<83><83><83><8a><83>A<82>ﾌ<83>e<81>[<83>u<83><8b>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	104 ******************************************************************************/
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	105 static const uint8_t carrier_table[] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	106 0x80, 0x80, 0x80, 0x80, 0xa0, 0xe0, 0xe0, 0xf0,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	107 0xee, 0xee, 0xee, 0xee, 0xcc, 0x88, 0x88, 0x00
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	108 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	109
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	110 /******************************************************************************
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	111 ; <83>h<83><89><83><80><83>X<97>p<83><8a><83>Y<83><80><83>f<81>[<83>^
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	112 ******************************************************************************/
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	113 static const uint8_t rhydat[][3] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	114 // PT,PAN/VOLUME,KEYON
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	115 { 0x18, 0xdf, 0x01 }, // <83>o<83>X
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	116 { 0x19, 0xdf, 0x02 }, // <83>X<83>l<83>A
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	117 { 0x1c, 0x5f, 0x10 }, // <83>^<83><80>[LOW]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	118 { 0x1c, 0xdf, 0x10 }, // <83>^<83><80>[MID]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	119 { 0x1c, 0x9f, 0x10 }, // <83>^<83><80>[HIGH]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	120 { 0x1d, 0xd3, 0x20 }, // <83><8a><83><80>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	121 { 0x19, 0xdf, 0x02 }, // <83>N<83><89><83>b<83>v
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	122 { 0x1b, 0x9c, 0x88 }, // C<83>n<83>C<83>n<83>b<83>g
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	123 { 0x1a, 0x9d, 0x04 }, // O<83>n<83>C<83>n<83>b<83>g
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	124 { 0x1a, 0xdf, 0x04 }, // <83>V<83><93><83>o<83><8b>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	125 { 0x1a, 0x5e, 0x04 } // RIDE<83>V<83><93><83>o<83><8b>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	126 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	127
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	128
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	129 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	130 // TimerAの処理[メイン]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	131 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	132 void PMDWIN::TimerA_main(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	133 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	134 open_work.TimerAflag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	135 open_work.TimerAtime++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	136
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	137 if(effwork.effon) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	138 effplay(); // SSG効果音処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	139 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	140
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	141 open_work.TimerAflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	142 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	143
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	144
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	145 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	146 // TimerBの処理[メイン]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	147 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	148 void PMDWIN::TimerB_main(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	149 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	150 open_work.TimerBflag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	151 if(pmdwork.music_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	152 if(pmdwork.music_flag & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	153 mstart();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	154 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	155
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	156 if(pmdwork.music_flag & 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	157 mstop();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	158 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	159 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	160
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	161 if(open_work.play_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	162 mmain();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	163 settempo_b();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	164 syousetu_count();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	165 pmdwork.lastTimerAtime = open_work.TimerAtime;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	166 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	167 open_work.TimerBflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	168 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	169
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	170
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	171 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	172 // MUSIC PLAYER MAIN [FROM TIMER-B]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	173 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	174 void PMDWIN::mmain(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	175 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	176 int i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	177
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	178 pmdwork.loop_work = 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	179 for(i = 0; i < 3; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	180 pmdwork.partb = i + 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	181 psgmain(&SSGPart[i]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	182 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	183
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	184 pmdwork.fmsel = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	185 for(i = 0; i < 3; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	186 pmdwork.partb = i + 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	187 fmmain(&FMPart[i+3]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	188 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	189
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	190 pmdwork.fmsel = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	191 for(i = 0; i < 3; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	192 pmdwork.partb = i + 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	193 fmmain(&FMPart[i]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	194 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	195 rhythmmain(&RhythmPart);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	196
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	197 for(i = 0; i < 8; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	198 pmdwork.partb = i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	199 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	200 if(pmdwork.loop_work == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	201
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	202 for(i = 0; i < 6; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	203 if(FMPart[i].loopcheck != 3) FMPart[i].loopcheck = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	204 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	205
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	206 for(i = 0; i < 3; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	207 if(SSGPart[i].loopcheck != 3) SSGPart[i].loopcheck = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	208 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	209 if(RhythmPart.loopcheck != 3) RhythmPart.loopcheck = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	210
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	211 if(pmdwork.loop_work != 3) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	212 open_work.status2++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	213 if(open_work.status2 == 255) open_work.status2 = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	214 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	215 open_work.status2 = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	216 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	217 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	218
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	219 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	220 // ＦＭ音源演奏メイン
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	221 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	222 void PMDWIN::fmmain(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	223 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	224 uchar *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	225
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	226 if(qq->address == NULL) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	227
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	228 si = qq->address;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	229
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	230 qq->leng--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	231
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	232 if(qq->partmask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	233 qq->keyoff_flag = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	234 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	235 // KEYOFF CHECK & Keyoff
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	236 if((qq->keyoff_flag & 3) == 0) { // 既にkeyoffしたか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	237 if(qq->leng <= qq->qdat) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	238 keyoff(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	239 qq->keyoff_flag = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	240 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	241 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	242 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	243
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	244 // LENGTH CHECK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	245 if(qq->leng == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	246 if(qq->partmask == 0) qq->lfoswi &= 0xf7;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	247
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	248 while(1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	249 if(si > 0x80 && si != 0xda) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	250 si = commands(qq, si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	251 } else if(*si == 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	252 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	253 qq->loopcheck = 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	254 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	255 if(qq->partloop == NULL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	256 if(qq->partmask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	257 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	258 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	259 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	260 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	261 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	262 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	263 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	264 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	265 // "L"があった時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	266 si = qq->partloop;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	267 qq->loopcheck = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	268 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	269 if(*si == 0xda) { // ポルタメント
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	270 si = porta(qq, ++si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	271 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	272 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	273 } else if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	274 // TONE SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	275 lfoinit(qq, *si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	276 fnumset(qq, oshift(qq, *si++));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	277
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	278 qq->leng = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	279 si = calc_q(qq, si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	280
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	281 if(qq->volpush && qq->onkai != 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	282 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	283 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	284 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	285 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	286 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	287
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	288 volset(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	289 otodasi(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	290 keyon(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	291
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	292 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	293 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	294
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	295 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	296 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	297
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	298 if(*si == 0xfb) { // '&'が直後にあったらkeyoffしない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	299 qq->keyoff_flag = 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	300 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	301 qq->keyoff_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	302 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	303 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	304 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	305 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	306 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	307 qq->fnum = 0; //休符に設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	308 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	309 qq->onkai_def = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	310 qq->leng = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	311 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	312 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	313
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	314 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	315 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	316 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	317
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	318 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	319 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	320 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	321 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	322 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	323 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	324 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	325
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	326 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	327
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	328 // LFO & Portament & Fadeout 処理をして終了
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	329 if(qq->hldelay_c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	330 if(--qq->hldelay_c == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	331 OPNASetReg(&opna, pmdwork.fmsel +
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	332 (pmdwork.partb - 1 + 0xb4), qq->fmpan);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	333 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	334 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	335
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	336 if(qq->sdelay_c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	337 if(--qq->sdelay_c == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	338 if((qq->keyoff_flag & 1) == 0) { // 既にkeyoffしたか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	339 keyon(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	340 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	341 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	342 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	343
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	344 if(qq->lfoswi) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	345 pmdwork.lfo_switch = qq->lfoswi & 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	346 if(qq->lfoswi & 3) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	347 if(lfo(qq)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	348 pmdwork.lfo_switch \|= (qq->lfoswi & 3);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	349 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	350 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	351
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	352 if(qq->lfoswi & 0x30) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	353 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	354 if(lfo(qq)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	355 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	356 pmdwork.lfo_switch \|= (qq->lfoswi & 0x30);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	357 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	358 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	359 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	360 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	361
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	362 if(pmdwork.lfo_switch & 0x19) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	363 if(pmdwork.lfo_switch & 8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	364 porta_calc(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	365
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	366 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	367 otodasi(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	368 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	369
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	370 if(pmdwork.lfo_switch & 0x22) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	371 volset(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	372 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	373 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	374 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	375 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	376 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	377
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	378 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	379 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	380
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	381
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	382 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	383 // KEY OFF
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	384 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	385 void PMDWIN::keyoff(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	386 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	387 if(qq->onkai == 255) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	388 kof1(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	389 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	390
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	391
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	392 void PMDWIN::kof1(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	393 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	394 if(pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	395 pmdwork.omote_key[pmdwork.partb-1]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	396 = (~qq->slotmask) & (pmdwork.omote_key[pmdwork.partb-1]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	397 OPNASetReg(&opna, 0x28, (pmdwork.partb-1) \| pmdwork.omote_key[pmdwork.partb-1]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	398 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	399 pmdwork.ura_key[pmdwork.partb-1]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	400 = (~qq->slotmask) & (pmdwork.ura_key[pmdwork.partb-1]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	401 OPNASetReg(&opna, 0x28, ((pmdwork.partb-1) \| pmdwork.ura_key[pmdwork.partb-1]) \| 4);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	402 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	403 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	404
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	405
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	406 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	407 // ＦＭ　ＫＥＹＯＮ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	408 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	409 void PMDWIN::keyon(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	410 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	411 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	412
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	413 if(qq->onkai == 255) return; // ｷｭｳﾌﾉﾄｷ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	414 uint32_t op = ((pmdwork.partb-1)&7)\|(!!pmdwork.fmsel << 2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	415 switch(op) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	416 case 0:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	417 pmdstatus[0] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	418 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	419 case 1:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	420 pmdstatus[1] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	421 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	422 case 2:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	423 pmdstatus[2] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	424 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	425 case 4:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	426 pmdstatus[3] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	427 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	428 case 5:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	429 pmdstatus[4] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	430 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	431 case 6:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	432 pmdstatus[5] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	433 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	434 default:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	435 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	436 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	437
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	438 if(pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	439 al = pmdwork.omote_key[pmdwork.partb-1] \| qq->slotmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	440 if(qq->sdelay_c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	441 al &= qq->sdelay_m;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	442 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	443
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	444 pmdwork.omote_key[pmdwork.partb-1] = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	445 OPNASetReg(&opna, 0x28, (pmdwork.partb-1) \| al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	446 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	447 al = pmdwork.ura_key[pmdwork.partb-1] \| qq->slotmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	448 if(qq->sdelay_c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	449 al &= qq->sdelay_m;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	450 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	451
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	452 pmdwork.ura_key[pmdwork.partb-1] = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	453 OPNASetReg(&opna, 0x28, ((pmdwork.partb-1) \| al) \| 4);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	454 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	455 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	456
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	457
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	458 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	459 // Set [ FNUM/BLOCK + DETUNE + LFO ]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	460 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	461 void PMDWIN::otodasi(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	462 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	463 int ax, cx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	464
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	465 if(qq->fnum == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	466 if(qq->slotmask == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	467
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	468 cx = (qq->fnum & 0x3800); // cx=BLOCK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	469 ax = (qq->fnum) & 0x7ff; // ax=FNUM
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	470
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	471 // Portament/LFO/Detune SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	472 ax += qq->porta_num + qq->detune;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	473
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	474 if(pmdwork.partb == 3 && pmdwork.fmsel == 0 && open_work.ch3mode != 0x3f) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	475 ch3_special(qq, ax, cx);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	476 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	477 if(qq->lfoswi & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	478 ax += qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	479 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	480
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	481 if(qq->lfoswi & 0x10) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	482 ax += qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	483 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	484
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	485 fm_block_calc(&cx, &ax);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	486
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	487 // SET BLOCK/FNUM TO OPN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	488
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	489 ax \|= cx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	490
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	491 OPNASetReg(&opna, pmdwork.fmsel + pmdwork.partb+0xa4-1, ax >> 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	492 OPNASetReg(&opna, pmdwork.fmsel + pmdwork.partb+0xa4-5, ax & 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	493 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	494 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	495
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	496
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	497 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	498 // FM音源のdetuneでオクターブが変わる時の修正
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	499 // input CX:block / AX:fnum+detune
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	500 // output CX:block / AX:fnum
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	501 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	502 void PMDWIN::fm_block_calc(int cx, int ax)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	503 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	504 while(*ax >= 0x26a) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	505 if(ax < (0x26a2)) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	506
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	507 *cx += 0x800; // oct.up
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	508 if(*cx != 0x4000) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	509 *ax -= 0x26a; // 4d2h-26ah
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	510 } else { // ﾓｳｺﾚｲｼﾞｮｳｱｶﾞﾝﾅｲﾖﾝ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	511 *cx = 0x3800;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	512 if(*ax >= 0x800)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	513 *ax = 0x7ff; // 4d2h
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	514 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	515 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	516 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	517
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	518 while(*ax < 0x26a) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	519 *cx -= 0x800; // oct.down
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	520 if(*cx >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	521 *ax += 0x26a; // 4d2h-26ah
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	522 } else { // ﾓｳｺﾚｲｼﾞｮｳｻｶﾞﾝﾅｲﾖﾝ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	523 *cx = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	524 if(*ax < 8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	525 *ax = 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	526 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	527 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	528 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	529 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	530 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	531
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	532
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	533 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	534 // パートを判別してch3ならmode設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	535 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	536 int PMDWIN::ch3_setting(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	537 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	538 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	539 ch3mode_set(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	540 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	541 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	542 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	543 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	544 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	545
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	546
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	547 void PMDWIN::cm_clear(int ah, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	548 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	549 *al ^= 0xff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	550 if((pmdwork.slot3_flag &= *al) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	551 if(pmdwork.slotdetune_flag != 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	552 *ah = 0x3f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	553 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	554 *ah = 0x7f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	555 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	556 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	557 *ah = 0x7f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	558 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	559 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	560
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	561
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	562 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	563 // FM3のmodeを設定する
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	564 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	565 void PMDWIN::ch3mode_set(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	566 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	567 int ah, al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	568
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	569 if(qq == &FMPart[3-1]) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	570 al = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	571 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	572 al = 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	573 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	574
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	575 if((qq->slotmask & 0xf0) == 0) { // s0
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	576 cm_clear(&ah, &al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	577 } else if(qq->slotmask != 0xf0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	578 pmdwork.slot3_flag \|= al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	579 ah = 0x7f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	580 } else if((qq->volmask & 0x0f) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	581 cm_clear(&ah, &al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	582 } else if((qq->lfoswi & 1) != 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	583 pmdwork.slot3_flag \|= al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	584 ah = 0x7f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	585 } else if((qq->_volmask & 0x0f) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	586 cm_clear(&ah, &al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	587 } else if(qq->lfoswi & 0x10) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	588 pmdwork.slot3_flag \|= al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	589 ah = 0x7f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	590 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	591 cm_clear(&ah, &al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	592 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	593
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	594 if(ah == open_work.ch3mode) return; // 以前と変更無しなら何もしない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	595 open_work.ch3mode = ah;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	596 OPNASetReg(&opna, 0x27, ah & 0xcf); // Resetはしない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	597
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	598 // 効果音モードに移った場合はそれ以前のFM3パートで音程書き換え
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	599 if(ah == 0x3f \|\| qq == &FMPart[2]) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	600 if(FMPart[2].partmask == 0) otodasi(&FMPart[2]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	601 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	602
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	603
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	604 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	605 // ch3=効果音モードを使用する場合の音程設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	606 // input CX:block AX:fnum
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	607 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	608 void PMDWIN::ch3_special(QQ *qq, int ax, int cx)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	609 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	610 int ax_, bh, ch, si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	611 int shiftmask = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	612
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	613 si = cx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	614
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	615 if((qq->volmask & 0x0f) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	616 bh = 0xf0; // all
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	617 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	618 bh = qq->volmask; // bh=lfo1 mask 4321xxxx
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	619 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	620
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	621 if((qq->_volmask & 0x0f) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	622 ch = 0xf0; // all
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	623 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	624 ch = qq->_volmask; // ch=lfo2 mask 4321xxxx
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	625 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	626
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	627 // slot 4
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	628 if(qq->slotmask & 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	629 ax_ = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	630 ax += open_work.slot_detune4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	631 if((bh & shiftmask) && (qq->lfoswi & 0x01)) ax += qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	632 if((ch & shiftmask) && (qq->lfoswi & 0x10)) ax += qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	633 shiftmask >>= 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	634
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	635 cx = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	636 fm_block_calc(&cx, &ax);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	637 ax \|= cx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	638
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	639 OPNASetReg(&opna, 0xa6, ax >> 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	640 OPNASetReg(&opna, 0xa2, ax & 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	641
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	642 ax = ax_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	643 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	644
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	645 // slot 3
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	646 if(qq->slotmask & 0x40) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	647 ax_ = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	648 ax += open_work.slot_detune3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	649 if((bh & shiftmask) && (qq->lfoswi & 0x01)) ax += qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	650 if((ch & shiftmask) && (qq->lfoswi & 0x10)) ax += qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	651 shiftmask >>= 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	652
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	653 cx = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	654 fm_block_calc(&cx, &ax);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	655 ax \|= cx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	656
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	657 OPNASetReg(&opna, 0xac, ax >> 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	658 OPNASetReg(&opna, 0xa8, ax & 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	659
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	660 ax = ax_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	661 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	662
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	663 // slot 2
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	664 if(qq->slotmask & 0x20) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	665 ax_ = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	666 ax += open_work.slot_detune2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	667 if((bh & shiftmask) && (qq->lfoswi & 0x01)) ax += qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	668 if((ch & shiftmask) && (qq->lfoswi & 0x10)) ax += qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	669 shiftmask >>= 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	670
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	671 cx = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	672 fm_block_calc(&cx, &ax);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	673 ax \|= cx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	674
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	675 OPNASetReg(&opna, 0xae, ax >> 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	676 OPNASetReg(&opna, 0xaa, ax & 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	677
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	678 ax = ax_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	679 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	680
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	681 // slot 1
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	682 if(qq->slotmask & 0x10) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	683 ax_ = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	684 ax += open_work.slot_detune1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	685 if((bh & shiftmask) && (qq->lfoswi & 0x01)) ax += qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	686 if((ch & shiftmask) && (qq->lfoswi & 0x10)) ax += qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	687 cx = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	688 fm_block_calc(&cx, &ax);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	689 ax \|= cx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	690
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	691 OPNASetReg(&opna, 0xad, ax >> 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	692 OPNASetReg(&opna, 0xa9, ax & 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	693
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	694 ax = ax_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	695 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	696 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	697
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	698
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	699 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	700 // 'p' COMMAND [FM PANNING SET]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	701 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	702 uchar * PMDWIN::panset(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	703 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	704 panset_main(qq, *si++);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	705 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	706 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	707
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	708
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	709 void PMDWIN::panset_main(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	710 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	711 qq->fmpan = ((qq->fmpan & 0x3f) \| ((al << 6) & 0xc0));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	712
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	713 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	714 // FM3の場合は 4つのパート総て設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	715 FMPart[2].fmpan = qq->fmpan;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	716 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	717
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	718 if(qq->partmask == 0) { // パートマスクされているか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	719 // dl = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	720 OPNASetReg(&opna, pmdwork.fmsel + pmdwork.partb+0xb4-1,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	721 calc_panout(qq));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	722 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	723 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	724
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	725
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	726 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	727 // 0b4h〜に設定するデータを取得 out.dl
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	728 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	729 uchar PMDWIN::calc_panout(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	730 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	731 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	732
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	733 dl = qq->fmpan;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	734 if(qq->hldelay_c) dl &= 0xc0; // HLFO Delayが残ってる場合はパンのみ設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	735 return dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	736 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	737
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	738
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	739 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	740 // Pan setting Extend
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	741 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	742 uchar * PMDWIN::panset_ex(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	743 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	744 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	745
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	746 al = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	747 si++; // 逆走flagは読み飛ばす
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	748
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	749 if(al > 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	750 al = 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	751 panset_main(qq, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	752 } else if(al == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	753 al = 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	754 panset_main(qq, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	755 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	756 al = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	757 panset_main(qq, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	758 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	759 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	760 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	761
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	762
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	763 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	764 // ＦＭ音源用　Entry
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	765 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	766 void PMDWIN::lfoinit(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	767 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	768 int ah;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	769
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	770 ah = al & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	771 if(ah == 0x0c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	772 al = qq->onkai_def;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	773 ah = al & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	774 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	775
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	776 qq->onkai_def = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	777
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	778 if(ah == 0x0f) { // ｷｭｰﾌﾉﾄｷﾊ INIT ｼﾅｲﾖ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	779 lfo_exit(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	780 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	781 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	782
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	783 qq->porta_num = 0; // ポルタメントは初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	784
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	785 if((pmdwork.tieflag & 1) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	786 lfin1(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	787 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	788 lfo_exit(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	789 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	790 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	791
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	792
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	793 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	794 // ＦＭ　BLOCK,F-NUMBER SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	795 // INPUTS -- AL [KEY#,0-7F]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	796 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	797 void PMDWIN::fnumset(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	798 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	799 int ax,bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	800
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	801 if((al & 0x0f) != 0x0f) { // 音符の場合
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	802 qq->onkai = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	803
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	804 // BLOCK/FNUM CALICULATE
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	805 bx = al & 0x0f; // bx=onkai
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	806 ax = fnum_data[bx];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	807
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	808 // BLOCK SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	809 ax \|= (((al >> 1) & 0x38) << 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	810 qq->fnum = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	811 } else { // 休符の場合
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	812 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	813 if((qq->lfoswi & 0x11) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	814 qq->fnum = 0; // 音程LFO未使用
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	815 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	816 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	817 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	818
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	819
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	820 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	821 // ＦＭ音量設定メイン
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	822 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	823 void PMDWIN::volset(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	824 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	825 int bh, bl, cl, dh;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	826 uchar vol_tbl[4] = {0, 0, 0, 0};
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	827
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	828 if(qq->slotmask == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	829 if(qq->volpush) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	830 cl = qq->volpush - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	831 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	832 cl = qq->volume;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	833 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	834
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	835 //--------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	836 // 音量down計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	837 //--------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	838 if(open_work.fm_voldown) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	839 cl = ((256-open_work.fm_voldown) * cl) >> 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	840 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	841
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	842 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	843 // 音量をcarrierに設定 & 音量LFO処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	844 // input cl to Volume[0-127]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	845 // bl to SlotMask
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	846 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	847
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	848 bh=0; // Vol Slot Mask
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	849 bl=qq->slotmask; // ch=SlotMask Push
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	850
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	851 vol_tbl[0] = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	852 vol_tbl[1] = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	853 vol_tbl[2] = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	854 vol_tbl[3] = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	855
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	856 cl = 255-cl; // cl=carrierに設定する音量+80H(add)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	857 bl &= qq->carrier; // bl=音量を設定するSLOT xxxx0000b
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	858 bh \|= bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	859
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	860 if(bl & 0x80) vol_tbl[0] = cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	861 if(bl & 0x40) vol_tbl[1] = cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	862 if(bl & 0x20) vol_tbl[2] = cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	863 if(bl & 0x10) vol_tbl[3] = cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	864
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	865 if(cl != 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	866 if(qq->lfoswi & 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	867 bl = qq->volmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	868 bl &= qq->slotmask; // bl=音量LFOを設定するSLOT xxxx0000b
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	869 bh \|= bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	870 fmlfo_sub(qq, qq->lfodat, bl, vol_tbl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	871 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	872
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	873 if(qq->lfoswi & 0x20) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	874 bl = qq->_volmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	875 bl &= qq->slotmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	876 bh \|= bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	877 fmlfo_sub(qq, qq->_lfodat, bl, vol_tbl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	878 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	879 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	880
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	881 dh = 0x4c - 1 + pmdwork.partb; // dh=FM Port Address
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	882
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	883 if(bh & 0x80) volset_slot(dh, qq->slot4, vol_tbl[0]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	884 if(bh & 0x40) volset_slot(dh-8, qq->slot3, vol_tbl[1]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	885 if(bh & 0x20) volset_slot(dh-4, qq->slot2, vol_tbl[2]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	886 if(bh & 0x10) volset_slot(dh-12, qq->slot1, vol_tbl[3]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	887 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	888
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	889
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	890 //-----------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	891 // スロット毎の計算 & 出力マクロ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	892 // in. dl 元のTL値
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	893 // dh Outするレジスタ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	894 // al 音量変動値中心=80h
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	895 //-----------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	896 void PMDWIN::volset_slot(int dh, int dl, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	897 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	898 if((al += dl) > 255) al = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	899 if((al -= 0x80) < 0) al = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	900 OPNASetReg(&opna, pmdwork.fmsel + dh, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	901 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	902
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	903
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	904 //-----------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	905 // 音量LFO用サブ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	906 //-----------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	907 void PMDWIN::fmlfo_sub(QQ qq, int al, int bl, uchar vol_tbl)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	908 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	909 if(bl & 0x80) vol_tbl[0] = Limit(vol_tbl[0] - al, 255, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	910 if(bl & 0x40) vol_tbl[1] = Limit(vol_tbl[1] - al, 255, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	911 if(bl & 0x20) vol_tbl[2] = Limit(vol_tbl[2] - al, 255, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	912 if(bl & 0x10) vol_tbl[3] = Limit(vol_tbl[3] - al, 255, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	913 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	914
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	915
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	916 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	917 // ＳＳＧ音源　演奏　メイン
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	918 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	919 void PMDWIN::psgmain(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	920 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	921 uchar *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	922 int temp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	923
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	924 if(qq->address == NULL) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	925 si = qq->address;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	926
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	927 qq->leng--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	928
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	929 // KEYOFF CHECK & Keyoff
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	930 if(qq->partmask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	931 qq->keyoff_flag = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	932 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	933 if((qq->keyoff_flag & 3) == 0) { // 既にkeyoffしたか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	934 if(qq->leng <= qq->qdat) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	935 keyoffp(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	936 qq->keyoff_flag = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	937 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	938 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	939 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	940
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	941 // LENGTH CHECK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	942 if(qq->leng == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	943 qq->lfoswi &= 0xf7;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	944
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	945 // DATA READ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	946 while(1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	947 if(si == 0xda && ssgdrum_check(qq, si) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	948 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	949 } else if(si > 0x80 && si != 0xda) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	950 si = commandsp(qq, si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	951 } else if(*si == 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	952 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	953 qq->loopcheck = 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	954 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	955 if(qq->partloop == NULL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	956 if(qq->partmask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	957 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	958 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	959 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	960 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	961 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	962 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	963 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	964 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	965 // "L"があった時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	966 si = qq->partloop;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	967 qq->loopcheck = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	968 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	969 if(*si == 0xda) { // ポルタメント
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	970 si = portap(qq, ++si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	971 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	972 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	973 } else if(qq->partmask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	974 if(ssgdrum_check(qq, *si) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	975 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	976 qq->fnum = 0; //休符に設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	977 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	978 qq->leng = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	979 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	980 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	981
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	982 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	983 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	984 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	985
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	986 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	987 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	988 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	989 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	990 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	991
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	992 // TONE SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	993 lfoinitp(qq, *si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	994 fnumsetp(qq, oshiftp(qq, *si++));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	995
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	996 qq->leng = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	997 si = calc_q(qq, si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	998
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	999 if(qq->volpush && qq->onkai != 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1000 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1001 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1002 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1003 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1004 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1005
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1006 volsetp(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1007 otodasip(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1008 keyonp(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1009
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1010 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1011 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1012
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1013 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1014 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1015 qq->keyoff_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1016
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1017 if(*si == 0xfb) { // '&'が直後にあったらkeyoffしない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1018 qq->keyoff_flag = 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1019 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1020 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1021 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1022 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1023 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1024 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1025
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1026 pmdwork.lfo_switch = (qq->lfoswi & 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1027
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1028 if(qq->lfoswi) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1029 if(qq->lfoswi & 3) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1030 if(lfo(qq)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1031 pmdwork.lfo_switch \|= (qq->lfoswi & 3);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1032 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1033 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1034
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1035 if(qq->lfoswi & 0x30) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1036 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1037 if(lfo(qq)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1038 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1039 pmdwork.lfo_switch \|= (qq->lfoswi & 0x30);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1040 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1041 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1042 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1043 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1044
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1045 if(pmdwork.lfo_switch & 0x19) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1046 if(pmdwork.lfo_switch & 0x08) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1047 porta_calc(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1048 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1049
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1050 // SSG 3ch で休符かつ SSG Drum 発音中は操作しない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1051 if(!(qq == &SSGPart[2] && qq->onkai == 255 && open_work.kshot_dat)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1052 otodasip(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1053 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1054 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1055 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1056
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1057 temp = soft_env(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1058 if(temp \|\| pmdwork.lfo_switch & 0x22) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1059 // SSG 3ch で休符かつ SSG Drum 発音中は volume set しない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1060 if(!(qq == &SSGPart[2] && qq->onkai == 255 && open_work.kshot_dat)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1061 volsetp(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1062 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1063 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1064
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1065 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1066 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1067
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1068
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1069 void PMDWIN::keyoffp(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1070 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1071 if(qq->onkai == 255) return; // ｷｭｳﾌﾉﾄｷ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1072 if(qq->envf != -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1073 qq->envf = 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1074 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1075 qq->eenv_count = 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1076 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1077 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1078
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1079
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1080 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1081 // リズムパート　演奏　メイン
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1082 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1083 void PMDWIN::rhythmmain(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1084 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1085 uchar si, bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1086 int al, result;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1087
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1088 if(qq->address == NULL) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1089
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1090 si = qq->address;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1091
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1092 if(--qq->leng == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1093 bx = open_work.rhyadr;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1094
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1095 rhyms00:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1096 do {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1097 result = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1098 al = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1099 if(al != 0xff) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1100 if(al & 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1101 bx = rhythmon(qq, bx, al, &result);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1102 if(result == 0) continue;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1103 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1104 open_work.kshot_dat = 0; //rest
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1105 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1106
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1107 al = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1108 open_work.rhyadr = bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1109 qq->leng = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1110 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1111 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1112 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1113 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1114 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1115 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1116 }while(result == 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1117
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1118 while(1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1119 while((al = *si++) != 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1120 if(al < 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1121 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1122
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1123 // bx = (ushort *)&open_work.radtbl[al];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1124 // bx = open_work.rhyadr = &open_work.mmlbuf[*bx];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1125 bx = open_work.rhyadr = &open_work.mmlbuf[open_work.radtbl[al]];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1126 goto rhyms00;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1127 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1128
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1129 // al > 0x80
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1130 si = commandsr(qq, si-1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1131 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1132
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1133 qq->address = --si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1134 qq->loopcheck = 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1135 bx = qq->partloop;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1136 if(bx == NULL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1137 open_work.rhyadr = (uchar *)&pmdwork.rhydmy;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1138 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1139 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1140 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1141 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1142 } else { // "L"があった時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1143 si = bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1144 qq->loopcheck = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1145 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1146 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1147 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1148
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1149 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1150 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1151
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1152
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1153 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1154 // PSGﾘｽﾞﾑ ON
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1155 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1156 uchar * PMDWIN::rhythmon(QQ qq, uchar bx, int al, int *result)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1157 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1158 int cl, dl, bx_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1159
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1160 if(al & 0x40) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1161 bx = commandsr(qq, bx-1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1162 *result = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1163 return bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1164 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1165
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1166 *result = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1167
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1168 if(qq->partmask) { // maskされている場合
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1169 open_work.kshot_dat = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1170 return ++bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1171 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1172
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1173 al = ((al << 8) + *bx++) & 0x3fff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1174 open_work.kshot_dat = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1175 if(al == 0) return bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1176 open_work.rhyadr = bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1177
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1178 for(cl = 0; cl < 11; cl++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1179 if(al & (1 << cl)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1180 OPNASetReg(&opna, rhydat[cl][0], rhydat[cl][1]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1181 if((dl = (rhydat[cl][2] & open_work.rhythmmask))) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1182 if(dl < 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1183 OPNASetReg(&opna, 0x10, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1184 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1185 OPNASetReg(&opna, 0x10, 0x84);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1186 dl = open_work.rhythmmask & 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1187 if(dl) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1188 OPNASetReg(&opna, 0x10, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1189 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1190 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1191 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1192 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1193 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1194
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1195 bx_ = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1196 al = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1197 do {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1198 while((bx_ & 1) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1199 bx_ >>= 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1200 al++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1201 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1202 eff_main(al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1203 bx_ >>= 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1204 }while(pmdwork.ppsdrv_flag && bx_); // PPSDRVなら２音目以上も鳴らしてみる
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1205
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1206 return open_work.rhyadr;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1207 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1208
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1209
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1210 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1211 // ＰＳＧ　ドラムス＆効果音　ルーチン
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1212 // Ｆｒｏｍ　ＷＴ２９８
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1213 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1214 // AL に効果音Ｎｏ．を入れて　ＣＡＬＬする
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1215 // ppsdrvがあるならそっちを鳴らす
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1216 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1217 void PMDWIN::eff_main(int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1218 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1219 int priority;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1220 pmdstatus[8] = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1221 effwork.psgefcnum = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1222 if (al == 7 \|\| al == 8) return; // PSG hihat sounds godawful, don't play it at all
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1223 priority = ((al > 10) ? 2 : 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1224 if(effwork.effon <= priority) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1225 SSGPart[2].partmask \|= 2; // Part Mask
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1226 efffor(efftbl[al]); // １発目を発音
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1227 effwork.effon = priority;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1228 // 優先順位を設定(発音開始)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1229 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1230 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1231
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1232
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1233 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1234 // こーかおん　えんそう　めいん
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1235 // Ｆｒｏｍ　ＶＲＴＣ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1236 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1237 void PMDWIN::effplay(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1238 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1239 if(--effwork.effcnt) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1240 effsweep(); // 新しくセットされない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1241 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1242 efffor(effwork.effadr);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1243 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1244 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1245
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1246
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1247 void PMDWIN::efffor(const int *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1248 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1249 int al, ch, cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1250
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1251 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1252 if(al == -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1253 effend();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1254 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1255 effwork.effcnt = al; // カウント数
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1256 cl = *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1257 PSGSetReg(&(opna.psg), 4, *si++); // 周波数セット
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1258 ch = *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1259 PSGSetReg(&(opna.psg), 5, *si++); // 周波数セット
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1260 effwork.eswthz = (ch << 8) + cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1261
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1262 open_work.psnoi_last = effwork.eswnhz = *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1263 PSGSetReg(&(opna.psg), 6, *si++); // ノイズ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1264
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1265 PSGSetReg(&(opna.psg), 7, ((*si++ << 2) & 0x24) \| (PSGGetReg(&(opna.psg), 0x07) & 0xdb));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1266
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1267 PSGSetReg(&(opna.psg), 10, *si++); // ボリューム
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1268 PSGSetReg(&(opna.psg), 11, *si++); // エンベロープ周波数
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1269 PSGSetReg(&(opna.psg), 12, *si++); //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1270 PSGSetReg(&(opna.psg), 13, *si++); // エンベロープPATTERN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1271
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1272 effwork.eswtst = *si++; // スイープ増分 (TONE)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1273 effwork.eswnst = *si++; // スイープ増分 (NOISE)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1274
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1275 effwork.eswnct = effwork.eswnst & 15; // スイープカウント (NOISE)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1276
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1277 effwork.effadr = (int *)si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1278 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1279 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1280
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1281
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1282 void PMDWIN::effend(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1283 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1284 PSGSetReg(&(opna.psg), 0x0a, 0x00);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1285 PSGSetReg(&(opna.psg), 0x07, ((PSGGetReg(&(opna.psg), 0x07)) & 0xdb) \| 0x24);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1286 effwork.effon = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1287 effwork.psgefcnum = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1288 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1289
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1290
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1291 // 普段の処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1292 void PMDWIN::effsweep(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1293 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1294 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1295
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1296 effwork.eswthz += effwork.eswtst;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1297 PSGSetReg(&(opna.psg), 4, effwork.eswthz & 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1298 PSGSetReg(&(opna.psg), 5, effwork.eswthz >> 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1299
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1300 if(effwork.eswnst == 0) return; // ノイズスイープ無し
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1301 if(--effwork.eswnct) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1302
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1303 dl = effwork.eswnst;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1304 effwork.eswnct = dl & 15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1305
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1306 effwork.eswnhz += dl / 16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1307
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1308 PSGSetReg(&(opna.psg), 6, effwork.eswnhz);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1309 open_work.psnoi_last = effwork.eswnhz;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1310 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1311
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1312
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1313 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1314 // SSGドラムを消してSSGを復活させるかどうかcheck
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1315 // input AL <- Command
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1316 // output cy=1 : 復活させる
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1317 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1318 int PMDWIN::ssgdrum_check(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1319 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1320 // SSGマスク中はドラムを止めない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1321 // SSGドラムは鳴ってない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1322 if((qq->partmask & 1) \|\| ((qq->partmask & 2) == 0)) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1323
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1324 // 普通の効果音は消さない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1325 if(effwork.effon >= 2) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1326
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1327 al = (al & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1328
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1329 // 休符の時はドラムは止めない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1330 if(al == 0x0f) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1331
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1332 // SSGドラムはまだ再生中か？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1333 if(effwork.effon == 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1334 effend(); // SSGドラムを消す
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1335 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1336
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1337 if((qq->partmask &= 0xfd) == 0) return -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1338 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1339 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1340
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1341
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1342 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1343 // 各種特殊コマンド処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1344 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1345 uchar * PMDWIN::commands(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1346 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1347 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1348
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1349 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1350 switch(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1351 case 0xff : si = comat(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1352 case 0xfe : qq->qdata = *si++; qq->qdat3 = 0; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1353 case 0xfd : qq->volume = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1354 case 0xfc : si = comt(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1355
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1356 case 0xfb : pmdwork.tieflag \|= 1; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1357 case 0xfa : qq->detune = (short )si; si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1358 case 0xf9 : si = comstloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1359 case 0xf8 : si = comedloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1360 case 0xf7 : si = comexloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1361 case 0xf6 : qq->partloop = si; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1362 case 0xf5 : qq->shift = (char )si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1363 case 0xf4 : if((qq->volume+=4) > 127) qq->volume = 127; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1364 case 0xf3 : if(qq->volume < 4) qq->volume=0; else qq->volume-=4; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1365 case 0xf2 : si = lfoset(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1366 case 0xf1 : si = lfoswitch(qq, si); ch3_setting(qq); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1367 case 0xf0 : si+=4; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1368
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1369 case 0xef : OPNASetReg(&opna, pmdwork.fmsel + si, (si+1)); si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1370 case 0xee : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1371 case 0xed : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1372 case 0xec : si = panset(qq, si); break; // FOR SB2
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1373 case 0xeb : si = rhykey(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1374 case 0xea : si = rhyvs(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1375 case 0xe9 : si = rpnset(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1376 case 0xe8 : si = rmsvs(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1377 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1378 case 0xe7 : qq->shift += (char )si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1379 case 0xe6 : si = rmsvs_sft(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1380 case 0xe5 : si = rhyvs_sft(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1381 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1382 case 0xe4 : qq->hldelay = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1383 //追加 for V2.3
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1384 case 0xe3 : if((qq->volume += *si++) > 127) qq->volume = 127; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1385 case 0xe2 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1386 if(qq->volume < si) qq->volume = 0; else qq->volume -= si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1387 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1388 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1389 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1390 case 0xe1 : si = hlfo_set(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1391 case 0xe0 : open_work.port22h = si; OPNASetReg(&opna, 0x22, si++); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1392 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1393 case 0xdf : open_work.syousetu_lng = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1394 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1395 case 0xde : si = vol_one_up_fm(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1396 case 0xdd : si = vol_one_down(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1397 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1398 case 0xdc : open_work.status = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1399 case 0xdb : open_work.status += *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1400 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1401 case 0xda : si = porta(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1402 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1403 case 0xd9 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1404 case 0xd8 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1405 case 0xd7 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1406 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1407 case 0xd6 : qq->mdspd = qq->mdspd2 = si++; qq->mdepth = (char *)si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1408 case 0xd5 : qq->detune += (short )si; si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1409 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1410 case 0xd4 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1411 case 0xd3 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1412 case 0xd2 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1413 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1414 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1415 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1416 case 0xd1 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1417 case 0xd0 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1418 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1419 case 0xcf : si = slotmask_set(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1420 case 0xce : si+=6; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1421 case 0xcd : si+=5; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1422 case 0xcc : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1423 case 0xcb : qq->lfo_wave = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1424 case 0xca :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1425 qq->extendmode = (qq->extendmode & 0xfd) \| ((*si++ & 1) << 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1426 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1427
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1428 case 0xc9 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1429 case 0xc8 : si = slotdetune_set(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1430 case 0xc7 : si = slotdetune_set2(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1431 case 0xc6 : break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1432 case 0xc5 : si = volmask_set(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1433 case 0xc4 : qq->qdatb = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1434 case 0xc3 : si = panset_ex(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1435 case 0xc2 : qq->delay = qq->delay2 = *si++; lfoinit_main(qq); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1436 case 0xc1 : break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1437 case 0xc0 : si = fm_mml_part_mask(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1438 case 0xbf : lfo_change(qq); si = lfoset(qq, si); lfo_change(qq);break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1439 case 0xbe : si = _lfoswitch(qq, si); ch3_setting(qq); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1440 case 0xbd :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1441 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1442 qq->mdspd = qq->mdspd2 = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1443 qq->mdepth = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1444 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1445 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1446
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1447 case 0xbc : lfo_change(qq); qq->lfo_wave=*si++; lfo_change(qq); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1448 case 0xbb :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1449 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1450 qq->extendmode = (qq->extendmode & 0xfd) \| ((*si++ & 1) << 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1451 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1452 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1453
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1454 case 0xba : si = _volmask_set(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1455 case 0xb9 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1456 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1457 qq->delay = qq->delay2 = *si++; lfoinit_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1458 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1459 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1460
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1461 case 0xb8 : si = tl_set(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1462 case 0xb7 : si = mdepth_count(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1463 case 0xb6 : si = fb_set(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1464 case 0xb5 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1465 qq->sdelay_m = (~(*si++) << 4) & 0xf0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1466 qq->sdelay_c = qq->sdelay = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1467 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1468
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1469 case 0xb4 : si+=16; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1470 case 0xb3 : qq->qdat2 = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1471 case 0xb2 : qq->shift_def = (char )si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1472 case 0xb1 : qq->qdat3 = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1473
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1474 default :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1475 si--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1476 *si = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1477 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1478
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1479 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1480 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1481
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1482
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1483 uchar * PMDWIN::commandsp(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1484 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1485 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1486
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1487 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1488 switch(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1489 case 0xff : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1490 case 0xfe : qq->qdata = *si++; qq->qdat3 = 0; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1491 case 0xfd : qq->volume = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1492 case 0xfc : si = comt(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1493
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1494 case 0xfb : pmdwork.tieflag \|= 1; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1495 case 0xfa : qq->detune = (short )si; si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1496 case 0xf9 : si = comstloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1497 case 0xf8 : si = comedloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1498 case 0xf7 : si = comexloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1499 case 0xf6 : qq->partloop = si; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1500 case 0xf5 : qq->shift = (char )si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1501 case 0xf4 : if(qq->volume < 15) qq->volume++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1502 case 0xf3 : if(qq->volume > 0) qq->volume--; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1503 case 0xf2 : si = lfoset(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1504 case 0xf1 : si = lfoswitch(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1505 case 0xf0 : si = psgenvset(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1506
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1507 case 0xef : OPNASetReg(&opna, si, (si+1)); si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1508 case 0xee : open_work.psnoi = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1509 case 0xed : qq->psgpat = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1510 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1511 case 0xec : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1512 case 0xeb : si = rhykey(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1513 case 0xea : si = rhyvs(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1514 case 0xe9 : si = rpnset(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1515 case 0xe8 : si = rmsvs(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1516 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1517 case 0xe7 : qq->shift += (char )si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1518 case 0xe6 : si = rmsvs_sft(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1519 case 0xe5 : si = rhyvs_sft(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1520 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1521 case 0xe4 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1522 //追加 for V2.3
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1523 case 0xe3 : if((qq->volume + si) < 16) qq->volume += si; si++;break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1524 case 0xe2 : if((qq->volume - si) >= 0) qq->volume -= si; si++;break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1525 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1526 case 0xe1 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1527 case 0xe0 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1528 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1529 case 0xdf : open_work.syousetu_lng = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1530 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1531 case 0xde : si = vol_one_up_psg(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1532 case 0xdd : si = vol_one_down(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1533 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1534 case 0xdc : open_work.status = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1535 case 0xdb : open_work.status += *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1536 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1537 case 0xda : si = portap(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1538 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1539 case 0xd9 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1540 case 0xd8 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1541 case 0xd7 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1542 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1543 case 0xd6 : qq->mdspd = qq->mdspd2 = si++; qq->mdepth = (char *)si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1544 case 0xd5 : qq->detune += (short )si; si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1545 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1546 case 0xd4 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1547 case 0xd3 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1548 case 0xd2 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1549 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1550 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1551 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1552 case 0xd1 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1553 case 0xd0 : si = psgnoise_move(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1554 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1555 case 0xcf : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1556 case 0xce : si+=6; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1557 case 0xcd : si = extend_psgenvset(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1558 case 0xcc :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1559 qq->extendmode = (qq->extendmode & 0xfe) \| (*si++ & 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1560 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1561
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1562 case 0xcb : qq->lfo_wave = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1563 case 0xca :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1564 qq->extendmode = (qq->extendmode & 0xfd) \| ((*si++ & 1) << 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1565 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1566
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1567 case 0xc9 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1568 qq->extendmode = (qq->extendmode & 0xfb) \| ((*si++ & 1) << 2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1569 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1570
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1571 case 0xc8 : si+=3; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1572 case 0xc7 : si+=3; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1573 case 0xc6 : si+=6; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1574 case 0xc5 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1575 case 0xc4 : qq->qdatb = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1576 case 0xc3 : si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1577 case 0xc2 : qq->delay = qq->delay2 = *si++; lfoinit_main(qq); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1578 case 0xc1 : break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1579 case 0xc0 : si = ssg_mml_part_mask(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1580 case 0xbf : lfo_change(qq); si = lfoset(qq, si); lfo_change(qq);break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1581 case 0xbe :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1582 qq->lfoswi = (qq->lfoswi & 0x8f) \| ((*si++ & 7) << 4);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1583 lfo_change(qq); lfoinit_main(qq); lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1584 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1585
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1586 case 0xbd :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1587 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1588 qq->mdspd = qq->mdspd2 = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1589 qq->mdepth = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1590 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1591 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1592
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1593 case 0xbc : lfo_change(qq); qq->lfo_wave=*si++; lfo_change(qq); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1594 case 0xbb :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1595 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1596 qq->extendmode = (qq->extendmode & 0xfd) \| ((*si++ & 1) << 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1597 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1598 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1599
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1600 case 0xba : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1601 case 0xb9 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1602 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1603 qq->delay = qq->delay2 = *si++; lfoinit_main(qq); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1604 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1605 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1606
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1607 case 0xb8 : si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1608 case 0xb7 : si = mdepth_count(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1609 case 0xb6 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1610 case 0xb5 : si+= 2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1611 case 0xb4 : si+=16; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1612 case 0xb3 : qq->qdat2 = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1613 case 0xb2 : qq->shift_def = (char )si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1614 case 0xb1 : qq->qdat3 = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1615
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1616 default :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1617 si--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1618 *si = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1619 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1620
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1621 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1622 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1623
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1624
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1625 uchar * PMDWIN::commandsr(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1626 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1627 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1628
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1629 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1630 switch(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1631 case 0xff : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1632 case 0xfe : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1633 case 0xfd : qq->volume = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1634 case 0xfc : si = comt(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1635
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1636 case 0xfb : pmdwork.tieflag \|= 1; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1637 case 0xfa : qq->detune = (short )si; si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1638 case 0xf9 : si = comstloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1639 case 0xf8 : si = comedloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1640 case 0xf7 : si = comexloop(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1641 case 0xf6 : qq->partloop = si; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1642 case 0xf5 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1643 case 0xf4 : if(qq->volume < 15) qq->volume++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1644 case 0xf3 : if(qq->volume > 0) qq->volume--; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1645 case 0xf2 : si+=4; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1646 case 0xf1 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1647 case 0xf0 : si+=4; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1648
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1649 case 0xef : OPNASetReg(&opna, si, (si+1)); si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1650 case 0xee : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1651 case 0xed : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1652 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1653 case 0xec : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1654 case 0xeb : si = rhykey(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1655 case 0xea : si = rhyvs(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1656 case 0xe9 : si = rpnset(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1657 case 0xe8 : si = rmsvs(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1658 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1659 case 0xe7 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1660 case 0xe6 : si = rmsvs_sft(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1661 case 0xe5 : si = rhyvs_sft(si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1662 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1663 case 0xe4 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1664 //追加 for V2.3
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1665 case 0xe3 : if((qq->volume + si) < 16) qq->volume += si; si++;break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1666 case 0xe2 : if((qq->volume - si) >= 0) qq->volume -= si; si++;break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1667 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1668 case 0xe1 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1669 case 0xe0 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1670 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1671 case 0xdf : open_work.syousetu_lng = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1672 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1673 case 0xde : si = vol_one_up_psg(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1674 case 0xdd : si = vol_one_down(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1675 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1676 case 0xdc : open_work.status = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1677 case 0xdb : open_work.status += *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1678 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1679 case 0xda : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1680 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1681 case 0xd9 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1682 case 0xd8 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1683 case 0xd7 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1684 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1685 case 0xd6 : si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1686 case 0xd5 : qq->detune += (short )si; si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1687 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1688 case 0xd4 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1689 case 0xd3 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1690 case 0xd2 :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1691 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1692 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1693 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1694 case 0xd1 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1695 case 0xd0 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1696 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1697 case 0xcf : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1698 case 0xce : si+=6; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1699 case 0xcd : si+=5; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1700 case 0xcc : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1701 case 0xcb : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1702 case 0xca : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1703 case 0xc9 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1704 case 0xc8 : si+=3; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1705 case 0xc7 : si+=3; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1706 case 0xc6 : si+=6; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1707 case 0xc5 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1708 case 0xc4 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1709 case 0xc3 : si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1710 case 0xc2 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1711 case 0xc1 : break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1712 case 0xc0 : si = rhythm_mml_part_mask(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1713 case 0xbf : si+=4; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1714 case 0xbe : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1715 case 0xbd : si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1716 case 0xbc : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1717 case 0xbb : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1718 case 0xba : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1719 case 0xb9 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1720 case 0xb8 : si+=2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1721 case 0xb7 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1722 case 0xb6 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1723 case 0xb5 : si+= 2; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1724 case 0xb4 : si+=16; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1725 case 0xb3 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1726 case 0xb2 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1727 case 0xb1 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1728
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1729 default :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1730 si--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1731 *si = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1732 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1733
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1734 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1735 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1736
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1737 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1738 // COMMAND '@' [PROGRAM CHANGE]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1739 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1740 uchar * PMDWIN::comat(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1741 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1742 uchar *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1743 int al, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1744
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1745 qq->voicenum = al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1746 dl = qq->voicenum;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1747
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1748 if(qq->partmask == 0) { // パートマスクされているか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1749 neiroset(qq, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1750 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1751 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1752 bx = toneadr_calc(qq, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1753 qq->alg_fb = dl = bx[24];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1754 bx += 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1755
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1756 // tl設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1757 qq->slot1 = bx[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1758 qq->slot3 = bx[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1759 qq->slot2 = bx[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1760 qq->slot4 = bx[3];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1761
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1762 // FM3chで、マスクされていた場合、fm3_alg_fbを設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1763 if(pmdwork.partb == 3 && qq->neiromask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1764 if(pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1765 // in. dl = alg/fb
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1766 if((qq->slotmask & 0x10) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1767 al = pmdwork.fm3_alg_fb & 0x38; // fbは前の値を使用
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1768 dl = (dl & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1769 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1770
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1771 pmdwork.fm3_alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1772 qq->alg_fb = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1773 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1774 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1775
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1776 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1777 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1778 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1779
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1780 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1781 // 音色の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1782 // INPUTS -- [PARTB]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1783 // -- dl [TONE_NUMBER]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1784 // -- di [PART_DATA_ADDRESS]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1785 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1786 void PMDWIN::neiroset(QQ *qq, int dl)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1787 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1788 uchar *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1789 int ah, al, dh;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1790
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1791 bx = toneadr_calc(qq, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1792 if(silence_fmpart(qq)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1793 // neiromask=0の時 (TLのworkのみ設定)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1794 bx += 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1795
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1796 // tl設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1797 qq->slot1 = bx[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1798 qq->slot3 = bx[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1799 qq->slot2 = bx[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1800 qq->slot4 = bx[3];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1801 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1802 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1803
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1804 //=========================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1805 // 音色設定メイン
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1806 //=========================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1807 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1808 // AL/FBを設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1809 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1810
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1811 dh = 0xb0 - 1 + pmdwork.partb;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1812
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1813 if(pmdwork.af_check) { // ALG/FBは設定しないmodeか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1814 dl = qq->alg_fb;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1815 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1816 dl = bx[24];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1817 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1818
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1819 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1820 if(pmdwork.af_check != 0) { // ALG/FBは設定しないmodeか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1821 dl = pmdwork.fm3_alg_fb;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1822 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1823 if((qq->slotmask & 0x10) == 0) { // slot1を使用しているか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1824 dl = (pmdwork.fm3_alg_fb & 0x38) \| (dl & 7);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1825 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1826 pmdwork.fm3_alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1827 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1828 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1829
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1830 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1831 qq->alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1832 dl &= 7; // dl = algo
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1833
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1834 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1835 // Carrierの位置を調べる (VolMaskにも設定)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1836 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1837
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1838 if((qq->volmask & 0x0f) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1839 qq->volmask = carrier_table[dl];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1840 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1841
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1842 if((qq->_volmask & 0x0f) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1843 qq->_volmask = carrier_table[dl];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1844 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1845
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1846 qq->carrier = carrier_table[dl];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1847 ah = carrier_table[dl+8]; // slot2/3の逆転データ(not済み)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1848 al = qq->neiromask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1849 ah &= al; // AH=TL用のmask / AL=その他用のmask
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1850
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1851 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1852 // 各音色パラメータを設定 (TLはモジュレータのみ)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1853 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1854
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1855 dh = 0x30 - 1 + pmdwork.partb;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1856 dl = *bx++; // DT/ML
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1857 if(al & 0x80) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1858 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1859
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1860 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1861 if(al & 0x40) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1862 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1863
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1864 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1865 if(al & 0x20) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1866 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1867
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1868 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1869 if(al & 0x10) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1870 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1871
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1872 dl = *bx++; // TL
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1873 if(ah & 0x80) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1874 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1875
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1876 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1877 if(ah & 0x40) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1878 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1879
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1880 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1881 if(ah & 0x20) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1882 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1883
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1884 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1885 if(ah & 0x10) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1886 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1887
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1888 dl = *bx++; // KS/AR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1889 if(al & 0x08) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1890 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1891
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1892 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1893 if(al & 0x04) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1894 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1895
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1896 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1897 if(al & 0x02) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1898 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1899
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1900 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1901 if(al & 0x01) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1902 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1903
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1904 dl = *bx++; // AM/DR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1905 if(al & 0x80) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1906 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1907
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1908 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1909 if(al & 0x40) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1910 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1911
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1912 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1913 if(al & 0x20) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1914 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1915
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1916 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1917 if(al & 0x10) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1918 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1919
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1920 dl = *bx++; // SR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1921 if(al & 0x08) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1922 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1923
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1924 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1925 if(al & 0x04) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1926 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1927
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1928 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1929 if(al & 0x02) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1930 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1931
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1932 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1933 if(al & 0x01) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1934 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1935
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1936 dl = *bx++; // SL/RR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1937 if(al & 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1938 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1939 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1940 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1941
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1942 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1943 if(al & 0x40) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1944 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1945
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1946 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1947 if(al & 0x20) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1948 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1949
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1950 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1951 if(al & 0x10) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1952 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1953
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1954 /*
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1955 dl = *bx++; // SL/RR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1956 if(al & 0x80) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1957 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1958
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1959 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1960 if(al & 0x40) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1961 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1962
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1963 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1964 if(al & 0x20) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1965 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1966
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1967 dl = *bx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1968 if(al & 0x10) OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1969 dh+=4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1970 */
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1971
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1972 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1973 // SLOT毎のTLをワークに保存
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1974 //-------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1975 bx -= 20;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1976 qq->slot1 = bx[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1977 qq->slot3 = bx[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1978 qq->slot2 = bx[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1979 qq->slot4 = bx[3];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1980 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1981
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1982
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1983 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1984 // [PartB]のパートの音を完璧に消す (TL=127 and RR=15 and KEY-OFF)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1985 // cy=1 ･･･全スロットneiromaskされている
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1986 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1987 int PMDWIN::silence_fmpart(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1988 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1989 int dh;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1990
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1991 if(qq->neiromask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1992 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1993 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1994
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1995 dh = pmdwork.partb + 0x40 - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1996
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1997 if(qq->neiromask & 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1998 OPNASetReg(&opna, pmdwork.fmsel + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1999 OPNASetReg(&opna, (pmdwork.fmsel + 0x40) + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2000 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2001 dh += 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2002
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2003 if(qq->neiromask & 0x40) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2004 OPNASetReg(&opna, pmdwork.fmsel + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2005 OPNASetReg(&opna, pmdwork.fmsel + 0x40 + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2006 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2007 dh += 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2008
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2009 if(qq->neiromask & 0x20) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2010 OPNASetReg(&opna, pmdwork.fmsel + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2011 OPNASetReg(&opna, pmdwork.fmsel + 0x40 + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2012 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2013 dh += 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2014
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2015 if(qq->neiromask & 0x10) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2016 OPNASetReg(&opna, pmdwork.fmsel + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2017 OPNASetReg(&opna, pmdwork.fmsel + 0x40 + dh, 127);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2018 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2019
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2020 kof1(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2021 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2022 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2023
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2024
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2025 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2026 // TONE DATA START ADDRESS を計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2027 // input dl tone_number
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2028 // output bx address
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2029 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2030 uchar * PMDWIN::toneadr_calc(QQ *qq, int dl)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2031 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2032 uchar *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2033
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2034 if(open_work.prg_flg == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2035 return NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2036 //return open_work.tondat + (dl << 5);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2037 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2038 bx = open_work.prgdat_adr;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2039
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2040 while(*bx != dl) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2041 bx += 26;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2042 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2043
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2044 return bx+1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2045 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2046 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2047
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2048
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2049 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2050 // ＦＭ音源ハードＬＦＯの設定（Ｖ２．４拡張分）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2051 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2052 uchar * PMDWIN::hlfo_set(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2053 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2054 qq->fmpan = (qq->fmpan & 0xc0) \| *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2055
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2056 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2057 // 2608の時のみなので part_eはありえない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2058 // FM3の場合は 4つのパート総て設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2059 FMPart[2].fmpan = qq->fmpan;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2060 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2061
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2062 if(qq->partmask == 0) { // パートマスクされているか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2063 OPNASetReg(&opna, pmdwork.fmsel + pmdwork.partb + 0xb4 - 1,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2064 calc_panout(qq));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2065 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2066 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2067 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2068
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2069
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2070 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2071 // ボリュームを次の一個だけ変更（Ｖ２．７拡張分）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2072 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2073 uchar * PMDWIN::vol_one_up_fm(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2074 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2075 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2076
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2077 al = (int)qq->volume + 1 + *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2078 if(al > 128) al = 128;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2079
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2080 qq->volpush = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2081 pmdwork.volpush_flag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2082 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2083 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2084
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2085
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2086 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2087 // ポルタメント(FM)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2088 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2089 uchar * PMDWIN::porta(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2090 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2091 int ax, cx, cl, bx, bh;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2092
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2093 if(qq->partmask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2094 qq->fnum = 0; //休符に設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2095 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2096 qq->leng = *(si+2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2097 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2098 qq->address = si+3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2099
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2100 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2101 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2102 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2103
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2104 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2105 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2106 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2107
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2108 return si+3; // 読み飛ばす (Mask時)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2109 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2110
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2111 lfoinit(qq, *si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2112 fnumset(qq, oshift(qq, *si++));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2113
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2114 cx = qq->fnum;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2115 cl = qq->onkai;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2116 fnumset(qq, oshift(qq, *si++));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2117 bx = qq->fnum; // bx=ポルタメント先のfnum値
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2118 qq->onkai = cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2119 qq->fnum = cx; // cx=ポルタメント元のfnum値
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2120
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2121 bh = (int)((bx / 256) & 0x38) - ((cx / 256) & 0x38); // 先のoctarb - 元のoctarb
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2122 if(bh) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2123 bh /= 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2124 ax = bh * 0x26a; // ax = 26ah * octarb差
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2125 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2126 ax = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2127 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2128
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2129 bx = (bx & 0x7ff) - (cx & 0x7ff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2130 ax += bx; // ax=26ah*octarb差 + 音程差
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2131
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2132 qq->leng = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2133 si = calc_q(qq, si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2134
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2135 qq->porta_num2 = ax / qq->leng; // 商
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2136 qq->porta_num3 = ax % qq->leng; // 余り
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2137 qq->lfoswi \|= 8; // Porta ON
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2138
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2139 if(qq->volpush && qq->onkai != 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2140 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2141 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2142 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2143 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2144 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2145
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2146 volset(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2147 otodasi(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2148 keyon(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2149
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2150 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2151 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2152
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2153 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2154 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2155
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2156 if(*si == 0xfb) { // '&'が直後にあったらkeyoffしない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2157 qq->keyoff_flag = 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2158 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2159 qq->keyoff_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2160 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2161 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2162 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2163 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2164
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2165
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2166 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2167 // FM slotmask set
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2168 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2169 uchar * PMDWIN::slotmask_set(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2170 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2171 uchar *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2172 int ah, al, bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2173
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2174 ah = al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2175
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2176 if(al &= 0x0f) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2177 qq->carrier = al << 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2178 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2179 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2180 bl = pmdwork.fm3_alg_fb;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2181 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2182 bx = toneadr_calc(qq, qq->voicenum);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2183 bl = bx[24];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2184 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2185 qq->carrier = carrier_table[bl & 7];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2186 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2187
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2188 ah &= 0xf0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2189 if(qq->slotmask != ah) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2190 qq->slotmask = ah;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2191 if((ah & 0xf0) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2192 qq->partmask \|= 0x20; // s0の時パートマスク
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2193 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2194 qq->partmask &= 0xdf; // s0以外の時パートマスク解除
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2195 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2196
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2197 if(ch3_setting(qq)) { // FM3chの場合のみ ch3modeの変更処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2198 // ch3なら、それ以前のFM3パートでkeyon処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2199 if(qq != &FMPart[2]) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2200 if(FMPart[2].partmask == 0 &&
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2201 (FMPart[2].keyoff_flag & 1) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2202 keyon(&FMPart[2]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2203 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2204 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2205 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2206
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2207 ah = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2208 if(qq->slotmask & 0x80) ah += 0x11; // slot4
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2209 if(qq->slotmask & 0x40) ah += 0x44; // slot3
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2210 if(qq->slotmask & 0x20) ah += 0x22; // slot2
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2211 if(qq->slotmask & 0x10) ah += 0x88; // slot1
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2212 qq->neiromask = ah;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2213 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2214 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2215 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2216
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2217
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2218 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2219 // Slot Detune Set
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2220 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2221 uchar * PMDWIN::slotdetune_set(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2222 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2223 int ax, bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2224
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2225 if(pmdwork.partb != 3 \|\| pmdwork.fmsel) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2226 return si+3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2227 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2228
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2229 bl = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2230 ax = (short )si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2231 si+=2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2232
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2233 if(bl & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2234 open_work.slot_detune1 = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2235 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2236
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2237 if(bl & 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2238 open_work.slot_detune2 = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2239 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2240
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2241 if(bl & 4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2242 open_work.slot_detune3 = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2243 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2244
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2245 if(bl & 8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2246 open_work.slot_detune4 = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2247 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2248
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2249 if(open_work.slot_detune1 \|\| open_work.slot_detune2 \|\|
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2250 open_work.slot_detune3 \|\| open_work.slot_detune4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2251 pmdwork.slotdetune_flag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2252 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2253 pmdwork.slotdetune_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2254 open_work.slot_detune1 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2255 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2256 ch3mode_set(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2257 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2258 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2259
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2260
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2261 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2262 // Slot Detune Set(相対)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2263 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2264 uchar * PMDWIN::slotdetune_set2(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2265 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2266 int ax, bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2267
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2268 if(pmdwork.partb != 3 \|\| pmdwork.fmsel) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2269 return si+3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2270 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2271
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2272 bl = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2273 ax = (short )si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2274 si+=2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2275
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2276 if(bl & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2277 open_work.slot_detune1 += ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2278 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2279
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2280 if(bl & 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2281 open_work.slot_detune2 += ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2282 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2283
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2284 if(bl & 4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2285 open_work.slot_detune3 += ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2286 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2287
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2288 if(bl & 8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2289 open_work.slot_detune4 += ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2290 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2291
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2292 if(open_work.slot_detune1 \|\| open_work.slot_detune2 \|\|
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2293 open_work.slot_detune3 \|\| open_work.slot_detune4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2294 pmdwork.slotdetune_flag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2295 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2296 pmdwork.slotdetune_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2297 open_work.slot_detune1 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2298 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2299 ch3mode_set(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2300 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2301 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2302
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2303
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2304 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2305 // 音量マスクslotの設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2306 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2307 uchar * PMDWIN::volmask_set(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2308 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2309 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2310
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2311 al = *si++ & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2312 if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2313 al = (al << 4) \| 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2314 qq->volmask = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2315 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2316 qq->volmask = qq->carrier;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2317 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2318 ch3_setting(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2319 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2320 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2321
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2322
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2323 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2324 // 0c0hの追加special命令
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2325 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2326 uchar * PMDWIN::special_0c0h(QQ qq, uchar si, uchar al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2327 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2328 switch(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2329 case 0xff : open_work.fm_voldown = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2330 case 0xfe : si = _vd_fm(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2331 case 0xfd : open_work.ssg_voldown = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2332 case 0xfc : si = _vd_ssg(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2333 case 0xfb : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2334 case 0xfa : si = NULL; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2335 case 0xf9 : open_work.rhythm_voldown = *si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2336 case 0xf8 : si = _vd_rhythm(qq, si); break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2337 case 0xf7 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2338 case 0xf6 : si++; break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2339 case 0xf5 : break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2340 default :
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2341 si--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2342 *si = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2343 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2344 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2345 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2346
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2347
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2348 uchar * PMDWIN::_vd_fm(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2349 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2350 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2351
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2352 al = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2353 if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2354 open_work.fm_voldown = Limit(al + open_work.fm_voldown, 255, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2355 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2356 open_work.fm_voldown = open_work._fm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2357 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2358 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2359 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2360
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2361
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2362 uchar * PMDWIN::_vd_ssg(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2363 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2364 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2365
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2366 al = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2367 if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2368 open_work.ssg_voldown = Limit(al + open_work.ssg_voldown, 255, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2369 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2370 open_work.ssg_voldown = open_work._ssg_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2371 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2372 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2373 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2374
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2375
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2376 uchar * PMDWIN::_vd_rhythm(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2377 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2378 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2379
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2380 al = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2381 if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2382 open_work.rhythm_voldown = Limit(al + open_work.rhythm_voldown, 255, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2383 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2384 open_work.rhythm_voldown = open_work._rhythm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2385 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2386 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2387 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2388
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2389
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2390 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2391 // 演奏中パートのマスクon/off
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2392 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2393 uchar * PMDWIN::fm_mml_part_mask(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2394 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2395 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2396
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2397 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2398 if(al >= 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2399 si = special_0c0h(qq, si, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2400 } else if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2401 qq->partmask \|= 0x40;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2402 if(qq->partmask == 0x40) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2403 silence_fmpart(qq); // 音消去
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2404 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2405 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2406 if((qq->partmask &= 0xbf) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2407 neiro_reset(qq); // 音色再設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2408 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2409 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2410 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2411 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2412
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2413
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2414 uchar * PMDWIN::ssg_mml_part_mask(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2415 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2416 int ah, al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2417
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2418 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2419 if(al >= 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2420 si = special_0c0h(qq, si, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2421 } else if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2422 qq->partmask \|= 0x40;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2423 if(qq->partmask == 0x40) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2424 ah = ((1 << (pmdwork.partb-1)) \| (4 << pmdwork.partb));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2425 al = PSGGetReg(&(opna.psg), 0x07);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2426 PSGSetReg(&(opna.psg), 0x07, ah \| al); // PSG keyoff
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2427 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2428 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2429 qq->partmask &= 0xbf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2430 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2431 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2432 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2433
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2434
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2435 uchar * PMDWIN::rhythm_mml_part_mask(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2436 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2437 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2438
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2439 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2440 if(al >= 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2441 si = special_0c0h(qq, si, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2442 } else if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2443 qq->partmask \|= 0x40;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2444 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2445 qq->partmask &= 0xbf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2446 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2447 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2448 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2449
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2450
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2451 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2452 // FM音源の音色を再設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2453 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2454 void PMDWIN::neiro_reset(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2455 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2456 int dh, al, s1, s2, s3, s4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2457
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2458 if(qq->neiromask == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2459
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2460 s1 = qq->slot1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2461 s2 = qq->slot2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2462 s3 = qq->slot3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2463 s4 = qq->slot4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2464 pmdwork.af_check = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2465 neiroset(qq, qq->voicenum); // 音色復帰
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2466 pmdwork.af_check = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2467 qq->slot1 = s1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2468 qq->slot2 = s2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2469 qq->slot3 = s3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2470 qq->slot4 = s4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2471
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2472 al = ((~qq->carrier) & qq->slotmask) & 0xf0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2473 // al<- TLを再設定していいslot 4321xxxx
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2474 if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2475 dh = 0x4c - 1 + pmdwork.partb; // dh=TL FM Port Address
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2476 if(al & 0x80) OPNASetReg(&opna, pmdwork.fmsel + dh, s4);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2477
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2478 dh -= 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2479 if(al & 0x40) OPNASetReg(&opna, pmdwork.fmsel + dh, s3);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2480
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2481 dh += 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2482 if(al & 0x20) OPNASetReg(&opna, pmdwork.fmsel + dh, s2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2483
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2484 dh -= 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2485 if(al & 0x10) OPNASetReg(&opna, pmdwork.fmsel + dh, s1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2486 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2487
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2488 dh = pmdwork.partb + 0xb4 - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2489 OPNASetReg(&opna, pmdwork.fmsel + dh, calc_panout(qq));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2490 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2491
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2492
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2493 uchar * PMDWIN::_lfoswitch(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2494 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2495 qq->lfoswi = (qq->lfoswi & 0x8f) \| ((*si++ & 7) << 4);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2496 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2497 lfoinit_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2498 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2499 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2500 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2501
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2502
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2503 uchar * PMDWIN::_volmask_set(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2504 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2505 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2506
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2507 al = *si++ & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2508 if(al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2509 al = (al << 4) \| 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2510 qq->_volmask = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2511 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2512 qq->_volmask = qq->carrier;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2513 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2514 ch3_setting(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2515 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2516 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2517
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2518
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2519 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2520 // TL変化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2521 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2522 uchar * PMDWIN::tl_set(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2523 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2524 int ah, al, ch, dh, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2525
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2526 dh = 0x40 - 1 + pmdwork.partb; // dh=TL FM Port Address
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2527 al = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2528 ah = al & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2529 ch = (qq->slotmask >> 4) \| ((qq->slotmask << 4) & 0xf0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2530 ah &= ch; // ah=変化させるslot 00004321
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2531 dl = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2532
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2533 if(al >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2534 dl &= 127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2535 if(ah & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2536 qq->slot1 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2537 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2538 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2539 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2540 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2541
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2542 dh += 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2543 if(ah & 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2544 qq->slot2 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2545 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2546 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2547 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2548 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2549
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2550 dh -= 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2551 if(ah & 4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2552 qq->slot3 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2553 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2554 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2555 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2556 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2557
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2558 dh += 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2559 if(ah & 8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2560 qq->slot4 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2561 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2562 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2563 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2564 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2565 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2566 // 相対変化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2567 al = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2568 if(ah & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2569 if((dl = (int)qq->slot1 + al) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2570 dl = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2571 if(al >= 0) dl = 127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2572 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2573 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2574 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2575 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2576 qq->slot1 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2577 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2578
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2579 dh += 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2580 if(ah & 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2581 if((dl = (int)qq->slot2 + al) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2582 dl = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2583 if(al >= 0) dl = 127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2584 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2585 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2586 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2587 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2588 qq->slot2 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2589 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2590
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2591 dh -= 4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2592 if(ah & 4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2593 if((dl = (int)qq->slot3 + al) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2594 dl = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2595 if(al >= 0) dl = 127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2596 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2597 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2598 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2599 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2600 qq->slot3 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2601 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2602
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2603 dh += 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2604 if(ah & 8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2605 if((dl = (int)qq->slot4 + al) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2606 dl = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2607 if(al >= 0) dl = 127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2608 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2609 if(qq->partmask == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2610 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2611 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2612 qq->slot4 = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2613 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2614 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2615 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2616 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2617
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2618
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2619 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2620 // FB変化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2621 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2622 uchar * PMDWIN::fb_set(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2623 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2624 int al, dh, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2625
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2626
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2627 dh = pmdwork.partb + 0xb0 - 1; // dh=ALG/FB port address
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2628 al = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2629 if(al >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2630 // in al 00000xxx 設定するFB
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2631 al = ((al << 3) & 0xff) \| (al >> 5);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2632
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2633 // in al 00xxx000 設定するFB
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2634 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2635 if((qq->slotmask & 0x10) == 0) return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2636 dl = (pmdwork.fm3_alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2637 pmdwork.fm3_alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2638 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2639 dl = (qq->alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2640 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2641 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2642 qq->alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2643 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2644 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2645 if((al & 0x40) == 0) al &= 7;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2646 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2647 dl = pmdwork.fm3_alg_fb;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2648 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2649 dl = qq->alg_fb;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2650
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2651 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2652
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2653 dl = (dl >> 3) & 7;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2654 if((al += dl) >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2655 if(al >= 8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2656 al = 0x38;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2657 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2658 if((qq->slotmask & 0x10) == 0) return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2659
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2660 dl = (pmdwork.fm3_alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2661 pmdwork.fm3_alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2662 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2663 dl = (qq->alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2664 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2665 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2666 qq->alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2667 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2668 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2669 // in al 00000xxx 設定するFB
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2670 al = ((al << 3) & 0xff) \| (al >> 5);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2671
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2672 // in al 00xxx000 設定するFB
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2673 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2674 if((qq->slotmask & 0x10) == 0) return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2675 dl = (pmdwork.fm3_alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2676 pmdwork.fm3_alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2677 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2678 dl = (qq->alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2679 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2680 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2681 qq->alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2682 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2683 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2684 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2685 al = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2686 if(pmdwork.partb == 3 && pmdwork.fmsel == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2687 if((qq->slotmask & 0x10) == 0) return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2688
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2689 dl = (pmdwork.fm3_alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2690 pmdwork.fm3_alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2691 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2692 dl = (qq->alg_fb & 7) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2693 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2694 OPNASetReg(&opna, pmdwork.fmsel + dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2695 qq->alg_fb = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2696 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2697 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2698 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2699 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2700
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2701
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2702 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2703 // COMMAND 't' [TEMPO CHANGE1]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2704 // COMMAND 'T' [TEMPO CHANGE2]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2705 // COMMAND 't±' [TEMPO CHANGE 相対1]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2706 // COMMAND 'T±' [TEMPO CHANGE 相対2]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2707 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2708 uchar * PMDWIN::comt(uchar *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2709 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2710 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2711
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2712 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2713 if(al < 251) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2714 open_work.tempo_d = al; // T (FC)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2715 open_work.tempo_d_push = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2716 calc_tb_tempo();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2717
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2718 } else if(al == 0xff) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2719 al = *si++; // t (FC FF)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2720 if(al < 18) al = 18;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2721 open_work.tempo_48 = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2722 open_work.tempo_48_push = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2723 calc_tempo_tb();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2724
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2725 } else if(al == 0xfe) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2726 al = char(*si++); // T± (FC FE)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2727 if(al >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2728 al += open_work.tempo_d_push;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2729 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2730 al += open_work.tempo_d_push;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2731 if(al < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2732 al = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2733 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2734 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2735
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2736 if(al > 250) al = 250;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2737
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2738 open_work.tempo_d = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2739 open_work.tempo_d_push = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2740 calc_tb_tempo();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2741
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2742 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2743 al = char(*si++); // t± (FC FD)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2744 if(al >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2745 al += open_work.tempo_48_push;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2746 if(al > 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2747 al = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2748 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2749 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2750 al += open_work.tempo_48_push;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2751 if(al < 0) al = 18;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2752 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2753 open_work.tempo_48 = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2754 open_work.tempo_48_push = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2755 calc_tempo_tb();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2756 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2757 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2758 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2759
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2760
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2761 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2762 // COMMAND '[' [ﾙｰﾌﾟｽﾀｰﾄ]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2763 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2764 uchar * PMDWIN::comstloop(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2765 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2766 uchar *ax = open_work.mmlbuf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2767 ax[(ushort )si+1] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2768 si+=2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2769 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2770 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2771
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2772
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2773 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2774 // COMMAND ']' [ﾙｰﾌﾟｴﾝﾄﾞ]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2775 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2776 uchar * PMDWIN::comedloop(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2777 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2778 int ah, al, ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2779 ah = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2780
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2781 if(ah) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2782 (*si)++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2783 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2784 if(ah == al) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2785 si+=2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2786 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2787 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2788 } else { // 0 ﾅﾗﾑｼﾞｮｳｹﾝﾙｰﾌﾟ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2789 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2790 qq->loopcheck = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2791 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2792
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2793 ax = (ushort )si + 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2794 si = open_work.mmlbuf + ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2795 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2796 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2797
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2798
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2799 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2800 // COMMAND ':' [ﾙｰﾌﾟﾀﾞｯｼｭﾂ]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2801 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2802 uchar * PMDWIN::comexloop(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2803 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2804 uchar *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2805 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2806 bx = open_work.mmlbuf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2807 bx += (ushort )si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2808 si+=2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2809
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2810 dl = *bx++ - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2811 if(dl != *bx) return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2812 si = bx + 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2813 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2814 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2815
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2816
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2817 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2818 // LFO ﾊﾟﾗﾒｰﾀｾｯﾄ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2819 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2820 uchar * PMDWIN::lfoset(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2821 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2822 qq->delay = *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2823 qq->delay2 = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2824 qq->speed = *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2825 qq->speed2 = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2826 qq->step = (char )si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2827 qq->step2 = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2828 qq->time = *si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2829 qq->time2 = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2830 lfoinit_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2831 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2832 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2833
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2834
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2835 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2836 // LFO SWITCH
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2837 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2838 uchar * PMDWIN::lfoswitch(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2839 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2840 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2841
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2842 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2843
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2844 if(al & 0xf8) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2845 al = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2846 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2847 al &= 7;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2848 qq->lfoswi = (qq->lfoswi & 0xf8) \| al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2849 lfoinit_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2850 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2851 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2852
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2853
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2854 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2855 // PSG ENVELOPE SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2856 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2857 uchar * PMDWIN::psgenvset(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2858 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2859 qq->eenv_ar = si; qq->eenv_arc = si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2860 qq->eenv_dr = (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2861 qq->eenv_sr = si; qq->eenv_src = si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2862 qq->eenv_rr = si; qq->eenv_rrc = si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2863 if(qq->envf == -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2864 qq->envf = 2; // RR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2865 qq->eenv_volume = -15; // volume
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2866 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2867 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2868 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2869
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2870
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2871 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2872 // "¥?" COMMAND [ OPNA Rhythm Keyon/Dump ]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2873 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2874 uchar * PMDWIN::rhykey(uchar *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2875 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2876 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2877
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2878 if((dl = (*si++ & open_work.rhythmmask)) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2879 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2880 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2881
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2882 if(dl < 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2883 if(dl & 0x01) OPNASetReg(&opna, 0x18, open_work.rdat[0]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2884 if(dl & 0x02) OPNASetReg(&opna, 0x19, open_work.rdat[1]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2885 if(dl & 0x04) OPNASetReg(&opna, 0x1a, open_work.rdat[2]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2886 if(dl & 0x08) OPNASetReg(&opna, 0x1b, open_work.rdat[3]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2887 if(dl & 0x10) OPNASetReg(&opna, 0x1c, open_work.rdat[4]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2888 if(dl & 0x20) OPNASetReg(&opna, 0x1d, open_work.rdat[5]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2889 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2890
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2891 OPNASetReg(&opna, 0x10, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2892 if(dl >= 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2893 open_work.rshot_dat &= (~dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2894 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2895 open_work.rshot_dat \|= dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2896 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2897
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2898 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2899 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2900
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2901
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2902 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2903 // "¥v?n" COMMAND
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2904 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2905 uchar * PMDWIN::rhyvs(uchar *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2906 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2907 int *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2908 int dh, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2909
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2910 dl = *si & 0x1f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2911 dh = *si++ >> 5;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2912 bx = &open_work.rdat[dh-1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2913 dh = 0x18 - 1 + dh;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2914 dl \|= (*bx & 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2915 *bx = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2916
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2917 OPNASetReg(&opna, dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2918
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2919 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2920 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2921
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2922
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2923 uchar * PMDWIN::rhyvs_sft(uchar *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2924 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2925 int *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2926 int al, dh, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2927
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2928 bx = &open_work.rdat[*si-1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2929 dh = *si++ + 0x18 - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2930 dl = *bx & 0x1f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2931
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2932 al = ((char )si++ + dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2933 if(al >= 32) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2934 al = 31;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2935 } else if(al < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2936 al = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2937 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2938
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2939 dl = (al &= 0x1f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2940 dl = bx = ((bx & 0xe0) \| dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2941 OPNASetReg(&opna, dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2942
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2943 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2944 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2945
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2946
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2947 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2948 // "¥p?" COMMAND
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2949 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2950 uchar * PMDWIN::rpnset(uchar *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2951 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2952 int *bx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2953 int dh, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2954
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2955 dl = (*si & 3) << 6;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2956
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2957 dh = (*si++ >> 5) & 0x07;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2958 bx = &open_work.rdat[dh-1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2959
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2960 dh += 0x18 - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2961 dl \|= (*bx & 0x1f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2962 *bx = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2963 OPNASetReg(&opna, dh, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2964
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2965 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2966 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2967
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2968
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2969 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2970 // "¥Vn" COMMAND
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2971 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2972 uchar * PMDWIN::rmsvs(uchar *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2973 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2974 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2975 dl = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2976 if(open_work.rhythm_voldown) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2977 dl = ((256 - open_work.rhythm_voldown) * dl) >> 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2978 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2979 open_work.rhyvol = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2980 OPNASetReg(&opna, 0x11, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2981 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2982 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2983
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2984
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2985 uchar PMDWIN::rmsvs_sft(uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2986 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2987 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2988 dl = open_work.rhyvol + (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2989 if(dl >= 64) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2990 if(dl & 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2991 dl = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2992 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2993 dl = 63;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2994 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2995 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2996 open_work.rhyvol = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2997 OPNASetReg(&opna, 0x11, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2998 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2999 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3000
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3001
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3002 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3003 // ボリュームを次の一個だけ変更（Ｖ２．７拡張分）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3004 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3005 uchar * PMDWIN::vol_one_up_psg(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3006 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3007 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3008
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3009 al = qq->volume + *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3010 if(al > 15) al = 15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3011 qq->volpush = ++al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3012 pmdwork.volpush_flag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3013 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3014 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3015
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3016
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3017 uchar * PMDWIN::vol_one_down(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3018 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3019 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3020
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3021 al = qq->volume - *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3022 if(al < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3023 al = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3024 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3025 if(al >= 255) al = 254;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3026 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3027
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3028 qq->volpush = ++al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3029 pmdwork.volpush_flag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3030 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3031 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3032
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3033
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3034 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3035 // ポルタメント(PSG)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3036 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3037 uchar * PMDWIN::portap(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3038 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3039 int ax, al_, bx_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3040
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3041 if(qq->partmask) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3042 qq->fnum = 0; //休符に設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3043 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3044 qq->leng = *(si+2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3045 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3046 qq->address = si+3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3047
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3048 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3049 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3050 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3051
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3052 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3053 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3054 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3055 return si+3; // 読み飛ばす (Mask時)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3056 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3057
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3058 lfoinitp(qq, *si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3059 fnumsetp(qq, oshiftp(qq, *si++));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3060
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3061 bx_ = qq->fnum;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3062 al_ = qq->onkai;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3063 fnumsetp(qq, oshiftp(qq, *si++));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3064 ax = qq->fnum; // ax = ポルタメント先のpsg_tune値
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3065
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3066 qq->onkai = al_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3067 qq->fnum = bx_; // bx = ポルタメント元のpsg_tune値
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3068 ax -= bx_;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3069
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3070 qq->leng = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3071 si = calc_q(qq, si);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3072
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3073 qq->porta_num2 = ax / qq->leng; // 商
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3074 qq->porta_num3 = ax % qq->leng; // 余り
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3075 qq->lfoswi \|= 8; // Porta ON
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3076
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3077 if(qq->volpush && qq->onkai != 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3078 if(--pmdwork.volpush_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3079 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3080 qq->volpush = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3081 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3082 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3083
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3084 volsetp(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3085 otodasip(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3086 keyonp(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3087
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3088 qq->keyon_flag++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3089 qq->address = si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3090
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3091 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3092 pmdwork.volpush_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3093 qq->keyoff_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3094
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3095 if(*si == 0xfb) { // '&'が直後にあったらkeyoffしない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3096 qq->keyoff_flag = 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3097 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3098
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3099 pmdwork.loop_work &= qq->loopcheck;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3100 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3101 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3102
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3103
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3104 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3105 // 'w' COMMAND [PSG NOISE ﾍｲｷﾝｼｭｳﾊｽｳ]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3106 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3107 uchar * PMDWIN::psgnoise_move(uchar *si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3108 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3109 open_work.psnoi += (char )si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3110 if(open_work.psnoi < 0) open_work.psnoi = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3111 if(open_work.psnoi > 31) open_work.psnoi = 31;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3112 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3113 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3114
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3115
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3116 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3117 // PSG Envelope set (Extend)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3118 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3119 uchar * PMDWIN::extend_psgenvset(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3120 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3121 qq->eenv_ar = *si++ & 0x1f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3122 qq->eenv_dr = *si++ & 0x1f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3123 qq->eenv_sr = *si++ & 0x1f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3124 qq->eenv_rr = *si & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3125 qq->eenv_sl = ((*si++ >> 4) & 0x0f) ^ 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3126 qq->eenv_al = *si++ & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3127
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3128 if(qq->envf != -1) { // ノーマル＞拡張に移行したか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3129 qq->envf = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3130 qq->eenv_count = 4; // RR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3131 qq->eenv_volume = 0; // Volume
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3132 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3133 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3134 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3135
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3136
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3137 uchar * PMDWIN::mdepth_count(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3138 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3139 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3140
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3141 al = *si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3142
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3143 if(al >= 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3144 if((al &= 0x7f) == 0) al = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3145 qq->_mdc = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3146 qq->_mdc2 = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3147 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3148 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3149
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3150 if(al == 0) al = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3151 qq->mdc = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3152 qq->mdc2 = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3153 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3154 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3155
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3156
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3157 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3158 // ＬＦＯとＰＳＧ／ＰＣＭのソフトウエアエンベロープの初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3159 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3160 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3161 // ＰＳＧ／ＰＣＭ音源用　Entry
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3162 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3163 void PMDWIN::lfoinitp(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3164 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3165 int ah;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3166
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3167 ah = al & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3168
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3169 if(ah == 0x0c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3170 al = qq->onkai_def;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3171 ah = al & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3172 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3173
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3174 qq->onkai_def = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3175
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3176 if(ah == 0x0f) { // ｷｭｰﾌﾉﾄｷﾊ INIT ｼﾅｲﾖ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3177 lfo_exit(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3178 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3179 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3180
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3181 qq->porta_num = 0; // ポルタメントは初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3182
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3183 if(pmdwork.tieflag & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3184 lfo_exit(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3185 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3186 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3187
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3188 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3189 // ソフトウエアエンベロープ初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3190 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3191 if(qq->envf != -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3192 qq->envf = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3193 qq->eenv_volume = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3194 qq->eenv_ar = qq->eenv_arc;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3195
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3196 if(qq->eenv_ar == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3197 qq->envf = 1; // ATTACK=0 ... ｽｸﾞ Decay ﾆ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3198 qq->eenv_volume = qq->eenv_dr;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3199 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3200
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3201 qq->eenv_sr = qq->eenv_src;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3202 qq->eenv_rr = qq->eenv_rrc;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3203 lfin1(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3204
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3205 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3206 // 拡張ssg_envelope用
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3207
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3208 qq->eenv_arc = qq->eenv_ar - 16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3209 if(qq->eenv_dr < 16) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3210 qq->eenv_drc = (qq->eenv_dr-16)*2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3211 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3212 qq->eenv_drc = qq->eenv_dr-16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3213 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3214
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3215 if(qq->eenv_sr < 16) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3216 qq->eenv_src = (qq->eenv_sr-16)*2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3217 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3218 qq->eenv_src = qq->eenv_sr-16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3219 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3220
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3221 qq->eenv_rrc = (qq->eenv_rr) * 2 - 16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3222 qq->eenv_volume = qq->eenv_al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3223 qq->eenv_count = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3224 if(qq->eenv_arc > 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3225 qq->eenv_volume += qq->eenv_arc;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3226 if(qq->eenv_volume < 15) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3227 qq->eenv_arc = qq->eenv_ar-16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3228 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3229 qq->eenv_volume = 15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3230 qq->eenv_count++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3231 if(qq->eenv_sl == 15) qq->eenv_count++; // SL=0の場合はすぐSRに
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3232 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3233 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3234 if(qq->eenv_ar != 0) qq->eenv_arc++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3235 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3236 lfin1(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3237 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3238 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3239
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3240
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3241 void PMDWIN::lfo_exit(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3242 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3243 if((qq->lfoswi & 3) != 0) { // 前が & の場合 -> 1回 LFO処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3244 lfo(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3245 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3246
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3247 if((qq->lfoswi & 0x30) != 0) { // 前が & の場合 -> 1回 LFO処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3248 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3249 lfo(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3250 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3251 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3252 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3253
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3254
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3255 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3256 // ＬＦＯ初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3257 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3258 void PMDWIN::lfin1(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3259 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3260 qq->hldelay_c = qq->hldelay;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3261
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3262 if(qq->hldelay) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3263 OPNASetReg(&opna, pmdwork.fmsel + pmdwork.partb+0xb4-1, (qq->fmpan) & 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3264 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3265
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3266 qq->sdelay_c = qq->sdelay;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3267
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3268 if(qq->lfoswi & 3) { // LFOは未使用
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3269 if((qq->lfoswi & 4) == 0) { //keyon非同期か?
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3270 lfoinit_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3271 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3272 lfo(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3273 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3274
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3275 if(qq->lfoswi & 0x30) { // LFOは未使用
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3276 if((qq->lfoswi & 0x40) == 0) { //keyon非同期か?
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3277 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3278 lfoinit_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3279 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3280 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3281
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3282 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3283 lfo(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3284 lfo_change(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3285 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3286 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3287
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3288
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3289 void PMDWIN::lfoinit_main(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3290 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3291 qq->lfodat = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3292 qq->delay = qq->delay2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3293 qq->speed = qq->speed2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3294 qq->step = qq->step2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3295 qq->time = qq->time2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3296 qq->mdc = qq->mdc2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3297
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3298 if(qq->lfo_wave == 2 \|\| qq->lfo_wave == 3) { // 矩形波 or ランダム波？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3299 qq->speed = 1; // delay直後にLFOが掛かるようにする
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3300 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3301 qq->speed++; // それ以外の場合はdelay直後のspeed値を +1
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3302 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3303 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3304
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3305
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3306 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3307 // SHIFT[di] 分移調する
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3308 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3309 int PMDWIN::oshiftp(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3310 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3311 return oshift(qq, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3312 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3313
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3314
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3315 int PMDWIN::oshift(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3316 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3317 int bl, bh, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3318
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3319 if(al == 0x0f) return al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3320
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3321 if(al == 0x0c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3322 if((al = qq->onkai) >= 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3323 return 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3324 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3325 return al; //@暫定対応
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3326 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3327 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3328
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3329 dl = qq->shift + qq->shift_def;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3330 if(dl == 0) return al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3331
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3332 bl = (al & 0x0f); // bl = ONKAI
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3333 bh = (al & 0xf0) >> 4; // bh = OCT
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3334
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3335 if(dl < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3336 // - ﾎｳｺｳｼﾌﾄ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3337 if((bl += dl) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3338 do {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3339 bh--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3340 } while((bl+=12) < 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3341 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3342 if(bh < 0) bh = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3343 return (bh << 4) \| bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3344
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3345 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3346 // + ﾎｳｺｳｼﾌﾄ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3347 bl += dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3348 while(bl >= 0x0c) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3349 bh++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3350 bl -= 12;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3351 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3352
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3353 if(bh > 7) bh = 7;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3354 return (bh << 4) \| bl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3355 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3356 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3357
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3358
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3359 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3360 // PSG TUNE SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3361 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3362 void PMDWIN::fnumsetp(QQ *qq, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3363 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3364 int ax, bx, cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3365
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3366 if((al & 0x0f) == 0x0f) { // ｷｭｳﾌﾅﾗ FNUM ﾆ 0 ｦｾｯﾄ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3367 qq->onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3368 if(qq->lfoswi & 0x11) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3369 qq->fnum = 0; // 音程LFO未使用
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3370 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3371 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3372
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3373 qq->onkai = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3374
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3375 cl = (al >> 4) & 0x0f; // cl=oct
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3376 bx = al & 0x0f; // bx=onkai
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3377
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3378 ax = psg_tune_data[bx];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3379 if(cl > 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3380 ax = (ax + 1) >> cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3381 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3382
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3383 qq->fnum = ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3384 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3385
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3386
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3387 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3388 // Q値の計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3389 // break dx
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3390 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3391 uchar * PMDWIN::calc_q(QQ qq, uchar si)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3392 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3393 int dh, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3394
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3395 if(*si == 0xc1) { // &&
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3396 si++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3397 qq->qdat = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3398 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3399 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3400
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3401 dl = qq->qdata;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3402 if(qq->qdatb) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3403 dl += (qq->leng * qq->qdatb) >> 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3404 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3405
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3406 #if 0
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3407 if(qq->qdat3) { // Random-Q
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3408 ax = rand() % ((qq->qdat3 & 0x7f) + 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3409 if((qq->qdat3 & 0x80) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3410 dl += ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3411 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3412 dl -= ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3413 if(dl < 0) dl = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3414 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3415 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3416 #endif
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3417
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3418 if(qq->qdat2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3419 if((dh = qq->leng - qq->qdat2) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3420 qq->qdat = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3421 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3422 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3423
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3424 if(dl < dh) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3425 qq->qdat = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3426 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3427 qq->qdat = dh;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3428 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3429 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3430 qq->qdat = dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3431 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3432
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3433 return si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3434 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3435
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3436
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3437 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3438 // ＰＳＧ　ＶＯＬＵＭＥ　ＳＥＴ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3439 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3440 void PMDWIN::volsetp(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3441 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3442 int ax, dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3443
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3444 if(qq->envf == 3 \|\| (qq->envf == -1 && qq->eenv_count == 0)) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3445
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3446 if(qq->volpush) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3447 dl = qq->volpush-1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3448 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3449 dl = qq->volume;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3450 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3451
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3452 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3453 // 音量down計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3454 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3455 dl = ((256-open_work.ssg_voldown) * dl) >> 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3456
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3457 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3458 // ENVELOPE 計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3459 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3460 if(dl <= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3461 OPNASetReg(&opna, pmdwork.partb+8-1, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3462 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3463 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3464
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3465 if(qq->envf == -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3466 if(qq->eenv_volume == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3467 OPNASetReg(&opna, pmdwork.partb+8-1, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3468 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3469 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3470 dl = ((((dl * (qq->eenv_volume + 1))) >> 3) + 1) >> 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3471 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3472 dl += qq->eenv_volume;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3473 if(dl <= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3474 OPNASetReg(&opna, pmdwork.partb+8-1, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3475 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3476 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3477 if(dl > 15) dl = 15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3478 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3479
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3480 //--------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3481 // 音量LFO計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3482 //--------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3483 if((qq->lfoswi & 0x22) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3484 OPNASetReg(&opna, pmdwork.partb+8-1, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3485 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3486 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3487
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3488 if(qq->lfoswi & 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3489 ax = qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3490 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3491 ax = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3492 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3493
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3494 if(qq->lfoswi & 0x20) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3495 ax += qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3496 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3497
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3498 dl = dl + ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3499 if(dl < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3500 OPNASetReg(&opna, pmdwork.partb+8-1, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3501 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3502 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3503 if(dl > 15) dl = 15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3504
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3505 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3506 // 出力
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3507 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3508 OPNASetReg(&opna, pmdwork.partb+8-1, dl);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3509 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3510
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3511
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3512 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3513 // ＰＳＧ　音程設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3514 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3515 void PMDWIN::otodasip(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3516 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3517 int ax, dx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3518
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3519 if(qq->fnum == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3520
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3521 // PSG Portament set
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3522
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3523 ax = qq->fnum + qq->porta_num;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3524 dx = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3525
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3526 // PSG Detune/LFO set
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3527 if((qq->extendmode & 1) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3528 ax -= qq->detune;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3529 if(qq->lfoswi & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3530 ax -= qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3531 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3532
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3533 if(qq->lfoswi & 0x10) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3534 ax -= qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3535 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3536 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3537 // 拡張DETUNE(DETUNE)の計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3538 if(qq->detune) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3539 dx = (ax * qq->detune) >> 12; // dx:ax=ax * qq->detune
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3540 if(dx >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3541 dx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3542 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3543 dx--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3544 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3545 ax -= dx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3546 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3547 // 拡張DETUNE(LFO)の計算
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3548 if(qq->lfoswi & 0x11) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3549 if(qq->lfoswi & 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3550 dx = qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3551 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3552 dx = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3553 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3554
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3555 if(qq->lfoswi & 0x10) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3556 dx += qq->_lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3557 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3558
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3559 if(dx) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3560 dx = (ax * dx) >> 12;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3561 if(dx >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3562 dx++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3563 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3564 dx--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3565 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3566 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3567 ax -= dx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3568 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3569 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3570
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3571 // TONE SET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3572
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3573 if(ax >= 0x1000) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3574 if(ax >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3575 ax = 0xfff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3576 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3577 ax = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3578 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3579 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3580
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3581 OPNASetReg(&opna, (pmdwork.partb-1) * 2, ax & 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3582 OPNASetReg(&opna, (pmdwork.partb-1) * 2 + 1, ax >> 8);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3583 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3584
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3585
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3586 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3587 // ＰＳＧ　ＫＥＹＯＮ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3588 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3589 void PMDWIN::keyonp(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3590 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3591 int ah, al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3592
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3593 if(qq->onkai == 255) return; // ｷｭｳﾌﾉﾄｷ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3594 int op = ((pmdwork.partb-1)&3);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3595 switch(op) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3596 case 0:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3597 pmdstatus[6] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3598 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3599 case 1:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3600 pmdstatus[7] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3601 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3602 case 2:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3603 pmdstatus[8] = (qq->onkai & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3604 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3605 default:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3606 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3607 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3608
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3609 ah=(1 << (pmdwork.partb -1)) \| (1 << (pmdwork.partb +2));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3610 al = PSGGetReg(&(opna.psg), 0x07) \| ah;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3611 ah = ~(ah & qq->psgpat);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3612 al &= ah;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3613 PSGSetReg(&(opna.psg), 7, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3614
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3615 // PSG ﾉｲｽﾞｼｭｳﾊｽｳﾉｾｯﾄ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3616 if(open_work.psnoi != open_work.psnoi_last && effwork.effon == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3617 PSGSetReg(&(opna.psg), 6, open_work.psnoi);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3618 open_work.psnoi_last = open_work.psnoi;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3619 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3620 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3621
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3622
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3623 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3624 // ＬＦＯ処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3625 // Don't Break cl
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3626 // output cy=1 変化があった
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3627 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3628 int PMDWIN::lfo(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3629 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3630 int ax, ch;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3631
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3632 if(qq->delay) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3633 qq->delay--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3634 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3635 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3636
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3637 if(qq->extendmode & 2) { // TimerAと合わせるか？
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3638 // そうじゃないなら無条件にlfo処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3639 ch = open_work.TimerAtime - pmdwork.lastTimerAtime;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3640 if(ch == 0) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3641 ax = qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3642
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3643 for(; ch > 0; ch--) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3644 lfo_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3645 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3646 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3647
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3648 ax = qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3649 lfo_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3650 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3651
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3652 if(ax == qq->lfodat) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3653 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3654 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3655 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3656 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3657
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3658
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3659 void PMDWIN::lfo_main(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3660 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3661 int al, ax;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3662
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3663 if(qq->speed != 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3664 if(qq->speed != 255) qq->speed--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3665 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3666 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3667
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3668 qq->speed = qq->speed2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3669
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3670 if(qq->lfo_wave == 0 \|\| qq->lfo_wave == 4 \|\| qq->lfo_wave == 5) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3671 // 三角波 lfowave = 0,4,5
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3672 if(qq->lfo_wave == 5) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3673 ax = abs(qq->step) * qq->step;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3674 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3675 ax = qq->step;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3676 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3677
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3678 if((qq->lfodat += ax) == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3679 md_inc(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3680 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3681
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3682 al = qq->time;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3683 if(al != 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3684 if(--al == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3685 al = qq->time2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3686 if(qq->lfo_wave != 4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3687 al += al; // lfowave=0,5の場合 timeを反転時２倍にする
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3688 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3689 qq->time = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3690 qq->step = -qq->step;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3691 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3692 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3693 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3694 qq->time = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3695
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3696 } else if(qq->lfo_wave == 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3697 // 矩形波 lfowave = 2
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3698 qq->lfodat = (qq->step * qq->time);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3699 md_inc(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3700 qq->step = -qq->step;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3701
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3702 } else if(qq->lfo_wave == 6) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3703 // ワンショット lfowave = 6
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3704 if(qq->time) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3705 if(qq->time != 255) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3706 qq->time--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3707 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3708 qq->lfodat += qq->step;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3709 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3710 } else if(qq->lfo_wave == 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3711 //ノコギリ波 lfowave = 1
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3712 qq->lfodat += qq->step;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3713 al = qq->time;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3714 if(al != -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3715 al--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3716 if(al == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3717 qq->lfodat = -qq->lfodat;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3718 md_inc(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3719 al = (qq->time2) * 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3720 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3721 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3722 qq->time = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3723
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3724 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3725 // ランダム波 lfowave = 3
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3726 ax = abs(qq->step) * qq->time;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3727 qq->lfodat = ax - (lfg_rand() % (ax * 2));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3728 md_inc(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3729 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3730 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3731
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3732
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3733 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3734 // MDコマンドの値によってSTEP値を変更
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3735 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3736 void PMDWIN::md_inc(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3737 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3738 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3739
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3740 if(--qq->mdspd) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3741
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3742 qq->mdspd = qq->mdspd2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3743
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3744 if(qq->mdc == 0) return; // count = 0
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3745 if(qq->mdc <= 127) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3746 qq->mdc--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3747 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3748
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3749 if(qq->step < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3750 al = qq->mdepth - qq->step;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3751 if(al >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3752 qq->step = -al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3753 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3754 if(qq->mdepth < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3755 qq->step = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3756 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3757 qq->step = -127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3758 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3759 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3760 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3761 al = qq->step + qq->mdepth;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3762 if(al >= 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3763 qq->step = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3764 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3765 if(qq->mdepth < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3766 qq->step = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3767 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3768 qq->step = 127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3769 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3770 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3771 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3772 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3773
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3774
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3775 void PMDWIN::swap(int a, int b)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3776 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3777 int temp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3778
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3779 temp = *a;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3780 a = b;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3781 *b = temp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3782 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3783
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3784
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3785 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3786 // LFO1<->LFO2 change
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3787 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3788 void PMDWIN::lfo_change(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3789 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3790 swap(&qq->lfodat, &qq->_lfodat);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3791 qq->lfoswi = ((qq->lfoswi & 0x0f) << 4) + (qq->lfoswi >> 4);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3792 qq->extendmode = ((qq->extendmode & 0x0f) << 4) + (qq->extendmode >> 4);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3793
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3794 swap(&qq->delay, &qq->_delay);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3795 swap(&qq->speed, &qq->_speed);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3796 swap(&qq->step, &qq->_step);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3797 swap(&qq->time, &qq->_time);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3798 swap(&qq->delay2, &qq->_delay2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3799 swap(&qq->speed2, &qq->_speed2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3800 swap(&qq->step2, &qq->_step2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3801 swap(&qq->time2, &qq->_time2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3802 swap(&qq->mdepth, &qq->_mdepth);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3803 swap(&qq->mdspd, &qq->_mdspd);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3804 swap(&qq->mdspd2, &qq->_mdspd2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3805 swap(&qq->lfo_wave, &qq->_lfo_wave);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3806 swap(&qq->mdc, &qq->_mdc);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3807 swap(&qq->mdc2, &qq->_mdc2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3808 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3809
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3810
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3811 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3812 // ポルタメント計算なのね
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3813 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3814 void PMDWIN::porta_calc(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3815 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3816 qq->porta_num += qq->porta_num2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3817 if(qq->porta_num3 == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3818 if(qq->porta_num3 > 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3819 qq->porta_num3--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3820 qq->porta_num++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3821 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3822 qq->porta_num3++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3823 qq->porta_num--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3824 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3825 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3826
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3827
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3828 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3829 // ＰＳＧ／ＰＣＭのソフトウエアエンベロープ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3830 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3831 int PMDWIN::soft_env(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3832 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3833 int i, cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3834
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3835 if(qq->extendmode & 4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3836 if(open_work.TimerAtime == pmdwork.lastTimerAtime) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3837
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3838 cl = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3839 for(i = 0; i < open_work.TimerAtime - pmdwork.lastTimerAtime; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3840 if(soft_env_main(qq)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3841 cl = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3842 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3843 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3844 return cl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3845 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3846 return soft_env_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3847 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3848 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3849
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3850
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3851 int PMDWIN::soft_env_main(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3852 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3853 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3854
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3855 if(qq->envf == -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3856 return ext_ssgenv_main(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3857 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3858
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3859 dl = qq->eenv_volume;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3860 soft_env_sub(qq);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3861 if(dl == qq->eenv_volume) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3862 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3863 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3864 return -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3865 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3866 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3867
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3868
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3869 int PMDWIN::soft_env_sub(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3870 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3871 if(qq->envf == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3872 // Attack
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3873 if(--qq->eenv_ar != 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3874 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3875 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3876
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3877 qq->envf = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3878 qq->eenv_volume = qq->eenv_dr;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3879 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3880 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3881
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3882 if(qq->envf != 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3883 // Decay
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3884 if(qq->eenv_sr == 0) return 0; // ＤＲ＝０の時は減衰しない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3885 if(--qq->eenv_sr != 0) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3886 qq->eenv_sr = qq->eenv_src;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3887 qq->eenv_volume--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3888
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3889 if(qq->eenv_volume >= -15 \|\| qq->eenv_volume < 15) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3890 qq->eenv_volume = -15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3891 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3892 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3893
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3894
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3895 // Release
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3896 if(qq->eenv_rr == 0) { // ＲＲ＝０の時はすぐに音消し
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3897 qq->eenv_volume = -15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3898 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3899 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3900
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3901 if(--qq->eenv_rr != 0) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3902 qq->eenv_rr = qq->eenv_rrc;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3903 qq->eenv_volume--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3904
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3905 if(qq->eenv_volume >= -15 && qq->eenv_volume < 15) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3906 qq->eenv_volume = -15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3907 return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3908 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3909
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3910
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3911 // 拡張版
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3912 int PMDWIN::ext_ssgenv_main(QQ *qq)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3913 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3914 int dl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3915
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3916 if(qq->eenv_count == 0) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3917
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3918 dl = qq->eenv_volume;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3919 esm_sub(qq, qq->eenv_count);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3920
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3921 if(dl == qq->eenv_volume) return 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3922 return -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3923 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3924
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3925
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3926 void PMDWIN::esm_sub(QQ *qq, int ah)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3927 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3928 if(--ah == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3929 // [[[ Attack Rate ]]]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3930 if(qq->eenv_arc > 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3931 qq->eenv_volume += qq->eenv_arc;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3932 if(qq->eenv_volume < 15) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3933 qq->eenv_arc = qq->eenv_ar-16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3934 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3935 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3936
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3937 qq->eenv_volume = 15;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3938 qq->eenv_count++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3939 if(qq->eenv_sl != 15) return; // SL=0の場合はすぐSRに
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3940 qq->eenv_count++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3941 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3942 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3943 if(qq->eenv_ar == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3944 qq->eenv_arc++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3945 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3946 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3947 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3948
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3949 if(--ah == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3950 // [[[ Decay Rate ]]]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3951 if(qq->eenv_drc > 0) { // 0以下の場合はカウントCHECK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3952 qq->eenv_volume -= qq->eenv_drc;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3953 if(qq->eenv_volume < 0 \|\| qq->eenv_volume < qq->eenv_sl) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3954 qq->eenv_volume = qq->eenv_sl;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3955 qq->eenv_count++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3956 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3957 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3958
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3959 if(qq->eenv_dr < 16) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3960 qq->eenv_drc = (qq->eenv_dr - 16) * 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3961 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3962 qq->eenv_drc = qq->eenv_dr - 16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3963 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3964 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3965 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3966
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3967 if(qq->eenv_dr == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3968 qq->eenv_drc++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3969 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3970 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3971
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3972 if(--ah == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3973 // [[[ Sustain Rate ]]]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3974 if(qq->eenv_src > 0) { // 0以下の場合はカウントCHECK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3975 if((qq->eenv_volume -= qq->eenv_src) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3976 qq->eenv_volume = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3977 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3978
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3979 if(qq->eenv_sr < 16) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3980 qq->eenv_src = (qq->eenv_sr - 16) * 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3981 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3982 qq->eenv_src = qq->eenv_sr - 16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3983 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3984 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3985 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3986
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3987 if(qq->eenv_sr == 0) return; // SR=0?
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3988 qq->eenv_src++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3989 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3990 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3991
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3992 // [[[ Release Rate ]]]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3993 if(qq->eenv_rrc > 0) { // 0以下の場合はカウントCHECK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3994 if((qq->eenv_volume -= qq->eenv_rrc) < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3995 qq->eenv_volume = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3996 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3997
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3998 qq->eenv_rrc = (qq->eenv_rr) * 2 - 16;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3999 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4000 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4001
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4002 if(qq->eenv_rr == 0) return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4003 qq->eenv_rrc++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4004 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4005
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4006
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4007 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4008 // テンポ設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4009 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4010 void PMDWIN::settempo_b(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4011 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4012 if(open_work.tempo_d != open_work.TimerB_speed) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4013 open_work.TimerB_speed = open_work.tempo_d;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4014 OPNASetReg(&opna, 0x26, open_work.TimerB_speed);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4015 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4016 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4017
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4018
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4019 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4020 // 小節のカウント
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4021 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4022 void PMDWIN::syousetu_count(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4023 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4024 if(open_work.opncount + 1 == open_work.syousetu_lng) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4025 open_work.syousetu++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4026 open_work.opncount = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4027 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4028 open_work.opncount++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4029 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4030 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4031
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4032
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4033 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4034 // ＯＰＮ割り込み許可処理
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4035 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4036 void PMDWIN::opnint_start(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4037 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4038 memset(FMPart, 0, sizeof(FMPart));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4039 memset(SSGPart, 0, sizeof(SSGPart));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4040 memset(&RhythmPart, 0, sizeof(RhythmPart));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4041
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4042 open_work.rhythmmask = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4043 pmdwork.rhydmy = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4044 data_init();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4045 opn_init();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4046
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4047 PSGSetReg(&(opna.psg), 0x07, 0xbf);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4048 mstop();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4049 setint();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4050 OPNASetReg(&opna, 0x29, 0x83);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4051 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4052
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4053
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4054 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4055 // DATA AREA のイニシャライズ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4056 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4057 void PMDWIN::data_init(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4058 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4059 int i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4060 int partmask, keyon_flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4061
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4062 for(i = 0; i < 6; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4063 partmask = FMPart[i].partmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4064 keyon_flag = FMPart[i].keyon_flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4065 memset(&FMPart[i], 0, sizeof(QQ));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4066 FMPart[i].partmask = partmask & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4067 FMPart[i].keyon_flag = keyon_flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4068 FMPart[i].onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4069 FMPart[i].onkai_def = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4070 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4071
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4072 for(i = 0; i < 3; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4073 partmask = SSGPart[i].partmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4074 keyon_flag = SSGPart[i].keyon_flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4075 memset(&SSGPart[i], 0, sizeof(QQ));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4076 SSGPart[i].partmask = partmask & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4077 SSGPart[i].keyon_flag = keyon_flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4078 SSGPart[i].onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4079 SSGPart[i].onkai_def = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4080 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4081
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4082 partmask = RhythmPart.partmask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4083 keyon_flag = RhythmPart.keyon_flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4084 memset(&RhythmPart, 0, sizeof(QQ));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4085 RhythmPart.partmask = partmask & 0x0f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4086 RhythmPart.keyon_flag = keyon_flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4087 RhythmPart.onkai = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4088 RhythmPart.onkai_def = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4089
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4090 pmdwork.tieflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4091 open_work.status = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4092 open_work.status2 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4093 open_work.syousetu = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4094 open_work.opncount = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4095 open_work.TimerAtime = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4096 pmdwork.lastTimerAtime = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4097
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4098 pmdwork.omote_key[0] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4099 pmdwork.omote_key[1] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4100 pmdwork.omote_key[2] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4101 pmdwork.ura_key[0] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4102 pmdwork.ura_key[1] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4103 pmdwork.ura_key[2] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4104
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4105 pmdwork.fm3_alg_fb = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4106 pmdwork.af_check = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4107
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4108 open_work.kshot_dat = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4109 open_work.rshot_dat = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4110
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4111 pmdwork.slotdetune_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4112 open_work.slot_detune1 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4113 open_work.slot_detune2 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4114 open_work.slot_detune3 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4115 open_work.slot_detune4 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4116
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4117 pmdwork.slot3_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4118 open_work.ch3mode = 0x3f;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4119
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4120 pmdwork.fmsel = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4121
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4122 open_work.syousetu_lng = 96;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4123
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4124 open_work.fm_voldown = open_work._fm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4125 open_work.ssg_voldown = open_work._ssg_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4126 open_work.rhythm_voldown = open_work._rhythm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4127 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4128
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4129
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4130 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4131 // OPN INIT
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4132 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4133 void PMDWIN::opn_init(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4134 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4135 int i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4136 OPNASetReg(&opna, 0x29, 0x83);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4137 open_work.psnoi = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4138 //@ if(effwork.effon == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4139 PSGSetReg(&(opna.psg), 0x06, 0x00);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4140 open_work.psnoi_last = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4141 //@ }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4142
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4143 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4144 // PAN/HARDLFO DEFAULT
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4145 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4146 OPNASetReg(&opna, 0xb4, 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4147 OPNASetReg(&opna, 0xb5, 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4148 OPNASetReg(&opna, 0xb6, 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4149 OPNASetReg(&opna, 0x1b4, 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4150 OPNASetReg(&opna, 0x1b5, 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4151 OPNASetReg(&opna, 0x1b6, 0xc0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4152
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4153 open_work.port22h = 0x00;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4154 OPNASetReg(&opna, 0x22, 0x00);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4155
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4156 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4157 // Rhythm Default = Pan : Mid , Vol : 15
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4158 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4159 for(i = 0; i < 6; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4160 open_work.rdat[i] = 0xcf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4161 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4162 OPNASetReg(&opna, 0x10, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4163
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4164 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4165 // リズムトータルレベル　セット
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4166 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4167 open_work.rhyvol = 484(256-open_work.rhythm_voldown)/1024;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4168 OPNASetReg(&opna, 0x11, open_work.rhyvol);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4169 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4170
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4171
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4172 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4173 // ＭＵＳＩＣ　ＳＴＯＰ
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4174 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4175 void PMDWIN::mstop_f(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4176 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4177 int i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4178 if(open_work.TimerAflag \|\| open_work.TimerBflag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4179 pmdwork.music_flag \|= 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4180 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4181 mstop();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4182 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4183
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4184 //memset(wavbuf2, 0, sizeof(wavbuf2));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4185 for(i=0; i<nbufsample; i++) wavbuf2[i].left = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4186 upos = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4187 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4188
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4189
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4190 void PMDWIN::mstop(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4191 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4192 pmdwork.music_flag &= 0xfd;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4193 open_work.play_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4194 open_work.status2 = -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4195 silence();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4196 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4197
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4198
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4199 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4200 // ALL SILENCE
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4201 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4202 void PMDWIN::silence(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4203 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4204 OPNASetReg(&opna, 0x80, 0xff); // FM Release = 15
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4205 OPNASetReg(&opna, 0x81, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4206 OPNASetReg(&opna, 0x82, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4207 OPNASetReg(&opna, 0x84, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4208 OPNASetReg(&opna, 0x85, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4209 OPNASetReg(&opna, 0x86, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4210 OPNASetReg(&opna, 0x88, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4211 OPNASetReg(&opna, 0x89, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4212 OPNASetReg(&opna, 0x8a, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4213 OPNASetReg(&opna, 0x8c, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4214 OPNASetReg(&opna, 0x8d, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4215 OPNASetReg(&opna, 0x8e, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4216
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4217 OPNASetReg(&opna, 0x180, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4218 OPNASetReg(&opna, 0x181, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4219 OPNASetReg(&opna, 0x184, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4220 OPNASetReg(&opna, 0x185, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4221 OPNASetReg(&opna, 0x188, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4222 OPNASetReg(&opna, 0x189, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4223 OPNASetReg(&opna, 0x18c, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4224 OPNASetReg(&opna, 0x18d, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4225
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4226 OPNASetReg(&opna, 0x182, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4227 OPNASetReg(&opna, 0x186, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4228 OPNASetReg(&opna, 0x18a, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4229 OPNASetReg(&opna, 0x18e, 0xff);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4230
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4231 OPNASetReg(&opna, 0x28, 0x00); // FM KEYOFF
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4232 OPNASetReg(&opna, 0x28, 0x01);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4233 OPNASetReg(&opna, 0x28, 0x02);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4234 OPNASetReg(&opna, 0x28, 0x04); // FM KEYOFF [URA]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4235 OPNASetReg(&opna, 0x28, 0x05);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4236 OPNASetReg(&opna, 0x28, 0x06);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4237
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4238 // 2003.11.30 プチノイズ対策のため
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4239 //@ if(effwork.effon == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4240 PSGSetReg(&(opna.psg), 0x07, 0xbf);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4241 PSGSetReg(&(opna.psg), 0x08, 0); // 2003.11.30 プチノイズ対策のため
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4242 PSGSetReg(&(opna.psg), 0x09, 0); // 2003.11.30 プチノイズ対策のため
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4243 PSGSetReg(&(opna.psg), 0x0a, 0); // 2003.11.30 プチノイズ対策のため
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4244 //@ } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4245 //@ PSGSetReg(&(opna.psg), 0x07, (PSGGetReg(&(opna.psg), 0x07) & 0x3f) \| 0x9b);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4246 //@ }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4247
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4248 OPNASetReg(&opna, 0x10, 0xff); // Rhythm dump
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4249 OPNASetReg(&opna, 0x110, 0x80); // TA/TB/EOS を RESET
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4250 OPNASetReg(&opna, 0x110, 0x18); // TIMERB/A/EOSのみbit変化あり
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4251 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4252
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4253
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4254 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4255 // 演奏開始(function)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4256 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4257 void PMDWIN::mstart_f(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4258 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4259 if(open_work.TimerAflag \|\| open_work.TimerBflag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4260 pmdwork.music_flag \|= 1; // TA/TB処理中は実行しない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4261 return;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4262 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4263
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4264 mstart();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4265 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4266
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4267
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4268 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4269 // 演奏開始
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4270 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4271 void PMDWIN::mstart(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4272 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4273 // TimerB = 0 に設定し、Timer Reset(曲の長さを毎回そろえるため)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4274 open_work.tempo_d = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4275 settempo_b();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4276 OPNASetReg(&opna, 0x27, 0); // TIMER RESET(timerA,Bとも)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4277
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4278 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4279 // 演奏停止
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4280 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4281 pmdwork.music_flag &= 0xfe;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4282 mstop();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4283
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4284 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4285 // バッファ初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4286 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4287 pos2 = (char *)wavbuf2; // buf に余っているサンプルの先頭位置
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4288 us2 = 0; // buf に余っているサンプル数
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4289 upos = 0; // 演奏開始からの時間(μsec)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4290
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4291 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4292 // 演奏準備
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4293 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4294 data_init();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4295 play_init();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4296
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4297 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4298 // OPN初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4299 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4300 opn_init();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4301
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4302 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4303 // 音楽の演奏を開始
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4304 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4305 setint();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4306 open_work.play_flag = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4307 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4308
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4309
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4310 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4311 // 各パートのスタートアドレス及び初期値をセット
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4312 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4313 void PMDWIN::play_init(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4314 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4315 int i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4316 ushort *p;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4317
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4318 //２．６追加分
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4319 if(open_work.mmlbuf != 2(max_part2+1)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4320 open_work.prgdat_adr = open_work.mmlbuf + (ushort )(&open_work.mmlbuf[2*(max_part2+1)]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4321 open_work.prg_flg = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4322 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4323 open_work.prg_flg = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4324 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4325
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4326 p = (ushort *)open_work.mmlbuf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4327
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4328 // Part 0,1,2,3,4,5(FM1〜6)の時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4329 for(i = 0; i < 6; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4330 if(open_work.mmlbuf[*p] == 0x80) { //先頭が80hなら演奏しない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4331 FMPart[i].address = NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4332 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4333 FMPart[i].address = &open_work.mmlbuf[*p];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4334 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4335
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4336 FMPart[i].leng = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4337 FMPart[i].keyoff_flag = -1; // 現在keyoff中
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4338 FMPart[i].mdc = -1; // MDepth Counter (無限)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4339 FMPart[i].mdc2 = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4340 FMPart[i]._mdc = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4341 FMPart[i]._mdc2 = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4342 FMPart[i].onkai = 255; // rest
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4343 FMPart[i].onkai_def = 255; // rest
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4344 FMPart[i].volume = 108; // FM VOLUME DEFAULT= 108
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4345 FMPart[i].fmpan = 0xc0; // FM PAN = Middle
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4346 FMPart[i].slotmask = 0xf0; // FM SLOT MASK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4347 FMPart[i].neiromask = 0xff; // FM Neiro MASK
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4348 p++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4349 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4350
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4351 // Part 6,7,8(PSG1〜3)の時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4352 for(i = 0; i < 3; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4353 if(open_work.mmlbuf[*p] == 0x80) { //先頭が80hなら演奏しない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4354 SSGPart[i].address = NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4355 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4356 SSGPart[i].address = &open_work.mmlbuf[*p];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4357 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4358
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4359 SSGPart[i].leng = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4360 SSGPart[i].keyoff_flag = -1; // 現在keyoff中
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4361 SSGPart[i].mdc = -1; // MDepth Counter (無限)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4362 SSGPart[i].mdc2 = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4363 SSGPart[i]._mdc = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4364 SSGPart[i]._mdc2 = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4365 SSGPart[i].onkai = 255; // rest
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4366 SSGPart[i].onkai_def = 255; // rest
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4367 SSGPart[i].volume = 8; // PSG VOLUME DEFAULT= 8
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4368 SSGPart[i].psgpat = 7; // PSG = TONE
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4369 SSGPart[i].envf = 3; // PSG ENV = NONE/normal
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4370 p++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4371 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4372 p++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4373
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4374 // Part 10(Rhythm)の時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4375 if(open_work.mmlbuf[*p] == 0x80) { //先頭が80hなら演奏しない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4376 RhythmPart.address = NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4377 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4378 RhythmPart.address = &open_work.mmlbuf[*p];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4379 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4380
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4381 RhythmPart.leng = 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4382 RhythmPart.keyoff_flag = -1; // 現在keyoff中
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4383 RhythmPart.mdc = -1; // MDepth Counter (無限)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4384 RhythmPart.mdc2 = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4385 RhythmPart._mdc = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4386 RhythmPart._mdc2 = -1; // 同上
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4387 RhythmPart.onkai = 255; // rest
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4388 RhythmPart.onkai_def = 255; // rest
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4389 RhythmPart.volume = 15; // PPSDRV volume
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4390 p++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4391
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4392 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4393 // Rhythm のアドレステーブルをセット
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4394 //------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4395
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4396 open_work.radtbl = (ushort )&open_work.mmlbuf[p];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4397 open_work.rhyadr = (uchar *)&pmdwork.rhydmy;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4398 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4399
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4400
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4401 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4402 // インタラプト　設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4403 // FM音源専用
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4404 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4405 void PMDWIN::setint(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4406 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4407 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4408 // ＯＰＮ割り込み初期設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4409 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4410
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4411 open_work.tempo_d = 200;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4412 open_work.tempo_d_push = 200;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4413
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4414 calc_tb_tempo();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4415 settempo_b();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4416
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4417 OPNASetReg(&opna, 0x25, 0x00); // TIMER A SET (9216μs固定)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4418 OPNASetReg(&opna, 0x24, 0x00); // 一番遅くて丁度いい
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4419 OPNASetReg(&opna, 0x27, 0x3f); // TIMER ENABLE
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4420
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4421 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4422 //　小節カウンタリセット
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4423 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4424
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4425 open_work.opncount = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4426 open_work.syousetu = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4427 open_work.syousetu_lng = 96;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4428 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4429
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4430
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4431 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4432 // T->t 変換
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4433 // input [tempo_d]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4434 // output [tempo_48]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4435 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4436 void PMDWIN::calc_tb_tempo(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4437 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4438 // TEMPO = 0x112C / [ 256 - TB ] timerB -> tempo
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4439 int temp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4440
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4441 if(256 - open_work.tempo_d == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4442 temp = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4443 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4444 temp = (0x112c * 2 / (256 - open_work.tempo_d) + 1) / 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4445 if(temp > 255) temp = 255;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4446 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4447
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4448 open_work.tempo_48 = temp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4449 open_work.tempo_48_push = temp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4450 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4451
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4452
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4453 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4454 // t->T 変換
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4455 // input [tempo_48]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4456 // output [tempo_d]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4457 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4458 void PMDWIN::calc_tempo_tb(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4459 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4460 int al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4461
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4462 // TB = 256 - [ 112CH / TEMPO ] tempo -> timerB
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4463
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4464 if(open_work.tempo_48 >= 18) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4465 al = 256 - 0x112c / open_work.tempo_48;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4466 if(0x112c % open_work.tempo_48 >= 128) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4467 al--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4468 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4469 //al = 256 - (0x112c * 2 / open_work.tempo_48 + 1) / 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4470 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4471 al = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4472 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4473 open_work.tempo_d = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4474 open_work.tempo_d_push = al;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4475 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4476
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4477
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4478 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4479 // 曲の読み込みその３（メモリから、カレントディレクトリあり）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4480 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4481 int PMDWIN::music_load3(uchar *musdata, unsigned int size)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4482 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4483 if(size > sizeof(mdataarea)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4484 return ERR_WRONG_MUSIC_FILE;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4485 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4486
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4487 // 020120 ヘッダ解析のみ Towns に対応
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4488 if((musdata[0] > 0x0f && musdata[0] != 0xff) \|\| (musdata[1] != 0x18 && musdata[1] != 0x1a) \|\| musdata[2]) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4489 return ERR_WRONG_MUSIC_FILE; // not PMD data
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4490 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4491
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4492 // メモリを 0x00 で初期化する
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4493 //memset(mdataarea, 0x00, sizeof(mdataarea));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4494 memcpy(mdataarea, musdata, size);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4495 return PMDWIN_OK;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4496 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4497
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4498
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4499 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4500 // 初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4501 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4502 bool PMDWIN::init(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4503 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4504 int i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4505 struct timeval tv;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4506 open_work.rate = SOUND_44K;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4507
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4508 // OPEN_WORK メンバの初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4509 open_work.rhyvol = 0x3c;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4510 open_work.TimerBflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4511 open_work.TimerAflag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4512 open_work.TimerB_speed = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4513 open_work.port22h = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4514
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4515 if(OPNAInit(&opna, OPNAClock, SOUND_44K, true) == false) return false;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4516 SetVolumeFM(&opna, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4517 SetVolumePSG(&(opna.psg), 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4518
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4519 // Init RNG state
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4520 gettimeofday(&tv, NULL);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4521 lfg_srand(tv.tv_sec);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4522
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4523 for(i=0; i<nbufsample; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4524 wavbuf2[i].left = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4525 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4526 pos2 = (char *)wavbuf2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4527 us2 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4528 upos = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4529
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4530 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4531 // 変数の初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4532 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4533
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4534 open_work.MusPart[ 0] = &FMPart[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4535 open_work.MusPart[ 1] = &FMPart[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4536 open_work.MusPart[ 2] = &FMPart[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4537 open_work.MusPart[ 3] = &FMPart[3];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4538 open_work.MusPart[ 4] = &FMPart[4];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4539 open_work.MusPart[ 5] = &FMPart[5];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4540 open_work.MusPart[ 6] = &SSGPart[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4541 open_work.MusPart[ 7] = &SSGPart[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4542 open_work.MusPart[ 8] = &SSGPart[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4543 open_work.MusPart[ 9] = &RhythmPart;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4544
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4545 mdataarea[0] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4546 for(i = 0; i < 12; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4547 mdataarea[i*2+1] = 0x18;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4548 mdataarea[i*2+2] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4549 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4550 mdataarea[25] = 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4551
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4552 open_work.fm_voldown = fmvd_init; // FM_VOLDOWN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4553 open_work._fm_voldown = fmvd_init; // FM_VOLDOWN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4554 open_work.ssg_voldown = 0; // SSG_VOLDOWN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4555 open_work._ssg_voldown = 0; // SSG_VOLDOWN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4556 open_work.rhythm_voldown = 0; // RHYTHM_VOLDOWN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4557 open_work._rhythm_voldown = 0; // RHYTHM_VOLDOWN
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4558
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4559 memset(FMPart, 0, sizeof(FMPart));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4560 memset(SSGPart, 0, sizeof(SSGPart));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4561 memset(&RhythmPart, 0, sizeof(RhythmPart));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4562
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4563 pmdwork.music_flag = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4564 pmdwork.ppsdrv_flag = false; // PPSDRV FLAG
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4565
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4566 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4567 // 曲データ，音色データ格納番地を設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4568 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4569 open_work.mmlbuf = &mdataarea[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4570
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4571 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4572 // 効果音/FMINT/EFCINTを初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4573 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4574 effwork.effon = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4575 effwork.psgefcnum = 0xff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4576
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4577 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4578 // 088/188/288/388 (同INT番号のみ) を初期設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4579 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4580 OPNASetReg(&opna, 0x29, 0x00);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4581 OPNASetReg(&opna, 0x24, 0x00);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4582 OPNASetReg(&opna, 0x25, 0x00);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4583 OPNASetReg(&opna, 0x26, 0x00);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4584 OPNASetReg(&opna, 0x27, 0x3f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4585
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4586 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4587 // ＯＰＮ割り込み開始
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4588 //----------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4589 opnint_start();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4590
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4591 return true;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4592 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4593
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4594
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4595 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4596 // 合成周波数の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4597 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4598 void PMDWIN::setpcmrate(unsigned int rate)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4599 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4600 if(rate == SOUND_55K \|\| rate == SOUND_55K_2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4601 open_work.rate = SOUND_44K;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4602 open_work.fmcalc55k = true;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4603 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4604 open_work.rate = rate;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4605 open_work.fmcalc55k = false;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4606 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4607 OPNASetRate(&opna, open_work.rate, open_work.fmcalc55k);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4608 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4609
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4610
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4611 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4612 // Mask to enable/disable usage of FM (bit 0), SSG (bit 1) and Rhythm (bit 2)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4613 // on the OPNA. Mostly for testing purposes.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4614 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4615 void PMDWIN::setdevmask(uint8_t mask)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4616 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4617 opna.devmask = mask;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4618 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4619
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4620
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4621 void PMDWIN::setchanmask(uint32_t mask)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4622 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4623 OPNASetChannelMask(&opna, mask);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4624 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4625
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4626
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4627 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4628 // 演奏開始
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4629 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4630 void PMDWIN::music_start(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4631 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4632 mstart_f();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4633 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4634
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4635
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4636 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4637 // 演奏停止
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4638 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4639 void PMDWIN::music_stop(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4640 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4641 mstop_f();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4642 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4643
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4644
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4645 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4646 // PCM データ（wave データ）の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4647 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4648 void PMDWIN::getpcmdata(short *buf, int nsamples)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4649 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4650 int copysamples = 0; // コピー済みのサンプル数
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4651 int i, us;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4652
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4653 do {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4654 if(nsamples - copysamples <= us2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4655 memcpy(buf, pos2, (nsamples - copysamples)*2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4656 us2 -= (nsamples - copysamples);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4657 pos2 += (nsamples - copysamples)*2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4658 copysamples = nsamples;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4659 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4660 memcpy(buf, pos2, us2 * 2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4661 buf += us2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4662 copysamples += us2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4663 pos2 = (char *)wavbuf2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4664
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4665 if(ReadStatus(&opna) & 0x01) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4666 TimerA_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4667 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4668
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4669 if(ReadStatus(&opna) & 0x02) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4670 TimerB_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4671 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4672
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4673 OPNASetReg(&opna, 0x27, open_work.ch3mode \| 0x30); // TIMER RESET(timerA,Bとも)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4674
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4675
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4676 us = OPNAGetNextEvent(&opna);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4677 us2 = (int)((float)us * open_work.rate / 1000000.0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4678 OPNATimerCount(&opna, us);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4679
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4680 int32_t tmpbuf[8192];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4681 for(i=0; i<us2; i++) tmpbuf[i] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4682 OPNAMix(&opna, (int32_t*)tmpbuf, us2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4683 upos += us;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4684
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4685 for(i = 0; i < us2; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4686 wavbuf2[i].left = Limit(tmpbuf[i], 32767, -32768);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4687 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4688 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4689 } while(copysamples < nsamples);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4690 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4691
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4692
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4693 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4694 // FM で 55kHz合成、一次補完するかどうかの設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4695 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4696 void PMDWIN::setfmcalc55k(bool flag)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4697 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4698 open_work.fmcalc55k = flag;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4699 OPNASetRate(&opna, open_work.rate, open_work.fmcalc55k);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4700 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4701
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4702
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4703 unsigned int PMDWIN::getstatus(char *buf, size_t bufsize)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4704 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4705 char *p = buf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4706 unsigned int i = 0, len;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4707 while(i < 6) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4708 *p++ = 'F';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4709 *p++ = 'M';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4710 *p++ = (i + 0x30);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4711 *p++ = ':';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4712 *p++ = ' ';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4713 *p++ = notes[pmdstatus[i]][0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4714 *p++ = notes[pmdstatus[i]][1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4715 *p++ = ' ';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4716 i++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4717 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4718 while(i < 9) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4719 *p++ = 'P';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4720 *p++ = 'S';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4721 *p++ = 'G';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4722 *p++ = (i + 0x30 - 6);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4723 *p++ = ':';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4724 *p++ = ' ';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4725 *p++ = notes[pmdstatus[i]][0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4726 *p++ = notes[pmdstatus[i]][1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4727 *p++ = ' ';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4728 i++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4729 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4730 p -= 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4731 *p++ = (pmdstatus[8] + 0x30);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4732 *p++ = '\0';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4733 len = (p - buf);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4734 return len;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4735 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4736
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4737
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4738 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4739 // メモの取得（内部動作）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4740 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4741 char* PMDWIN::_getmemo(char dest, uchar musdata, int size, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4742 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4743 uchar si, mmlbuf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4744 int i, dx;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4745 int maxsize;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4746
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4747 if(musdata == NULL \|\| size == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4748 mmlbuf = open_work.mmlbuf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4749 maxsize = sizeof(mdataarea) - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4750 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4751 mmlbuf = &musdata[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4752 maxsize = size - 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4753 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4754 if(maxsize < 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4755 *dest = '\0'; // 曲データが不正
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4756 return NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4757 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4758
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4759 if(mmlbuf[0] != 0x1a \|\| mmlbuf[1] != 0x00) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4760 *dest = '\0'; // 音色がないfile=メモのアドレス取得不能
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4761 return dest;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4762 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4763
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4764 if(maxsize < 0x18+1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4765 *dest = '\0'; // 曲データが不正
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4766 return NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4767 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4768
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4769 if(maxsize < (ushort )&mmlbuf[0x18] - 4 + 3) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4770 *dest = '\0'; // 曲データが不正
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4771 return NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4772 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4773
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4774 si = &mmlbuf[(ushort )&mmlbuf[0x18] - 4];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4775 if(*(si + 2) != 0x40) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4776 if((si + 3) != 0xfe \|\| (si + 2) < 0x41) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4777 *dest = '\0'; // 音色がないfile=メモのアドレス取得不能
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4778 return dest;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4779 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4780 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4781
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4782 if(*(si + 2) >= 0x42) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4783 al++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4784 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4785
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4786 if(*(si + 2) >= 0x48) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4787 al++;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4788 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4789
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4790 if(al < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4791 *dest = '\0'; // 登録なし
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4792 return dest;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4793 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4794
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4795 si = &mmlbuf[(ushort )si];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4796
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4797 for(i = 0; i <= al; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4798 if(maxsize < si - mmlbuf + 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4799 *dest = '\0'; // 曲データが不正
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4800 return NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4801 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4802
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4803 dx = (ushort )si;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4804 if(dx == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4805 *dest = '\0';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4806 return dest;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4807 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4808
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4809 if(maxsize < dx) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4810 *dest = '\0'; // 曲データが不正
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4811 return NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4812 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4813
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4814 if(mmlbuf[dx] == '/') {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4815 *dest = '\0';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4816 return dest;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4817 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4818
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4819 si += 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4820 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4821
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4822 for(i = dx; i < maxsize; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4823 if(mmlbuf[i] == '\0') break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4824 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4825
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4826 // 終端の \0 がない場合
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4827 if(i >= maxsize) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4828 memcpy(dest, &mmlbuf[dx], maxsize - dx);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4829 dest[maxsize - dx - 1] = '\0';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4830 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4831 memcpy(dest, &mmlbuf[dx], i);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4832 dest[i] = '\0';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4833 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4834 return dest;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4835 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4836
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4837 /*
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4838 Conversion between SJIS codes (s1,s2) and JISX0208 codes (c1,c2):
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4839 Example. (s1,s2) = 0x8140, (c1,c2) = 0x2121.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4840 0x81 <= s1 <= 0x9F \|\| 0xE0 <= s1 <= 0xEA,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4841 0x40 <= s2 <= 0x7E \|\| 0x80 <= s2 <= 0xFC,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4842 0x21 <= c1 <= 0x74, 0x21 <= c2 <= 0x7E.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4843 Invariant:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4844 942(s1 < 0xE0 ? s1-0x81 : s1-0xC1) + (s2 < 0x80 ? s2-0x40 : s2-0x41)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4845 = 94*(c1-0x21)+(c2-0x21)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4846 Conversion (s1,s2) -> (c1,c2):
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4847 t1 := (s1 < 0xE0 ? s1-0x81 : s1-0xC1)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4848 t2 := (s2 < 0x80 ? s2-0x40 : s2-0x41)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4849 c1 := 2*t1 + (t2 < 0x5E ? 0 : 1) + 0x21
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4850 c2 := (t2 < 0x5E ? t2 : t2-0x5E) + 0x21
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4851 Conversion (c1,c2) -> (s1,s2):
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4852 t1 := (c1 - 0x21) >> 1
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4853 t2 := ((c1 - 0x21) & 1) * 0x5E + (c2 - 0x21)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4854 s1 := (t1 < 0x1F ? t1+0x81 : t1+0xC1)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4855 s2 := (t2 < 0x3F ? t2+0x40 : t2+0x41)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4856 */
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4857
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4858 static int sjis_to_ucs4(uint32_t pwc, const uint8_t s, int n)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4859 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4860 uint8_t c = *s;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4861 if (c <= 0x80) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4862 if (c == 0x5c)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4863 *pwc = (uint32_t) 0x00a5;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4864 else if (c == 0x7e)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4865 *pwc = (uint32_t) 0x203e;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4866 else
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4867 *pwc = (uint32_t) c;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4868 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4869 } else if (c >= 0xa1 && c <= 0xdf) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4870 *pwc = (uint32_t) c + 0xfec0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4871 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4872 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4873 uint8_t s1, s2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4874 s1 = c;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4875 if ((s1 >= 0x81 && s1 <= 0x9f) \|\| (s1 >= 0xe0 && s1 <= 0xea)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4876 if (n < 2)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4877 return -2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4878 s2 = s[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4879 if ((s2 >= 0x40 && s2 <= 0x7e) \|\| (s2 >= 0x80 && s2 <= 0xfc)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4880 uint8_t t1 = (s1 < 0xe0 ? s1-0x81 : s1-0xc1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4881 uint8_t t2 = (s2 < 0x80 ? s2-0x40 : s2-0x41);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4882 uint8_t buf[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4883 buf[0] = 2*t1 + (t2 < 0x5e ? 0 : 1) + 0x21;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4884 buf[1] = (t2 < 0x5e ? t2 : t2-0x5e) + 0x21;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4885 return jisx0208_mbtowc(pwc,buf,2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4886 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4887 } else if (s1 >= 0xf0 && s1 <= 0xf9) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4888 /* User-defined range. See
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4889 * Ken Lunde's "CJKV Information Processing", table 4-66, p. 206. */
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4890 if (n < 2)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4891 return -2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4892 s2 = s[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4893 if ((s2 >= 0x40 && s2 <= 0x7e) \|\| (s2 >= 0x80 && s2 <= 0xfc)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4894 pwc = 0xe000 + 188(s1 - 0xf0) + (s2 < 0x80 ? s2-0x40 : s2-0x41);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4895 return 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4896 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4897 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4898 return -1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4899 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4900 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4901
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4902 static int ucs4_to_utf8(uint8_t *utf8, uint32_t ucs4)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4903 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4904 if (ucs4 <= 0x0000007fL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4905 utf8[0] = ucs4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4906 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4907 } else if (ucs4 <= 0x000007ffL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4908 utf8[0] = 0xc0 \| ((ucs4 >> 6) & 0x1f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4909 utf8[1] = 0x80 \| ((ucs4 >> 0) & 0x3f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4910 return 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4911 } else if (ucs4 <= 0x0000ffffL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4912 utf8[0] = 0xe0 \| ((ucs4 >> 12) & 0x0f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4913 utf8[1] = 0x80 \| ((ucs4 >> 6) & 0x3f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4914 utf8[2] = 0x80 \| ((ucs4 >> 0) & 0x3f);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4915 return 3;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4916 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4917
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4918 /* default */
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4919 utf8[0] = '?';
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4920 return 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4921 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4922
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4923 static size_t sjis_to_utf8(uint8_t outbuf, uint8_t inbuf, size_t insize) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4924 uint32_t wc = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4925 uint8_t *utf8str = outbuf;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4926 uint8_t *utf8str_start = utf8str;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4927 int ret;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4928 while(insize > 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4929 ret = sjis_to_ucs4(&wc, inbuf, insize);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4930 if(ret < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4931 inbuf++; insize--;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4932 continue;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4933 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4934 utf8str += ucs4_to_utf8(utf8str, wc);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4935 inbuf += ret;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4936 insize -= ret;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4937 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4938 return (utf8str - utf8str_start);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4939 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4940
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4941 char* PMDWIN::_getmemo3(char dest, uchar musdata, int size, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4942 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4943 char buf[mdata_def*1024];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4944 _getmemo((char *)buf, musdata, size, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4945 sjis_to_utf8((uint8_t)dest, (uint8_t)buf, strlen(buf)+1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4946 return dest;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4947 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4948
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4949
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4950 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4951 // パートのマスク
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4952 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4953 int PMDWIN::maskon(unsigned int ch)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4954 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4955 int ah, fmseltmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4956
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4957
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4958 if(ch >= sizeof(open_work.MusPart) / sizeof(QQ *)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4959 return ERR_WRONG_PARTNO; // part number error
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4960 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4961
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4962 if(part_table[ch][0] < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4963 open_work.rhythmmask = 0; // Rhythm音源をMask
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4964 OPNASetReg(&opna, 0x10, 0xff); // Rhythm音源を全部Dump
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4965 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4966 fmseltmp = pmdwork.fmsel;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4967 if(open_work.MusPart[ch]->partmask == 0 && open_work.play_flag) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4968 if(part_table[ch][2] == 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4969 pmdwork.partb = part_table[ch][1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4970 pmdwork.fmsel = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4971 silence_fmpart(open_work.MusPart[ch]); // 音を完璧に消す
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4972 } else if(part_table[ch][2] == 1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4973 pmdwork.partb = part_table[ch][1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4974 pmdwork.fmsel = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4975 silence_fmpart(open_work.MusPart[ch]); // 音を完璧に消す
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4976 } else if(part_table[ch][2] == 2) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4977 pmdwork.partb = part_table[ch][1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4978 ah = 1 << (pmdwork.partb - 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4979 ah \|= (ah << 3);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4980 // PSG keyoff
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4981 PSGSetReg(&(opna.psg), 0x07, ah \| PSGGetReg(&(opna.psg), 0x07));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4982 } else if(part_table[ch][2] == 4) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4983 if(effwork.psgefcnum < 11) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4984 effend();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4985 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4986 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4987 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4988 open_work.MusPart[ch]->partmask \|= 1;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4989 pmdwork.fmsel = fmseltmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4990 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4991 return PMDWIN_OK;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4992 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4993
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4994
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4995 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4996 // パートのマスク解除
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4997 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4998 int PMDWIN::maskoff(unsigned int ch)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4999 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5000 int fmseltmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5001
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5002 if(ch >= sizeof(open_work.MusPart) / sizeof(QQ *)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5003 return ERR_WRONG_PARTNO; // part number error
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5004 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5005
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5006 if(part_table[ch][0] < 0) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5007 open_work.rhythmmask = 0xff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5008 } else {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5009 if(open_work.MusPart[ch]->partmask == 0) return ERR_NOT_MASKED; // マスクされていない
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5010 // 効果音でまだマスクされている
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5011 if((open_work.MusPart[ch]->partmask &= 0xfe) != 0) return ERR_EFFECT_USED;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5012 // 曲が止まっている
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5013 if(open_work.play_flag == 0) return ERR_MUSIC_STOPPED;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5014
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5015 fmseltmp = pmdwork.fmsel;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5016 if(open_work.MusPart[ch]->address != NULL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5017 if(part_table[ch][2] == 0) { // FM音源(表)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5018 pmdwork.fmsel = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5019 pmdwork.partb = part_table[ch][1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5020 neiro_reset(open_work.MusPart[ch]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5021 } else if(part_table[ch][2] == 1) { // FM音源(裏)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5022 pmdwork.fmsel = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5023 pmdwork.partb = part_table[ch][1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5024 neiro_reset(open_work.MusPart[ch]);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5025 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5026 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5027 pmdwork.fmsel = fmseltmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5028
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5029 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5030 return PMDWIN_OK;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5031 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5032
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5033
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5034 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5035 // FM Volume Down の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5036 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5037 void PMDWIN::setfmvoldown(int voldown)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5038 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5039 open_work.fm_voldown = open_work._fm_voldown = voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5040 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5041
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5042
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5043 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5044 // SSG Volume Down の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5045 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5046 void PMDWIN::setssgvoldown(int voldown)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5047 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5048 open_work.ssg_voldown = open_work._ssg_voldown = voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5049 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5050
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5051
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5052 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5053 // Rhythm Volume Down の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5054 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5055 void PMDWIN::setrhythmvoldown(int voldown)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5056 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5057 open_work.rhythm_voldown = open_work._rhythm_voldown = voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5058 open_work.rhyvol = 484(256-open_work.rhythm_voldown)/1024;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5059 OPNASetReg(&opna, 0x11, open_work.rhyvol);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5060
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5061 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5062
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5063
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5064 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5065 // FM Volume Down の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5066 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5067 int PMDWIN::getfmvoldown(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5068 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5069 return open_work.fm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5070 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5071
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5072
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5073 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5074 // FM Volume Down の取得（その２）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5075 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5076 int PMDWIN::getfmvoldown2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5077 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5078 return open_work._fm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5079 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5080
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5081
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5082 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5083 // SSG Volume Down の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5084 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5085 int PMDWIN::getssgvoldown(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5086 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5087 return open_work.ssg_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5088 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5089
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5090
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5091 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5092 // SSG Volume Down の取得（その２）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5093 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5094 int PMDWIN::getssgvoldown2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5095 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5096 return open_work._ssg_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5097 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5098
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5099
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5100 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5101 // Rhythm Volume Down の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5102 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5103 int PMDWIN::getrhythmvoldown(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5104 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5105 return open_work.rhythm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5106 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5107
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5108
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5109 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5110 // Rhythm Volume Down の取得（その２）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5111 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5112 int PMDWIN::getrhythmvoldown2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5113 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5114 return open_work._rhythm_voldown;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5115 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5116
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5117
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5118 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5119 // 再生位置の移動(pos : ms)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5120 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5121 void PMDWIN::setpos(int pos)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5122 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5123 uint64_t _pos;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5124 int us;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5125
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5126 _pos = (uint64_t)pos * 1000; // (ms -> usec への変換)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5127
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5128 if(upos > _pos) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5129 mstart();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5130 pos2 = (char *)wavbuf2; // buf に余っているサンプルの先頭位置
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5131 us2 = 0; // buf に余っているサンプル数
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5132 upos = 0; // 演奏開始からの時間(μsec)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5133 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5134
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5135 while(upos < _pos) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5136 if(ReadStatus(&opna) & 0x01) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5137 TimerA_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5138 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5139
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5140 if(ReadStatus(&opna) & 0x02) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5141 TimerB_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5142 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5143
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5144 OPNASetReg(&opna, 0x27, open_work.ch3mode \| 0x30); // TIMER RESET(timerA,Bとも)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5145
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5146 us = OPNAGetNextEvent(&opna);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5147 OPNATimerCount(&opna, us);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5148 upos += us;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5149 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5150
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5151 if(open_work.status2 == -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5152 silence();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5153 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5154 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5155
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5156
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5157 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5158 // 再生位置の移動(pos : count 単位)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5159 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5160 void PMDWIN::setpos2(int pos)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5161 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5162 int us;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5163
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5164 if(open_work.syousetu_lng * open_work.syousetu + open_work.opncount > pos) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5165 mstart();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5166 pos2 = (char *)wavbuf2; // buf に余っているサンプルの先頭位置
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5167 us2 = 0; // buf に余っているサンプル数
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5168 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5169
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5170 while(open_work.syousetu_lng * open_work.syousetu + open_work.opncount < pos) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5171 if(ReadStatus(&opna) & 0x01) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5172 TimerA_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5173 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5174
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5175 if(ReadStatus(&opna) & 0x02) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5176 TimerB_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5177 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5178
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5179 OPNASetReg(&opna, 0x27, open_work.ch3mode \| 0x30); // TIMER RESET(timerA,Bとも)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5180
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5181 us = OPNAGetNextEvent(&opna);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5182 OPNATimerCount(&opna, us);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5183 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5184
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5185 if(open_work.status2 == -1) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5186 silence();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5187 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5188 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5189
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5190
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5191 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5192 // 再生位置の取得(pos : ms)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5193 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5194 int PMDWIN::getpos(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5195 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5196 return (int)(upos / 1000);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5197 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5198
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5199
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5200 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5201 // 再生位置の取得(pos : count 単位)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5202 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5203 int PMDWIN::getpos2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5204 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5205 return open_work.syousetu_lng * open_work.syousetu + open_work.opncount;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5206 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5207
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5208
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5209 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5210 // 曲の長さの取得(pos : ms)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5211 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5212 bool PMDWIN::getlength(uint length, uint loop)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5213 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5214 int us;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5215 mstart();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5216 upos = 0; // 演奏開始からの時間(μsec)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5217 *length = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5218
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5219 do {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5220 if(ReadStatus(&opna) & 0x01) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5221 TimerA_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5222 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5223
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5224 if(ReadStatus(&opna) & 0x02) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5225 TimerB_main();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5226 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5227
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5228 OPNASetReg(&opna, 0x27, open_work.ch3mode \| 0x30); // TIMER RESET(timerA,Bとも)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5229
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5230 us = OPNAGetNextEvent(&opna);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5231 OPNATimerCount(&opna, us);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5232 upos += us;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5233 if(open_work.status2 == 1 && *length == 0) { // ループ時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5234 *length = (int)(upos / 1000);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5235 } else if(open_work.status2 == -1) { // ループなし終了時
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5236 *length = (int)(upos / 1000);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5237 *loop = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5238 mstop();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5239 return true;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5240 } else if(getpos2() >= 65536) { // 65536クロック以上なら強制終了
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5241 *length = (int)(upos / 1000);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5242 loop = length;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5243 return true;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5244 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5245 } while(open_work.status2 < 2);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5246
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5247 loop = (int)(upos / 1000) - length;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5248 mstop();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5249 return true;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5250 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5251
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5252
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5253 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5254 // ループ回数の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5255 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5256 int PMDWIN::getloopcount(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5257 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5258 return open_work.status2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5259 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5260
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5261
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5262 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5263 // OPEN_WORKのポインタの取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5264 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5265 OPEN_WORK* PMDWIN::getopenwork(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5266 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5267 return &open_work;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5268 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5269
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5270
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5271 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5272 // パートワークのポインタの取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5273 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5274 QQ* PMDWIN::getpartwork(unsigned int ch)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5275 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5276 if(ch >= sizeof(open_work.MusPart) / sizeof(QQ *)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5277 return NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5278 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5279 return open_work.MusPart[ch];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5280 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5281
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5282 PMDWIN* pmdwin;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5283 #ifdef WIN32
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5284 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5285 // DLL Export Functions
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5286 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5287 BOOL DllMain(HINSTANCE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5288 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5289 switch (ul_reason_for_call)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5290 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5291 case DLL_PROCESS_ATTACH:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5292 //DisableThreadLibraryCalls(hModule);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5293 pmdwin = NULL;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5294 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5295
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5296 case DLL_THREAD_ATTACH:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5297 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5298
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5299 case DLL_THREAD_DETACH:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5300 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5301
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5302 case DLL_PROCESS_DETACH:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5303 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5304 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5305 return TRUE;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5306 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5307 #endif
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5308
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5309 #ifdef __cplusplus
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5310 extern "C" {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5311 #endif
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5312
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5313
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5314 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5315 // バーション取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5316 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5317 DLLEXPORT int getversion(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5318 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5319 return DLLVersion;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5320 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5321
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5322
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5323 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5324 // 初期化
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5325 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5326 DLLEXPORT bool pmdwininit(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5327 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5328 bool result;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5329
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5330 if(pmdwin == NULL) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5331 //pmdwin = new PMDWIN;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5332 #if defined(WIN32) \|\| defined(WIN64)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5333 pmdwin = (PMDWIN*)VirtualAlloc(NULL, sizeof(PMDWIN), MEM_COMMIT\|MEM_RESERVE, PAGE_READWRITE);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5334 #else
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5335 pmdwin = (PMDWIN*)mmap(NULL, sizeof(PMDWIN), PROT_READ\|PROT_WRITE,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5336 MAP_PRIVATE\|MAP_ANONYMOUS\|MAP_NORESERVE, -1, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5337 #endif
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5338 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5339 result = pmdwin->init();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5340 return result;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5341 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5342
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5343
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5344 DLLEXPORT void pmdwinfree(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5345 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5346 #if defined(WIN32) \|\| defined(WIN64)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5347 VirtualFree(pmdwin, 0, MEM_RELEASE);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5348 #else
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5349 munmap(pmdwin, sizeof(PMDWIN));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5350 #endif
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5351 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5352
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5353
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5354 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5355 // 合成周波数の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5356 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5357 DLLEXPORT void setpcmrate(unsigned int rate)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5358 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5359 pmdwin->setpcmrate(rate);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5360 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5361
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5362
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5363 DLLEXPORT void setdevmask(uint8_t mask)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5364 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5365 pmdwin->setdevmask(mask);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5366 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5367
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5368 DLLEXPORT void setchanmask(uint32_t mask)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5369 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5370 pmdwin->setchanmask(mask);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5371 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5372
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5373
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5374 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5375 // 曲の読み込みその２（メモリから）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5376 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5377 DLLEXPORT int music_load3(uchar *musdata, int size)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5378 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5379 return pmdwin->music_load3(musdata, size);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5380 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5381
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5382
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5383 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5384 // 演奏開始
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5385 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5386 DLLEXPORT void music_start(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5387 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5388 pmdwin->music_start();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5389 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5390
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5391
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5392 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5393 // 演奏停止
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5394 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5395 DLLEXPORT void music_stop(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5396 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5397 pmdwin->music_stop();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5398 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5399
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5400
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5401 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5402 // PCM データ（wave データ）の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5403 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5404 DLLEXPORT void getpcmdata(short *buf, int nsamples)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5405 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5406 pmdwin->getpcmdata(buf, nsamples);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5407 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5408
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5409
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5410 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5411 // FM で 55kHz合成、一次補完するかどうかの設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5412 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5413 DLLEXPORT void setfmcalc55k(bool flag)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5414 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5415 pmdwin->setfmcalc55k(flag);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5416 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5417
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5418
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5419 DLLEXPORT unsigned int getstatus(char *buf, size_t bufsize)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5420 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5421 return pmdwin->getstatus(buf, bufsize);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5422 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5423
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5424
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5425 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5426 // メモの取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5427 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5428 DLLEXPORT char * getmemo(char dest, uchar musdata, int size, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5429 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5430 return pmdwin->_getmemo(dest, musdata, size, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5431 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5432
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5433
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5434 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5435 // メモの取得（２バイト半角→半角文字に変換＋ESCシーケンスの除去）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5436 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5437 DLLEXPORT char * getmemo3(char dest, uchar musdata, int size, int al)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5438 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5439 return pmdwin->_getmemo3(dest, musdata, size, al);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5440 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5441
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5442
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5443 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5444 // パートのマスク
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5445 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5446 DLLEXPORT int maskon(unsigned int ch)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5447 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5448 return pmdwin->maskon(ch);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5449 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5450
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5451
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5452 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5453 // パートのマスク解除
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5454 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5455 DLLEXPORT int maskoff(unsigned int ch)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5456 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5457 return pmdwin->maskoff(ch);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5458 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5459
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5460
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5461 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5462 // FM Volume Down の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5463 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5464 DLLEXPORT void setfmvoldown(int voldown)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5465 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5466 pmdwin->setfmvoldown(voldown);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5467 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5468
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5469
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5470 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5471 // SSG Volume Down の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5472 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5473 DLLEXPORT void setssgvoldown(int voldown)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5474 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5475 pmdwin->setssgvoldown(voldown);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5476 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5477
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5478
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5479 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5480 // Rhythm Volume Down の設定
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5481 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5482 DLLEXPORT void setrhythmvoldown(int voldown)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5483 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5484 pmdwin->setrhythmvoldown(voldown);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5485 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5486
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5487
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5488 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5489 // FM Volume Down の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5490 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5491 DLLEXPORT int getfmvoldown(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5492 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5493 return pmdwin->getfmvoldown();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5494 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5495
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5496
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5497 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5498 // FM Volume Down の取得（その２）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5499 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5500 DLLEXPORT int getfmvoldown2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5501 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5502 return pmdwin->getfmvoldown2();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5503 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5504
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5505
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5506 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5507 // SSG Volume Down の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5508 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5509 DLLEXPORT int getssgvoldown(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5510 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5511 return pmdwin->getssgvoldown();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5512 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5513
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5514
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5515 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5516 // SSG Volume Down の取得（その２）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5517 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5518 DLLEXPORT int getssgvoldown2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5519 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5520 return pmdwin->getssgvoldown2();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5521 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5522
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5523
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5524 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5525 // Rhythm Volume Down の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5526 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5527 DLLEXPORT int getrhythmvoldown(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5528 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5529 return pmdwin->getrhythmvoldown();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5530 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5531
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5532
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5533 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5534 // Rhythm Volume Down の取得（その２）
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5535 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5536 DLLEXPORT int getrhythmvoldown2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5537 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5538 return pmdwin->getrhythmvoldown2();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5539 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5540
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5541
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5542 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5543 // 再生位置の移動(pos : ms)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5544 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5545 DLLEXPORT void setpos(int pos)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5546 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5547 pmdwin->setpos(pos);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5548 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5549
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5550
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5551 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5552 // 再生位置の移動(pos : count 単位)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5553 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5554 DLLEXPORT void setpos2(int pos)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5555 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5556 pmdwin->setpos2(pos);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5557 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5558
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5559
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5560 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5561 // 再生位置の取得(pos : ms)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5562 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5563 DLLEXPORT int getpos(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5564 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5565 return pmdwin->getpos();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5566 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5567
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5568
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5569 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5570 // 再生位置の取得(pos : count 単位)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5571 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5572 DLLEXPORT int getpos2(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5573 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5574 return pmdwin->getpos2();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5575 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5576
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5577
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5578 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5579 // 曲の長さの取得(pos : ms)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5580 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5581 DLLEXPORT bool getlength(uint length, uint loop)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5582 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5583 return pmdwin->getlength(length, loop);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5584 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5585
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5586
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5587 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5588 // ループ回数の取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5589 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5590 DLLEXPORT int getloopcount(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5591 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5592 return pmdwin->getloopcount();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5593 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5594
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5595
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5596 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5597 // OPEN_WORKのポインタの取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5598 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5599 DLLEXPORT OPEN_WORK * getopenwork(void)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5600 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5601 return pmdwin->getopenwork();
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5602 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5603
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5604
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5605 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5606 // パートワークのポインタの取得
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5607 //=============================================================================
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5608 DLLEXPORT QQ * getpartwork(unsigned int ch)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5609 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5610 return pmdwin->getpartwork(ch);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5611 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5612
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5613
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5614 #ifdef __cplusplus
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5615 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5616 #endif

Mercurial > pmdwin

annotate pmdwin.cpp @ 10:e3849cd10ad3 default tip