Writing Data to file
To open a text file and write data into it line by line:
Dim success As Boolean, i As Long, ray As T_RAY, lineToPrint As String Dim surf As Long surf = FindFullName( "Geometry.Plane.Surface" ) 'open file for writing Dim filename As String filename = GetDocDir() & "\rayfile.txt" Open filename For Output As #1 'now loop over rays success = GetFirstRay(i, ray) While success If ray.entity = surf Then 'translate global positional data to local TransformPosition -1, surf, ray.x, ray.y, ray.z 'translate global directional data to local TransformDirection -1, surf, ray.a, ray.b, ray.c Print #1, ray.x & Chr(9) & ray.y & Chr(9) & ray.z & Chr(9) & ray.a & Chr(9) & ray.c & Chr(9) & ray.power & Chr(9) & ray.wavelength End If success = GetNextRay(i, ray) Wend Close #1<br>
The script above loops over all rays in the buffer. The local position and direction data for each ray located at the designated surface are written to the file.