mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-29 08:29:18 +00:00
30 lines
522 B
ObjectPascal
30 lines
522 B
ObjectPascal
|
program ExampleShape;
|
||
|
|
|
||
|
|
const
|
||
|
|
PI = 3.141592654;
|
||
|
|
R = 60.0;
|
||
|
|
DOTS = 10;
|
||
|
|
|
||
|
|
var
|
||
|
|
dot: Integer;
|
||
|
|
ax, ay, bx, by: Real;
|
||
|
|
center: Point;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
ShowDrawing;
|
||
|
|
|
||
|
|
dot := DOTS;
|
||
|
|
setPt(center, 100, 100);
|
||
|
|
|
||
|
|
repeat
|
||
|
|
ax := center.h + R * cos(2 * PI * dot / DOTS);
|
||
|
|
ay := center.v + R * sin(2 * PI * dot / DOTS);
|
||
|
|
bx := center.h + R * cos(2 * PI * (dot + 1) / DOTS);
|
||
|
|
by := center.v + R * sin(2 * PI * (dot + 1) / DOTS);
|
||
|
|
MoveTo(round(ax), round(ay));
|
||
|
|
LineTo(round(bx), round(by));
|
||
|
|
dot := dot - 1;
|
||
|
|
until dot < 1;
|
||
|
|
|
||
|
|
end.
|