もともとはCHNOSProjectのために構想していた(Elements Language for CHNOSProjectの略)。
その言語仕様を利用して、OSECPUのためのコンパイラならすぐに作れそうなので、作ってみた、C言語風の言語。
#17ddde48-7d4c-498f-98d8-3e73f8845028 unsigned char table[32] = { 196, 100, 187, 61, 164, 29, 129, 9, 90, 5, 53, 17, 23, 44, 7, 81, 7, 119, 23, 156, 53, 183, 90, 195, 129, 191, 164, 171, 187, 139, 196, 100, }; procedure inline drawLine(int mode, x0, y0, x1, y1, col){ @asm OSECPU REMARK 05 0100000003; R30 = 0xff45; R31 = mode; R32 = x0; R33 = y0; R34 = x1; R35 = y1; R36 = col; CALL P28; REMARK 01 00; @end } procedure main() { int x0, y0, x1, y1, col, i, j; unsigned char *p, *q; p = table; for (i = 0; i != 15; i++) { x0 = *p; p++; y0 = *p; p++; q = table; for (j = -8; j != 8; j++) { x1 = *q; q++; y1 = *q; q++; col = i - j; if (col <= 0){ col = 1 - col; } if (col <= 7) { drawLine(1 + 4, x0, y0, x1, y1, col); } } } }
HTML5, FileAPI対応のブラウザを利用する必要があります。
コメント | お名前 | NameLink | |