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'] =
makePrimitiveProcedure(
'empty-scene',
2,
plt.baselib.lists.makeList(2, 3),
function(MACHINE) {
var width = checkNonNegativeReal(MACHINE, 'empty-scene', 0);
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),
color,
[],
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
var SceneImage = function(width, height, children, withBorder) {
// SceneImage: primitive-number primitive-number color (listof image) -> Scene
var SceneImage = function(width, height, color, children, withBorder) {
BaseImage.call(this);
this.width = width;
this.height = height;
this.children = children; // arrayof [image, number, number]
this.withBorder = withBorder;
this.color = color;
};
SceneImage.prototype = heir(BaseImage.prototype);
// 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,
this.height,
this.children.concat([[anImage,
@ -314,7 +315,8 @@ SceneImage.prototype.render = function(ctx, x, y) {
var childImage, childX, childY;
// create a clipping region around the boundaries of the Scene
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.restore();
// save the context, reset the path, and clip to the path around the scene edge