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

Fix Z capitalization 

Lerp operator Z now respects capitalization based on the right port.
master
Nicola Pisanti 3 years ago
parent
8cf7bf8136
commit
463d64b3b9
1 changed files with 3 additions and 2 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. 5
      sim.c

5
sim.c
View File

@ -735,11 +735,12 @@ BEGIN_OPERATOR(lerp)
PORT(0, 1, IN); PORT(0, 1, IN);
PORT(1, 0, IN | OUT); PORT(1, 0, IN | OUT);
Glyph g = PEEK(0, -1); Glyph g = PEEK(0, -1);
Glyph b = PEEK(0, 1);
Isz rate = g == '.' || g == '*' ? 1 : (Isz)index_of(g); Isz rate = g == '.' || g == '*' ? 1 : (Isz)index_of(g);
Isz goal = (Isz)index_of(PEEK(0, 1)); Isz goal = (Isz)index_of(b);
Isz val = (Isz)index_of(PEEK(1, 0)); Isz val = (Isz)index_of(PEEK(1, 0));
Isz mod = val <= goal - rate ? rate : val >= goal + rate ? -rate : goal - val; Isz mod = val <= goal - rate ? rate : val >= goal + rate ? -rate : goal - val;
POKE(1, 0, glyph_of((Usz)(val + mod))); POKE(1, 0, glyph_with_case(glyph_of((Usz)(val + mod)), b));
END_OPERATOR END_OPERATOR
//////// Run simulation //////// Run simulation

Write Preview
Loading…
Cancel
Save