
Hätte glaub noch nen Controller und die Innereien von einem da. Sprich Stepper und Ansteuerungselektronik.
Müsste ich mal suchen, falls es Dir hilft.
Code: Select all
function TLaserLine.NormAngle : extended;
begin
result := RadToDeg(ArcTan2(self.EndPoint.y - self.StartPoint.y, self.EndPoint.x - self.StartPoint.x));
if result < 0 then result := result + 360;
end;
Code: Select all
cd \laser\bin
realtime -register