'------------------------------------------------------------------------------------------------------------ ' SOUNDRA :: FRACTIONAID.bas - UNIT AND DISPLAY CONVERSION SYSTEM '------------------------------------------------------------------------------------------------------------ #INCLUDE ONCE "JIGSAW/JIGSAW_BASICS.bas" #INCLUDE ONCE "JIGSAW/JIGSAW_MATH.bas" #INCLUDE ONCE "JIGSAW/JIGSAW_GRAPHICS.bas" '------------------------------------------------------------------------------------------------------------ NAMESPACE FRACTIONAID '------------------------------------------------------------------------------------------------------------ CONST AS I32 BINARY_LEN_MAX = 23 ENUM UNIT_TYPE NONE, SAMPLE, TIME, AMPLITUDE, NB_UNIT_TYPES END ENUM ENUM TIME_INDEXES SAMPLES, SECONDS, FREQUENCY, BEATS, NB_TIME_IDS END ENUM ENUM AMPLITUDE_INDEXES VOLUME, POWER, NB_AMPLITUDE_IDS END ENUM ENUM SPEED_INDEXES SPEED, NB_SPEED_IDS END ENUM ENUM SLOT_TYPES SIGN, NUMBER, SYMBOL END ENUM ENUM SLOT_INDEXES VSLOT,VSIGN,BSLOT,BSIGN,ISLOT,ISIGN,NSLOT,NSIGN,DSLOT END ENUM '------------------------------------------------------------------------------------------------------------ ' CONVERTERS DEC FCT NO_UNIT (AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 DEC FCT U2S (AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 DEC FCT S2HZ (AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 DEC FCT HZ2B (AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 DEC FCT B2U (AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 DEC FCT U2DB (AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 DEC FCT DB2U (AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 TYPE UNIT_CONVERTER AS FCT(AS F32, AS F32, AS F32=1, BYREF AS UI32) AS F32 '------------------------------------------------------------------------------------------------------------ DIM SHARED AS CONST I32 NB_CONVERTERS(NB_UNIT_TYPES) = {0,0,NB_TIME_IDS,NB_AMPLITUDE_IDS} DIM AS UNIT_CONVERTER UNIT_CONVERTERS(NB_UNIT_TYPES,NB_UNIT_TYPES) DIM AS TXT*3 UNIT_SYMBOLS(NB_UNIT_TYPES,NB_UNIT_TYPES) DIM AS F32 UNIT_STEP(NB_UNIT_TYPES,NB_UNIT_TYPES) TYPE _FA_RELAY_FCT AS FCT(BYREF AS F32) AS IOS '------------------------------------------------------------------------------------------------------------ ' STRUCTURES TYPE SLOT AS I32 TYPE AS I32 X,W, INDEX AS TXT*10 TEXT END TYPE TYPE DATA AS X32 VALUE AS I32 UNIT_TYPE, UNIT_INDEX, FORM_TYPE, PARAM_INDEX, UNIT_INDEX0, W=20,H=20 AS IOS BSUPPORT = FALSE, ISUPPORT = TRUE, BINSUPPORT = FALSE, RV_MODE = FALSE AS I32 SR = 48000 'Sample Rate (for conversions) AS F32 RV = 1 'Reference value so that V is expressed as V/RV (later) AS F32 VSTEP = .05 AS ANY PTR MUTEX AS _FA_RELAY_FCT EXPORT_FCT AS SLOT SLOTS(9) AS I32 NB_SLOTS, FONT_SIZE AS IOS REPRINT AS TXT*32 TEXT AS I32 LAST_FONT_SIZE, LM AS UI32 FLAG '1 IF SIGN OF a IS - DECLARE OPERATOR LET(AS DATA) DECLARE SUB CONVERT_FORM() DECLARE SUB CONVERT_UNIT() DECLARE SUB UPDATE_SLOTS() DECLARE FUNCTION FIND_SLOT(AS I32) AS I32 DECLARE SUB EXPORT_VALUE() DECLARE SUB IMPORT_VALUE(AS F32, AS IOS=FALSE, AS IOS=FALSE) DECLARE SUB SET_VALUE(AS F32, AS IOS) DECLARE SUB DISP_SETUP(AS I32=20,AS I32=20) DECLARE SUB FORM_SETUP(AS I32=-1,AS I32=-1,AS I32=-1) DECLARE CONSTRUCTOR () DECLARE DESTRUCTOR () END TYPE OPERATOR DATA.LET(RHS AS DATA) DIM AS I32 I VALUE = RHS.VALUE UNIT_TYPE = RHS.UNIT_TYPE UNIT_INDEX = RHS.UNIT_INDEX FORM_TYPE = RHS.FORM_TYPE PARAM_INDEX = RHS.PARAM_INDEX UNIT_INDEX0 = RHS.UNIT_INDEX0 W = RHS.W H = RHS.H BSUPPORT = RHS.BSUPPORT ISUPPORT = RHS.ISUPPORT BINSUPPORT = RHS.BINSUPPORT RV_MODE = RHS.RV_MODE SR = RHS.SR RV = RHS.RV VSTEP = RHS.VSTEP EXPORT_FCT = RHS.EXPORT_FCT FOR I = 0 TO 9 SLOTS(I) = RHS.SLOTS(I) NEXT I NB_SLOTS = RHS.NB_SLOTS FONT_SIZE = RHS.FONT_SIZE REPRINT = TRUE TEXT = RHS.TEXT LM = RHS.LM LAST_FONT_SIZE = RHS.LAST_FONT_SIZE END OPERATOR CONSTRUCTOR DATA () MUTEX = MUTEXCREATE END CONSTRUCTOR DESTRUCTOR DATA () IF MUTEX THEN MUTEXDESTROY(MUTEX) END DESTRUCTOR SUB DATA.DISP_SETUP(NEW_W AS I32=20,NEW_H AS I32=20) FLOOR(NEW_W,20) FLOOR(NEW_H,20) W = NEW_W H = NEW_H END SUB SUB DATA.FORM_SETUP(NEW_FORM_TYPE AS I32=-1,NEW_UNIT_TYPE AS I32=-1, NEW_UNIT_NAME_ID AS I32=-1) IF NEW_FORM_TYPE > -1 THEN FORM_TYPE = NEW_FORM_TYPE IF NEW_UNIT_TYPE > -1 THEN UNIT_TYPE = NEW_UNIT_TYPE IF NEW_UNIT_NAME_ID > -1 THEN UNIT_INDEX = NEW_UNIT_NAME_ID IF UNIT_TYPE < 2 THEN UNIT_INDEX = 0 UNIT_INDEX0 = UNIT_INDEX END SUB SUB DATA.CONVERT_FORM() DIM AS I32 OLD_D = VALUE.F.D 'INDEX INCREMENT, CHECK FORM SUPPORT, CONVERT FORM FORM_TYPE += 1 IF (FORM_TYPE = FRAC1) AND (ISUPPORT = FALSE) THEN FORM_TYPE += 1 IF (FORM_TYPE = EXPO0) AND (BSUPPORT = FALSE) THEN FORM_TYPE += 1 IF (FORM_TYPE = EXPO1) AND ((BSUPPORT = FALSE) OR (ISUPPORT = FALSE)) THEN FORM_TYPE += 1 IF (FORM_TYPE = BINARY_INT) AND (BINSUPPORT = FALSE) THEN FORM_TYPE += 1 TOP_CYCLE(FORM_TYPE,NB_FORM_TYPES) VALUE.CONVERT(FORM_TYPE) UPDATE_SLOTS() END SUB SUB DATA.CONVERT_UNIT() 'UNIT CONVERSION, INDEX INCREMENT, FORM RECONVERSION IF UNIT_TYPE > SAMPLE THEN VALUE.V = UNIT_CONVERTERS(UNIT_TYPE,UNIT_INDEX)(VALUE.V, SR, RV, FLAG) UNIT_INDEX += 1 TOP_CYCLE(UNIT_INDEX,NB_CONVERTERS(UNIT_TYPE)) ELSEIF UNIT_TYPE = SAMPLE THEN VALUE.V=INT(ABS(VALUE.V))*SGN(VALUE.V) END IF VALUE.CONVERT(FORM_TYPE) UPDATE_SLOTS() END SUB SUB DATA.EXPORT_VALUE() 'CALLED BY FA CONTROL VALUE TO VALIDATE VALUE BEFORE SETTING DIM AS I32 TMP_UTN DIM AS F32 V = VALUE.V DIM AS IOS OUT_OF_RANGE IF EXPORT_FCT > 0 THEN 'CONVERT BACK TO ORIGINAL UNIT TYPE IF UNIT_INDEX <> UNIT_INDEX0 THEN TMP_UTN = UNIT_INDEX WHILE TMP_UTN <> UNIT_INDEX0 V = UNIT_CONVERTERS(UNIT_TYPE,TMP_UTN)(V, SR, RV, FLAG) TMP_UTN += 1 IF TMP_UTN > NB_CONVERTERS(UNIT_TYPE) - 1 THEN TMP_UTN = 0 WEND END IF 'EXPORT OUT_OF_RANGE = EXPORT_FCT(V) IF OUT_OF_RANGE <> FALSE THEN IMPORT_VALUE(V,OUT_OF_RANGE,TRUE) UPDATE_SLOTS() END IF END SUB SUB DATA.IMPORT_VALUE(V AS F32, OUT_OF_RANGE AS IOS=FALSE, FORCE_DP AS IOS=FALSE) 'ASSUMES VALUE IN WITHIN VALID RANGE AND IN ITS ORIGINAL UNIT TYPE (UNIT_INDEX0) DIM AS F32 X, V2 DIM AS I32 TMP_UTN, OLD_D 'UNIT CONVERSION IF UNIT_INDEX <> UNIT_INDEX0 THEN TMP_UTN = UNIT_INDEX0 WHILE TMP_UTN <> UNIT_INDEX V = UNIT_CONVERTERS(UNIT_TYPE,TMP_UTN)(V, SR, RV, FLAG) TMP_UTN += 1 IF TMP_UTN > NB_CONVERTERS(UNIT_TYPE) - 1 THEN TMP_UTN = 0 WEND END IF VALUE.V = V OLD_D = VALUE.F.D VALUE.CONVERT(FORM_TYPE) 'MANAGE DENOMINATOR - FORCE PRESERVATION AND/OR RESET TO OPTIMAL VALUE IF FORCE_DP ANDALSO (VALUE.F.D <> OLD_D) THEN VALUE.F.N = (OLD_D * VALUE.F.N) / VALUE.F.D VALUE.F.D = OLD_D END IF IF (FORM_TYPE > 0) AND (VALUE.V <> 0) ANDALSO (VALUE.F.N = 0) THEN VALUE.CONVERT(FORM_TYPE) UPDATE_SLOTS() END SUB SUB DATA.SET_VALUE(V AS F32, FORCE_DP AS IOS=FALSE) 'ASSUMES VALUE IS OF CURRENT UNIT TYPE (UNIT_INDEX) 'EXPORTS (WHICH VALIDATES VALUE BY REFERENCE) THEN IMPORTS BACK AGAIN DIM AS I32 TMP_UTN DIM AS IOS OUT_OF_RANGE IF EXPORT_FCT > 0 THEN 'CONVERT BACK TO ORIGINAL UNIT TYPE IF UNIT_INDEX <> UNIT_INDEX0 THEN TMP_UTN = UNIT_INDEX WHILE TMP_UTN <> UNIT_INDEX0 V = UNIT_CONVERTERS(UNIT_TYPE,TMP_UTN)(V, SR, RV, FLAG) TMP_UTN += 1 IF TMP_UTN > NB_CONVERTERS(UNIT_TYPE) - 1 THEN TMP_UTN = 0 WEND END IF 'EXPORT OUT_OF_RANGE = EXPORT_FCT(V) IMPORT_VALUE(V,OUT_OF_RANGE,FORCE_DP) END IF END SUB SUB DATA.UPDATE_SLOTS() DIM AS IOS TRUNCATE DIM AS I32 INDEX,X,L,TXT_W,MAX_DW, I,N DIM AS F32 V2 DIM AS TXT TMP_STR INDEX = 0 TEXT = VALUE TEXT_FONT = MainFont 'SETUP SLOTS IF FORM_TYPE = DECIMAL THEN 'TEXT TMP_STR = STR(ABS(VALUE.V)) I = INSTRREV(TMP_STR,"e") IF I = 0 THEN IF LEN(TMP_STR) > 7 THEN TMP_STR = MID(TMP_STR,1,7) & ".." ELSE DIM AS F32 VX = ROUND(VALUE.V,4) 'RECTIFY IF (ABS(VX) < 0.0001) THEN TMP_STR = "0.." ELSE TMP_STR = STR(VX) END IF END IF TEXT = SIGNS(VALUE.SB) & TMP_STR 'SIGN SLOTS(INDEX).TYPE = SIGN SLOTS(INDEX).INDEX = VSIGN SLOTS(INDEX).TEXT = SIGNS(VALUE.SB) INDEX += 1 'VALUE SLOTS(INDEX).TYPE = NUMBER SLOTS(INDEX).INDEX = VSLOT SLOTS(INDEX).TEXT = TMP_STR INDEX += 1 ELSE 'BASE IF (FORM_TYPE = EXPO0) OR (FORM_TYPE = EXPO1) THEN 'BASE SIGN IF VALUE.SHOW_BSIGN THEN SLOTS(INDEX).TYPE = SIGN SLOTS(INDEX).INDEX = BSIGN SLOTS(INDEX).TEXT = SIGNS(VALUE.SB) INDEX += 1 END IF 'BASE VALUE TMP_STR = STR(ABS(VALUE.B)) SLOTS(INDEX).TYPE = NUMBER SLOTS(INDEX).INDEX = BSLOT SLOTS(INDEX).TEXT = TMP_STR INDEX += 1 'SYMBOL (^) SLOTS(INDEX).TYPE = SYMBOL SLOTS(INDEX).TEXT = "^" INDEX += 1 END IF 'INTEGER IF (FORM_TYPE = FRAC1) OR (FORM_TYPE = EXPO1) THEN 'INT SIGN IF VALUE.SHOW_ISIGN THEN SLOTS(INDEX).TYPE = SIGN SLOTS(INDEX).INDEX = ISIGN SLOTS(INDEX).TEXT = SIGNS(VALUE.SI) INDEX += 1 END IF 'INT VALUE TMP_STR = STR(ABS(VALUE.I)) SLOTS(INDEX).TYPE = NUMBER SLOTS(INDEX).INDEX = ISLOT SLOTS(INDEX).TEXT = TMP_STR INDEX += 1 END IF 'FRACTION SIGN SLOTS(INDEX).TYPE = SIGN SLOTS(INDEX).INDEX = NSIGN SLOTS(INDEX).TEXT = SIGNS(VALUE.SF) INDEX += 1 'NUMERATOR VALUE TMP_STR = STR(ABS(VALUE.F.N)) SLOTS(INDEX).TYPE = NUMBER SLOTS(INDEX).INDEX = NSLOT SLOTS(INDEX).TEXT = TMP_STR INDEX += 1 'SYMBOL (/) SLOTS(INDEX).TYPE = SYMBOL SLOTS(INDEX).TEXT = "/" INDEX += 1 'DENOMINATOR VALUE TMP_STR = STR(ABS(VALUE.F.D)) SLOTS(INDEX).TYPE = NUMBER SLOTS(INDEX).INDEX = DSLOT SLOTS(INDEX).TEXT = TMP_STR INDEX += 1 END IF NB_SLOTS = INDEX 'ADJUST FONT SIZE FONT_SIZE = .8*H IF TEXT <> "" THEN TXT_W = GetTXT_W(TEXT,TEXT_FONT,FONT_SIZE) WHILE (TXT_W > W-10) AND (FONT_SIZE > MIN_FONT_SIZE) FONT_SIZE -= 1 TXT_W = GetTXT_W(TEXT,TEXT_FONT,FONT_SIZE) WEND END IF 'IF ABS(LAST_FONT_SIZE - FONT_SIZE) < 3 THEN FONT_SIZE = LAST_FONT_SIZE LAST_FONT_SIZE = FONT_SIZE 'SET SLOT POSITIONS AND WIDTHS SLOTS(0).X = 0 TXT_W = GetTXT_W(SLOTS(0).TEXT,TEXT_FONT,FONT_SIZE) SLOTS(0).W = TXT_W FOR I = 1 TO NB_SLOTS - 1 SLOTS(I).X = SLOTS(I-1).X + SLOTS(I-1).W TXT_W = GetTXT_W(SLOTS(I).TEXT,TEXT_FONT,FONT_SIZE) SLOTS(I).W = TXT_W NEXT I REPRINT = TRUE VSTEP = UNIT_STEP(UNIT_TYPE,UNIT_INDEX) END SUB FUNCTION DATA.FIND_SLOT(X AS I32) AS I32 IF (NB_SLOTS = 0) OR (X < 0) OR (X > SLOTS(NB_SLOTS-1).X + SLOTS(NB_SLOTS-1).W-1) THEN _ RETURN -1 DIM AS I32 INDEX DO WHILE (INDEX < NB_SLOTS) AND (X > SLOTS(INDEX).X) INDEX += 1 LOOP RETURN INDEX-1 END FUNCTION '------------------------------------------------------------------------------------------------------------ END NAMESPACE '------------------------------------------------------------------------------------------------------------ ' UNIT CONVERTER - FUNCTIONS FUNCTION FRACTIONAID.U2S (VALUE AS F32, SR AS F32, RV AS F32=1, BYREF FLAG AS UI32) AS F32 RETURN VALUE / SR END FUNCTION FUNCTION FRACTIONAID.S2HZ (VALUE AS F32, SR AS F32, RV AS F32=1, BYREF FLAG AS UI32) AS F32 IF VALUE = 0 THEN RETURN SR RETURN 1 / VALUE END FUNCTION FUNCTION FRACTIONAID.HZ2B (VALUE AS F32, SR AS F32, RV AS F32=1, BYREF FLAG AS UI32) AS F32 RETURN 60 * VALUE END FUNCTION FUNCTION FRACTIONAID.B2U (VALUE AS F32, SR AS F32, RV AS F32=1, BYREF FLAG AS UI32) AS F32 IF VALUE = 0 THEN RETURN 60*SR RETURN (60*SR) / VALUE END FUNCTION FUNCTION FRACTIONAID.U2DB (VALUE AS F32, SR AS F32, RV AS F32=1, BYREF FLAG AS UI32) AS F32 IF VALUE < 0 THEN FLAG = 1 RETURN IIF(VALUE=0,-140,POWER_FACTOR * LOG(ABS(VALUE))) END FUNCTION FUNCTION FRACTIONAID.DB2U (VALUE AS F32, SR AS F32, RV AS F32=1, BYREF FLAG AS UI32) AS F32 DIM AS F32 X = IIF(FLAG=1,-10^(.05*VALUE),10^(.05*VALUE)) FLAG = 0 RETURN X END FUNCTION FUNCTION FRACTIONAID.NO_UNIT (VALUE AS F32, SR AS F32, RV AS F32=1, BYREF FLAG AS UI32) AS F32 RETURN VALUE END FUNCTION '------------------------------------------------------------------------------------------------------------ 'UNIT CONVERTER - FUNCTION POINTERS AND UNIT ABBREVIATIONS FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.NONE,0) = @FRACTIONAID.NO_UNIT FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.NONE,0) = "n/a" FRACTIONAID.UNIT_STEP(FRACTIONAID.NONE,0) = .01 FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.SAMPLE,0) = @FRACTIONAID.NO_UNIT FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.SAMPLE,0) = "u" FRACTIONAID.UNIT_STEP(FRACTIONAID.SAMPLE,0) = 1 FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.TIME,FRACTIONAID.SAMPLES) = @FRACTIONAID.U2S FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.TIME,FRACTIONAID.SAMPLES) = "u" FRACTIONAID.UNIT_STEP(FRACTIONAID.TIME,FRACTIONAID.SAMPLES) = 1 FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.TIME,FRACTIONAID.SECONDS) = @FRACTIONAID.S2HZ FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.TIME,FRACTIONAID.SECONDS) = "s" FRACTIONAID.UNIT_STEP(FRACTIONAID.TIME,FRACTIONAID.SECONDS) = 0.05 FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.TIME,FRACTIONAID.FREQUENCY) = @FRACTIONAID.HZ2B FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.TIME,FRACTIONAID.FREQUENCY) = "Hz" FRACTIONAID.UNIT_STEP(FRACTIONAID.TIME,FRACTIONAID.FREQUENCY) = 1 FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.TIME,FRACTIONAID.BEATS) = @FRACTIONAID.B2U FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.TIME,FRACTIONAID.BEATS) = "BPM" FRACTIONAID.UNIT_STEP(FRACTIONAID.TIME,FRACTIONAID.BEATS) = 1 FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.AMPLITUDE,FRACTIONAID.VOLUME) = @FRACTIONAID.U2DB FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.AMPLITUDE,FRACTIONAID.VOLUME) = "a" FRACTIONAID.UNIT_STEP(FRACTIONAID.AMPLITUDE,FRACTIONAID.VOLUME) = 0.01 FRACTIONAID.UNIT_CONVERTERS(FRACTIONAID.AMPLITUDE,FRACTIONAID.POWER) = @FRACTIONAID.DB2U FRACTIONAID.UNIT_SYMBOLS(FRACTIONAID.AMPLITUDE,FRACTIONAID.POWER) = "dB" FRACTIONAID.UNIT_STEP(FRACTIONAID.AMPLITUDE,FRACTIONAID.POWER) = 0.5 '------------------------------------------------------------------------------------------------------------