;returns 2d (0z) or 3d distance between two dots


f04_2d:
.A: f04 -1,+1
.B: f04 +1,-1
f04 ABdist f04[ (.A+0) (.A+4) ] 0 \
           f04[ (.B+0) (.B+4) ] 0
.a=f04[$-4]
.aCheck=sqrt( (f04[.A+0]-f04[.B+0])^2 + (f04[.A+4]-f04[.B+4])^2 )


f08_3d:
.A: f08 -1,+1,-1
.B: f08 +1,-1,+1
f08 ABdist f08[(.A+0)(.A+8)(.A+16)] \
           f08[(.B+0)(.B+8)(.B+16)]
.b=f08[$-8]
.bCheck=sqrt( (f08[.A+0]-f08[.B+0])^2 + (f08[.A+8]-f08[.B+8])^2 + (f08[.A+16]-f08[.B+16])^2 )


f10_3d:
f10 ABdist (-1)(+1)(-1) (+1)(-1)(+1)
.c=f10[$-10]
.cCheck=sqrt( ((-1)-(+1))^2 + ((+1)-(-1))^2 + ((-1)-(+1))^2 )
align 4

