C3D.open |
Fid = C3D.open( FileName AS STRING, [nOptions AS INTEGER=0] ) AS HANDLE
Opens a C3D file. The function returns Fid = 0 if it fails to open the file.
Example:
$INCLUDE "MyBASIC2_C3D.bas" $LIBRARY "MyBASIC2_C3DLib.dll"
DIM fid AS HANDLE
fid = C3D.OPEN( "e:\kalle.c3d" )
IF fid = NULL THEN PRINT "Error opening file", STOP ENDIF
' Output file header info
PRINT "C3D_fh_no_of_points = ";C3D.GET_FH_ITEM( fid, C3D_fh_no_of_points ), PRINT "C3D_fh_no_of_analog = ";C3D.GET_FH_ITEM( fid, C3D_fh_no_of_analog ), PRINT "C3D_fh_first_frame = ";C3D.GET_FH_ITEM( fid, C3D_fh_first_frame ), PRINT "C3D_fh_last_frame = ";C3D.GET_FH_ITEM( fid, C3D_fh_last_frame ), PRINT "C3D_fh_max_int_gap = ";C3D.GET_FH_ITEM( fid, C3D_fh_max_int_gap ), PRINT "C3D_fh_scale = ";C3D.GET_FH_ITEM( fid, C3D_fh_scale ), PRINT "C3D_fh_data_start = ";C3D.GET_FH_ITEM( fid, C3D_fh_data_start ), PRINT "C3D_fh_analog_multiplier = ";C3D.GET_FH_ITEM( fid, C3D_fh_analog_multiplier ), PRINT "C3D_fh_sample_rate = ";C3D.GET_FH_ITEM( fid, C3D_fh_sample_rate ), PRINT "C3D_fh_processor_type = ";C3D.GET_FH_ITEM( fid, C3D_fh_processor_type ),
|