diff options
Diffstat (limited to 'packages/amunits/examples/moire.pas')
| -rw-r--r-- | packages/amunits/examples/moire.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/amunits/examples/moire.pas b/packages/amunits/examples/moire.pas index e1c5c14352..2499618cd4 100644 --- a/packages/amunits/examples/moire.pas +++ b/packages/amunits/examples/moire.pas @@ -21,7 +21,7 @@ Program Moire; nils.sjoholm@mailbox.swipnet.se } -uses Exec, Intuition, Graphics, Utility, systemvartags; +uses Exec, Intuition, AGraphics, Utility, systemvartags; const @@ -47,7 +47,7 @@ begin while x < Pred(Width - BorderRight - BorderLeft) do begin Stop := Pred(Width - BorderRight); SetAPen(RP, Pen); - Move(RP, Succ(x + BorderLeft), BorderTop); + GfxMove(RP, Succ(x + BorderLeft), BorderTop); Draw(RP, Stop - x, Pred(Height - BorderBottom)); Pen := (Pen + 1) mod 4; Inc(x); @@ -59,7 +59,7 @@ begin while x < Pred(Height - BorderBottom - BorderTop) do begin Stop := Pred(Height - BorderBottom); SetAPen(RP, Pen); - Move(RP, Pred(Width - BorderRight), Succ(x + BorderTop)); + GfxMove(RP, Pred(Width - BorderRight), Succ(x + BorderTop)); Draw(RP, Succ(BorderLeft), Stop - x); Pen := (Pen + 1) mod 4; Inc(x); |