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

Merge pull request #7 from schanzer/master

Browse Source 
Add optional color arg to empty-scene
This commit is contained in:
Jens Axel Søgaard 2015-02-02 15:09:16 +01:00
commit eb4dd0c7c1
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -683,12 +683,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);
var color = (MACHINE.a===3)? checkColor(MACHINE, 'empty-scene', 2) : null;
return makeSceneImage(jsnums.toFixnum(width),
jsnums.toFixnum(height),
color,
[],
true);
});

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

@ -288,13 +288,14 @@ 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);
@ -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