在前文《中文编程语言之Z语言初尝试: ZLOGO 4》与相关讨论后, 萌生了用JavaScript编写类似语言以便在线编程的想法. 于是使用 @TKT2016 (知乎账号)的ZLOGO语法设计, 在《编程语言试验之Antlr4+JavaScript实现"圈4"》基础上, 通过p5js的绘图功能, 实现了基本的两个ZLOGO功能. 如图(动态效果看起来更爽一点, 当然要耐心等它画完, 请自行尝试):
源码库: program-in-chinese/quan3, 导出代码到本地后, 在浏览器中打开"圈3.html"即可在本地实践编程.
在线演示: 【见原文】
由于还不支持循环, 实现这个五角星的代码很重影:
开始
前进200
左转144度
前进200
左转144度
前进200
左转144度
前进200
左转144度
前进200
结束
下面是编程语言试验之Antlr4+JavaScript实现"圈4"之后添加的主要部分:
语法文件(圈3.g4):
声明 : 前进 | 转向;
前进 : '前进' T数 ;
转向 : T转向 '转' T数 '度' ;
T转向 : '左' | '右' ;
主要修改在"定制监听器.js":
命名还比较粗糙, 一些用语最好更加一致(比如"长度","距离","前进量"虽在不同上下文, 实际指的是一个东西), 需要改进. 当然算法肯定也可以改进, 暂时是实现功能优先.
var 常量_指令名_前进 = "前进";
var 常量_指令名_转向 = "转向";
var 序号 = 0;
var 画布尺寸 = {x: 1000, y: 800};
var 原点 = {x: 画布尺寸.x/2, y: 画布尺寸.y/2};
var 前进角度 = 90; // 默认向上, 对应弧度: 90 * Math.PI / 180
// 指令格式: 名称 (转向, 前进, 笔色等等); 参数 (转向角度--右为负,左为正; 前进长度-像素数等等);
var 指令序列 = [];
定制监听器.prototype.enter程序 = function(ctx) {
重置状态();
// 只需调用一次
// https://p5js.org/reference/#/p5/setup
构图 = function() {
新画布(画布尺寸.x, 画布尺寸.y);
}
};
function 重置状态() {
序号 = 0;
原点 = {x: 画布尺寸.x/2, y: 画布尺寸.y/2};
前进角度 = 90;
指令序列 = [];
}
// 根据指令序列, 生成路径分段描述(段起止点坐标, 颜色等等)
// 如: 前进50, 左转90度, 前进50 应返回(假设起点为{x: 200, y: 200}):
// {起点: {x: 200, y: 200}, 终点: {x: 200, y: 150}, 长度: 50},
// {起点: {x: 200, y: 150}, 终点: {x: 150, y: 150}, 长度: 50}
function 生成路径表(指令序列) {
// 段: {起点: {x, y}, 终点: {x, y}, 长度, 颜色}
var 路径表 = [];
var 起点 = 原点;
for(var i = 0; i < 指令序列.length; i++ ){
var 指令 = 指令序列[i];
var 指令名 = 指令.名称;
var 段 = {起点: 起点};
if (指令名 === 常量_指令名_前进) {
var 距离 = 指令.参数;
var x增量 = Math.cos(前进角度 * Math.PI / 180);
var y增量 = Math.sin(前进角度 * Math.PI / 180);
段.终点 = {x: 起点.x + x增量 * 距离, y: 起点.y - y增量 * 距离};
段.长度 = 距离;
路径表.push(段);
起点 = 段.终点;
} else if (指令名 === 常量_指令名_转向) {
前进角度 += 指令.参数;
}
}
return 路径表;
}
定制监听器.prototype.exit程序 = function(ctx) {
var 路径表 = 生成路径表(指令序列);
绘制 = function() {
var 当前序号 = 序号;
background(255, 255, 255);
for (var i = 0; i < 路径表.length; i++ ) {
var 段 = 路径表[i];
var 起点 = 段.起点;
var 终点 = 段.终点;
var 距离 = 段.长度;
if (当前序号 < 距离) {
line(起点.x, 起点.y, 起点.x + (终点.x - 起点.x) * 当前序号 / 距离, 起点.y + (终点.y - 起点.y) * 当前序号 / 距离);
break;
} else {
line(起点.x, 起点.y, 终点.x, 终点.y);
当前序号 = 当前序号 - 段.长度;
}
}
序号 ++;
}
};
定制监听器.prototype.exit前进 = function(上下文) {
var 前进量 = 上下文.getChild(1).getText()
指令序列.push({名称: 常量_指令名_前进, 参数: parseInt(前进量)});
};
定制监听器.prototype.exit转向 = function(上下文) {
var 方向 = 上下文.getChild(0).getText();
var 角度 = parseInt(上下文.getChild(2).getText());
角度 = 角度 * (方向 === "左" ? 1 : -1);
指令序列.push({名称: 常量_指令名_转向, 参数: 角度});
};
2017-12-05