revert frac code from 5e4c3fa, closing #639

Author: rsms

src/features/frac.fea

@@ -34,16 +34,113 @@
   eight.dnom
   nine.dnom
 ];
+@subscripts = [
+  zero.subs
+  one.subs
+  two.subs
+  three.subs
+  four.subs
+  five.subs
+  six.subs
+  seven.subs
+  eight.subs
+  nine.subs
+];
+
+lookup FractionBar {
+  ignore sub slash @figures @figures @figures @figures @figures @figures @figures @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures @figures @figures @figures @figures @figures @figures @figures slash;
+  ignore sub slash @figures @figures @figures @figures @figures @figures @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures @figures @figures @figures @figures @figures @figures slash;
+  ignore sub slash @figures @figures @figures @figures @figures @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures @figures @figures @figures @figures @figures slash;
+  ignore sub slash @figures @figures @figures @figures @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures @figures @figures @figures @figures slash;
+  ignore sub slash @figures @figures @figures @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures @figures @figures @figures slash;
+  ignore sub slash @figures @figures @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures @figures @figures slash;
+  ignore sub slash @figures @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures @figures slash;
+  ignore sub slash @figures @figures @figures slash';
+  ignore sub slash' @figures @figures @figures slash;
+  ignore sub slash @figures @figures slash';
+  ignore sub slash' @figures @figures slash;
+  ignore sub slash @figures slash';
+  ignore sub slash' @figures slash;
+  sub @figures slash' @figures by fraction;
+} FractionBar;
+
+lookup Numerator1 {
+  sub @figures' fraction by @numerators;
+} Numerator1;
+
+lookup Numerator2 {
+  sub @figures' @numerators
+  fraction by @numerators;
+} Numerator2;
+
+lookup Numerator3 {
+  sub @figures' @numerators @numerators
+  fraction by @numerators;
+} Numerator3;
+
+lookup Numerator4 {
+  sub @figures' @numerators @numerators @numerators
+  fraction by @numerators;
+} Numerator4;
+
+lookup Numerator5 {
+  sub @figures' @numerators @numerators @numerators @numerators
+  fraction by @numerators;
+} Numerator5;
+
+lookup Numerator6 {
+  sub @figures' @numerators @numerators @numerators @numerators @numerators
+  fraction by @numerators;
+} Numerator6;
+
+lookup Numerator7 {
+  sub @figures' @numerators @numerators @numerators @numerators @numerators
+                @numerators
+  fraction by @numerators;
+} Numerator7;
+
+lookup Numerator8 {
+  sub @figures' @numerators @numerators @numerators @numerators @numerators
+                @numerators @numerators
+  fraction by @numerators;
+} Numerator8;
+
+lookup Numerator9 {
+  sub @figures'
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+  fraction by @numerators;
+} Numerator9;
 
-lookup FRAC {
-  sub slash by fraction;
-} FRAC;
+lookup Numerator10 {
+  sub @figures'
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+      @numerators
+  fraction by @numerators;
+} Numerator10;
 
-lookup UP {
-  sub @figures by @numerators;
-} UP;
+lookup Denominator {
+  sub [fraction @denominators onefraction] @figures' by @denominators;
+} Denominator;
 
-lookup DOWN {
-  sub fraction @numerators' by @denominators;
-  sub @denominators @numerators' by @denominators;
-} DOWN;
+sub @figures space' @numerators by thinspace;