20 lines
354 B
ObjectPascal
20 lines
354 B
ObjectPascal
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.
|