mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2025-01-14 05:31:11 +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 }
|