From 7099a35c4c026cb716796c6766a1f64665e4bd5e Mon Sep 17 00:00:00 2001
From: Koichi Yasuoka <yasuoka@kanji.zinbun.kyoto-u.ac.jp>
Date: Sat, 19 Sep 2020 10:00:33 +0900
Subject: [PATCH] redarrowSVG modified

---
 conllusvg/conllusvgRtoL.js | 37 +++++++++++++++++++++++++++++++++++++
 conllusvg/editorRtoL.html  |  2 +-
 2 files changed, 38 insertions(+), 1 deletion(-)

diff --git a/conllusvg/conllusvgRtoL.js b/conllusvg/conllusvgRtoL.js
index 1ac64a3d229..a1ec3f5d910 100644
--- a/conllusvg/conllusvgRtoL.js
+++ b/conllusvg/conllusvgRtoL.js
@@ -243,3 +243,40 @@ conllusvg.writeLinksSVGdouble=function(link){
   t.setAttribute("d","M "+link.toX+" "+link.toY+" l -4 -10 h 8 Z");
   link.svg.appendChild(t);
 }
+conllusvg.redArrowSVG=function(textid){
+  var c=conllusvg.main[textid];
+  var r=c.svg.getBoundingClientRect();
+  var x=c.event.handler.clientX-r.left;
+  var y=c.event.handler.clientY-r.top;
+  var i=x-c.event.startX;
+  var j=y-c.event.startY;
+  var k=Math.sqrt(i*i+j*j);
+  var t;
+  if(k<15){
+    if(c.event.redArrow!=null){
+      c.svg.removeChild(c.event.redArrow);
+      c.svg.removeChild(c.event.redTriangle);
+      c.event.redArrow=c.event.redTriangle=null;
+    }
+    return;
+  }
+  x-=i*5/k;
+  y-=j*5/k;
+  if(c.event.redArrow==null){
+    t=document.createElementNS("http://www.w3.org/2000/svg","path");
+    t.setAttribute("stroke","red");
+    t.setAttribute("fill","none");
+    t.setAttribute("stroke-width",1);
+    t.setAttribute("d","M "+(c.width-c.event.startX)+" "+c.event.startY+" L "+(c.width-x)+" "+y);
+    c.svg.appendChild(t);
+    c.event.redArrow=t;
+    t=document.createElementNS("http://www.w3.org/2000/svg","path");
+    t.setAttribute("fill","red");
+    t.setAttribute("d","M 0 0 l -4 -10 h 8 Z");
+    c.svg.appendChild(t);
+    c.event.redTriangle=t;
+  }
+  else
+    c.event.redArrow.setAttribute("d","M "+(c.width-c.event.startX)+" "+c.event.startY+" L "+(c.width-x)+" "+y);
+  c.event.redTriangle.setAttribute("transform","matrix("+(-j/k)+" "+(-i/k)+" "+(-i/k)+" "+(j/k)+" "+(c.width-x)+" "+y+")");
+}
diff --git a/conllusvg/editorRtoL.html b/conllusvg/editorRtoL.html
index 168b8ef97ae..d0873a8be7f 100644
--- a/conllusvg/editorRtoL.html
+++ b/conllusvg/editorRtoL.html
@@ -2,8 +2,8 @@
 <meta http-equiv="X-UA-Compatible" content="IE=edge" />
 <title>CoNLL-U SVG Editor RtoL by Koichi Yasuoka, September 19, 2020.</title>
 <script src="conllusvgview.js"></script>
-<script src="conllusvgRtoL.js"></script>
 <script src="conllusvgedit.js"></script>
+<script src="conllusvgRtoL.js"></script>
 <script src="conllusvgload.js"></script>
 <script type="text/javascript">
 function editorCheckURL(textid){
-- 
GitLab