' declarations for g_glib.dll ' ***************************** #INCLUDE THIS ONCE #IF NOT %DEF(%g_glib_inc) DECLARE SUB MissingCode LIB "g_glib.dll" (piece AS STRING) DECLARE SUB ErrorMidiIn LIB "g_glib.dll" () DECLARE SUB ErrorMidiOut LIB "g_glib.dll" () DECLARE SUB ErrorWaveIn LIB "g_glib.dll" () DECLARE SUB ErrorWaveOut LIB "g_glib.dll" () 'DECLARE SUB ErrorBom LIB "g_glib.dll" (BYVAL fout AS DWORD) ' 18.04.2000 - removed 11.06.2009 DECLARE FUNCTION CheckInstalled LIB "g_glib.dll" (composition AS STRING, App AS Applicationtype) AS LONG ' 20.11.1999 DECLARE FUNCTION CheckConditions LIB "g_glib.dll" (App AS Applicationtype, hMidiI() AS DWORD,hMidiO() AS DWORD) AS LONG ' 13.02.2002 DECLARE SUB WrongSynth LIB "g_glib.dll" (piece AS STRING) DECLARE SUB DrawRadarTriangle LIB "g_glib.dll" (BYVAL h AS LONG, a() AS SINGLE) ' for Sonar systems DECLARE SUB Draw_SonarTetrahedron LIB "g_glib.dll" (BYVAL h AS LONG, sr AS sonartype) ' for Sonar, new version 02.11.2003 DECLARE SUB Draw_QuadRadar LIB "g_glib.dll" (BYVAL h AS LONG, BYVAL pr AS DWORD) ' for Quadradar systems DECLARE SUB Draw_QuadRadar_Square LIB "g_glib.dll" (BYVAL h AS LONG, BYVAL pr AS DWORD) ' 03.03.03 DECLARE SUB Axe3_Mon LIB "g_glib.dll" () DECLARE SUB Pir2_mon LIB "g_glib.dll" () ' was k.l. bug: "g_glib.dkk" #ELSE DECLARE SUB MissingCode (piece AS STRING) DECLARE SUB ErrorMidiIn () DECLARE SUB ErrorMidiOut () DECLARE SUB ErrorWaveIn () DECLARE SUB ErrorWaveOut () 'DECLARE SUB ErrorBom (BYVAL fout AS DWORD) ' 18.04.2000 DECLARE FUNCTION CheckInstalled (composition AS STRING, App AS Applicationtype) AS LONG ' 20.11.1999 DECLARE FUNCTION CheckConditions (App AS Applicationtype, hMidiI() AS DWORD,hMidiO() AS DWORD) AS LONG ' 13.02.2002 DECLARE SUB WrongSynth (piece AS STRING) DECLARE SUB DrawRadarTriangle (BYVAL h AS LONG, a() AS SINGLE) ' for Sonar systems DECLARE SUB Draw_SonarTetrahedron (BYVAL h AS LONG, sr AS sonartype) ' for Sonar, new version 02.11.2003 DECLARE SUB Draw_QuadRadar (BYVAL h AS LONG, BYVAL pr AS DWORD) ' for Quadradar systems DECLARE SUB Draw_QuadRadar_Square (BYVAL h AS LONG, BYVAL pr AS DWORD) ' 03.03.03 DECLARE SUB Axe3_Mon() DECLARE SUB Pir2_mon #ENDIF