pmdwin: fmgen/opna.c annotate

author	Emmanuel Gil Peyrot <linkmauve@linkmauve.fr>
date	Tue, 21 May 2013 10:29:21 +0200
parents
children

rev	line source
0 c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	1 // FIXME: move ugly-ass legalese somewhere where it won't be seen
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	2 // by anyone other than lawyers. (/dev/null would be ideal but sadly
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	3 // we live in an imperfect world).
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	4 /* Copyright (c) 2012/2013, Peter Barfuss
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	5 All rights reserved.
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 Redistribution and use in source and binary forms, with or without
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	8 modification, are permitted provided that the following conditions are met:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	9
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	10 1. Redistributions of source code must retain the above copyright notice, this
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	11 list of conditions and the following disclaimer.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	12 2. Redistributions in binary form must reproduce the above copyright notice,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	13 this list of conditions and the following disclaimer in the documentation
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	14 and/or other materials provided with the distribution.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	15
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	16 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	17 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	18 WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	19 DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	20 ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	21 (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	22 LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	23 ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	24 (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	25 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
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 #include <stdint.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	28 #include <math.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	29 #include <unistd.h>
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	30 #include "op.h"
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	31 #include "psg.h"
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	32 #include "opna.h"
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	33 static const uint8_t notetab[128] =
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	34 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	35 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 3, 3, 3, 3, 3, 3,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	36 4, 4, 4, 4, 4, 4, 4, 5, 6, 7, 7, 7, 7, 7, 7, 7,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	37 8, 8, 8, 8, 8, 8, 8, 9, 10, 11, 11, 11, 11, 11, 11, 11,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	38 12, 12, 12, 12, 12, 12, 12, 13, 14, 15, 15, 15, 15, 15, 15, 15,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	39 16, 16, 16, 16, 16, 16, 16, 17, 18, 19, 19, 19, 19, 19, 19, 19,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	40 20, 20, 20, 20, 20, 20, 20, 21, 22, 23, 23, 23, 23, 23, 23, 23,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	41 24, 24, 24, 24, 24, 24, 24, 25, 26, 27, 27, 27, 27, 27, 27, 27,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	42 28, 28, 28, 28, 28, 28, 28, 29, 30, 31, 31, 31, 31, 31, 31, 31,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	43 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	44
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	45 static const int8_t dttab[256] =
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	46 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	47 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	48 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	49 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, 4,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	50 4, 6, 6, 6, 8, 8, 8, 10, 10, 12, 12, 14, 16, 16, 16, 16,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	51 2, 2, 2, 2, 4, 4, 4, 4, 4, 6, 6, 6, 8, 8, 8, 10,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	52 10, 12, 12, 14, 16, 16, 18, 20, 22, 24, 26, 28, 32, 32, 32, 32,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	53 4, 4, 4, 4, 4, 6, 6, 6, 8, 8, 8, 10, 10, 12, 12, 14,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	54 16, 16, 18, 20, 22, 24, 26, 28, 32, 34, 38, 40, 44, 44, 44, 44,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	55 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	56 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	57 0, 0, 0, 0, -2, -2, -2, -2, -2, -2, -2, -2, -4, -4, -4, -4,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	58 -4, -6, -6, -6, -8, -8, -8,-10,-10,-12,-12,-14,-16,-16,-16,-16,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	59 -2, -2, -2, -2, -4, -4, -4, -4, -4, -6, -6, -6, -8, -8, -8,-10,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	60 -10,-12,-12,-14,-16,-16,-18,-20,-22,-24,-26,-28,-32,-32,-32,-32,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	61 -4, -4, -4, -4, -4, -6, -6, -6, -8, -8, -8,-10,-10,-12,-12,-14,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	62 -16,-16,-18,-20,-22,-24,-26,-28,-32,-34,-38,-40,-44,-44,-44,-44,
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 static uint8_t gaintab[64] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	66 0xff, 0xea, 0xd7, 0xc5, 0xb5, 0xa6, 0x98, 0x8b, 0x80, 0x75, 0x6c, 0x63, 0x5a, 0x53, 0x4c, 0x46,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	67 0x40, 0x3b, 0x36, 0x31, 0x2d, 0x2a, 0x26, 0x23, 0x20, 0x1d, 0x1b, 0x19, 0x17, 0x15, 0x13, 0x12,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	68 0x10, 0x0f, 0x0e, 0x0c, 0x0b, 0x0a, 0x0a, 0x09, 0x08, 0x07, 0x07, 0x06, 0x06, 0x05, 0x05, 0x04,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	69 0x04, 0x04, 0x03, 0x03, 0x03, 0x03, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x01, 0x01, 0x01, 0x01,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	70 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	71
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	72 // sinf(M_PI(2i+1)/1024.0f), i=0,...,511.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	73 // Should make this twice as large (so a duplicate of the top 512, but with the other half of the
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	74 // interval [0,2*M_PI], therefore the negative of the first half), and then get rid of the
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	75 // silly hack in Sinetable(). However, I'm not actually sure which will use less gates on an FPGA,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	76 // and there's really no speed difference on any machine newer than a 6502, probably.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	77 static uint16_t sinetable[512] = {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	78 0x1, 0x2, 0x4, 0x5, 0x7, 0x9, 0xa, 0xc, 0xd, 0xf, 0x10, 0x12, 0x14, 0x15, 0x17, 0x18,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	79 0x1a, 0x1b, 0x1d, 0x1f, 0x20, 0x22, 0x23, 0x25, 0x26, 0x28, 0x29, 0x2b, 0x2d, 0x2e, 0x30, 0x31,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	80 0x33, 0x34, 0x36, 0x37, 0x39, 0x3a, 0x3c, 0x3d, 0x3f, 0x40, 0x42, 0x44, 0x45, 0x47, 0x48, 0x4a,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	81 0x4b, 0x4d, 0x4e, 0x50, 0x51, 0x53, 0x54, 0x56, 0x57, 0x58, 0x5a, 0x5b, 0x5d, 0x5e, 0x60, 0x61,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	82 0x63, 0x64, 0x66, 0x67, 0x68, 0x6a, 0x6b, 0x6d, 0x6e, 0x70, 0x71, 0x72, 0x74, 0x75, 0x77, 0x78,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	83 0x79, 0x7b, 0x7c, 0x7d, 0x7f, 0x80, 0x82, 0x83, 0x84, 0x86, 0x87, 0x88, 0x8a, 0x8b, 0x8c, 0x8e,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	84 0x8f, 0x90, 0x91, 0x93, 0x94, 0x95, 0x97, 0x98, 0x99, 0x9a, 0x9c, 0x9d, 0x9e, 0x9f, 0xa1, 0xa2,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	85 0xa3, 0xa4, 0xa5, 0xa7, 0xa8, 0xa9, 0xaa, 0xab, 0xad, 0xae, 0xaf, 0xb0, 0xb1, 0xb2, 0xb3, 0xb4,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	86 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf, 0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	87 0xc6, 0xc7, 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf, 0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd4,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	88 0xd5, 0xd6, 0xd7, 0xd8, 0xd9, 0xda, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0xde, 0xdf, 0xe0, 0xe1, 0xe1,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	89 0xe2, 0xe3, 0xe4, 0xe4, 0xe5, 0xe6, 0xe6, 0xe7, 0xe8, 0xe8, 0xe9, 0xea, 0xea, 0xeb, 0xec, 0xec,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	90 0xed, 0xed, 0xee, 0xef, 0xef, 0xf0, 0xf0, 0xf1, 0xf1, 0xf2, 0xf2, 0xf3, 0xf3, 0xf4, 0xf4, 0xf5,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	91 0xf5, 0xf6, 0xf6, 0xf7, 0xf7, 0xf7, 0xf8, 0xf8, 0xf9, 0xf9, 0xf9, 0xfa, 0xfa, 0xfa, 0xfb, 0xfb,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	92 0xfb, 0xfc, 0xfc, 0xfc, 0xfc, 0xfd, 0xfd, 0xfd, 0xfd, 0xfe, 0xfe, 0xfe, 0xfe, 0xfe, 0xff, 0xff,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	93 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	94 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0x100, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	95 0xff, 0xff, 0xfe, 0xfe, 0xfe, 0xfe, 0xfe, 0xfd, 0xfd, 0xfd, 0xfd, 0xfc, 0xfc, 0xfc, 0xfc, 0xfb,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	96 0xfb, 0xfb, 0xfa, 0xfa, 0xfa, 0xf9, 0xf9, 0xf9, 0xf8, 0xf8, 0xf7, 0xf7, 0xf7, 0xf6, 0xf6, 0xf5,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	97 0xf5, 0xf4, 0xf4, 0xf3, 0xf3, 0xf2, 0xf2, 0xf1, 0xf1, 0xf0, 0xf0, 0xef, 0xef, 0xee, 0xed, 0xed,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	98 0xec, 0xec, 0xeb, 0xea, 0xea, 0xe9, 0xe8, 0xe8, 0xe7, 0xe6, 0xe6, 0xe5, 0xe4, 0xe4, 0xe3, 0xe2,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	99 0xe1, 0xe1, 0xe0, 0xdf, 0xde, 0xde, 0xdd, 0xdc, 0xdb, 0xda, 0xda, 0xd9, 0xd8, 0xd7, 0xd6, 0xd5,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	100 0xd4, 0xd4, 0xd3, 0xd2, 0xd1, 0xd0, 0xcf, 0xce, 0xcd, 0xcc, 0xcb, 0xca, 0xc9, 0xc8, 0xc7, 0xc6,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	101 0xc5, 0xc4, 0xc3, 0xc2, 0xc1, 0xc0, 0xbf, 0xbe, 0xbd, 0xbc, 0xbb, 0xba, 0xb9, 0xb8, 0xb7, 0xb6,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	102 0xb4, 0xb3, 0xb2, 0xb1, 0xb0, 0xaf, 0xae, 0xad, 0xab, 0xaa, 0xa9, 0xa8, 0xa7, 0xa5, 0xa4, 0xa3,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	103 0xa2, 0xa1, 0x9f, 0x9e, 0x9d, 0x9c, 0x9a, 0x99, 0x98, 0x97, 0x95, 0x94, 0x93, 0x91, 0x90, 0x8f,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	104 0x8e, 0x8c, 0x8b, 0x8a, 0x88, 0x87, 0x86, 0x84, 0x83, 0x82, 0x80, 0x7f, 0x7d, 0x7c, 0x7b, 0x79,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	105 0x78, 0x77, 0x75, 0x74, 0x72, 0x71, 0x70, 0x6e, 0x6d, 0x6b, 0x6a, 0x68, 0x67, 0x66, 0x64, 0x63,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	106 0x61, 0x60, 0x5e, 0x5d, 0x5b, 0x5a, 0x58, 0x57, 0x56, 0x54, 0x53, 0x51, 0x50, 0x4e, 0x4d, 0x4b,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	107 0x4a, 0x48, 0x47, 0x45, 0x44, 0x42, 0x40, 0x3f, 0x3d, 0x3c, 0x3a, 0x39, 0x37, 0x36, 0x34, 0x33,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	108 0x31, 0x30, 0x2e, 0x2d, 0x2b, 0x29, 0x28, 0x26, 0x25, 0x23, 0x22, 0x20, 0x1f, 0x1d, 0x1b, 0x1a,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	109 0x18, 0x17, 0x15, 0x14, 0x12, 0x10, 0xf, 0xd, 0xc, 0xa, 0x9, 0x7, 0x6, 0x4, 0x2, 0x1,
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
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	112 static uint8_t tablemade = false;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	113 static uint8_t cltab[512];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	114 static uint32_t tltab[FM_TLENTS];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	115 static uint32_t lfotab[8];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	116 static const uint8_t fbtab[8] = { 31, 7, 6, 5, 4, 3, 2, 1 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	117
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	118 /* Amplitude/Phase modulation tables. */
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	119 static const float pms[8] = { 0, 1/720., 2/720., 3/720., 4/720., 6/720., 12/720., 24/720. }; // OPNA
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	120 static const uint8_t amt[4] = { 29, 4, 2, 1 }; // OPNA
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	121 static int pmtable[8][FM_LFOENTS];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	122 uint8_t aml, pml;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	123 int pmv;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	124
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	125 // ---------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	126 static inline void LFO(OPNA *opna)
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 uint8_t c = (opna->lfocount >> FM_LFOCBITS) & 0xff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	129 opna->lfocount += opna->lfodcount;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	130 if (c < 0x40) pml = c * 2 + 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	131 else if (c < 0xc0) pml = 0x7f - (c - 0x40) * 2 + 0x80;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	132 else pml = (c - 0xc0) * 2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	133 if (c < 0x80) aml = (c << 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	134 else aml = ~(c << 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	135 }
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 // ---------------------------------------------------------------------------
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	138 // Magic. No, really.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	139 // In reality this just initialises some tables used by everything else,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	140 // that are dependent on both the chip clock and the "DAC" samplerate.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	141 // The hilarious thing though is that this is really the only place where
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	142 // the chip clock value gets actually used, and even then it's indirectly
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	143 // via the ratio parameter.
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 static uint32_t currentratio = ~0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	146 static float rr;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	147 static uint32_t ratetable[64];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	148 static void MakeTimeTable(uint32_t ratio)
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 int h, l;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	151
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	152 if (ratio != currentratio)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	153 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	154 currentratio = ratio;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	155 // PG Part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	156 rr = (float)ratio / (1 << (2 + FM_RATIOBITS - FM_PGBITS));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	157
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	158 // EG
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	159 for (h=1; h<16; h++)
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 for (l=0; l<4; l++)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	162 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	163 int m = h == 15 ? 8 : l+4;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	164 ratetable[h*4+l] =
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	165 ((ratio << (FM_EGBITS - 3 - FM_RATIOBITS)) << Min(h, 11)) * m;
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 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	168 ratetable[0] = ratetable[1] = ratetable[2] = ratetable[3] = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	169 ratetable[5] = ratetable[4], ratetable[7] = ratetable[6];
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
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	173 static void SetEGRate(FMOperator *op, uint r)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	174 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	175 op->egstepd = ratetable[r];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	176 op->egtransa = Limit(15 - (r>>2), 4, 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	177 op->egtransd = 16 >> op->egtransa;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	178 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	179
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	180 // Standard operator init routine. Zeros out some more stuff
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	181 // than OperatorReset() does, then calls OperatorReset().
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 void OperatorInit(FMOperator *op)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	184 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	185 // EG Part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	186 op->ar = op->dr = op->sr = op->rr = op->ksr = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	187 op->ams = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	188 op->mute = false;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	189 op->keyon = false;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	190
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	191 // PG Part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	192 op->multiple = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	193 op->detune = 0;
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 // LFO
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	196 op->ms = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	197
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	198 OperatorReset(op);
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
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	201 // Standard operator reset routine. Init EG/PG to defaults,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	202 // clear any stored samples, then force a reinit of EG/PG
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	203 // in OperatorPrepare() below by setting paramchanged to 1.
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 void OperatorReset(FMOperator *op)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	206 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	207 // EG part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	208 op->tl = op->tll = 127;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	209 op->eglevel = 0xff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	210 op->eglvnext = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	211 SetEGRate(op, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	212 op->phase = off;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	213 op->egstep = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	214
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	215 // PG part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	216 op->pgcount = 0;
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 // OP part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	219 op->out = op->out2 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	220 op->paramchanged = true;
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
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	223 // Init EG, PG.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	224 // PG init is trivial, simply set pgdcount (phase counter increment)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	225 // based on multiple, detune and bn.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	226 // See Pages 24-26 of the OPNA manual for details.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	227 // EG init is your standard ADSR state machine. Should (hopefully!)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	228 // be self-explanatory, especially if you've ever seen a software implementation
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	229 // of ADSR before (seriously, they're all the damn same).
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	230 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	231 void OperatorPrepare(FMOperator *op)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	232 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	233 if (op->paramchanged)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	234 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	235 uint8_t l = ((op->multiple) ? 2*op->multiple : 1);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	236 op->paramchanged = false;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	237 // PG Part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	238 op->pgdcount = (op->dp + dttab[op->detune + op->bn]) * (uint32_t)(l * rr);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	239 op->pgdcountl = op->pgdcount >> 11;
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 // EG Part
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	242 op->ksr = op->bn >> (3-op->ks);
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 switch (op->phase)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	245 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	246 case attack:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	247 SetEGRate(op, op->ar ? Min(63, op->ar+op->ksr) : 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	248 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	249 case decay:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	250 SetEGRate(op, op->dr ? Min(63, op->dr+op->ksr) : 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	251 op->eglvnext = op->sl * 8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	252 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	253 case sustain:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	254 SetEGRate(op, op->sr ? Min(63, op->sr+op->ksr) : 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	255 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	256 case release:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	257 SetEGRate(op, Min(63, op->rr+op->ksr));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	258 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	259 case next: // temporal
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	260 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	261 case off: // temporal
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 // LFO
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	265 op->ams = (op->amon ? (op->ms >> 4) & 3 : 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	266 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	267 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	268
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	269 // FIXME: Rename. "Phase" here refers to ADSR DFA state,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	270 // not PG/sine table phase. Also, yeah, this does the
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	271 // ADSR DFA state transitions.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	272 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	273 static void ShiftPhase(FMOperator *op, EGPhase nextphase)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	274 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	275 switch (nextphase)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	276 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	277 case attack: // Attack Phase
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	278 op->tl = op->tll;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	279 if ((op->ar+op->ksr) < 62) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	280 SetEGRate(op, op->ar ? Min(63, op->ar+op->ksr) : 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	281 op->phase = attack;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	282 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	283 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	284 case decay: // Decay Phase
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	285 if (op->sl) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	286 op->eglevel = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	287 op->eglvnext = op->sl*8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	288 SetEGRate(op, op->dr ? Min(63, op->dr+op->ksr) : 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	289 op->phase = decay;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	290 break;
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 case sustain: // Sustain Phase
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	293 op->eglevel = op->sl*8;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	294 op->eglvnext = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	295 SetEGRate(op, op->sr ? Min(63, op->sr+op->ksr) : 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	296 op->phase = sustain;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	297 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	298
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	299 case release: // Release Phase
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	300 if (op->phase == attack \|\| (op->eglevel < 0x100/* && phase != off*/)) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	301 op->eglvnext = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	302 SetEGRate(op, Min(63, op->rr+op->ksr));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	303 op->phase = release;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	304 break;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	305 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	306 case off: // off
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	307 default:
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	308 op->eglevel = 0xff;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	309 op->eglvnext = 0x100;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	310 SetEGRate(op, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	311 op->phase = off;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	312 break;
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 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	315
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	316 // Block/F-Num
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	317 static inline void SetFNum(FMOperator *op, uint f)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	318 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	319 op->dp = (f & 2047) << ((f >> 11) & 7);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	320 op->bn = notetab[(f >> 7) & 127];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	321 op->paramchanged = true;
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 // Clock the EG for one operator.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	325 // Essentially just a call to ShiftPhase,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	326 // but decrements the output EG level if starting
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	327 // from the attack phase, otherwise incrementing it.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	328 // Should probably integrate the special case for attack
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	329 // from ShiftPhase() directly into here at some point.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	330 void EGCalc(FMOperator *op)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	331 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	332 op->egstep += 3L << (11 + FM_EGBITS);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	333 if (op->phase == attack)
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 op->eglevel -= 1 + (op->eglevel >> op->egtransa);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	336 if (op->eglevel <= 0)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	337 ShiftPhase(op, decay);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	338 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	339 else
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 op->eglevel += op->egtransd;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	342 if (op->eglevel >= op->eglvnext)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	343 ShiftPhase(op, (EGPhase)(op->phase+1));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	344 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	345 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	346
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	347 // KeyOn, hopefully obvious.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	348 static void KeyOn(FMOperator *op)
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 if (!op->keyon) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	351 op->keyon = true;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	352 if (op->phase == off \|\| op->phase == release) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	353 ShiftPhase(op, attack);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	354 op->out = op->out2 = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	355 op->pgcount = 0;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	356 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	357 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	358 }
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 // KeyOff, hopefully obvious.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	361 static void KeyOff(FMOperator *op)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	362 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	363 if (op->keyon) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	364 op->keyon = false;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	365 ShiftPhase(op, release);
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 }
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 // PG uses 9 bits, with the table itsself using another 10 bits.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	370 // The top bits are the actually relevant ones, given that the PG increment will basically set
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	371 // the lowest few bits to nonsense.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	372 // The hack there that checks for bit 10 in the right place and if yes, does some strange xor magic
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	373 // makes the value of Sine() negative if we're in the top half of the [0,2*M_PI] interval.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	374 // It is, of course, one/two's complement specific, but I have yet to hear of an integer arithmetic implementation
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	375 // on any modern machine that isn't at least one of those two. (In fact, I think they're all two's complement, even).
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	376 #define Sine(s) sinetable[((s) >> (20+FM_PGBITS-FM_OPSINBITS))&(FM_OPSINENTS/2-1)]^(-(((s) & 0x10000000) >> 27))
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	377 //#define LogToLin(x) cltab[x]
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	378
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	379 static inline uint32_t LogToLin(uint32_t x) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	380 if(x >= 1024) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	381 return 0;
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 return cltab[x];
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
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	386 // PG clock routine.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	387 // Does this really need to be in its own function anymore?
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	388 // It's literally just a trivial increment of a counter now, nothing more.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	389 // Its output, btw, is 2^(20+PGBITS) / cycle, with PGBITS=9 in this implementation.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	390 static inline uint32_t PGCalc(FMOperator *op)
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 uint32_t ret = op->pgcount;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	393 op->pgcount += op->pgdcount;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	394 return ret;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	395 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	396
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	397 // Same as above, but with PM if enabled.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	398 // Same comments as above apply.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	399 static inline uint32_t PGCalcL(FMOperator *op)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	400 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	401 uint32_t ret = op->pgcount;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	402 op->pgcount += op->pgdcount + ((op->pgdcountl * pmv) >> 5);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	403 return ret;
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 // Clock one FM operator. Does a lookup in the sine table
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	407 // for the waveform to output, possibly frequency-modulating
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	408 // that with the contents of in, then clocks the Phase Generator
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	409 // for that operator, stores the output sample and returns.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	410 // Should probably integrate PGCalc() into this function,
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	411 // at some point at least.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	412 static inline int32_t Calc(FMOperator *op, int32_t in)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	413 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	414 int32_t tmp = Sine(op->pgcount + (in << 7));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	415 PGCalc(op);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	416 op->out = op->egout*tmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	417 return op->out;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	418 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	419
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	420 // Version of the above that gets used when the chip-internal LFO
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	421 // is enabled. Basically identical to the above, except with more Vibrato.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	422 static inline int32_t CalcL(FMOperator *op, int32_t in)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	423 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	424 int32_t tmp = Sine(op->pgcount + (in << 7));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	425 PGCalcL(op);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	426 op->out = op->egout*tmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	427 return op->out;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	428 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	429
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	430 // Clock operator 0. OP0 is special as it does not take an input from
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	431 // another operator, rather it can frequency-modulate itsself via the
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	432 // fb parameter (which specifies feedback amount). This is incredibly
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	433 // useful, and makes it possible to define a lot more instruments
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	434 // for the OPNA than you'd be able to otherwise.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	435 #define FM_PRECISEFEEDBACK 1
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	436 static inline void CalcFB(FMOperator *op, uint fb)
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 int32_t tmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	439 int32_t in = op->out + op->out2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	440 op->out2 = op->out;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	441 if (FM_PRECISEFEEDBACK && fb == 31)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	442 tmp = Sine(op->pgcount);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	443 else
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	444 tmp = Sine(op->pgcount + ((in << 6) >> fb));
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	445
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	446 PGCalc(op);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	447 op->out = op->egout*tmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	448 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	449
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	450 // Version of the above, but with 100% as much LFO as the above.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	451 // See comment above CalcL() for details/explanation.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	452 static inline void CalcFBL(FMOperator *op, uint fb)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	453 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	454 int32_t tmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	455 int32_t in = op->out + op->out2;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	456 op->out2 = op->out;
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 if (FM_PRECISEFEEDBACK && fb == 31)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	459 tmp = Sine(op->pgcount);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	460 else
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	461 tmp = Sine(op->pgcount + ((in << 6) >> fb));
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 PGCalcL(op);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	464 op->out = op->egout*tmp;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	465 }
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	466
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 // 4-op Channel
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	469 // Sets the "algorithm", i.e. the connections between individual operators
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	470 // in a channel. See Page 22 of the manual for pretty drawings of all of the
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	471 // different algorithms supported by the OPNA.
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	472 //
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	473 static void SetAlgorithm(Channel4 *ch4, uint algo)
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	474 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	475 static const uint8_t table1[8][6] =
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	476 {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	477 { 0, 1, 1, 2, 2, 3 }, { 1, 0, 0, 1, 1, 2 },
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	478 { 1, 1, 1, 0, 0, 2 }, { 0, 1, 2, 1, 1, 2 },
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	479 { 0, 1, 2, 2, 2, 1 }, { 0, 1, 0, 1, 0, 1 },
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	480 { 0, 1, 2, 1, 2, 1 }, { 1, 0, 1, 0, 1, 0 },
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	481 };
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	482
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	483 ch4->idx[0] = table1[algo][0]; // in[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	484 ch4->idx[1] = table1[algo][2]; // in[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	485 ch4->idx[2] = table1[algo][4]; // in[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	486 ch4->idx[3] = table1[algo][1]; // out[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	487 ch4->idx[4] = table1[algo][3]; // out[1];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	488 ch4->idx[5] = table1[algo][5]; // out[2];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	489 ch4->op[0].out2 = ch4->op[0].out = 0;
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
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	492 static inline void Ch4Init(Channel4 *ch4)
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 int i;
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	495 for(i=0; i<4; i++) {
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	496 OperatorInit(&ch4->op[i]);
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 SetAlgorithm(ch4, 0);
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	499 ch4->pms = pmtable[0];
c55ea9478c80 Hello Gensokyo! Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: diff changeset	500 }

0

c55ea9478c80 Hello Gensokyo!