Deriving an angle from three points

[Jacques Hausser]

I really should re-read my mails before sending them :-(
I cannot copy and paste scripts directly into mails (I don't know why) so I rewrite them... with bugs !

in function calcangle the line

if SurfaceTriangle (a,c,b) then

should be

if SurfaceTriangle(a,c,b) > 0 then

... but you corrected it already !

Jacques-in-the-moon

******************************************
Prof. Jacques Hausser
Department of Ecology and Evolution
Biophore / Sorge
University of Lausanne
CH 1015 Lausanne
please use my private address:
6 route de Burtigny
CH-1269 Bassins
tel/fax: 	++ 41 22 366 19 40
mobile:	++ 41 79 757 05 24
E-Mail:	jacques.hausser at unil.ch
*******************************************