From 051ddb2a265dda897bce72edc318beadd111eba2 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 6 Aug 2017 21:55:23 +1000 Subject: Mouseclick pathing now implemented --- src/moves.adb | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'src/moves.adb') diff --git a/src/moves.adb b/src/moves.adb index 11f92b4..391b35c 100644 --- a/src/moves.adb +++ b/src/moves.adb @@ -23,6 +23,16 @@ package body Moves is + procedure Prefix + (This : in out Path; + Item : in Move) is + begin + This.Insert (1, Item); + end Prefix; + + + + function Latest (This : in Path) return Move is @@ -50,5 +60,20 @@ package body Moves is end Length; + + + procedure Total_Delta + (This : in Path; + DX, DY : out Integer) is + begin + DX := 0; + DY := 0; + for M of This loop + DX := DX + M.Delta_X; + DY := DY + M.Delta_Y; + end loop; + end Total_Delta; + + end Moves; -- cgit