Miscellany

on *:TEXT:!determine *:#: {
  set %x1 $remove($gettok($2,1,44),$chr(40))
  set %x2 $remove($gettok($3,1,44),$chr(40))
  set %x3 $remove($gettok($4,1,44),$chr(40))
  set %y1 $remove($gettok($2,2,44),$chr(41))
  set %y2 $remove($gettok($3,2,44),$chr(41))
  set %y3 $remove($gettok($4,2,44),$chr(41))

  %m = $calc((%y2 - %y1) /  (%x2 - %x1))
  %eqn =  y - %y1 = %m ( x - %x1 ) 
  %eqn1 = %y3 - %y1 = %m ( %x3 - %x1 )

}