1 files changed, 7 insertions, 7 deletions
diff --git a/packages/amunits/examples/bezier.pas b/packages/amunits/examples/bezier.pas
index 6650ac4de8..2603469a91 100644
--- a/packages/amunits/examples/bezier.pas
+++ b/packages/amunits/examples/bezier.pas
@@ -35,7 +35,7 @@ Program Bezier;
    nils.sjoholm@mailbox.swipnet.se
 }
 
-uses exec, intuition, graphics, utility,pastoc, systemvartags;
+uses exec, intuition, agraphics, utility,pastoc, systemvartags;
 
 type
     PointRec = packed Record
@@ -69,7 +69,7 @@ end;
 
 Procedure DrawLine;
 begin
-    Move(rp, Trunc(Points[PointCount].X), Trunc(Points[PointCount].Y));
+    GFXMove(rp, Trunc(Points[PointCount].X), Trunc(Points[PointCount].Y));
     Draw(rp, LastX, LastY);
 end;
 
@@ -201,7 +201,7 @@ Procedure DrawCurve;
 var
     i : Integer;
 begin
-    Move(rp, Trunc(Points[1].X), Trunc(Points[1].Y));
+    GfxMove(rp, Trunc(Points[1].X), Trunc(Points[1].Y));
     for i := 2 to PointCount do
     Draw(rp, Round(Points[i].X), Round(Points[i].Y));
 end;
@@ -248,10 +248,10 @@ begin
     IF w=NIL THEN CleanUpAndDie;
 
     rp := w^.RPort;
-    Move(rp, 252, 30);
-    GText(rp, pas2c('Enter points by pressing the left mouse button'), 46);
-    Move(rp, 252, 40);
-    GText(rp, pas2c('Double click on the last point to begin drawing'), 47);
+    GfxMove(rp, 252, 30);
+    GfxText(rp, pas2c('Enter points by pressing the left mouse button'), 46);
+    GfxMove(rp, 252, 40);
+    GfxText(rp, pas2c('Double click on the last point to begin drawing'), 47);
     repeat
         GetPoints;  { Both these routines will quit if }
         DrawBezier; { the window is closed. }