From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: Many overlook the possibility sin(x,360.0) ?
Date: Wed, 3 May 2017 09:18:21 +0200
Organization: Aioe.org NNTP Server
Message-ID: <oec07s$an6$1@gioia.aioe.org>
References: <3e7f9789-a0af-4342-a42e-46a6258d7801@googlegroups.com>
 <oe7s8n$1l82$1@gioia.aioe.org> <oe84bp$4hv$1@gioia.aioe.org>
 <516be18c-b83e-457b-8f46-a6d8719e0134@googlegroups.com>
 <3e8fb7a2-e218-4b0e-8a20-174162392093@googlegroups.com>
 <oe9gc6$20o$1@gioia.aioe.org>
 <518cca79-b172-4e96-bca0-b6491cd3c013@googlegroups.com>
NNTP-Posting-Host: vZYCW951TbFitc4GdEwQJg.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101
 Thunderbird/45.8.0
X-Notice: Filtered by postfilter v. 0.8.2
Xref: news.eternal-september.org comp.lang.ada:46663
Date: 2017-05-03T09:18:21+02:00
List-Id: <comp.lang.ada>

On 03/05/2017 06:12, reinert wrote:

> Here is an attempt to make clean code plotting an approximation of a circle
> (using two arguments for cos and sin):
>
>    for i in 0 .. 35 loop
>        vertex(radius * (cos (real (i), 36.0), sin (real (i), 36.0)));
>    end loop;

I would rather:

declare
    Points   : constant := 36;
    To_Angle : constant Real := 2.0 * Pi / Real (Points);
begin
    for i in 0..Points - 1 loop
       declare
          Angle : constant Real := Real (I) * To_Angle;
       begin
          vertex (radius * (cos (Angle), sin (Angle)));
       end;
    end loop;
end;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de