/[suikacvs]/webroot/www/canvas/cis/cis.en.html
Suika

Contents of /webroot/www/canvas/cis/cis.en.html

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download) (as text)
Sat Jan 17 08:51:14 2009 UTC (15 years, 10 months ago) by wakaba
Branch: MAIN
File MIME type: text/html
New

1 wakaba 1.1 <!DOCTYPE HTML>
2     <html lang=en>
3     <title>Canvas</title>
4     <link rel=stylesheet href="/www/style/html/xhtml">
5     <!--[if IE]><script type="text/javascript" src="excanvas.js"></script><![endif]-->
6     <style>
7     p {
8     text-indent: 0 !important;
9     }
10     canvas {
11     border: 10px blue solid;
12     }
13     #statements-para {
14     white-space: pre;
15     white-space: pre-wrap;
16     }
17     input[type=text] {
18     width: 90%;
19     }
20     </style>
21    
22     <h1>Canvas</h1>
23    
24     <form onsubmit=" execute (s.value); return false ">
25     <p id=prompt-para>
26     <input name=s type=text><input type=submit value=OK>
27    
28     <p id=log-para>
29     </form>
30    
31     <div id=canvas-para>
32     <canvas></canvas>
33     </div>
34    
35     <p id=statements-para></p>
36    
37     <script>
38     function execute (s) {
39     if (/^\s*$/.test (s)) {
40     //
41     } else if (/^\s*clear\s*(?:;\s*)?$/.test (s)) {
42     document.forms[0].s.value = '';
43     clearCanvas ();
44     clearStatments ();
45     } else {
46     var canvas = document.getElementsByTagName ('canvas')[0];
47     var ctx = canvas.getContext ('2d');
48     try {
49     eval (s);
50     addStatement (s);
51     document.forms[0].s.value = '';
52     setLog ('');
53     } catch (e) {
54     setLog (e.message || e);
55     }
56     }
57     } // execute
58    
59     function setLog (s) {
60     var lp = document.getElementById ('log-para');
61     lp.innerHTML = 'aa';
62     lp.firstChild.data = s;
63     } // setLog
64    
65     function clearStatements () {
66     var sp = document.getElementById ('statements-para');
67     sp.innerHTML = 'aa';
68     sp.firstChild.data = "var canvas = document.getElementsByTagName ('canvas')[0];\nvar ctx = canvas.getContext ('2d');\n";
69     } // clearStatements
70    
71     function addStatement (s) {
72     if (!/;\s*$/.test (s)) {
73     s += ';';
74     }
75     document.getElementById ('statements-para').innerHTML += s + '\n';
76     } // addStatement
77    
78     function clearCanvas () {
79     document.getElementsByTagName ('canvas')[0].width
80     = document.getElementsByTagName ('canvas')[0].width;
81     }
82    
83     clearStatements ();
84     </script>

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24