LOGO-L> DISTANCE in UCBLogo

[Yehuda <yehuka@beitberl.ac.il>]

Hi again,

I notice that UCBLogo lacks DISTANCE (needed in my Cardioide program) so here it is, directly from MSWLogo library:
 

to distance :point
localmake "dx (item 1 pos) - (item 1 :point)
localmake "dy (item 2 pos) - (item 2 :point)
output sqrt (:dx*:dx + :dy*:dy)
end

Regards...

[[Yehuda]]

    _/    _/     _/ _/_/_/_/_/ _/_/_/_/
   _/   _/     _/_/    _/          _/
  _/_/_/     _/  _/   _/        _/
 _/   _/   _/_/_/_/  _/      _/
_/     _/_/      _/ _/     _/_/_/_/

http://www.geocities.com/CollegePark/lab/2276/