555 lines
13 KiB
JavaScript
555 lines
13 KiB
JavaScript
var checkString = plt.baselib.check.makeCheckArgumentType(
|
|
plt.baselib.strings.isString,
|
|
'string');
|
|
|
|
var checkByte = plt.baselib.check.makeCheckArgumentType(
|
|
plt.baselib.numbers.isByte,
|
|
'byte');
|
|
|
|
var checkColor = plt.baselib.check.makeCheckArgumentType(
|
|
isColorOrColorString,
|
|
'color');
|
|
|
|
var checkImage = plt.baselib.check.makeCheckArgumentType(
|
|
isImage,
|
|
'image');
|
|
|
|
var checkReal = plt.baselib.check.makeCheckArgumentType(
|
|
plt.baselib.numbers.isReal,
|
|
'real');
|
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
EXPORTS['image-color?'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'image-color?',
|
|
1,
|
|
function(MACHINE) {
|
|
var elt = MACHINE.env[MACHINE.env.length - 1];
|
|
return (isColorOrColorString(elt));
|
|
});
|
|
|
|
|
|
|
|
|
|
EXPORTS['text'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'text',
|
|
3,
|
|
function(MACHINE) {
|
|
var aString = checkString(MACHINE,'text', 0);
|
|
var aSize = checkByte(MACHINE, 'text', 1);
|
|
var aColor = checkColor(MACHINE, 'text', 2);
|
|
if (colorDb.get(aColor)) {
|
|
aColor = colorDb.get(aColor);
|
|
}
|
|
return makeTextImage(aString.toString(),
|
|
jsnums.toFixnum(aSize),
|
|
aColor);
|
|
});
|
|
|
|
// FIXME
|
|
// EXPORTS['text/font'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'text/font',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// FIXME
|
|
// EXPORTS['image-url'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'image-url',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// FIXME
|
|
// EXPORTS['open-image-url'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'open-image-url',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
EXPORTS['overlay'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'overlay',
|
|
plt.baselib.arity.makeArityAtLeast(2),
|
|
function(MACHINE) {
|
|
|
|
var img1 = checkImage(MACHINE, "overlay", 0);
|
|
var img2 = checkImage(MACHINE, "overlay", 1);
|
|
var restImages;
|
|
for (var i = 2; i < MACHINE.argcount; i++) {
|
|
restImages.push(checkImage(MACHINE, "overlay", i));
|
|
}
|
|
|
|
var img = makeOverlayImage(img1, img2, 0, 0);
|
|
for (var i = 0; i < restImages.length; i++) {
|
|
img = makeOverlayImage(img, restImages[i], 0, 0);
|
|
}
|
|
return img;
|
|
});
|
|
|
|
EXPORTS['overlay/xy'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'overlay/xy',
|
|
4,
|
|
function(MACHINE) {
|
|
var img1 = checkImage("overlay/xy", 0);
|
|
var deltaX = checkReal("overlay/xy", 1);
|
|
var deltaY = checkReal("overlay/xy", 2);
|
|
var img2 = checkImage("overlay/xy", 2);
|
|
return makeOverlayImage(img1.updatePinhole(0, 0),
|
|
img2.updatePinhole(0, 0),
|
|
jsnums.toFixnum(deltaX),
|
|
jsnums.toFixnum(deltaY));
|
|
});
|
|
|
|
// FIXME
|
|
// EXPORTS['overlay/align'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'overlay/align',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
EXPORTS['underlay'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'underlay',
|
|
plt.baselib.arity.makeArityAtLeast(2),
|
|
function(MACHINE) {
|
|
var img1 = checkImage(MACHINE, "underlay", 0);
|
|
var img2 = checkImage(MACHINE, "underlay", 1);
|
|
var restImages = [];
|
|
for (var i = 2; i < MACHINE.argcount; i++) {
|
|
restImages.push(checkImage(MACHINE, "underlay", i));
|
|
}
|
|
|
|
var img = makeOverlayImage(img2, img1, 0, 0);
|
|
for (var i = 0; i < restImages.length; i++) {
|
|
img = makeOverlayImage(restImages[i], img, 0, 0);
|
|
}
|
|
return img;
|
|
});
|
|
|
|
EXPORTS['underlay/xy'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'underlay/xy',
|
|
4,
|
|
function(MACHINE) {
|
|
var img1 = checkImage(MACHINE, "underlay/xy", 0);
|
|
var deltaX = checkReal(MACHINE, "underlay/xy", 1);
|
|
var deltaY = checkReal(MACHINE, "underlay/xy", 2);
|
|
var img2 = checkImage(MACHINE, "underlay/xy", 3);
|
|
return makeOverlayImage(img2.updatePinhole(0, 0),
|
|
img1.updatePinhole(0, 0),
|
|
-(jsnums.toFixnum(deltaX)),
|
|
-(jsnums.toFixnum(deltaY)));
|
|
});
|
|
|
|
// EXPORTS['underlay/align'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'underlay/align',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['beside'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'beside',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['beside/align'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'beside/align',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['above'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'above',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['above/align'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'above/align',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['place-image/align'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'place-image/align',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
EXPORTS['rotate'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'rotate',
|
|
2,
|
|
function(MACHINE) {
|
|
var angle = checkReal(MACHINE, "rotate", 0);
|
|
var img = checkImage(MACHINE, "rotate", 1);
|
|
return makeRotateImage(jsnums.toFixnum(angle), img);
|
|
});
|
|
|
|
EXPORTS['scale'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'scale',
|
|
2,
|
|
function(MACHINE) {
|
|
var factor = checkReal(MACHINE, "scale", 0);
|
|
var img = checkImage(MACHINE, "scale", 1);
|
|
return makeScaleImage(jsnums.toFixnum(factor),
|
|
jsnums.toFixnum(factor),
|
|
img);
|
|
});
|
|
|
|
EXPORTS['scale/xy'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'scale/xy',
|
|
3,
|
|
function(MACHINE) {
|
|
var xFactor = checkReal(MACHINE, "scale/xy", 0);
|
|
var yFactor = checkReal(MACHINE, "scale/xy", 1);
|
|
var img = checkImage(MACHINE, "scale/xy", 2);
|
|
return makeScaleImage(jsnums.toFixnum(xFactor),
|
|
jsnums.toFixnum(yFactor),
|
|
img);
|
|
|
|
});
|
|
|
|
// EXPORTS['flip-horizontal'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'flip-horizontal',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['flip-vertical'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'flip-vertical',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['frame'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'frame',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['crop'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'crop',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
EXPORTS['line'] =
|
|
plt.baselib.functions.makePrimitiveProcedure(
|
|
'line',
|
|
3,
|
|
function(MACHINE) {
|
|
var x = checkReal(MACHINE, "line", 0);
|
|
var y = checkReal(MACHINE, "line", 1);
|
|
var c = checkColor(MACHINE, "line", 2);
|
|
if (colorDb.get(c)) {
|
|
c = colorDb.get(c);
|
|
}
|
|
var line = makeLineImage(jsnums.toFixnum(x),
|
|
jsnums.toFixnum(y),
|
|
c);
|
|
return line;
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// EXPORTS['add-line'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'add-line',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['scene+line'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'scene+line',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['circle'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'circle',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['square'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'square',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['rectangle'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'rectangle',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['regular-polygon'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'regular-polygon',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['ellipse'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'ellipse',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['triangle'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'triangle',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['right-triangle'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'right-triangle',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['isosceles-triangle'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'isosceles-triangle',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['star'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'star',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['radial-star'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'radial-star',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['star-polygon'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'star-polygon',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['rhombus'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'rhombus',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['image->color-list'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'image->color-list',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['color-list->image'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'color-list->image',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['image-width'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'image-width',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['image-height'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'image-height',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['image-baseline'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'image-baseline',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['image-color?'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'image-color?',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['mode?'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'mode?',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['x-place?'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'x-place?',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['y-place?'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'y-place?',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['angle?'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'angle?',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['side-count?'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'side-count?',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
// EXPORTS['image-url'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'image-url',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
// EXPORTS['open-image-url'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'open-image-url',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
// EXPORTS['color-list->image'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'color-list->image',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|
|
|
|
|
|
// EXPORTS['step-count?'] =
|
|
// plt.baselib.functions.makePrimitiveProcedure(
|
|
// 'step-count?',
|
|
// ???,
|
|
// function(MACHINE) {
|
|
// ...
|
|
// });
|