From 802d0c36cccff5266e8ade2b82fcb0cacdf92559 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@sugarlabs.org>
Date: Fri, 01 Nov 2013 20:11:34 +0000
Subject: add clean block to ensure drawing happens in correct place

---
(limited to 'samples')

diff --git a/samples/media-music-keyboard.tb b/samples/media-music-keyboard.tb
index a525d33..6ac5eae 100644
--- a/samples/media-music-keyboard.tb
+++ b/samples/media-music-keyboard.tb
@@ -1,4 +1,4 @@
-[[0, ["start", 2.0], 160, 200, [null, 110]],
+[[0, ["start", 2.0], 160, 200, [null, 130]],
 [1, ["until", 63], 600, 254, [38, 22, 25, 28]],
 [2, ["forever", 230], 160, 330, [112, 40, null]],
 [3, "sinewave", 178, 698, [20, 36, 10, 4, 11]],
@@ -108,7 +108,7 @@
 [107, "ycor", 929, 1565, [101, null]],
 [108, "hat", 1096, 195, [null, 109, 114]],
 [109, ["string", "select notes"], 1154, 207, [108, null]],
-[110, "stack", 160, 246, [0, 111, 112]],
+[110, "stack", 160, 246, [130, 111, 112]],
 [111, ["string", "select notes"], 218, 246, [110, null]],
 [112, "stack", 160, 288, [110, 113, 2]],
 [113, ["string", "draw keyboard"], 218, 288, [112, null]],
@@ -127,4 +127,5 @@
 [126, "push", 1096, 501, [124, 127, 128]],
 [127, ["number", 26.0], 1154, 501, [126, null]],
 [128, "push", 1096, 543, [126, 129, null]],
-[129, ["number", 24], 1154, 543, [128, null]]]
+[129, ["number", 24], 1154, 543, [128, null]],
+[130, "clean", 853, 1149, [0, 110]]]
\ No newline at end of file
--
cgit v0.9.1