Version 3.0

STK/BowTabl.cpp

@@ -0,0 +1,46 @@
+/***********************************************/ 
+/*  Simple Bow Table Object, after Smith       */
+/*    by Perry R. Cook, 1995-96                */
+/***********************************************/
+
+#include "BowTabl.h"
+
+BowTabl :: BowTabl()
+{
+    offSet = (MY_FLOAT) 0.0;    /*  offset is a bias, really not needed unless   */
+		     /*  friction is different in each direction      */
+    slope = (MY_FLOAT) 0.1;     /*  controls width of friction pulse,            */
+		     /*         related to bowForce                   */
+}
+
+BowTabl :: ~BowTabl()
+{
+}
+
+void BowTabl :: setOffset(MY_FLOAT aValue)
+{
+    offSet = aValue;
+}
+
+void BowTabl :: setSlope(MY_FLOAT aValue)
+{
+    slope = aValue;
+}
+
+MY_FLOAT BowTabl :: lookup(MY_FLOAT sample) /*  Perform Table Lookup    */
+{                                           /*  sample is differential  */
+					    /*  string vs. bow velocity */
+    MY_FLOAT input;
+    input = sample + offSet;                /*  add bias to sample      */
+    input *= slope;                         /*  scale it                */
+    lastOutput = (MY_FLOAT)  fabs((double) input) + (MY_FLOAT) 0.75;   /*  below min delta, friction = 1 */
+    lastOutput = (MY_FLOAT)  pow(lastOutput,(MY_FLOAT) -4.0);
+//    if (lastOutput < 0.0 ) lastOutput = 0.0; /*  minimum friction is 0.0 */
+    if (lastOutput > 1.0 ) lastOutput = (MY_FLOAT) 1.0; /*  maximum friction is 1.0 */
+    return lastOutput;
+}
+
+MY_FLOAT BowTabl :: lastOut()
+{
+    return lastOutput;
+}