[Oberon] Oberon-7 - Circle Segments

Tomas Kral thomas.kral at email.cz
Tue Feb 19 18:23:23 CET 2019


On Tue, 19 Feb 2019 18:08:54 +0100
Tomas Kral <thomas.kral at email.cz> wrote:

> circle into 12
> segments

Looking at V4 `ClockElem' I see this

  PROCEDURE Init;
    VAR i: INTEGER;
  BEGIN i := 0;
    WHILE i < 60 DO
      sin[i] := Math.sin(2 * Math.pi / 60 * i);
      cos[i] := Math.cos(2 * Math.pi / 60 * i);
      INC(i)
    END
  END Init;

I probably cannot do without trigonometry, right?

-- 
Tomas Kral <thomas.kral at email.cz>


More information about the Oberon mailing list