Initial project import
This commit is contained in:
commit
b14b3622f5
16 files changed
+619
No files matched your search
@@ -0,0 +1,19 @@
|
||||
program HelloAgxDevice;
|
||||
|
||||
{$mode ObjFPC}{$H+}
|
||||
|
||||
uses
|
||||
AgxOpenTypes, AgxOpenRuntime;
|
||||
|
||||
var
|
||||
Device: TAgxDevice;
|
||||
begin
|
||||
Device := TAgxDevice.Create;
|
||||
try
|
||||
WriteLn('Device: ', Device.Info.Name);
|
||||
WriteLn('Backend: ', AgxBackendName(Device.Info.Backend));
|
||||
WriteLn('Compute: ', Device.Info.SupportsCompute);
|
||||
finally
|
||||
Device.Free;
|
||||
end;
|
||||
end.
|
||||
Reference in new issue
Block a user