Re: Geometric Algorithims

Article View: comp.lang.pascal.misc

Article #88

Back to comp.lang.pascal.misc Previous Next

#88

From: Dr John Stockton
Date: Tue, 25 Jan 2000 00:00

30 lines
2389 bytes

JRS:  In article <388DB645.15D47762@ihug.com.au> of Wed, 26 Jan 2000
01:42:13 in news:comp.lang.pascal.borland, Arash Partow
<arash@ihug.com.au> wrote:

>Well I 've decided to put back into a community that has helped me out
>so much over the years.
>I've developed a set of really fast geometric routines that I would like
>to share with everyone.

Too many newsgroups, in one of which policy bars crossposts (but only
applies when sent to the proper server).  FU set to the two relevant
ones; using the tolerant server.


>Function PntInCircle(Px,Py,x,y,Radius:LongInt):Boolean;
> Begin
>  PntInCircle:=False;
>  If Distance(Px,Py,x,y) <= Radius then PntInCircle:=True
> End;

Function PntInCircle(Px,Py,x,y,Radius:LongInt):Boolean;
Begin PntInCircle:= Distance(Px,Py,x,y) <= Radius End;

is all you need; similarly for others.
 
-- 
� John Stockton, Surrey, UK.  jrs@merlyn.demon.co.uk   Turnpike v4.00   MIME. �
 <URL: http://www.merlyn.demon.co.uk/> TP/BP/Delphi/&c., FAQqy topics & links;
 <URL: ftp://garbo.uwasa.fi/pc/link/tsfaqp.zip> Timo Salmi's Turbo Pascal FAQ;
 <URL: http://www.merlyn.demon.co.uk/clpb-faq.txt> Pedt Scragg: c.l.p.b. mFAQ.

Technical Details

Message-ID: <T58oSVDWWgj4EwAQ@merlyn.demon.co.uk>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <388DB645.15D47762@ihug.com.au>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 10261c,694cfb236e701b33,start
X-Google-Attributes: gid10261c,public
X-Google-Thread: 108ebd,694cfb236e701b33,start
X-Google-Attributes: gid108ebd,public
X-Google-Thread: 10c950,694cfb236e701b33,start
X-Google-Attributes: gid10c950,public
X-Google-Thread: 109fba,694cfb236e701b33,start
X-Google-Attributes: gid109fba,public
X-Google-Thread: 111659,694cfb236e701b33,start
X-Google-Attributes: gid111659,public
From: Dr John Stockton <jrs@merlyn.demon.co.uk>
Subject: Re: Geometric Algorithims
Date: 2000/01/25
Message-ID: <T58oSVDWWgj4EwAQ@merlyn.demon.co.uk>
X-Deja-AN: 577617543
Content-Transfer-Encoding: 8bit
X-NNTP-Posting-Host: merlyn.demon.co.uk:158.152.233.145
References: <388DB645.15D47762@ihug.com.au>
Followup-To: comp.lang.pascal.borland,borland.public.turbopascal
Content-Type: text/plain;charset=iso-8859-1
X-Complaints-To: abuse@demon.net
X-Trace: news.demon.co.uk 948843385 nnrp-13:12553 NO-IDENT merlyn.demon.co.uk:158.152.233.145
Organization: Home, 'Surrey', UK
MIME-Version: 1.0
Newsgroups: comp.lang.pascal.misc,comp.lang.c++,borland.public.turbopascal,comp.lang.pascal.borland,comp.lang.pascal.ansi-iso

Reply to Parent Message