' ************************************************* ' * * ' * declarations for g_indep.dll * ' This file should be included in gmt applications. ' GMT version 11.01 * ' ************************************************* ' 23.03.2002: Avg functions extended. ' 20.04.2002: E12 series functions added. ' 26.06.2002: Assembler math functions added. ' 21.11.2002: IP-support functions added for networking development in GMT ' 24.08.2003: So lookup table procedure added. ' 21.09.2003: I2S$ function added. ' 21.05.2004: upgrade to compiler 7.04 ' 05.03.2005: upgrade ro compiler 8.00 ' 26.03.2006: LtrimZero function added. ' 12.05.2005: Bentham distribution function added ' 14.05.2005: double occurances of sire functions removed. This could have caused quite some bugs... ' 06.09.2005: logile function added ' 23.11.2006: sigmoid function added. ' 08.02.2007: bmi function added ' 03.06.2009: Checktimerresolution moved from g_n*h.dll to this module ' 11.06.2009: More hanningwindow function added. ' 06.07.2009: DFT sorting functions added. ' 13.07.2009: Array minimum and maximum functions added. ' 30.01.2010: Frustum functions added. ' 04.02.2010: all funcs. for conical and flat valves added. ' 04.05.2010: dft functions slightly improved ' 09.05.2010: fast dft function for 256 samples with hanning window added ' 30.05.2010: Cepstrum calculation added ' 14.10.2011: RangeLimit function added ' 31.03.2012: ggd en kgv functions added. ' 08.04.2012: Histogram function added. Coding example in Namuda- Study #24 - NoSi ' 01.12.2012: Decr0 procedure added. ' 29.01.2013: Number analysis function added. ' 17.09.2014: Polygonal number function added. ' 30.12.2015: Chaos formula added. ' 14.03.2017: Datim() function added. ' 30.05.2017: PID function added. ' 29.09.2018: RatNumPat function added. ' 30.09.2018: Phi() function added. ' 08.02.2022: RC_Cal () function added. #INCLUDE THIS ONCE #IF NOT %DEF(%g_indep_inc) %g_indep_inc = %True DECLARE FUNCTION B2S$ LIB "g_indep.dll" (BYVAL b%) DECLARE FUNCTION I2S$ LIB "g_indep.dll" (BYVAL b AS INTEGER) ' 21.09.2003 DECLARE FUNCTION Mi2Name LIB "g_indep.dll" (BYVAL n AS DWORD, BYVAL param AS DWORD) AS STRING DECLARE SUB DeleteIfEmpty LIB "g_indep.dll" (filenaam$) ' 13.07.1999 deletes zero-lenght files... DECLARE FUNCTION ExistFile LIB "g_indep.dll" (f AS STRING) AS BYTE ' returns %False or %True depending on whether a filename passed ' exists and can be found. DECLARE FUNCTION IniFileName LIB "g_indep.dll" () AS STRING ' 27.11.2000 DECLARE FUNCTION CreateDefaultIniFile LIB "g_indep.dll" (f AS STRING) AS LONG DECLARE FUNCTION LogFile LIB "g_indep.dll" (text$, OPT BYVAL filenam$) AS LONG 'returns PB filenr DECLARE FUNCTION CreateUniqueFilename LIB "g_indep.dll" (BYVAL appid AS DWORD) AS STRING ' 16.01.2001 DECLARE FUNCTION CheckWinVersion LIB "g_indep.dll" () AS LONG ' 16.11.2000 DECLARE FUNCTION CheckTimerResolution LIB "g_indep.dll" () AS DWORD ' moved here 03.06.2009 DECLARE FUNCTION IsNT LIB "g_indep.dll" () AS BYTE ' 16.11.2000 DECLARE FUNCTION GetWindir LIB "g_indep.dll" () AS STRING ' 06.06.2002 DECLARE FUNCTION GetGmtDir LIB "g_indep.dll" () AS STRING ' 07.06.2002 DECLARE FUNCTION DottedIP$ LIB "g_indep.dll" (ip AS LONG) ' 21.11.2002 - for g_net.dll DECLARE FUNCTION IpString2nr LIB "g_indep.dll" (ip AS STRING) AS LONG ' 21.11.2002 DECLARE FUNCTION MakeLong LIB "g_indep.dll" (INTEGER, INTEGER) AS LONG DECLARE FUNCTION mmioFOURCC LIB "g_indep.dll" (a$,b$,c$,d$) AS DWORD ' Win32Api macro, this is our own rewrite of a microsoft function DECLARE FUNCTION RoundFreq LIB "g_indep.dll" (BYVAL freq AS SINGLE) AS SINGLE DECLARE FUNCTION Datim LIB "g_indep.dll" () AS STRING ' 14.03.2017 ' gonio DECLARE FUNCTION Sinc LIB "g_indep.dll"(BYVAL SINGLE) AS SINGLE ' (sin(x))/x function DECLARE FUNCTION Cosc LIB "g_indep.dll"(BYVAL SINGLE) AS SINGLE ' (cos(x)/ x) function DECLARE FUNCTION ArcSin LIB "g_indep.dll"(BYVAL SINGLE) AS SINGLE ' inverse of sine DECLARE FUNCTION ArcCos LIB "g_indep.dll"(BYVAL SINGLE) AS SINGLE ' inverse of cosine DECLARE FUNCTION TriangleMath LIB "g_indep.dll"(Tri AS triangletype) AS DWORD ' solves triangles DECLARE FUNCTION ReduceAngle LIB "g_indep.dll"(BYVAL SINGLE, BYVAL BYTE) AS SINGLE ' conversion from polar to cartesian and vice versa: DECLARE SUB P2C LIB "g_indep.dll"(P AS Polar, C AS Complex) DECLARE SUB C2P LIB "g_indep.dll"(C AS Complex, P AS Polar) ' konversie van Rad naar graden en vice versa: DECLARE FUNCTION Rad2Deg# LIB "g_indep.dll"(BYVAL rad#) DECLARE FUNCTION Deg2Rad# LIB "g_indep.dll"(BYVAL degrees#) ' algebraische funkties op poolkoordinaten: DECLARE SUB MulPol LIB "g_indep.dll"(G1 AS Polar, G2 AS Polar, Gr AS Polar) DECLARE SUB DivPol LIB "g_indep.dll"(G1 AS Polar, G2 AS Polar, Gr AS Polar) DECLARE SUB AddPol LIB "g_indep.dll"(G1 AS Polar, G2 AS Polar, Gr AS Polar) DECLARE SUB SubPol LIB "g_indep.dll"(G1 AS Polar, G2 AS Polar, Gr AS Polar) DECLARE SUB InvPol LIB "g_indep.dll"(G1 AS Polar, Gr AS Polar) DECLARE SUB ConPol LIB "g_indep.dll"(G1 AS Polar, Gr AS Polar) DECLARE SUB ParPol LIB "g_indep.dll"(G1 AS Polar, G2 AS Polar, Gr AS Polar) ' algebraische funkties met cartesische komplexe getallen DECLARE SUB MulCom LIB "g_indep.dll"(G1 AS Complex, G2 AS Complex, Gr AS Complex) DECLARE SUB DivCom LIB "g_indep.dll"(G1 AS Complex, G2 AS Complex, Gr AS Complex) DECLARE SUB AddCom LIB "g_indep.dll"(G1 AS Complex, G2 AS Complex, Gr AS Complex) DECLARE SUB SubCom LIB "g_indep.dll"(G1 AS Complex, G2 AS Complex, Gr AS Complex) DECLARE SUB InvCom LIB "g_indep.dll"(G1 AS Complex, Gr AS Complex) DECLARE SUB ConCom LIB "g_indep.dll"(G1 AS Complex, Gr AS Complex) DECLARE SUB ParCom LIB "g_indep.dll"(G1 AS Complex, G2 AS Complex, Gr AS Complex) DECLARE FUNCTION MagCom# LIB "g_indep.dll"(G1 AS Complex) DECLARE FUNCTION AngCom# LIB "g_indep.dll"(G1 AS Complex) ' elektronische funkties en procedures: DECLARE FUNCTION OmegF# LIB "g_indep.dll"(BYVAL f#) DECLARE SUB XcCar LIB "g_indep.dll"(BYVAL C#, BYVAL f#, G AS Complex) DECLARE SUB XcPol LIB "g_indep.dll"(BYVAL C#, BYVAL f#, G AS Polar) DECLARE SUB XlCar LIB "g_indep.dll"(BYVAL L#, BYVAL f#, G AS Complex) DECLARE SUB XlPol LIB "g_indep.dll"(BYVAL L#, BYVAL f#, G AS Polar) DECLARE FUNCTION NextE12 LIB "g_indep.dll"(BYVAL i AS SINGLE) AS SINGLE DECLARE FUNCTION PrevE12 LIB "g_indep.dll"(BYVAL i AS SINGLE) AS SINGLE DECLARE FUNCTION ChargeCap LIB "g_indep.dll" (BYVAL SINGLE, BYVAL SINGLE) AS SINGLE DECLARE FUNCTION DisChargeCap LIB "g_indep.dll" (BYVAL SINGLE, BYVAL SINGLE) AS SINGLE DECLARE FUNCTION RC_Cal LIB "g_indep.dll" (BYVAL prop AS SINGLE, BYVAL rc AS SINGLE) AS SINGLE ' fysika: DECLARE FUNCTION Valtijd LIB "g_indep.dll" (BYVAL hoogte AS SINGLE) AS SINGLE DECLARE FUNCTION Valhoogte LIB "g_indep.dll" (BYVAL tijd AS SINGLE) AS SINGLE ' bit-level functions and procedures: DECLARE FUNCTION Gray LIB "g_indep.dll" (BYVAL n AS DWORD) AS DWORD DECLARE FUNCTION bitcount LIB "g_indep.dll" (BYVAL x AS DWORD) AS LONG DECLARE FUNCTION FlipByte LIB "g_indep.dll" (BYVAL b AS BYTE) AS BYTE ' 28.03.2001 DECLARE FUNCTION FlipWord LIB "g_indep.dll" (BYVAL w AS WORD) AS WORD ' 29.03.2001 DECLARE FUNCTION FlipDword LIB "g_indep.dll" (BYVAL dwr AS DWORD) AS DWORD DECLARE FUNCTION FlipQuad LIB "g_indep.dll" (BYVAL q AS QUAD) AS QUAD DECLARE SUB RotateLowNibble LIB "g_indep.dll" (BYREF b AS BYTE, BYVAL direction AS LONG) ' 15.09.2002 DECLARE SUB RotateHighNibble LIB "g_indep.dll" (BYREF b AS BYTE, BYVAL direction AS LONG) ' 15.09.2002 DECLARE FUNCTION nrBitChanges LIB "g_indep.dll" (BYVAL a AS DWORD, BYVAL b AS DWORD) AS DWORD '19.08.2003 DECLARE FUNCTION LTrimZero LIB "g_indep.dll" (a AS STRING) AS STRING ' funkties - kwadraatvergelijkingen, driehoeksgetallen, polygonole getallen DECLARE SUB SolveEqDeg2 LIB "g_indep.dll"(BYVAL a!, BYVAL b!, BYVAL c!, r AS Roots) DECLARE FUNCTION TriangleNumber! LIB "g_indep.dll"(BYVAL i AS SINGLE) DECLARE FUNCTION TriangleNumberLimit LIB "g_indep.dll" (BYVAL x AS SINGLE) AS SINGLE ' 29.11.1999 DECLARE FUNCTION PolygonNumber LIB "g_indep.dll" (BYVAL nrsides AS DWORD, BYVAL n AS DWORD) AS DWORD ' 17.09.2014 DECLARE FUNCTION BinomialComb LIB "g_indep.dll" (BYVAL n AS WORD,BYVAL k AS WORD) AS DWORD ' 29.11.1999 DECLARE SUB Oxalis LIB "g_indep.dll" (BYVAL hoek AS SINGLE, G AS Complex) DECLARE FUNCTION Lemniskaat LIB "g_indep.dll" (BYVAL hoek AS SINGLE) AS SINGLE DECLARE FUNCTION Kummer LIB "g_indep.dll" (BYVAL SINGLE, BYVAL SINGLE, BYVAL SINGLE, BYVAL SINGLE) AS SINGLE ' 4-dim plane func. DECLARE FUNCTION Chaos LIB "g_indep.dll" (BYVAL k AS SINGLE, BYVAL x AS SINGLE) AS SINGLE ' 30.12.2015 DECLARE FUNCTION Str2Fact LIB "g_indep.dll" (factorial AS STRING) AS QUAD ' factorials 12.03.2000 DECLARE FUNCTION GetBeta LIB "g_indep.dll" (BYVAL a AS SINGLE, BYVAL b AS SINGLE, BYVAL x AS SINGLE) AS SINGLE DECLARE FUNCTION BMI LIB "g_indep.dll" (lengte AS SINGLE, gewicht AS SINGLE) AS SINGLE ' functions for calculation of conical valves: 'added 30.01.2010 - 04.02.2010 'has bug: DECLARE FUNCTION FrustumFlow LIB "g_indep.dll" (BYVAL traject AS SINGLE, BYVAL diam AS SINGLE, BYVAL angle AS SINGLE) AS SINGLE DECLARE FUNCTION FrustumArea LIB "g_indep.dll" (BYVAL h AS SINGLE, BYVAL diam1 AS SINGLE, BYVAL diam2 AS SINGLE) AS SINGLE DECLARE SUB CalcConeTraject LIB "g_indep.dll"(BYVAL orifice AS SINGLE, BYVAL angle AS SINGLE, Conevalve AS conevalveType) DECLARE SUB CalcConeOrifice LIB "g_indep.dll"(BYVAL traject AS SINGLE, BYVAL angle AS SINGLE, Conevalve AS conevalveType) DECLARE SUB CalcConeAngle LIB "g_indep.dll"(BYVAL traject AS SINGLE,BYVAL orifice AS SINGLE, Conevalve AS ConevalveType,OPTIONAL BYVAL RES AS SINGLE) ' function for flat valves: DECLARE FUNCTION CalcFlatValveDiam LIB "g_indep.dll" (BYVAL orifice AS SINGLE, BYVAL traject AS SINGLE) AS SINGLE DECLARE FUNCTION CalcFlatValveOrifice LIB "g_indep.dll"(BYVAL diam AS SINGLE, BYVAL traject AS SINGLE) AS SINGLE DECLARE FUNCTION CalcFlatValveTraject LIB "g_indep.dll"(BYVAL orifice AS SINGLE, BYVAL diam AS SINGLE) AS SINGLE DECLARE FUNCTION CalcFlatValveFlow LIB "g_indep.dll" (BYVAL orifice AS SINGLE, BYVAL traject AS SINGLE)AS SINGLE ' spherical valves: (06.02.2010) DECLARE FUNCTION CalcBallValveArea LIB "g_indep.dll" (BYVAL traject AS SINGLE,BYVAL orifice AS SINGLE, BYVAL diam AS SINGLE)AS SINGLE ' added 11.06.2001: - primenumber functions DECLARE FUNCTION IsPrime LIB "g_indep.dll" (BYVAL n AS DWORD) AS DWORD DECLARE FUNCTION NextPrime LIB "g_indep.dll" (BYVAL n AS DWORD) AS DWORD DECLARE FUNCTION PrevPrime LIB "g_indep.dll" (BYVAL n AS DWORD) AS DWORD ' added 31.03.2012: kgv and ggd functions (to be extended with Diophantic functions and equations) DECLARE FUNCTION ggd LIB "g_indep.dll" (BYVAL a AS DWORD, BYVAL b AS DWORD) AS DWORD DECLARE FUNCTION kgv LIB "g_indep.dll" (BYVAL a AS DWORD, BYVAL b AS DWORD) AS DWORD DECLARE FUNCTION kgv_arw LIB "g_indep.dll" (BYREF ar() AS WORD) AS DWORD DECLARE FUNCTION kgv_ardw LIB "g_indep.dll" (BYREF ar() AS WORD) AS DWORD ' added 29.01.2013: number analysis with output to log file. DECLARE SUB Analyze_Number LIB "g_indep.dll" (BYVAL n AS DWORD) ' added 29.09.2018: returning the repeated pattern in rational numbers (1/n) DECLARE FUNCTION RatNumPat LIB "g_indep.dll" (BYVAL n AS LONG) AS STRING ' added 30.l09.2018: Euler totient, using a Fourier transform on the gcd's in n. ' Phi(n) is allways <= n DECLARE FUNCTION Phi LIB "g_indep.dll" (BYVAL n AS LONG) AS LONG ' added 01.10.2018: Support for duodecimal numbers (base 12-numbers): DECLARE FUNCTION DuoDec2Dec LIB "g_indep.dll" (STRING) AS QUAD ' convert dozenal number to decimal DECLARE FUNCTION DuoDec LIB "g_indep.dll" (n AS QUAD) AS STRING ' convert decimal number to dozenal DECLARE FUNCTION DecStr2Duodec LIB "g_indep.dll" (n AS STRING) AS STRING ' convert decimal-string number to dozenal ' procedures to draw function curves: DECLARE SUB DrawLemniskaat LIB "g_indep.dll" (BYVAL h AS LONG, p AS POINTL) DECLARE SUB DrawOxalis LIB "g_indep.dll" (BYVAL h AS LONG, p AS POINTL) 'procedures to visualize data DECLARE SUB DrawBarChart LIB "g_indep.dll" (BYVAL hw AS LONG, area AS rectl, arr() AS SINGLE) ' procedures used in sampling context (from gmt_ii) DECLARE FUNCTION Lim2Pow2 LIB "g_indep.dll" (BYVAL DWORD) AS DWORD DECLARE FUNCTION NrSamp2Samptim LIB "g_indep.dll" (BYVAL NrSamp AS BYTE, BYVAL Sr AS SINGLE) AS WORD DECLARE FUNCTION SampTim2NrSamp LIB "g_indep.dll" (BYVAL SampTim AS WORD, BYVAL Sr AS SINGLE) AS BYTE DECLARE FUNCTION dBV2val LIB "g_indep.dll" (BYVAL SINGLE) AS WORD DECLARE FUNCTION val2dBV LIB "g_indep.dll" (BYVAL INTEGER) AS SINGLE ' periodic functions (generators): DECLARE FUNCTION Triangle LIB "g_indep.dll" (BYVAL SINGLE) AS SINGLE ' 02.12.1999 DECLARE FUNCTION Saw LIB "g_indep.dll" (BYVAL SINGLE, BYVAL SINGLE) AS SINGLE ' 02.12.1999 DECLARE FUNCTION Square LIB "g_indep.dll" (BYVAL SINGLE, BYVAL SINGLE) AS INTEGER' 02.12.1999 ' windowing functions for spectrum analysis and granular synthesis: DECLARE SUB HanningWindow LIB "g_indep.dll" (Sp!()) 'gaussian DECLARE SUB HanningWindow_dbl2sng LIB "g_indep.dll" (InArray#(), OutArray!()) '11.06.2009 DECLARE SUB HanningWindow_Dbl LIB "g_indep.dll" (Shape#()) '11.06.2009 DECLARE SUB TriangleWindow LIB "g_indep.dll" (Sp!()) DECLARE SUB BetaWindow LIB "g_indep.dll" (BYREF Sp!(), BYVAL a AS SINGLE, BYVAL b AS SINGLE) ' 10.04.2000 ' transforms, wavelets, convolutions and correlations: DECLARE SUB DFT LIB "g_indep.dll" (Samp!(), Spektrum!()) DECLARE SUB DFT_Dbl LIB "g_indep.dll" (Samp#(), Spektrum#()) DECLARE SUB DFT_Long LIB "g_indep.dll" (Samp() AS LONG, Spektrum() AS LONG) ' 11.02.2003 DECLARE SUB DFT_Int LIB "g_indep.dll" (Samp() AS INTEGER, Spektrum() AS INTEGER) ' 11.02.2003 DECLARE SUB InvDFT LIB "g_indep.dll" (Spektrum!(), Samp!()) DECLARE SUB DFT256_Dbl LIB "g_indep.dll" (Samp#(), Sp#()) '09.05.2010 DECLARE FUNCTION SortDftDbl LIB "g_indep.dll"(dftarr() AS DOUBLE, binsize AS SINGLE,sp AS Spectrum128DoubleType) AS SINGLE DECLARE FUNCTION SortDft LIB "g_indep.dll"(dftarr() AS SINGLE, binsize AS SINGLE,sp AS Spectrum128SingleType) AS SINGLE DECLARE FUNCTION OctaveBands_Dbl LIB "g_indep.dll" (Sp() AS DOUBLE, Okt() AS DOUBLE) AS DOUBLE '13.05.2010 DECLARE SUB Cepstrum128_Dbl LIB "g_indep.dll" (Sp#(), Ce#()) '30.05.2010 DECLARE SUB Cepstrum128_Dbl_Inv LIB "g_indep.dll" (Sp#(), Ce#()) 'experiment 31.05.2010 ' added 14.06.2009: DECLARE FUNCTION WaveFreq LIB "g_indep.dll" (Samp() AS SINGLE, BYVAL samplingrate AS LONG, BYVAL noise AS SINGLE) AS SINGLE DECLARE FUNCTION WaveFreq_Dbl LIB "g_indep.dll" (Samp() AS DOUBLE, BYVAL samplingrate AS LONG, BYVAL noise AS DOUBLE) AS SINGLE DECLARE FUNCTION WaveFreq_Int LIB "g_indep.dll" (Samp() AS INTEGER, BYVAL samplingrate AS LONG, BYVAL noise AS WORD) AS SINGLE DECLARE FUNCTION WaveFreq_Lng LIB "g_indep.dll" (Samp() AS LONG, BYVAL samplingrate AS LONG, BYVAL noise AS DWORD) AS SINGLE ' averaging functions for data acquisition and measurement: DECLARE FUNCTION AvgAri LIB "g_indep.dll" (BYVAL a!, BYVAL b!) AS SINGLE DECLARE FUNCTION AvgHar LIB "g_indep.dll" (BYVAL a!, BYVAL b!) AS SINGLE DECLARE FUNCTION AvgGeo LIB "g_indep.dll" (BYVAL a!, BYVAL b!) AS SINGLE ' 1992 DECLARE FUNCTION AvgMed LIB "g_indep.dll" (BYVAL a!, BYVAL b!) AS SINGLE DECLARE FUNCTION AvgAriArr LIB "g_indep.dll" (dta() AS INTEGER, BYVAL n AS LONG) AS SINGLE DECLARE FUNCTION AvgGeoArr LIB "g_indep.dll" (dta() AS INTEGER, BYVAL n AS LONG) AS SINGLE DECLARE FUNCTION AvgHarArr LIB "g_indep.dll" (dta() AS INTEGER, BYVAL n AS LONG) AS SINGLE DECLARE FUNCTION AvgMedArr LIB "g_indep.dll" (dta() AS INTEGER, BYVAL n AS LONG) AS SINGLE ' 23.02.2002 DECLARE FUNCTION AvgSurf LIB "g_indep.dll" (dta() AS INTEGER, BYVAL n AS LONG) AS SINGLE ' 21.03.2003 DECLARE FUNCTION AvgStatArr LIB "g_indep.dll" (dta() AS INTEGER, s AS SINGLE, BYVAL n AS LONG) AS SINGLE ' statistics DECLARE FUNCTION Bentham LIB "g_indep.dll" (BYREF n AS SINGLE) AS SINGLE ' 12.05.2005 DECLARE FUNCTION ArrayMax_SNG LIB "g_indep.dll" (ar() AS SINGLE) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayMax_DBL LIB "g_indep.dll" (ar() AS DOUBLE) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayMax_LNG LIB "g_indep.dll" (ar() AS LONG) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayMax_INT LIB "g_indep.dll" (ar() AS INTEGER) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayMin_SNG LIB "g_indep.dll" (ar() AS SINGLE) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayMin_DBL LIB "g_indep.dll" (ar() AS DOUBLE) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayMin_LNG LIB "g_indep.dll" (ar() AS LONG) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayMin_INT LIB "g_indep.dll" (ar() AS INTEGER) AS LONG ' 13.07.2009 DECLARE FUNCTION ArrayReduce_DBL LIB "g_indep.dll" (ar() AS DOUBLE , BYVAL n AS DWORD, aro() AS DOUBLE) AS LONG '14.07.09 DECLARE FUNCTION ArrayReduce_SNG LIB "g_indep.dll" (ar() AS SINGLE , BYVAL n AS DWORD, aro() AS SINGLE) AS LONG '14.07.09 ' used for 1/f distributions: DECLARE FUNCTION Get1Fcoefs LIB "g_indep.dll" (nrvals AS WORD) AS DWORD ' 30.03.2012 gwr DECLARE FUNCTION InitBarUnits LIB "g_indep.dll" (OPT BYVAL param AS DWORD) AS LONG ' param is for logging DECLARE FUNCTION FindBarUnits2 LIB "g_indep.dll" (BYVAL nrtiks AS LONG) AS DWORD DECLARE FUNCTION FindBarUnits3 LIB "g_indep.dll" (BYVAL nrtiks AS LONG) AS DWORD DECLARE FUNCTION FindBarUnits4 LIB "g_indep.dll" (BYVAL nrtiks AS LONG) AS DWORD DECLARE FUNCTION FindBarUnits5 LIB "g_indep.dll" (BYVAL nrtiks AS LONG) AS DWORD DECLARE FUNCTION FindBarUnits6 LIB "g_indep.dll" (BYVAL nrtiks AS LONG) AS DWORD DECLARE FUNCTION HistoTest LIB "g_indep.dll" (BYREF His AS HistoGram_Type, BYVAL newidx AS DWORD) AS LONG ' 08.04.2012 gwr ' added 23.11.2006 - debugged by gwr. DECLARE FUNCTION Sigmoid LIB "g_indep.dll" (BYVAL lowlim AS SINGLE, BYVAL highlim AS SINGLE, BYVAL value AS SINGLE) AS SINGLE ' curve reshaping functions: DECLARE FUNCTION Scalingfactor_Exp LIB "g_indep.dll" (BYVAL bereik AS SINGLE, BYVAL ex AS SINGLE) AS SINGLE ' 24.09.2003 ' math in assembly language DECLARE FUNCTION MulDiv32 LIB "g_indep.dll" (BYVAL a AS LONG,BYVAL b AS LONG,BYVAL c AS LONG) AS LONG DECLARE FUNCTION MulDivRN LIB "g_indep.dll" (BYVAL a AS DWORD ,BYVAL b AS DWORD,BYVAL c AS DWORD) AS DWORD DECLARE FUNCTION MulDivRU LIB "g_indep.dll" (BYVAL a AS DWORD, BYVAL b AS DWORD,BYVAL c AS DWORD) AS DWORD DECLARE FUNCTION MulDivRD LIB "g_indep.dll" (BYVAL a AS DWORD,BYVAL b AS DWORD,BYVAL c AS DWORD) AS DWORD ' acoustics functions DECLARE FUNCTION Velo2Pulse LIB "g_indep.dll" (BYREF robot AS musician, BYVAL velo AS BYTE) AS DWORD ' 02.02.2005 ' for vacca/llor/belly mapping DECLARE FUNCTION GetNoteNrFromKloktype LIB "g_indep.dll"(BYVAL pVaccaNotes AS kloktype PTR, lb AS DWORD, ub AS DWORD, BYVAL note AS SINGLE, BYVAL tol AS SINGLE) AS BYTE ' scaling functions DECLARE FUNCTION RangeLimit LIB "g_indep.dll" (BYVAL minval AS LONG, BYVAL maxval AS LONG, normval AS SINGLE) AS LONG ' 14.10.2011 DECLARE SUB Decr0 LIB "g_indep.dll" (i AS BYTE) ' 01.12.2012, avoiding run overs on decrementing bytes. ' regulation functions (PID): DECLARE FUNCTION PID LIB "g_indep.dll" (BYVAL sollvalue AS SINGLE, BYVAL seinvalue AS SINGLE, OPT BYVAL kp AS SINGLE, OPT BYVAL ki AS SINGLE, OPT BYVAL kd AS SINGLE) AS SINGLE ' intelligent functions for : 'DECLARE FUNCTION Sire_Velo2MidiNoot LIB "g_indep.dll" (BYVAL velo AS INTEGER) AS SINGLE 'DECLARE FUNCTION Sire_MidiNoot2Velo LIB "g_indep.dll" (BYVAL noot AS SINGLE) AS WORD 'DECLARE FUNCTION Sire_Play (BYVAL noot AS INTEGER, BYVAL velo AS BYTE) AS LONG 'naar g_midi.inc DECLARE SUB Warning LIB "g_indep.dll" (m AS STRING, OPT BYVAL t AS DWORD) ' 01.2005 #ENDIF ' --------------------------------------------------------------------------------- '[EOF]