\class {field}
\name {wave}
\parent {}
\children {wave.sb}
\script {
	switch (arg[0]) {
	case "graph":
		f = float(arg[1]);
		xx = width();
		r  = height() / 2.0;
		theta = 0;
		for (x = 20; x < xx; x += 2) {
			theta = theta + 0.1;
			y = sin(theta * f) * r + r;
			drawLine(x, y, x, y + 1);
		}
		return;
	break;
	}
	usual();
}
\width {300}
\height {200}
\
\class {slider}
\name {wave.sb}
\parent {wave}
\script {
	switch (arg[0]) {
	case "_shownPositionV":
		usual();
		send(parent(), "graph", arg[1]);
		return;
	break;
	}
	usual();
}
\x {2}
\y {2}
\width {15}
\height {200}
\shownSizeV {10}
\