1 | /*
|
---|
2 | * PanCake関連
|
---|
3 | *
|
---|
4 | * Copyright (c) 2016 Wakayama.rb Ruby Board developers
|
---|
5 | *
|
---|
6 | * This software is released under the MIT License.
|
---|
7 | * https://github.com/wakayamarb/wrbb-v2lib-firm/blob/master/MITL
|
---|
8 | *
|
---|
9 | */
|
---|
10 | #include <arduino.h>
|
---|
11 | #include <string.h>
|
---|
12 |
|
---|
13 | #include <mruby.h>
|
---|
14 | #include <mruby/string.h>
|
---|
15 |
|
---|
16 | #include "../llbruby.h"
|
---|
17 | #include "sKernel.h"
|
---|
18 | #include "sSerial.h"
|
---|
19 |
|
---|
20 | #define PANCAKE_BAURATE 115200
|
---|
21 | #define PANCAKE_WAIT 4
|
---|
22 |
|
---|
23 | extern serial_t *serial[];
|
---|
24 |
|
---|
25 | unsigned char PanSend[96];
|
---|
26 | int SerialNum = 1;
|
---|
27 |
|
---|
28 | /******************************************************/
|
---|
29 | /* 画面を消去: PanCake.clear*/
|
---|
30 | /* PanCake.clear(cn)*/
|
---|
31 | /* cn: 色番号*/
|
---|
32 | /******************************************************/
|
---|
33 | mrb_value mrb_pancake_Clear(mrb_state *mrb, mrb_value self)
|
---|
34 | {
|
---|
35 | int cn;
|
---|
36 |
|
---|
37 | mrb_get_args(mrb, "i", &cn);
|
---|
38 |
|
---|
39 | PanSend[1] = 0x4;
|
---|
40 | PanSend[2] = 0x0;
|
---|
41 | PanSend[3] = (unsigned char)cn;
|
---|
42 |
|
---|
43 | wait_ms(PANCAKE_WAIT);
|
---|
44 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
45 |
|
---|
46 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
47 | }
|
---|
48 |
|
---|
49 | /******************************************************/
|
---|
50 | /* 画面に線を引く: PanCake.line*/
|
---|
51 | /* PanCake.line(x1,y1,x2,y2,cn)*/
|
---|
52 | /* (x1,y1)-(x2,y2)に線を引きます*/
|
---|
53 | /* cn: 色番号*/
|
---|
54 | /******************************************************/
|
---|
55 | mrb_value mrb_pancake_Line(mrb_state *mrb, mrb_value self)
|
---|
56 | {
|
---|
57 | int x1;
|
---|
58 | int y1;
|
---|
59 | int x2;
|
---|
60 | int y2;
|
---|
61 | int cn;
|
---|
62 |
|
---|
63 | mrb_get_args(mrb, "iiiii", &x1, &y1, &x2, &y2, &cn);
|
---|
64 |
|
---|
65 | PanSend[1] = 0x8;
|
---|
66 | PanSend[2] = 0x1;
|
---|
67 | PanSend[3] = (unsigned char)x1;
|
---|
68 | PanSend[4] = (unsigned char)y1;
|
---|
69 | PanSend[5] = (unsigned char)x2;
|
---|
70 | PanSend[6] = (unsigned char)y2;
|
---|
71 | PanSend[7] = (unsigned char)cn;
|
---|
72 |
|
---|
73 | wait_ms(PANCAKE_WAIT);
|
---|
74 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
75 |
|
---|
76 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
77 | }
|
---|
78 |
|
---|
79 | /******************************************************/
|
---|
80 | /* 画面に円を描く: PanCake.circle*/
|
---|
81 | /* PanCake.circle(xc, yc, ra, cn)*/
|
---|
82 | /* (xc,yc)を中心に円を描く*/
|
---|
83 | /* ra: 半径*/
|
---|
84 | /* cn: 色番号*/
|
---|
85 | /******************************************************/
|
---|
86 | mrb_value mrb_pancake_Circle(mrb_state *mrb, mrb_value self)
|
---|
87 | {
|
---|
88 | int xc;
|
---|
89 | int yc;
|
---|
90 | int ra;
|
---|
91 | int cn;
|
---|
92 |
|
---|
93 | mrb_get_args(mrb, "iiii", &xc, &yc, &ra, &cn);
|
---|
94 |
|
---|
95 | PanSend[1] = 0x7;
|
---|
96 | PanSend[2] = 0xE;
|
---|
97 | PanSend[3] = (unsigned char)xc;
|
---|
98 | PanSend[4] = (unsigned char)yc;
|
---|
99 | PanSend[5] = (unsigned char)ra;
|
---|
100 | PanSend[6] = (unsigned char)cn;
|
---|
101 |
|
---|
102 | wait_ms(PANCAKE_WAIT);
|
---|
103 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
104 |
|
---|
105 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
106 | }
|
---|
107 |
|
---|
108 | int hex2int(char s)
|
---|
109 | {
|
---|
110 | /* '0' から '9' の文字なら*/
|
---|
111 | if ('0' <= s && s <= '9') {
|
---|
112 | return(s - '0');
|
---|
113 | }
|
---|
114 | /*'A' から 'F' の文字なら*/
|
---|
115 | else if ('A' <= s && s <= 'F') {
|
---|
116 | return(s - 'A' + 10);
|
---|
117 | }
|
---|
118 | /*'a' から 'f' の文字なら*/
|
---|
119 | else if ('a' <= s && s <= 'f') {
|
---|
120 | return(s - 'a' + 10);
|
---|
121 | }
|
---|
122 |
|
---|
123 | return 0;
|
---|
124 | }
|
---|
125 |
|
---|
126 | /******************************************************/
|
---|
127 | /* 画面に8x8の絵を描く: PanCake.stamp*/
|
---|
128 | /* PanCake.stamp(px, py, tc, string)*/
|
---|
129 | /* px,py: 絵の左上座標*/
|
---|
130 | /* tc: 透明色*/
|
---|
131 | /* string: 16進数の文字列が64個*/
|
---|
132 | /******************************************************/
|
---|
133 | mrb_value mrb_pancake_Stamp(mrb_state *mrb, mrb_value self)
|
---|
134 | {
|
---|
135 | int px;
|
---|
136 | int py;
|
---|
137 | int tc;
|
---|
138 | mrb_value text;
|
---|
139 |
|
---|
140 | mrb_get_args(mrb, "iiiS", &px, &py, &tc, &text);
|
---|
141 |
|
---|
142 | PanSend[1] = 0x26;
|
---|
143 | PanSend[2] = 0x2;
|
---|
144 | PanSend[3] = (unsigned char)px;
|
---|
145 | PanSend[4] = (unsigned char)py;
|
---|
146 | PanSend[5] = (unsigned char)tc;
|
---|
147 |
|
---|
148 | char *s = RSTRING_PTR(text);
|
---|
149 |
|
---|
150 | for (int i = 0; i < 32; i++) {
|
---|
151 | PanSend[6 + i] = hex2int(s[i * 2]) * 16 + hex2int(s[i * 2 + 1]);
|
---|
152 | }
|
---|
153 |
|
---|
154 | wait_ms(PANCAKE_WAIT);
|
---|
155 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
156 |
|
---|
157 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
158 | }
|
---|
159 |
|
---|
160 | /******************************************************/
|
---|
161 | /* 画面に8x8の1色の絵を描く: PanCake.stamp1*/
|
---|
162 | /* PanCake.stamp1(px, py, cn, string)*/
|
---|
163 | /* px,py: 絵の左上座標*/
|
---|
164 | /* cn: 描く色*/
|
---|
165 | /* string: 16進数の文字列が16個*/
|
---|
166 | /******************************************************/
|
---|
167 | mrb_value mrb_pancake_Stamp1(mrb_state *mrb, mrb_value self)
|
---|
168 | {
|
---|
169 | int px;
|
---|
170 | int py;
|
---|
171 | int cn;
|
---|
172 | mrb_value text;
|
---|
173 |
|
---|
174 | mrb_get_args(mrb, "iiiS", &px, &py, &cn, &text);
|
---|
175 |
|
---|
176 | PanSend[1] = 0xE;
|
---|
177 | PanSend[2] = 0x3;
|
---|
178 | PanSend[3] = (unsigned char)px;
|
---|
179 | PanSend[4] = (unsigned char)py;
|
---|
180 | PanSend[5] = (unsigned char)cn;
|
---|
181 |
|
---|
182 | char *s = RSTRING_PTR(text);
|
---|
183 |
|
---|
184 | for (int i = 0; i < 8; i++) {
|
---|
185 | PanSend[6 + i] = hex2int(s[i * 2]) * 16 + hex2int(s[i * 2 + 1]);
|
---|
186 | }
|
---|
187 |
|
---|
188 | wait_ms(PANCAKE_WAIT);
|
---|
189 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
190 |
|
---|
191 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
192 | }
|
---|
193 |
|
---|
194 | /******************************************************/
|
---|
195 | /* 画面に組み込み画像を描く: PanCake.image*/
|
---|
196 | /* PanCake.image(num)*/
|
---|
197 | /* num: 組み込み画像の番号*/
|
---|
198 | /******************************************************/
|
---|
199 | mrb_value mrb_pancake_Image(mrb_state *mrb, mrb_value self)
|
---|
200 | {
|
---|
201 | int num;
|
---|
202 |
|
---|
203 | mrb_get_args(mrb, "i", &num);
|
---|
204 |
|
---|
205 | PanSend[1] = 0x4;
|
---|
206 | PanSend[2] = 0x4;
|
---|
207 | PanSend[3] = (unsigned char)num;
|
---|
208 |
|
---|
209 | wait_ms(PANCAKE_WAIT);
|
---|
210 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
211 |
|
---|
212 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
213 | }
|
---|
214 |
|
---|
215 | /******************************************************/
|
---|
216 | /* ビデオ出力のON/OFF: PanCake.video*/
|
---|
217 | /* PanCake.video(sw)*/
|
---|
218 | /* sw: スイッチON/OFF[01/00]*/
|
---|
219 | /******************************************************/
|
---|
220 | mrb_value mrb_pancake_Video(mrb_state *mrb, mrb_value self)
|
---|
221 | {
|
---|
222 | int sw;
|
---|
223 |
|
---|
224 | mrb_get_args(mrb, "i", &sw);
|
---|
225 |
|
---|
226 | PanSend[1] = 0x4;
|
---|
227 | PanSend[2] = 0x5;
|
---|
228 | PanSend[3] = (unsigned char)sw;
|
---|
229 |
|
---|
230 | wait_ms(PANCAKE_WAIT);
|
---|
231 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
232 |
|
---|
233 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
234 | }
|
---|
235 |
|
---|
236 | /******************************************************/
|
---|
237 | /* 4ch同時に音を鳴らす: PanCake.sound*/
|
---|
238 | /* PanCake.sound(o0, s0, o1, s1, o2, s2, o3, s3)*/
|
---|
239 | /* o0,o1,o2,o3: オクターブ(0~4~7)*/
|
---|
240 | /* s0,s1,s2,s3: 音程(0~b) eはノイズ音*/
|
---|
241 | /* HighBits4は音色(0~3)*/
|
---|
242 | /* 音を消すのは FF*/
|
---|
243 | /******************************************************/
|
---|
244 | mrb_value mrb_pancake_Sound(mrb_state *mrb, mrb_value self)
|
---|
245 | {
|
---|
246 | int o0, o1, o2, o3;
|
---|
247 | int s0, s1, s2, s3;
|
---|
248 |
|
---|
249 | mrb_get_args(mrb, "iiiiiiii", &o0, &s0, &o1, &s1, &o2, &s2, &o3, &s3);
|
---|
250 |
|
---|
251 | PanSend[1] = 0xB;
|
---|
252 | PanSend[2] = 0x9;
|
---|
253 | PanSend[3] = (unsigned char)o0;
|
---|
254 | PanSend[4] = (unsigned char)s0;
|
---|
255 | PanSend[5] = (unsigned char)o1;
|
---|
256 | PanSend[6] = (unsigned char)s1;
|
---|
257 | PanSend[7] = (unsigned char)o2;
|
---|
258 | PanSend[8] = (unsigned char)s2;
|
---|
259 | PanSend[9] = (unsigned char)o3;
|
---|
260 | PanSend[10] = (unsigned char)s3;
|
---|
261 |
|
---|
262 | wait_ms(PANCAKE_WAIT);
|
---|
263 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
264 |
|
---|
265 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
266 | }
|
---|
267 |
|
---|
268 | /******************************************************/
|
---|
269 | /* 1ch音を鳴らす: PanCake.sound1*/
|
---|
270 | /* PanCake.sound1(cn, on, sn)*/
|
---|
271 | /* cn: チャネル*/
|
---|
272 | /* on: オクターブ(0~4~7)*/
|
---|
273 | /* sn: 音程(0~b) eはノイズ音*/
|
---|
274 | /* HighBits4は音色(0~3)*/
|
---|
275 | /* 音を消すのは FF*/
|
---|
276 | /******************************************************/
|
---|
277 | mrb_value mrb_pancake_Sound1(mrb_state *mrb, mrb_value self)
|
---|
278 | {
|
---|
279 | int cn, on, sn;
|
---|
280 |
|
---|
281 | mrb_get_args(mrb, "iii", &cn, &on, &sn);
|
---|
282 |
|
---|
283 | PanSend[1] = 0x6;
|
---|
284 | PanSend[2] = 0xA;
|
---|
285 | PanSend[3] = (unsigned char)cn;
|
---|
286 | PanSend[4] = (unsigned char)on;
|
---|
287 | PanSend[5] = (unsigned char)sn;
|
---|
288 |
|
---|
289 | wait_ms(PANCAKE_WAIT);
|
---|
290 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
291 |
|
---|
292 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
293 | }
|
---|
294 |
|
---|
295 | /******************************************************/
|
---|
296 | /* 初期状態にする: PanCake.reset*/
|
---|
297 | /* PanCake.reset()*/
|
---|
298 | /******************************************************/
|
---|
299 | mrb_value mrb_pancake_Reset(mrb_state *mrb, mrb_value self)
|
---|
300 | {
|
---|
301 | PanSend[1] = 0x3;
|
---|
302 | PanSend[2] = 0xD;
|
---|
303 |
|
---|
304 | wait_ms(PANCAKE_WAIT);
|
---|
305 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
306 |
|
---|
307 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
308 | }
|
---|
309 |
|
---|
310 | /******************************************************/
|
---|
311 | /* OUTポートに出力: PanCake.out*/
|
---|
312 | /* PanCake.out(pf)*/
|
---|
313 | /* pf: HIGHにするポート番号を16進数で指定*/
|
---|
314 | /******************************************************/
|
---|
315 | mrb_value mrb_pancake_Out(mrb_state *mrb, mrb_value self)
|
---|
316 | {
|
---|
317 | int pf;
|
---|
318 |
|
---|
319 | mrb_get_args(mrb, "i", &pf);
|
---|
320 |
|
---|
321 | PanSend[1] = 0x4;
|
---|
322 | PanSend[2] = 0xF;
|
---|
323 | PanSend[3] = (unsigned char)pf;
|
---|
324 |
|
---|
325 | wait_ms(PANCAKE_WAIT);
|
---|
326 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
327 |
|
---|
328 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
329 | }
|
---|
330 |
|
---|
331 | /******************************************************/
|
---|
332 | /* スプライトを開始する: Sprite.start*/
|
---|
333 | /* Sprite.start(num)*/
|
---|
334 | /* num: 背景に使う組み込み画像番号*/
|
---|
335 | /* 背景をベタ塗りにする場合は num のHighBitsを1にします。*/
|
---|
336 | /* スプライト処理を停止するには num を FF にします。*/
|
---|
337 | /******************************************************/
|
---|
338 | mrb_value mrb_pancake_Start(mrb_state *mrb, mrb_value self)
|
---|
339 | {
|
---|
340 | int num;
|
---|
341 |
|
---|
342 | mrb_get_args(mrb, "i", &num);
|
---|
343 |
|
---|
344 | PanSend[1] = 0x4;
|
---|
345 | PanSend[2] = 0x6;
|
---|
346 | PanSend[3] = (unsigned char)num;
|
---|
347 |
|
---|
348 | wait_ms(PANCAKE_WAIT);
|
---|
349 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
350 |
|
---|
351 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
352 | }
|
---|
353 |
|
---|
354 | /******************************************************/
|
---|
355 | /* スプライトを作る: Sprite.create*/
|
---|
356 | /* Sprite.create(sn, si)*/
|
---|
357 | /* sn: スプライト番号 0~15*/
|
---|
358 | /* si: 組み込みスプライト画像番号*/
|
---|
359 | /* 消すのは FF*/
|
---|
360 | /******************************************************/
|
---|
361 | mrb_value mrb_pancake_Create(mrb_state *mrb, mrb_value self)
|
---|
362 | {
|
---|
363 | int sn, si;
|
---|
364 |
|
---|
365 | mrb_get_args(mrb, "ii", &sn, &si);
|
---|
366 |
|
---|
367 | PanSend[1] = 0x5;
|
---|
368 | PanSend[2] = 0x7;
|
---|
369 | PanSend[3] = (unsigned char)sn;
|
---|
370 | PanSend[4] = (unsigned char)si;
|
---|
371 |
|
---|
372 | wait_ms(PANCAKE_WAIT);
|
---|
373 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
374 |
|
---|
375 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
376 | }
|
---|
377 |
|
---|
378 | /******************************************************/
|
---|
379 | /* スプライトの移動: Sprite.move*/
|
---|
380 | /* Sprite.move(sn, px,py)*/
|
---|
381 | /* sn: スプライト番号 0~15*/
|
---|
382 | /* px,py: 画面座標*/
|
---|
383 | /******************************************************/
|
---|
384 | mrb_value mrb_pancake_Move(mrb_state *mrb, mrb_value self)
|
---|
385 | {
|
---|
386 | int sn, px, py;
|
---|
387 |
|
---|
388 | mrb_get_args(mrb, "iii", &sn, &px, &py);
|
---|
389 |
|
---|
390 | PanSend[1] = 0x6;
|
---|
391 | PanSend[2] = 0x8;
|
---|
392 | PanSend[3] = (unsigned char)sn;
|
---|
393 | PanSend[4] = (unsigned char)px;
|
---|
394 | PanSend[5] = (unsigned char)py;
|
---|
395 |
|
---|
396 | wait_ms(PANCAKE_WAIT);
|
---|
397 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
398 |
|
---|
399 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
400 | }
|
---|
401 |
|
---|
402 | /******************************************************/
|
---|
403 | /* 音楽再生する: Music.play*/
|
---|
404 | /* Music.play(sw)*/
|
---|
405 | /* sw: START/STOP[01/00]*/
|
---|
406 | /******************************************************/
|
---|
407 | mrb_value mrb_pancake_Play(mrb_state *mrb, mrb_value self)
|
---|
408 | {
|
---|
409 | int sw;
|
---|
410 |
|
---|
411 | mrb_get_args(mrb, "i", &sw);
|
---|
412 |
|
---|
413 | PanSend[1] = 0x4;
|
---|
414 | PanSend[2] = 0xC;
|
---|
415 | PanSend[3] = (unsigned char)sw;
|
---|
416 |
|
---|
417 | wait_ms(PANCAKE_WAIT);
|
---|
418 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
419 |
|
---|
420 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
421 | }
|
---|
422 |
|
---|
423 | /******************************************************/
|
---|
424 | /* C D E F G A B を0x0 ~ 0xBに置き換えます*/
|
---|
425 | /* C D E F G A B*/
|
---|
426 | /* 0 2 4 5 7 9 B*/
|
---|
427 | /******************************************************/
|
---|
428 | int score2int(char s)
|
---|
429 | {
|
---|
430 | if ('c' == s || s == 'C') {
|
---|
431 | return 0;
|
---|
432 | }
|
---|
433 | else if ('d' == s || s == 'D') {
|
---|
434 | return 2;
|
---|
435 | }
|
---|
436 | else if ('e' == s || s == 'E') {
|
---|
437 | return 4;
|
---|
438 | }
|
---|
439 | else if ('f' == s || s == 'F') {
|
---|
440 | return 5;
|
---|
441 | }
|
---|
442 | else if ('g' == s || s == 'G') {
|
---|
443 | return 7;
|
---|
444 | }
|
---|
445 | else if ('a' == s || s == 'A') {
|
---|
446 | return 9;
|
---|
447 | }
|
---|
448 | else if ('b' == s || s == 'B') {
|
---|
449 | return 11;
|
---|
450 | }
|
---|
451 | return -1;
|
---|
452 | }
|
---|
453 |
|
---|
454 | /******************************************************/
|
---|
455 | /* MMLをサウンドchに登録する: Music.score*/
|
---|
456 | /* Music.score(ch, pn, tt, string)*/
|
---|
457 | /* ch: チャンネル(00~03)*/
|
---|
458 | /* pn: 01:即再生、00:後で再生*/
|
---|
459 | /* tt: テンポ(0~F)+音色 [ex. 30 == テンポ3、音色0]*/
|
---|
460 | /* string: MML 64バイトまで*/
|
---|
461 | /******************************************************/
|
---|
462 | mrb_value mrb_pancake_Score(mrb_state *mrb, mrb_value self)
|
---|
463 | {
|
---|
464 | int ch, pn, tt;
|
---|
465 | mrb_value text;
|
---|
466 |
|
---|
467 | mrb_get_args(mrb, "iiiS", &ch, &pn, &tt, &text);
|
---|
468 |
|
---|
469 | /*PanSend[1] = 0xE;*/
|
---|
470 | PanSend[2] = 0xB;
|
---|
471 | PanSend[3] = (unsigned char)ch;
|
---|
472 | PanSend[4] = (unsigned char)pn;
|
---|
473 | PanSend[5] = (unsigned char)tt;
|
---|
474 |
|
---|
475 | char *s = RSTRING_PTR(text);
|
---|
476 | int len = RSTRING_LEN(text);
|
---|
477 |
|
---|
478 | int oct = 0x40;
|
---|
479 | int sc = 0;
|
---|
480 | int j = 0;
|
---|
481 | for (int i = 0; i < len; i++) {
|
---|
482 |
|
---|
483 | sc = score2int(s[i]);
|
---|
484 |
|
---|
485 | if (s[i] == 'n' || s[i] == 'N') {
|
---|
486 | PanSend[6 + j] = oct + 0x0e;
|
---|
487 | j++;
|
---|
488 | }
|
---|
489 | else if (s[i] == 'r' || s[i] == 'R') {
|
---|
490 | PanSend[6 + j] = oct + 0x0f;
|
---|
491 | j++;
|
---|
492 | }
|
---|
493 | else if (s[i] == '$') {
|
---|
494 | PanSend[6 + j] = 0xfe;
|
---|
495 | j++;
|
---|
496 | }
|
---|
497 | else if (s[i] == '~') {
|
---|
498 | PanSend[6 + j] = 0xfd;
|
---|
499 | j++;
|
---|
500 | }
|
---|
501 | else if (s[i] == '>') {
|
---|
502 | oct += 0x10;
|
---|
503 | }
|
---|
504 | else if (s[i] == '<') {
|
---|
505 | oct -= 0x10;
|
---|
506 | }
|
---|
507 | else if (s[i] == '+') {
|
---|
508 | if (j > 0) {
|
---|
509 | if ((PanSend[6 + j - 1] & 0xf) == 0xb) {
|
---|
510 | PanSend[6 + j - 1] = oct + 1 + 0x0;
|
---|
511 | }
|
---|
512 | else {
|
---|
513 | PanSend[6 + j - 1] ++;
|
---|
514 | }
|
---|
515 | }
|
---|
516 | }
|
---|
517 | else if (s[i] == '-') {
|
---|
518 | if (j > 0) {
|
---|
519 | if ((PanSend[6 + j - 1] & 0xf) == 0x0) {
|
---|
520 | PanSend[6 + j - 1] = oct - 1 + 0xb;
|
---|
521 | }
|
---|
522 | else {
|
---|
523 | PanSend[6 + j - 1] --;
|
---|
524 | }
|
---|
525 | }
|
---|
526 | }
|
---|
527 | else if (sc >= 0 && sc <= 0xb) {
|
---|
528 | PanSend[6 + j] = oct + sc;
|
---|
529 | j++;
|
---|
530 | }
|
---|
531 | }
|
---|
532 | PanSend[6 + j] = 0xff;
|
---|
533 | j++;
|
---|
534 |
|
---|
535 | PanSend[1] = 6 + j;
|
---|
536 |
|
---|
537 | wait_ms(PANCAKE_WAIT);
|
---|
538 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
539 |
|
---|
540 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
541 | }
|
---|
542 |
|
---|
543 | /******************************************************/
|
---|
544 | /* PanCakeで使うシリアルポート番号を指定: PanCake.serial*/
|
---|
545 | /* PanCake.serial(num)*/
|
---|
546 | /* num: シリアルポート番号(1~3)*/
|
---|
547 | /******************************************************/
|
---|
548 | mrb_value mrb_pancake_Serial(mrb_state *mrb, mrb_value self)
|
---|
549 | {
|
---|
550 | int num;
|
---|
551 | PinName txpin, rxpin;
|
---|
552 |
|
---|
553 | mrb_get_args(mrb, "i", &num);
|
---|
554 |
|
---|
555 | if (num <= 0 || num > 3) {
|
---|
556 | num = 1;
|
---|
557 | }
|
---|
558 |
|
---|
559 | SerialNum = num;
|
---|
560 |
|
---|
561 | /*シリアル通信の初期化をします*/
|
---|
562 | if (serial[SerialNum] != 0) {
|
---|
563 | serial_free(serial[SerialNum]);
|
---|
564 | wait_ms(50);
|
---|
565 | }
|
---|
566 |
|
---|
567 | if(!portToPins(SCI_SCI0P2x, &txpin, &rxpin))
|
---|
568 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
569 |
|
---|
570 | serial[SerialNum] = mrb_malloc(mrb, sizeof(serial_t));
|
---|
571 | serial_init(serial[SerialNum], txpin, rxpin);
|
---|
572 | serial_baud(serial[SerialNum], PANCAKE_BAURATE);
|
---|
573 |
|
---|
574 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
575 | }
|
---|
576 |
|
---|
577 | /******************************************************/
|
---|
578 | /* スプライトの左右反転: Sprite.flip*/
|
---|
579 | /* Sprite.flip(sn, fs)*/
|
---|
580 | /* sn: スプライト番号 0~15*/
|
---|
581 | /* fs: ON/OFF[01/00]*/
|
---|
582 | /******************************************************/
|
---|
583 | mrb_value mrb_pancake_Flip(mrb_state *mrb, mrb_value self)
|
---|
584 | {
|
---|
585 | int sn, fs;
|
---|
586 |
|
---|
587 | mrb_get_args(mrb, "ii", &sn, &fs);
|
---|
588 |
|
---|
589 | PanSend[1] = 0x5;
|
---|
590 | PanSend[2] = 0x10;
|
---|
591 | PanSend[3] = (unsigned char)sn;
|
---|
592 | PanSend[4] = (unsigned char)fs;
|
---|
593 |
|
---|
594 | wait_ms(PANCAKE_WAIT);
|
---|
595 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
596 |
|
---|
597 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
598 | }
|
---|
599 |
|
---|
600 | /******************************************************/
|
---|
601 | /* スプライトの回転: Sprite.rotate*/
|
---|
602 | /* Sprite.rotate(sn, ra)*/
|
---|
603 | /* sn: スプライト番号 0~15*/
|
---|
604 | /* ra: 角度[0:0°,1:-90°,2:180°,3:90°]*/
|
---|
605 | /******************************************************/
|
---|
606 | mrb_value mrb_pancake_Rotate(mrb_state *mrb, mrb_value self)
|
---|
607 | {
|
---|
608 | int sn, ra;
|
---|
609 |
|
---|
610 | mrb_get_args(mrb, "ii", &sn, &ra);
|
---|
611 |
|
---|
612 | PanSend[1] = 0x5;
|
---|
613 | PanSend[2] = 0x11;
|
---|
614 | PanSend[3] = (unsigned char)sn;
|
---|
615 | PanSend[4] = (unsigned char)ra;
|
---|
616 |
|
---|
617 | wait_ms(PANCAKE_WAIT);
|
---|
618 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
619 |
|
---|
620 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
621 | }
|
---|
622 |
|
---|
623 | /******************************************************/
|
---|
624 | /* スプライト用8x8画像の定義: Sprite.user*/
|
---|
625 | /* Sprite.user(dn, tc, string)*/
|
---|
626 | /* dn: スプライトの定義番号 FD か FE*/
|
---|
627 | /* tc: 透明色*/
|
---|
628 | /* string: 16進数の文字列が64個(色の番号です)*/
|
---|
629 | /******************************************************/
|
---|
630 | mrb_value mrb_pancake_User(mrb_state *mrb, mrb_value self)
|
---|
631 | {
|
---|
632 | int sn, tc;
|
---|
633 | mrb_value text;
|
---|
634 |
|
---|
635 | mrb_get_args(mrb, "iiS", &sn, &tc, &text);
|
---|
636 |
|
---|
637 | PanSend[1] = 0x25;
|
---|
638 | PanSend[2] = 0x12;
|
---|
639 | PanSend[3] = (unsigned char)sn;
|
---|
640 | PanSend[4] = (unsigned char)tc;
|
---|
641 |
|
---|
642 | char *s = RSTRING_PTR(text);
|
---|
643 |
|
---|
644 | for (int i = 0; i < 32; i++) {
|
---|
645 | PanSend[5 + i] = hex2int(s[i * 2]) * 16 + hex2int(s[i * 2 + 1]);
|
---|
646 | }
|
---|
647 |
|
---|
648 | wait_ms(PANCAKE_WAIT);
|
---|
649 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
650 |
|
---|
651 | return mrb_nil_value(); /*戻り値は無しですよ。*/
|
---|
652 | }
|
---|
653 |
|
---|
654 | /******************************************************/
|
---|
655 | /* ライブラリを定義します*/
|
---|
656 | /******************************************************/
|
---|
657 | void pancake_Init(mrb_state *mrb)
|
---|
658 | {
|
---|
659 | PanSend[0] = 0x80;
|
---|
660 |
|
---|
661 | struct RClass *pancakeModule = mrb_define_module(mrb, "PanCake");
|
---|
662 | mrb_define_module_function(mrb, pancakeModule, "serial", mrb_pancake_Serial, MRB_ARGS_REQ(1));
|
---|
663 | mrb_define_module_function(mrb, pancakeModule, "clear", mrb_pancake_Clear, MRB_ARGS_REQ(1));
|
---|
664 | mrb_define_module_function(mrb, pancakeModule, "line", mrb_pancake_Line, MRB_ARGS_REQ(5));
|
---|
665 | mrb_define_module_function(mrb, pancakeModule, "circle", mrb_pancake_Circle, MRB_ARGS_REQ(4));
|
---|
666 | mrb_define_module_function(mrb, pancakeModule, "stamp", mrb_pancake_Stamp, MRB_ARGS_REQ(4));
|
---|
667 | mrb_define_module_function(mrb, pancakeModule, "stamp1", mrb_pancake_Stamp1, MRB_ARGS_REQ(4));
|
---|
668 | mrb_define_module_function(mrb, pancakeModule, "image", mrb_pancake_Image, MRB_ARGS_REQ(1));
|
---|
669 | mrb_define_module_function(mrb, pancakeModule, "video", mrb_pancake_Video, MRB_ARGS_REQ(1));
|
---|
670 | mrb_define_module_function(mrb, pancakeModule, "sound", mrb_pancake_Sound, MRB_ARGS_REQ(8));
|
---|
671 | mrb_define_module_function(mrb, pancakeModule, "sound1", mrb_pancake_Sound1, MRB_ARGS_REQ(3));
|
---|
672 | mrb_define_module_function(mrb, pancakeModule, "reset", mrb_pancake_Reset, MRB_ARGS_NONE());
|
---|
673 | mrb_define_module_function(mrb, pancakeModule, "out", mrb_pancake_Out, MRB_ARGS_REQ(1));
|
---|
674 |
|
---|
675 | struct RClass *spriteModule = mrb_define_module(mrb, "Sprite");
|
---|
676 | mrb_define_module_function(mrb, spriteModule, "start", mrb_pancake_Start, MRB_ARGS_REQ(1));
|
---|
677 | mrb_define_module_function(mrb, spriteModule, "create", mrb_pancake_Create, MRB_ARGS_REQ(2));
|
---|
678 | mrb_define_module_function(mrb, spriteModule, "move", mrb_pancake_Move, MRB_ARGS_REQ(3));
|
---|
679 | mrb_define_module_function(mrb, spriteModule, "flip", mrb_pancake_Flip, MRB_ARGS_REQ(2));
|
---|
680 | mrb_define_module_function(mrb, spriteModule, "rotate", mrb_pancake_Rotate, MRB_ARGS_REQ(2));
|
---|
681 | mrb_define_module_function(mrb, spriteModule, "user", mrb_pancake_User, MRB_ARGS_REQ(3));
|
---|
682 |
|
---|
683 | struct RClass *musicModule = mrb_define_module(mrb, "Music");
|
---|
684 | mrb_define_module_function(mrb, musicModule, "score", mrb_pancake_Score, MRB_ARGS_REQ(4));
|
---|
685 | mrb_define_module_function(mrb, musicModule, "play", mrb_pancake_Play, MRB_ARGS_REQ(1));
|
---|
686 | }
|
---|