Skip to content

Instantly share code, notes, and snippets.

View tkojitu's full-sized avatar

aka. bakaiku or @gdgdiler tkojitu

View GitHub Profile
@tkojitu
tkojitu / drawline.html
Created October 21, 2012 11:00
draw lines in a canvas. translate event coord to canvas coord.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="viewport" content="initial-scale=1.0, minimum-scale=1.0, maximum-scale=1.0, width=device-width, target-densitydpi=device-dpi">
<title>Draw Lines</title>
<style>
body {
margin: 0px;
padding: 0px;
}
@tkojitu
tkojitu / ripple.html
Created October 21, 2012 15:32
touch the canvas to ripple.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="viewport" content="initial-scale=1.0, minimum-scale=1.0, maximum-scale=1.0, width=device-width, target-densitydpi=device-dpi">
<title>Ripple</title>
<style>
canvas {
border: 1px solid #9C9898;
}
</style>
@tkojitu
tkojitu / run.html
Created October 25, 2012 14:16
Run!
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="viewport" content="initial-scale=1.0, minimum-scale=1.0, maximum-scale=1.0, width=device-width, target-densitydpi=device-dpi">
<title>Run!</title>
<style>
canvas {
border: 1px solid #9C9898;
}
</style>
@tkojitu
tkojitu / AppendFile.vbs
Created November 30, 2012 09:20
How to append text in VBScript.
Sub AppendFile(inFilepath, outFilepath)
On Error Resume Next
ForAppending = 8
Set output = gFileSystem.OpenTextFile(outFilepath, ForAppending, True)
Set input = gFileSystem.OpenTextFile(inFilepath)
Do Until input.AtEndOfStream = true
line = input.ReadLine
output.WriteLine line
Loop
input.Close
@tkojitu
tkojitu / calc3.rb
Last active December 11, 2015 22:19
from "The AWK Programming Language" (A.V.Aho, B.W.Kernighan, P.J.Weinberger) recursive descendent parser
# from "The AWK Programming Language" (A.V.Aho, B.W.Kernighan, P.J.Weinberger)
# recursive descendent parser
def expr
e = term
while $tokens[$index] == "+" || $tokens[$index] == "-"
$index += 1
e = ($tokens[$index - 1] == "+") ? e + term : e - term
end
return e
@tkojitu
tkojitu / calc4.java
Created January 30, 2013 15:57
recursive descendent parsing. LL(1). removing left recursion.
package llcalc;
import java.util.StringTokenizer;
class Expr {
Term term;
Expr2 expr2;
Expr(Term term, Expr2 expr2) {
this.term = term;
this.expr2 = expr2;
@tkojitu
tkojitu / SoundGraph.rb
Created November 12, 2013 05:35
SoundGraph.rb
include Java
import javax.swing.SwingUtilities
import javax.swing.JFrame
import javax.swing.JPanel
import javax.swing.BorderFactory
import java.awt.Color
import java.awt.Dimension
import java.awt.Graphics
<html>
<head>
<script type="text/javascript" language="JavaScript" src="js.js"></script>
</head>
<body onload="onLoad();">
<canvas id="canvas" style="border:1px solid #000000;"></canvas>
</body>
</html>
<!DOCTYPE html>
<html>
<head>
<title>Rotate Cube</title>
<style>
</style>
<script type="text/javascript" src="../libs/three.js"></script>
<script type="text/javascript" src="rotate-cube.js"></script>
<style>
body{
<!DOCTYPE html>
<html>
<head>
<script type="text/javascript" src="../libs/three.js"></script>
<script src="bouncing-ball-3d.js"></script>
<style>
body{
margin: 0;
overflow: hidden;
}