Rename custom operator

src/P2D.elm

@@ -30,11 +30,11 @@ segment p1 p2 pos = shift (dot (1.0 - pos) p1) (dot pos p2)
 segmentCat : Segment -> Segment -> Segment
 segmentCat s1 s2 at = if at <= 0.5 then s1 (2.0 * at) else s2 (2.0 * (at - 0.5))
 
-(∘) : P2D -> P2D -> Float
-(∘) p1 p2 = p1.x * p2.x + p1.y * p2.y
+scalarProduct : P2D -> P2D -> Float
+scalarProduct p1 p2 = p1.x * p2.x + p1.y * p2.y
 
 norm : P2D -> Float
-norm vec = sqrt <| vec ∘ vec
+norm vec = sqrt <| scalarProduct vec vec
 
 rad : Float -> Float -> P2D
 rad angle360 distance =

src/TrackA.elm

@@ -56,7 +56,7 @@ trackArcCenter ta =
     --
     -- where 'o' is the composition of matrices.
     let
-      rhs = { x = n1 ∘ ta.p1, y = n2 ∘ ta.p2 } -- right hand side
+      rhs = { x = scalarProduct n1 ta.p1, y = scalarProduct n2 ta.p2 } -- right hand side
       xs = { x = n1.x, y = n2.x } -- first column
       ys = { x = n1.y, y = n2.y } -- second column
       center =