mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-05-29 06:41:28 +00:00
25 lines
392 B
ObjectPascal
25 lines
392 B
ObjectPascal
program ExampleSine;
|
|
|
|
const
|
|
PI = 3.141592654;
|
|
AMP = 50;
|
|
var
|
|
x, y: Real;
|
|
|
|
begin
|
|
|
|
ShowDrawing;
|
|
|
|
x := 0;
|
|
|
|
repeat
|
|
y := sin((x / 300) * (2 * PI)) * AMP;
|
|
MoveTo(round(x), AMP + round(y));
|
|
LineTo(round(x), AMP + round(y));
|
|
x := x + 1;
|
|
until x > 400
|
|
|
|
end.
|
|
|
|
{ note: If this does not draw a sine in THINK Pascal on Mac II }
|
|
{ note: Project > Compile options : toggle 68881/ 68882 } |