heck
/
heck_orca-c
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Cleanup

master
cancel 6 years ago
parent
1c4520d308
commit
b555d288d5
1 changed files with 18 additions and 18 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 36
      sim.c

36
sim.c
View File

@ -223,14 +223,14 @@ Usz usz_clamp(Usz val, Usz min, Usz max) {
_delta_x, (_flags) ^ Mark_flag_lock) _delta_x, (_flags) ^ Mark_flag_lock)
//////// Operators //////// Operators
#define ORCA_UNIQUE_OPERATORS(_) \ #define UNIQUE_OPERATORS(_) \
_('!', keys) \ _('!', keys) \
_('#', comment) \ _('#', comment) \
_('*', bang) \ _('*', bang) \
_(':', midi) \ _(':', midi) \
_('=', osc) _('=', osc)
#define ORCA_ALPHA_OPERATORS(_) \ #define ALPHA_OPERATORS(_) \
_('A', add) \ _('A', add) \
_('B', banger) \ _('B', banger) \
_('C', clock) \ _('C', clock) \
@ -745,19 +745,6 @@ END_OPERATOR
//////// Run simulation //////// Run simulation
#define SIM_EXPAND_UNIQUE(_oper_char, _oper_name) \
case _oper_char: \
oper_behavior_##_oper_name(gbuf, mbuf, height, width, iy, ix, tick_number, \
&extras, cell_flags, glyph_char); \
break;
#define SIM_EXPAND_ALPHA(_upper_oper_char, _oper_name) \
case _upper_oper_char: \
case ((char)(_upper_oper_char | (1 << 5))): \
oper_behavior_##_oper_name(gbuf, mbuf, height, width, iy, ix, tick_number, \
&extras, cell_flags, glyph_char); \
break;
void orca_run(Gbuffer gbuf, Mbuffer mbuf, Usz height, Usz width, void orca_run(Gbuffer gbuf, Mbuffer mbuf, Usz height, Usz width,
Usz tick_number, Oevent_list* oevent_list, Usz tick_number, Oevent_list* oevent_list,
Piano_bits piano_bits) { Piano_bits piano_bits) {
@ -781,9 +768,22 @@ void orca_run(Gbuffer gbuf, Mbuffer mbuf, Usz height, Usz width,
if (cell_flags & (Mark_flag_lock | Mark_flag_sleep)) if (cell_flags & (Mark_flag_lock | Mark_flag_sleep))
continue; continue;
switch (glyph_char) { switch (glyph_char) {
ORCA_UNIQUE_OPERATORS(SIM_EXPAND_UNIQUE) #define UNIQUE_CASE(_oper_char, _oper_name) \
ORCA_ALPHA_OPERATORS(SIM_EXPAND_ALPHA) case _oper_char: \
break; oper_behavior_##_oper_name(gbuf, mbuf, height, width, iy, ix, tick_number, \
&extras, cell_flags, glyph_char); \
break;
#define ALPHA_CASE(_upper_oper_char, _oper_name) \
case _upper_oper_char: \
case ((char)(_upper_oper_char | (1 << 5))): \
oper_behavior_##_oper_name(gbuf, mbuf, height, width, iy, ix, tick_number, \
&extras, cell_flags, glyph_char); \
break;
UNIQUE_OPERATORS(UNIQUE_CASE)
ALPHA_OPERATORS(ALPHA_CASE)
#undef UNIQUE_CASE
#undef ALPHA_CASE
} }
} }
} }

Write Preview
Loading…
Cancel
Save