paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

amunits/examples: less pastoc usage

Browse Source 
git-svn-id: trunk@31014 -
This commit is contained in:
Károly Balogh 2015-06-09 23:56:06 +00:00
parent b1147ba1b7
commit 339720e06a
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/amunits/examples/bezier.pas
View File

@ -35,7 +35,7 @@ Program Bezier;
nils.sjoholm@mailbox.swipnet.se nils.sjoholm@mailbox.swipnet.se
} }
uses exec, intuition, agraphics, utility,pastoc, systemvartags; uses exec, intuition, agraphics, utility, systemvartags;
type type
PointRec = packed Record PointRec = packed Record
@ -249,9 +249,9 @@ begin
rp := w^.RPort; rp := w^.RPort;
GfxMove(rp, 252, 30); GfxMove(rp, 252, 30);
GfxText(rp, pas2c('Enter points by pressing the left mouse button'), 46); GfxText(rp, 'Enter points by pressing the left mouse button', 46);
GfxMove(rp, 252, 40); GfxMove(rp, 252, 40);
GfxText(rp, pas2c('Double click on the last point to begin drawing'), 47); GfxText(rp, 'Double click on the last point to begin drawing', 47);
repeat repeat
GetPoints; { Both these routines will quit if } GetPoints; { Both these routines will quit if }
DrawBezier; { the window is closed. } DrawBezier; { the window is closed. }

4
packages/amunits/examples/bezier2.pas
View File

@ -1,4 +1,4 @@
Program Bezier; Program Bezier2;
{ This program draws Bezier curves in the slow, simple, recursive { This program draws Bezier curves in the slow, simple, recursive
@ -26,7 +26,7 @@ Program Bezier;
nils.sjoholm@mailbox.swipnet.se nils.sjoholm@mailbox.swipnet.se
} }
uses exec, intuition, agraphics, utility, pastoc, systemvartags; uses exec, intuition, agraphics, utility, systemvartags;
type type
PointRec = Record PointRec = Record