suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add optional color argument to empty-scene

Browse Source
This commit is contained in:
Emmanuel Schanzer 2015-02-02 08:27:44 -05:00
parent 7ca1988f98
commit 085494978f
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
whalesong/image/private/js-impl.js
View File

@ -633,12 +633,14 @@ EXPORTS['above/align'] =
EXPORTS['empty-scene'] = EXPORTS['empty-scene'] =
makePrimitiveProcedure( makePrimitiveProcedure(
'empty-scene', 'empty-scene',
2, plt.baselib.lists.makeList(2, 3),
function(MACHINE) { function(MACHINE) {
var width = checkNonNegativeReal(MACHINE, 'empty-scene', 0); var width = checkNonNegativeReal(MACHINE, 'empty-scene', 0);
var height = checkNonNegativeReal(MACHINE, 'empty-scene', 1); var height = checkNonNegativeReal(MACHINE, 'empty-scene', 1);
return makeSceneImage(jsnums.toFixnum(width), var color = (MACHINE.a===3)? checkColor(MACHINE, 'empty-scene', 2) : null;
return makeSceneImage(jsnums.toFixnum(width),
jsnums.toFixnum(height), jsnums.toFixnum(height),
color,
[], [],
true); true);
}); });

10
whalesong/image/private/kernel.js
View File

@ -288,18 +288,19 @@ var isScene = function(x) {
////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////
// SceneImage: primitive-number primitive-number (listof image) -> Scene // SceneImage: primitive-number primitive-number color (listof image) -> Scene
var SceneImage = function(width, height, children, withBorder) { var SceneImage = function(width, height, color, children, withBorder) {
BaseImage.call(this); BaseImage.call(this);
this.width = width; this.width = width;
this.height = height; this.height = height;
this.children = children; // arrayof [image, number, number] this.children = children; // arrayof [image, number, number]
this.withBorder = withBorder; this.withBorder = withBorder;
this.color = color;
}; };
SceneImage.prototype = heir(BaseImage.prototype); SceneImage.prototype = heir(BaseImage.prototype);
// add: image primitive-number primitive-number -> Scene // add: image primitive-number primitive-number -> Scene
SceneImage.prototype.add = function(anImage, x, y) { SceneImage.prototype.add = function(anImage, x, color) {
return new SceneImage(this.width, return new SceneImage(this.width,
this.height, this.height,
this.children.concat([[anImage, this.children.concat([[anImage,
@ -314,7 +315,8 @@ SceneImage.prototype.render = function(ctx, x, y) {
var childImage, childX, childY; var childImage, childX, childY;
// create a clipping region around the boundaries of the Scene // create a clipping region around the boundaries of the Scene
ctx.save(); ctx.save();
ctx.fillStyle = "rgba(0,0,0,0)"; // if no color is defined, default to transparent
ctx.fillStyle = this.color? colorString(this.color) : "rgba(0,0,0,0)";
ctx.fillRect(x, y, this.width, this.height); ctx.fillRect(x, y, this.width, this.height);
ctx.restore(); ctx.restore();
// save the context, reset the path, and clip to the path around the scene edge // save the context, reset the path, and clip to the path around the scene edge