<blocksapp="Snap! 4.2, http://snap.berkeley.edu"version="1"><block-definitions="label %'text' of size %'size'"type="command"category="pen"><commentx="0"y="0"w="90"collapsed="false">LABEL will stamp text on the stage at the given font size. The direction of the text is the direction the sprite is facing, and color will match the pen color.</comment><header></header><code></code><translations>de:drucke _ in Größe _
ca:etiqueta _ de mida _
es:etiqueta _ de tamaño _
fr:étiquette _ d'une taille de _
</translations><inputs><inputtype="%txt">Hello!</input><inputtype="%n">12</input></inputs><script><blocks="doRun"><blocks="reportJSFunction"><list><l>text</l><l>size</l></list><l>var stage = this.parentThatIsA(StageMorph),
 context = stage.penTrails().getContext('2d'),
 rotation = radians(this.direction() - 90),
 trans = new Point(
 this.center().x - stage.left(),
 this.center().y - stage.top()
 ),
 isWarped = this.Warped,
 len,
 pos;

if (isWarped) {endWarp(); }
context.save();
context.font = size + 'px monospace';
context.textAlign = 'left';
context.textBaseline = 'alphabetic';
context.fillStyle = this.color.toString();
len = context.measureText(text).width;
trans = trans.multiplyBy(1 / stage.scale);
context.translate(trans.x, trans.y);
context.rotate(rotation);
context.fillText(text, 0, 0);
context.translate(-trans.x, -trans.y);
context.restore();
pos = new Point(
 len * Math.sin(radians(this.direction())),
 len * Math.cos(radians(this.direction())));
pos = pos.add(new Point(this.xPosition(), this.yPosition()));
this.gotoXY(pos.x, pos.y, false);
this.changed();
if (isWarped) {this.startWarp(); }
stage.changed();</l></block><list><blockvar="text"/><blockvar="size"/></list></block></script></block-definition><block-definitions="empty? %'data'"type="predicate"category="lists"><header></header><code></code><translations>de:ist _ leer?
ca:_ buida?
es:_ vacía?
fr:_ vide?
</translations><inputs><inputtype="%l"></input></inputs><script><blocks="doReport"><blocks="reportEquals"><blockvar="data"/><blocks="reportNewList"><list></list></block></block></block></script></block-definition><block-definitions="keep items such that %'pred' from %'data'"type="reporter"category="lists"><header></header><code></code><translations>de:behalte Elemente, die _ aus _
ca:manté els elements on _ de _
es:mantener los elementos donde _ de _
fr:garder les items tels que _ de _
</translations><inputs><inputtype="%predRing"></input><inputtype="%l"></input></inputs><script><blocks="doIf"><custom-blocks="empty? %l"><blockvar="data"/></custom-block><script><blocks="doReport"><blocks="reportNewList"><list></list></block></block></script></block><blocks="doIfElse"><blocks="evaluate"><blockvar="pred"/><list><blocks="reportListItem"><l>1</l><blockvar="data"/></block></list></block><script><blocks="doReport"><blocks="reportCONS"><blocks="reportListItem"><l>1</l><blockvar="data"/></block><custom-blocks="keep items such that %predRing from %l"><blockvar="pred"/><blocks="reportCDR"><blockvar="data"/></block></custom-block></block></block></script><script><blocks="doReport"><custom-blocks="keep items such that %predRing from %l"><blockvar="pred"/><blocks="reportCDR"><blockvar="data"/></block></custom-block></block></script></block></script></block-definition><block-definitions="combine with %'function' items of %'data'"type="reporter"category="lists"><header></header><code></code><translations>de:kombiniere mit _ die Elemente von _
ca:combina amb _ els elements de _
es:combinar con _ los elementos de _
fr:combine avec _ les items de _
</translations><inputs><inputtype="%repRing"></input><inputtype="%l"></input></inputs><script><blocks="doIf"><custom-blocks="empty? %l"><blocks="
