WebSVN – wimsdev – Diff – /trunk/wims/public_html/scripts/js/ASCIIsvg.js

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2 of the License, or (at
 your option) any later version.
 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 General Public License (at http://www.gnu.org/copyleft/gpl.html)
 for more details.*/
 var checkIfSVGavailable = true;
 var notifyIfNoSVG = true;
 var alertIfNoSVG = false;
 var pi = Math.PI, ln = Math.log, e = Math.E;
 var arcsin = Math.asin, arccos = Math.acos, arctan = Math.atan;
 var sec = function(x) { return 1/Math.cos(x) };
 var csc = function(x) { return 1/Math.sin(x) };
 var cot = function(x) { return 1/Math.tan(x) };
 var xmin, xmax, ymin, ymax, xscl, yscl,
     xgrid, ygrid, xtick, ytick, initialized;
 var isIE = document.createElementNS==null;
 var picture, svgpicture, doc, width, height, a, b, c, d, i, n, p, t, x, y;
 var arcsec = function(x) { return arccos(1/x) };
 var arccsc = function(x) { return arcsin(1/x) };
 var arccot = function(x) { return arctan(1/x) };
 var sinh = function(x) { return (Math.exp(x)-Math.exp(-x))/2 };
 var cosh = function(x) { return (Math.exp(x)+Math.exp(-x))/2 };
 var tanh =
   function(x) { return (Math.exp(x)-Math.exp(-x))/(Math.exp(x)+Math.exp(-x)) };
 var sech = function(x) { return 1/cosh(x) };
 var csch = function(x) { return 1/sinh(x) };
 var coth = function(x) { return 1/tanh(x) };
 var arcsinh = function(x) { return ln(x+Math.sqrt(x*x+1)) };
   an = myCreateElementXHTML("a");
   an.appendChild(document.createTextNode("SVG enabled Mozilla/Firefox"));
   an.setAttribute("href",
     "http://www.chapman.edu/~jipsen/svg/svgenabledmozillafirefox.html");
   nd.appendChild(an);
   if (navigator.appName.slice(0,8)=="Netscape")
     if (window['SVGElement']) return null;
     else return nd;
   else if (navigator.appName.slice(0,9)=="Microsoft")
     try {
       var oSVG=eval("new ActiveXObject('Adobe.SVGCtl.3');");
-        return null;
+      return null;
     } catch (e) {
-        return nd;
+      return nd;
+    }
   else return nd;
+}
 function less(x,y) { return x < y }  // used for scripts in XML files
                                      // since IE does not handle CDATA well
 function setText(st,id) {
   var node = document.getElementById(id);
   if (node!=null)
     if (node.childNodes.length!=0) node.childNodes[0].nodeValue = st;
     else node.appendChild(document.createTextNode(st));
+}
 function top_listener(evt) {
   svgpicture.setAttribute("ybase",evt.clientY);
+}
 function bottom_listener(evt) {
   svgpicture.setAttribute("ybase",evt.clientY-height+1);
+}
 function left_listener(evt) {
   svgpicture.setAttribute("xbase",evt.clientX);
     if (pictures[index].className=="ASCIIsvg"){
       pictures[index].style.display="none";  // hide the textarea
+    }
   pictures = document.getElementsByTagName("embed");
   var len = pictures.length;
- if (checkIfSVGavailable) {
+  if (checkIfSVGavailable) {
-  nd = isSVGavailable();
+    nd = isSVGavailable();
-  if (nd != null && notifyIfNoSVG && len>0)
+    if (nd != null && notifyIfNoSVG && len>0)
-    if (alertIfNoSVG)
+      if (alertIfNoSVG)
-      alert("To view the SVG pictures in Internet Explorer\n\
+        alert("To view the SVG pictures in Internet Explorer\n\
 download the free Adobe SVGviewer from www.adobe.com/svg or\n\
 use Firefox 1.5 preview (called Deerpark)");
-    else {
+      else {
-    var ASbody = document.getElementsByTagName("body")[0];
+        var ASbody = document.getElementsByTagName("body")[0];
-    ASbody.insertBefore(nd,ASbody.childNodes[0]);
+        ASbody.insertBefore(nd,ASbody.childNodes[0]);
-  }
+      }
- }
+  }
- if (nd == null) {
+  if (nd == null) {
-  for (index = 0; index < len; index++) {
+    for (index = 0; index < len; index++) {
-    xmin = null; xmax = null; ymin = null; ymax = null;
+      xmin = null; xmax = null; ymin = null; ymax = null;
-    xscl = null; xgrid = null; yscl = null; ygrid = null;
+      xscl = null; xgrid = null; yscl = null; ygrid = null;
-    initialized = false;
+      initialized = false;
-    picture = (isIE ? pictures[index] : pictures[0]);
+      picture = (isIE ? pictures[index] : pictures[0]);
-    src = picture.getAttribute("script");
+      src = picture.getAttribute("script");
-    if (src==null) src = "";
+      if (src==null) src = "";
-    ht = picture.getAttribute("height");
+      ht = picture.getAttribute("height");
-    if (ht==null) ht ="";
+      if (ht==null) ht ="";
-   if (ht!="") defaultborder = 25;
+      if (ht!="") defaultborder = 25;
-   if (ht=="" || src=="")
+      if (ht=="" || src=="")
-    if (document.getElementById("picture"+(index+1)+"input")==null) {
+        if (document.getElementById("picture"+(index+1)+"input")==null) {
-      if (isIE && src.indexOf("nobutton()")==-1)
+          if (isIE && src.indexOf("nobutton()")==-1)
-        picture.parentNode.insertBefore(myCreateElementXHTML("br"),picture);
+            picture.parentNode.insertBefore(myCreateElementXHTML("br"),picture);
-      node = myCreateElementXHTML("textarea");
+          node = myCreateElementXHTML("textarea");
-      node.setAttribute("rows","10");
+          node.setAttribute("rows","10");
-      node.setAttribute("cols","60");
+          node.setAttribute("cols","60");
-//      node.setAttribute("style","display:block");
+          // node.setAttribute("style","display:block");
-      if (isIE) src = src.replace(/([^\r])\n/g,"$1\r").slice(1);
+          if (isIE) src = src.replace(/([^\r])\n/g,"$1\r").slice(1);
-      node.appendChild(document.createTextNode(src));
+          node.appendChild(document.createTextNode(src));
-      if (src.indexOf("showcode()")==-1) node.style.display = "none";
+          if (src.indexOf("showcode()")==-1) node.style.display = "none";
-      node.setAttribute("id","picture"+(index+1)+"input");
+          node.setAttribute("id","picture"+(index+1)+"input");
-      picture.parentNode.insertBefore(node,picture);
+          picture.parentNode.insertBefore(node,picture);
-      if (src.indexOf("nobutton()")==-1) {
+          if (src.indexOf("nobutton()")==-1) {
-        picture.parentNode.insertBefore(myCreateElementXHTML("br"),picture);
+            picture.parentNode.insertBefore(myCreateElementXHTML("br"),picture);
-        node = myCreateElementXHTML("button");
-        if (isIE) node.onclick = function() { showHideCode(this) };
-        else node.setAttribute("onclick","showHideCode(this)");
-        node.appendChild(document.createTextNode("Show/Hide"));
-        picture.parentNode.insertBefore(node,picture);
-        node = myCreateElementXHTML("button");
+            node = myCreateElementXHTML("button");
-        if (isIE) node.onclick = ASfn[index];
+            if (isIE) node.onclick = function() { showHideCode(this) };
-        else node.setAttribute("onclick","updatePicture("+index+")");
+            else node.setAttribute("onclick","showHideCode(this)");
-        node.appendChild(document.createTextNode("Update"));
+            node.appendChild(document.createTextNode("Show/Hide"));
-        if (src.indexOf("showCode()")==-1) node.style.display = "none";
-        picture.parentNode.insertBefore(node,picture);
+            picture.parentNode.insertBefore(node,picture);
-/*      node = myCreateElementXHTML("span");
+            node = myCreateElementXHTML("button");
+            if (isIE) node.onclick = ASfn[index];
-//      node.setAttribute("id","AScoord"+index);
+            else node.setAttribute("onclick","updatePicture("+index+")");
-        node.appendChild(document.createTextNode("(x,y)"));
+            node.appendChild(document.createTextNode("Update"));
+            if (src.indexOf("showCode()")==-1) node.style.display = "none";
-        picture.parentNode.insertBefore(node,picture);
+            picture.parentNode.insertBefore(node,picture);
-*/
+            /* node = myCreateElementXHTML("span");
+            // node.setAttribute("id","AScoord"+index);
+               node.appendChild(document.createTextNode("(x,y)"));
+               picture.parentNode.insertBefore(node,picture);
+            */
-        picture.parentNode.insertBefore(myCreateElementXHTML("br"),picture);
+            picture.parentNode.insertBefore(myCreateElementXHTML("br"),picture);
+          }
+          if (isIE) picture.onmousemove = ASupdateCoords[index];
+          else picture.setAttribute("onmousemove","updateCoords"+index+"()");
+        } else src = document.getElementById("picture"+(index+1)+"input").value;
+      src = src.replace(/plot\(\x20*([^\"f\[][^\n\r]+?)\,/g,"plot\(\"$1\",");
+      src = src.replace(/plot\(\x20*([^\"f\[][^\n\r]+)\)/g,"plot(\"$1\")");
+      src = src.replace(/([0-9])([a-zA-Z])/g,"$1*$2");
+      src = src.replace(/\)([\(0-9a-zA-Z])/g,"\)*$1");
+      //    eval(src.replace(/\s\s/g,";")); //for XML version
+      id = picture.getAttribute("id");
+      dsvg = picture.getAttribute("src");
+      onmov = picture.getAttribute("onmousemove");
+      if (id == null || id == "") {
+        id = "picture"+(index+1);
+        picture.setAttribute("id",id);
+      }
-      if (isIE) picture.onmousemove = ASupdateCoords[index];
-      else picture.setAttribute("onmousemove","updateCoords"+index+"()");
-    } else src = document.getElementById("picture"+(index+1)+"input").value;
-    src = src.replace(/plot\(\x20*([^\"f\[][^\n\r]+?)\,/g,"plot\(\"$1\",");
-    src = src.replace(/plot\(\x20*([^\"f\[][^\n\r]+)\)/g,"plot(\"$1\")");
-    src = src.replace(/([0-9])([a-zA-Z])/g,"$1*$2");
-    src = src.replace(/\)([\(0-9a-zA-Z])/g,"\)*$1");
-//    eval(src.replace(/\s\s/g,";")); //for XML version
-    id = picture.getAttribute("id");
-    dsvg = picture.getAttribute("src");
-    onmov = picture.getAttribute("onmousemove");
-    if (id == null || id == "") {
-      id = "picture"+(index+1);
-      picture.setAttribute("id",id);
-    }
-    try {
+      try {
-      with (Math) eval(src);
+        with (Math) eval(src);
-    } catch(err) {alert(err+"\n"+src)}
+      } catch(err) {alert(err+"\n"+src)}
-    if (isIE) src = src.replace(/([^\r])\n/g,"$1\r");
+      if (isIE) src = src.replace(/([^\r])\n/g,"$1\r");
-    setText("<embed width=\""+width+"\" height=\""+height+"\" src=\""+
+      setText("<embed width=\""+width+"\" height=\""+height+"\" src=\""+
             dsvg+"\" "+(onmov!=null?"onmousemove=\""+onmov+"\"":"")+
             (isIE?"\r":"\n")+"script=\'"+src+"\'>",id+"script");
-//    setText(src.replace(/\s\s/g,"\r"),id+"script"); //for XML version
+      //    setText(src.replace(/\s\s/g,"\r"),id+"script"); //for XML version
+    }
+  }
- }
+}
 function switchTo(id) {
 //alert(id);
   picture = document.getElementById(id);
   if ((picture.nodeName == "EMBED" || picture.nodeName == "embed") && isIE) {
     svgpicture = picture.getSVGDocument().getElementById("root");
     doc = picture.getSVGDocument();
   } else {
     picture.setAttribute("onmousemove","updateCoords"+(id.slice(id.length-1)-1)+"()");
-//alert(picture.getAttribute("onmousemove")+"***");
+    //alert(picture.getAttribute("onmousemove")+"***");
     svgpicture = picture;
     doc = document;
+  }
   xunitlength = svgpicture.getAttribute("xunitlength")-0;
   yunitlength = svgpicture.getAttribute("yunitlength")-0;
   switchTo((typeof obj=="string"?obj.slice(0,8):"picture"+(obj+1)));
   src = src.replace(/plot\(\x20*([^\"f\[][^\n\r]+?)\,/g,"plot\(\"$1\",");
   src = src.replace(/plot\(\x20*([^\"f\[][^\n\r]+)\)/g,"plot(\"$1\")");
   src = src.replace(/([0-9])([a-zA-Z])/g,"$1*$2");
   src = src.replace(/\)([\(0-9a-zA-Z])/g,"\)*$1");
-//alert(src);
+  //alert(src);
   try {
     with (Math) eval(src);
   } catch(err) {alert(err+"\n"+src)}
+}
 function showHideCode(obj) {
   var node = obj.nextSibling;
   while (node != null && node.nodeName != "BUTTON" &&
     node.nodeName != "button") node = node.nextSibling;
   if (node.style.display == "none") node.style.display = "";
   else node.style.display = "none";
   while (node != null && node.nodeName != "TEXTAREA" &&
     node.nodeName != "textarea") node = node.previousSibling;
   if (node.style.display == "none") node.style.display = "";
   else node.style.display = "none";
 //  updatePicture(node.getAttribute("id"));
+}
   if (x_max!=null) xmax = x_max;
   if (y_min!=null) ymin = y_min;
   if (y_max!=null) ymax = y_max;
   if (xmin==null) xmin = -5;
   if (xmax==null) xmax = 5;
  if (typeof xmin != "number" || typeof xmax != "number" || xmin >= xmax)
    alert("Picture requires at least two numbers: xmin < xmax");
  else if (y_max != null && (typeof y_min != "number" ||
           typeof y_max != "number" || y_min >= y_max))
    alert("initPicture(xmin,xmax,ymin,ymax) requires numbers ymin < ymax");
  else {
   if (width==null) width = picture.getAttribute("width");
   else picture.setAttribute("width",width);
     origin = [-xmin*xunitlength+border,-ymin*yunitlength+border];
+  }
 //  if (true ||picture.nodeName == "EMBED" || picture.nodeName == "embed") {
     if (isIE) {
       svgpicture = picture.getSVGDocument().getElementById("root");
       while (svgpicture.childNodes.length()>5)
         svgpicture.removeChild(svgpicture.lastChild);
       svgpicture.setAttribute("width",width);
       svgpicture.setAttribute("height",height);
       doc = picture.getSVGDocument();
     } else {
       var qnode = document.createElementNS("http://www.w3.org/2000/svg","svg");
+  }
   node.setAttribute("d","M"+(p[0]*xunitlength+origin[0])+","+
     (height-p[1]*yunitlength-origin[1])+" "+
     (q[0]*xunitlength+origin[0])+","+(height-q[1]*yunitlength-origin[1]));
   node.setAttribute("stroke-width", strokewidth);
   if (strokedasharray!=null)
     node.setAttribute("stroke-dasharray", strokedasharray);
   node.setAttribute("stroke", stroke);
   node.setAttribute("fill", fill);
   if (marker=="dot" || marker=="arrowdot") {
     ASdot(p,4,markerstroke,markerfill);
       st += (plist[i][0]*xunitlength+origin[0])+","+
             (height-plist[i][1]*yunitlength-origin[1])+" ";
+  }
   node.setAttribute("d", st);
   node.setAttribute("stroke-width", strokewidth);
   if (strokedasharray!=null)
     node.setAttribute("stroke-dasharray", strokedasharray);
   node.setAttribute("stroke", stroke);
   node.setAttribute("fill", fill);
   if (marker=="dot" || marker=="arrowdot")
     for (i=0; i<plist.length; i++)
   node.setAttribute("stroke-width", strokewidth);
   node.setAttribute("stroke", stroke);
   node.setAttribute("fill", fill);
+}
 function loop(p,d,id) {
 // d is a direction vector e.g. [1,0] means loop starts in that direction
   if (d==null) d=[1,0];
   path([p,[p[0]+d[0],p[1]+d[1]],[p[0]-d[1],p[1]+d[0]],p],id,"C");
   if (marker=="arrow" || marker=="arrowdot")
     arrowhead([p[0]+Math.cos(1.4)*d[0]-Math.sin(1.4)*d[1],
                p[1]+Math.sin(1.4)*d[0]+Math.cos(1.4)*d[1]],p);
+}
 function arc(start,end,radius,id) { // coordinates in units
   node.setAttribute("stroke", stroke);
   node.setAttribute("fill", fill);
+}
 function rect(p,q,id,rx,ry) { // opposite corners in units, rounded by radii
   var node;
   if (id!=null) node = doc.getElementById(id);
   if (node==null) {
     node = myCreateElementSVG("rect");
     node.setAttribute("id", id);
     svgpicture.appendChild(node);
+  }
       dx = fontsize/2;
+    }
     if (pos.slice(0,4)=="left" || pos.slice(5,9)=="left") {
       textanchor = "end";
       dx = -fontsize/2;
     }
   }
   var node;
   if (id!=null) node = doc.getElementById(id);
   if (node==null) {
     node = myCreateElementSVG("text");
     node.setAttribute("id", id);
   node.setAttribute("font-weight",fontweight);
   node.setAttribute("text-anchor",textanchor);
   if (fontstroke!="none") node.setAttribute("stroke",fontstroke);
   if (fontfill!="none") node.setAttribute("fill",fontfill);
   return p;
 }
 function ASdot(center,radius,s,f) { // coordinates in units, radius in pixel
   if (s==null) s = stroke; if (f==null) f = fill;
   var node = myCreateElementSVG("circle");
   node.setAttribute("cx",center[0]*xunitlength+origin[0]);
   node.setAttribute("cy",height-center[1]*yunitlength-origin[1]);
       node.setAttribute("d",
         " M "+(cx-ticklength)+" "+cy+" L "+(cx+ticklength)+" "+cy+
         " M "+cx+" "+(cy-ticklength)+" L "+cx+" "+(cy+ticklength));
       node.setAttribute("stroke-width", .5);
       node.setAttribute("stroke", axesstroke);
     } else {
       if (typ=="-") node.setAttribute("d",
         " M "+(cx-ticklength)+" "+cy+" L "+(cx+ticklength)+" "+cy);
       else node.setAttribute("d",
         " M "+cx+" "+(cy-ticklength)+" L "+cx+" "+(cy+ticklength));
       node.setAttribute("stroke-width", strokewidth);
     node.setAttribute("r",dotradius);
     node.setAttribute("stroke-width", strokewidth);
     node.setAttribute("stroke", stroke);
     node.setAttribute("fill", (typ=="open"?"white":stroke));
+  }
   if (label!=null)
     text(center,label,(pos==null?"below":pos),(id==null?id:id+"label"))
+}
 function arrowhead(p,q) { // draw arrowhead at q (in units)
   var up;
       (w[1]-15*u[1]-4*up[1])+" L "+(w[0]-3*u[0])+" "+(w[1]-3*u[1])+" L "+
       (w[0]-15*u[0]+4*up[0])+" "+(w[1]-15*u[1]+4*up[1])+" z");
     node.setAttribute("stroke-width", markerstrokewidth);
     node.setAttribute("stroke", stroke); /*was markerstroke*/
     node.setAttribute("fill", stroke); /*was arrowfill*/
     svgpicture.appendChild(node);
+  }
+}
 function chopZ(st) {
   var k = st.indexOf(".");
   st = st.replace(/([^a-zA-Z])e([^a-zA-Z])/g,"$1(E)$2");
   st = st.replace(/([0-9])([\(a-zA-Z])/g,"$1*$2");
   st = st.replace(/\)([\(0-9a-zA-Z])/g,"\)*$1");
   var i,j,k, ch, nested;
   while ((i=st.indexOf("^"))!=-1) {
     //find left argument
     if (i==0) return "Error: missing argument";
     j = i-1;
     ch = st.charAt(j);
     if (ch>="0" && ch<="9") {// look for (decimal) number
       j--;
       while (j>=0 && (ch=st.charAt(j))>="0" && ch<="9") j--;
       if (ch==".") {
         j--;
         while (j>=0 && (ch=st.charAt(j))>="0" && ch<="9") j--;
       }
     } else if (ch==")") {// look for matching opening bracket and function name
       nested = 1;
       j--;
       while (j>=0 && nested>0) {
         ch = st.charAt(j);
         if (ch=="(") nested--;
         else if (ch==")") nested++;
         j--;
       }
       while (j>=0 && (ch=st.charAt(j))>="a" && ch<="z" || ch>="A" && ch<="Z")
         j--;
     } else if (ch>="a" && ch<="z" || ch>="A" && ch<="Z") {// look for variable
       j--;
       while (j>=0 && (ch=st.charAt(j))>="a" && ch<="z" || ch>="A" && ch<="Z")
         j--;
     } else {
       return "Error: incorrect syntax in "+st+" at position "+j;
+    }
     //find right argument
     if (i==st.length-1) return "Error: missing argument";
     k = i+1;
+      }
     } else if (ch>="a" && ch<="z" || ch>="A" && ch<="Z") {// look for variable
       k++;
       while (k<st.length && (ch=st.charAt(k))>="a" && ch<="z" ||
                ch>="A" && ch<="Z") k++;
     } else {
       return "Error: incorrect syntax in "+st+" at position "+k;
+    }
     st = st.slice(0,j+1)+"pow("+st.slice(j+1,i)+","+st.slice(i+1,k)+")"+
            st.slice(k);
+  }
     //find left argument
     if (i==0) return "Error: missing argument";
     j = i-1;
     ch = st.charAt(j);
     if (ch>="0" && ch<="9") {// look for (decimal) number
       j--;
       while (j>=0 && (ch=st.charAt(j))>="0" && ch<="9") j--;
       if (ch==".") {
         j--;
         while (j>=0 && (ch=st.charAt(j))>="0" && ch<="9") j--;
+      }
         j--;
     } else if (ch>="a" && ch<="z" || ch>="A" && ch<="Z") {// look for variable
       j--;
       while (j>=0 && (ch=st.charAt(j))>="a" && ch<="z" || ch>="A" && ch<="Z")
         j--;
     } else {
       return "Error: incorrect syntax in "+st+" at position "+j;
+    }
     st = st.slice(0,j+1)+"factorial("+st.slice(j+1,i)+")"+st.slice(i+1);
+  }
   return st;
 function plot(fun,x_min,x_max,points,id) {
   var pth = [];
   var f = function(x) { return x }, g = fun;
   var name = null;
   if (typeof fun=="string")
     eval("g = function(x){ with(Math) return "+mathjs(fun)+" }");
   else if (typeof fun=="object") {
     eval("f = function(t){ with(Math) return "+mathjs(fun[0])+" }");
     eval("g = function(t){ with(Math) return "+mathjs(fun[1])+" }");
+  }
   return p;
+}
 function slopefield(fun,dx,dy) {
   var g = fun;
   if (typeof fun=="string")
     eval("g = function(x,y){ with(Math) return "+mathjs(fun)+" }");
   var gxy,x,y,u,v,dz;
   if (dx==null) dx=1;
   if (dy==null) dy=1;
   dz = Math.sqrt(dx*dx+dy*dy)/6;
   function() {updateCoords(6)},
   function() {updateCoords(7)},
   function() {updateCoords(8)},
   function() {updateCoords(9)}];
 // GO1.1 Generic onload by Brothercake
 // http://www.brothercake.com/
 //onload function
 function generic()
+{
   drawPictures();

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/js/ASCIIsvg.js – Rev 20 → 13572