[270] | 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 | /* åæç¶æ
|
---|
| 297 | ã«ãã: PanCake.reset*/
|
---|
| 298 | /* PanCake.reset()*/
|
---|
| 299 | /******************************************************/
|
---|
| 300 | mrb_value mrb_pancake_Reset(mrb_state *mrb, mrb_value self)
|
---|
| 301 | {
|
---|
| 302 | PanSend[1] = 0x3;
|
---|
| 303 | PanSend[2] = 0xD;
|
---|
| 304 |
|
---|
| 305 | wait_ms(PANCAKE_WAIT);
|
---|
| 306 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 307 |
|
---|
| 308 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 309 | }
|
---|
| 310 |
|
---|
| 311 | /******************************************************/
|
---|
| 312 | /* OUTãã¼ãã«åºå: PanCake.out*/
|
---|
| 313 | /* PanCake.out(pf)*/
|
---|
| 314 | /* pf: HIGHã«ãããã¼ãçªå·ã16é²æ°ã§æå®*/
|
---|
| 315 | /******************************************************/
|
---|
| 316 | mrb_value mrb_pancake_Out(mrb_state *mrb, mrb_value self)
|
---|
| 317 | {
|
---|
| 318 | int pf;
|
---|
| 319 |
|
---|
| 320 | mrb_get_args(mrb, "i", &pf);
|
---|
| 321 |
|
---|
| 322 | PanSend[1] = 0x4;
|
---|
| 323 | PanSend[2] = 0xF;
|
---|
| 324 | PanSend[3] = (unsigned char)pf;
|
---|
| 325 |
|
---|
| 326 | wait_ms(PANCAKE_WAIT);
|
---|
| 327 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 328 |
|
---|
| 329 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 330 | }
|
---|
| 331 |
|
---|
| 332 | /******************************************************/
|
---|
| 333 | /* ã¹ãã©ã¤ããéå§ãã: Sprite.start*/
|
---|
| 334 | /* Sprite.start(num)*/
|
---|
| 335 | /* num: èæ¯ã«ä½¿ãçµã¿è¾¼ã¿ç»åçªå·*/
|
---|
| 336 | /* èæ¯ããã¿å¡ãã«ããå ´å㯠num ã®HighBitsã1ã«ãã¾ãã*/
|
---|
| 337 | /* ã¹ãã©ã¤ãå¦çãåæ¢ããã«ã¯ num ã FF ã«ãã¾ãã*/
|
---|
| 338 | /******************************************************/
|
---|
| 339 | mrb_value mrb_pancake_Start(mrb_state *mrb, mrb_value self)
|
---|
| 340 | {
|
---|
| 341 | int num;
|
---|
| 342 |
|
---|
| 343 | mrb_get_args(mrb, "i", &num);
|
---|
| 344 |
|
---|
| 345 | PanSend[1] = 0x4;
|
---|
| 346 | PanSend[2] = 0x6;
|
---|
| 347 | PanSend[3] = (unsigned char)num;
|
---|
| 348 |
|
---|
| 349 | wait_ms(PANCAKE_WAIT);
|
---|
| 350 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 351 |
|
---|
| 352 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 353 | }
|
---|
| 354 |
|
---|
| 355 | /******************************************************/
|
---|
| 356 | /* ã¹ãã©ã¤ããä½ã: Sprite.create*/
|
---|
| 357 | /* Sprite.create(sn, si)*/
|
---|
| 358 | /* sn: ã¹ãã©ã¤ãçªå· 0ï½15*/
|
---|
| 359 | /* si: çµã¿è¾¼ã¿ã¹ãã©ã¤ãç»åçªå·*/
|
---|
| 360 | /* æ¶ãã®ã¯ FF*/
|
---|
| 361 | /******************************************************/
|
---|
| 362 | mrb_value mrb_pancake_Create(mrb_state *mrb, mrb_value self)
|
---|
| 363 | {
|
---|
| 364 | int sn, si;
|
---|
| 365 |
|
---|
| 366 | mrb_get_args(mrb, "ii", &sn, &si);
|
---|
| 367 |
|
---|
| 368 | PanSend[1] = 0x5;
|
---|
| 369 | PanSend[2] = 0x7;
|
---|
| 370 | PanSend[3] = (unsigned char)sn;
|
---|
| 371 | PanSend[4] = (unsigned char)si;
|
---|
| 372 |
|
---|
| 373 | wait_ms(PANCAKE_WAIT);
|
---|
| 374 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 375 |
|
---|
| 376 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 377 | }
|
---|
| 378 |
|
---|
| 379 | /******************************************************/
|
---|
| 380 | /* ã¹ãã©ã¤ãã®ç§»å: Sprite.move*/
|
---|
| 381 | /* Sprite.move(sn, px,py)*/
|
---|
| 382 | /* sn: ã¹ãã©ã¤ãçªå· 0ï½15*/
|
---|
| 383 | /* px,py: ç»é¢åº§æ¨*/
|
---|
| 384 | /******************************************************/
|
---|
| 385 | mrb_value mrb_pancake_Move(mrb_state *mrb, mrb_value self)
|
---|
| 386 | {
|
---|
| 387 | int sn, px, py;
|
---|
| 388 |
|
---|
| 389 | mrb_get_args(mrb, "iii", &sn, &px, &py);
|
---|
| 390 |
|
---|
| 391 | PanSend[1] = 0x6;
|
---|
| 392 | PanSend[2] = 0x8;
|
---|
| 393 | PanSend[3] = (unsigned char)sn;
|
---|
| 394 | PanSend[4] = (unsigned char)px;
|
---|
| 395 | PanSend[5] = (unsigned char)py;
|
---|
| 396 |
|
---|
| 397 | wait_ms(PANCAKE_WAIT);
|
---|
| 398 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 399 |
|
---|
| 400 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 401 | }
|
---|
| 402 |
|
---|
| 403 | /******************************************************/
|
---|
| 404 | /* é³æ¥½åçãã: Music.play*/
|
---|
| 405 | /* Music.play(sw)*/
|
---|
| 406 | /* sw: START/STOP[01/00]*/
|
---|
| 407 | /******************************************************/
|
---|
| 408 | mrb_value mrb_pancake_Play(mrb_state *mrb, mrb_value self)
|
---|
| 409 | {
|
---|
| 410 | int sw;
|
---|
| 411 |
|
---|
| 412 | mrb_get_args(mrb, "i", &sw);
|
---|
| 413 |
|
---|
| 414 | PanSend[1] = 0x4;
|
---|
| 415 | PanSend[2] = 0xC;
|
---|
| 416 | PanSend[3] = (unsigned char)sw;
|
---|
| 417 |
|
---|
| 418 | wait_ms(PANCAKE_WAIT);
|
---|
| 419 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 420 |
|
---|
| 421 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 422 | }
|
---|
| 423 |
|
---|
| 424 | /******************************************************/
|
---|
| 425 | /* C D E F G A B ã0x0 ï½ 0xBã«ç½®ãæãã¾ã*/
|
---|
| 426 | /* C D E F G A B*/
|
---|
| 427 | /* 0 2 4 5 7 9 B*/
|
---|
| 428 | /******************************************************/
|
---|
| 429 | int score2int(char s)
|
---|
| 430 | {
|
---|
| 431 | if ('c' == s || s == 'C') {
|
---|
| 432 | return 0;
|
---|
| 433 | }
|
---|
| 434 | else if ('d' == s || s == 'D') {
|
---|
| 435 | return 2;
|
---|
| 436 | }
|
---|
| 437 | else if ('e' == s || s == 'E') {
|
---|
| 438 | return 4;
|
---|
| 439 | }
|
---|
| 440 | else if ('f' == s || s == 'F') {
|
---|
| 441 | return 5;
|
---|
| 442 | }
|
---|
| 443 | else if ('g' == s || s == 'G') {
|
---|
| 444 | return 7;
|
---|
| 445 | }
|
---|
| 446 | else if ('a' == s || s == 'A') {
|
---|
| 447 | return 9;
|
---|
| 448 | }
|
---|
| 449 | else if ('b' == s || s == 'B') {
|
---|
| 450 | return 11;
|
---|
| 451 | }
|
---|
| 452 | return -1;
|
---|
| 453 | }
|
---|
| 454 |
|
---|
| 455 | /******************************************************/
|
---|
| 456 | /* MMLããµã¦ã³ãchã«ç»é²ãã: Music.score*/
|
---|
| 457 | /* Music.score(ch, pn, tt, string)*/
|
---|
| 458 | /* ch: ãã£ã³ãã«(00ï½03)*/
|
---|
| 459 | /* pn: 01:å³åçã00:å¾ã§åç*/
|
---|
| 460 | /* tt: ãã³ã(0ï½F)+é³è² [ex. 30 == ãã³ã3ãé³è²0]*/
|
---|
| 461 | /* string: MML 64ãã¤ãã¾ã§*/
|
---|
| 462 | /******************************************************/
|
---|
| 463 | mrb_value mrb_pancake_Score(mrb_state *mrb, mrb_value self)
|
---|
| 464 | {
|
---|
| 465 | int ch, pn, tt;
|
---|
| 466 | mrb_value text;
|
---|
| 467 |
|
---|
| 468 | mrb_get_args(mrb, "iiiS", &ch, &pn, &tt, &text);
|
---|
| 469 |
|
---|
| 470 | /*PanSend[1] = 0xE;*/
|
---|
| 471 | PanSend[2] = 0xB;
|
---|
| 472 | PanSend[3] = (unsigned char)ch;
|
---|
| 473 | PanSend[4] = (unsigned char)pn;
|
---|
| 474 | PanSend[5] = (unsigned char)tt;
|
---|
| 475 |
|
---|
| 476 | char *s = RSTRING_PTR(text);
|
---|
| 477 | int len = RSTRING_LEN(text);
|
---|
| 478 |
|
---|
| 479 | int oct = 0x40;
|
---|
| 480 | int sc = 0;
|
---|
| 481 | int j = 0;
|
---|
| 482 | for (int i = 0; i < len; i++) {
|
---|
| 483 |
|
---|
| 484 | sc = score2int(s[i]);
|
---|
| 485 |
|
---|
| 486 | if (s[i] == 'n' || s[i] == 'N') {
|
---|
| 487 | PanSend[6 + j] = oct + 0x0e;
|
---|
| 488 | j++;
|
---|
| 489 | }
|
---|
| 490 | else if (s[i] == 'r' || s[i] == 'R') {
|
---|
| 491 | PanSend[6 + j] = oct + 0x0f;
|
---|
| 492 | j++;
|
---|
| 493 | }
|
---|
| 494 | else if (s[i] == '$') {
|
---|
| 495 | PanSend[6 + j] = 0xfe;
|
---|
| 496 | j++;
|
---|
| 497 | }
|
---|
| 498 | else if (s[i] == '~') {
|
---|
| 499 | PanSend[6 + j] = 0xfd;
|
---|
| 500 | j++;
|
---|
| 501 | }
|
---|
| 502 | else if (s[i] == '>') {
|
---|
| 503 | oct += 0x10;
|
---|
| 504 | }
|
---|
| 505 | else if (s[i] == '<') {
|
---|
| 506 | oct -= 0x10;
|
---|
| 507 | }
|
---|
| 508 | else if (s[i] == '+') {
|
---|
| 509 | if (j > 0) {
|
---|
| 510 | if ((PanSend[6 + j - 1] & 0xf) == 0xb) {
|
---|
| 511 | PanSend[6 + j - 1] = oct + 1 + 0x0;
|
---|
| 512 | }
|
---|
| 513 | else {
|
---|
| 514 | PanSend[6 + j - 1] ++;
|
---|
| 515 | }
|
---|
| 516 | }
|
---|
| 517 | }
|
---|
| 518 | else if (s[i] == '-') {
|
---|
| 519 | if (j > 0) {
|
---|
| 520 | if ((PanSend[6 + j - 1] & 0xf) == 0x0) {
|
---|
| 521 | PanSend[6 + j - 1] = oct - 1 + 0xb;
|
---|
| 522 | }
|
---|
| 523 | else {
|
---|
| 524 | PanSend[6 + j - 1] --;
|
---|
| 525 | }
|
---|
| 526 | }
|
---|
| 527 | }
|
---|
| 528 | else if (sc >= 0 && sc <= 0xb) {
|
---|
| 529 | PanSend[6 + j] = oct + sc;
|
---|
| 530 | j++;
|
---|
| 531 | }
|
---|
| 532 | }
|
---|
| 533 | PanSend[6 + j] = 0xff;
|
---|
| 534 | j++;
|
---|
| 535 |
|
---|
| 536 | PanSend[1] = 6 + j;
|
---|
| 537 |
|
---|
| 538 | wait_ms(PANCAKE_WAIT);
|
---|
| 539 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 540 |
|
---|
| 541 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 542 | }
|
---|
| 543 |
|
---|
| 544 | /******************************************************/
|
---|
| 545 | /* PanCakeã§ä½¿ãã·ãªã¢ã«ãã¼ãçªå·ãæå®: PanCake.serial*/
|
---|
| 546 | /* PanCake.serial(num)*/
|
---|
| 547 | /* num: ã·ãªã¢ã«ãã¼ãçªå·(1ï½3)*/
|
---|
| 548 | /******************************************************/
|
---|
| 549 | mrb_value mrb_pancake_Serial(mrb_state *mrb, mrb_value self)
|
---|
| 550 | {
|
---|
| 551 | int num;
|
---|
| 552 | PinName txpin, rxpin;
|
---|
| 553 |
|
---|
| 554 | mrb_get_args(mrb, "i", &num);
|
---|
| 555 |
|
---|
| 556 | if (num <= 0 || num > 3) {
|
---|
| 557 | num = 1;
|
---|
| 558 | }
|
---|
| 559 |
|
---|
| 560 | SerialNum = num;
|
---|
| 561 |
|
---|
| 562 | /*ã·ãªã¢ã«éä¿¡ã®åæåããã¾ã*/
|
---|
| 563 | if (serial[SerialNum] != 0) {
|
---|
| 564 | serial_free(serial[SerialNum]);
|
---|
| 565 | wait_ms(50);
|
---|
| 566 | }
|
---|
| 567 |
|
---|
| 568 | if(!portToPins(SCI_SCI0P2x, &txpin, &rxpin))
|
---|
| 569 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 570 |
|
---|
| 571 | serial[SerialNum] = mrb_malloc(mrb, sizeof(serial_t));
|
---|
| 572 | serial_init(serial[SerialNum], txpin, rxpin);
|
---|
| 573 | serial_baud(serial[SerialNum], PANCAKE_BAURATE);
|
---|
| 574 |
|
---|
| 575 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 576 | }
|
---|
| 577 |
|
---|
| 578 | /******************************************************/
|
---|
| 579 | /* ã¹ãã©ã¤ãã®å·¦å³å転: Sprite.flip*/
|
---|
| 580 | /* Sprite.flip(sn, fs)*/
|
---|
| 581 | /* sn: ã¹ãã©ã¤ãçªå· 0ï½15*/
|
---|
| 582 | /* fs: ON/OFF[01/00]*/
|
---|
| 583 | /******************************************************/
|
---|
| 584 | mrb_value mrb_pancake_Flip(mrb_state *mrb, mrb_value self)
|
---|
| 585 | {
|
---|
| 586 | int sn, fs;
|
---|
| 587 |
|
---|
| 588 | mrb_get_args(mrb, "ii", &sn, &fs);
|
---|
| 589 |
|
---|
| 590 | PanSend[1] = 0x5;
|
---|
| 591 | PanSend[2] = 0x10;
|
---|
| 592 | PanSend[3] = (unsigned char)sn;
|
---|
| 593 | PanSend[4] = (unsigned char)fs;
|
---|
| 594 |
|
---|
| 595 | wait_ms(PANCAKE_WAIT);
|
---|
| 596 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 597 |
|
---|
| 598 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 599 | }
|
---|
| 600 |
|
---|
| 601 | /******************************************************/
|
---|
| 602 | /* ã¹ãã©ã¤ãã®å転: Sprite.rotate*/
|
---|
| 603 | /* Sprite.rotate(sn, ra)*/
|
---|
| 604 | /* sn: ã¹ãã©ã¤ãçªå· 0ï½15*/
|
---|
| 605 | /* ra: è§åº¦[0:0°,1:-90°,2:180°,3:90°]*/
|
---|
| 606 | /******************************************************/
|
---|
| 607 | mrb_value mrb_pancake_Rotate(mrb_state *mrb, mrb_value self)
|
---|
| 608 | {
|
---|
| 609 | int sn, ra;
|
---|
| 610 |
|
---|
| 611 | mrb_get_args(mrb, "ii", &sn, &ra);
|
---|
| 612 |
|
---|
| 613 | PanSend[1] = 0x5;
|
---|
| 614 | PanSend[2] = 0x11;
|
---|
| 615 | PanSend[3] = (unsigned char)sn;
|
---|
| 616 | PanSend[4] = (unsigned char)ra;
|
---|
| 617 |
|
---|
| 618 | wait_ms(PANCAKE_WAIT);
|
---|
| 619 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 620 |
|
---|
| 621 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 622 | }
|
---|
| 623 |
|
---|
| 624 | /******************************************************/
|
---|
| 625 | /* ã¹ãã©ã¤ãç¨8x8ç»åã®å®ç¾©: Sprite.user*/
|
---|
| 626 | /* Sprite.user(dn, tc, string)*/
|
---|
| 627 | /* dn: ã¹ãã©ã¤ãã®å®ç¾©çªå· FD ã FE*/
|
---|
| 628 | /* tc: éæè²*/
|
---|
| 629 | /* string: 16é²æ°ã®æååã64å(è²ã®çªå·ã§ã)*/
|
---|
| 630 | /******************************************************/
|
---|
| 631 | mrb_value mrb_pancake_User(mrb_state *mrb, mrb_value self)
|
---|
| 632 | {
|
---|
| 633 | int sn, tc;
|
---|
| 634 | mrb_value text;
|
---|
| 635 |
|
---|
| 636 | mrb_get_args(mrb, "iiS", &sn, &tc, &text);
|
---|
| 637 |
|
---|
| 638 | PanSend[1] = 0x25;
|
---|
| 639 | PanSend[2] = 0x12;
|
---|
| 640 | PanSend[3] = (unsigned char)sn;
|
---|
| 641 | PanSend[4] = (unsigned char)tc;
|
---|
| 642 |
|
---|
| 643 | char *s = RSTRING_PTR(text);
|
---|
| 644 |
|
---|
| 645 | for (int i = 0; i < 32; i++) {
|
---|
| 646 | PanSend[5 + i] = hex2int(s[i * 2]) * 16 + hex2int(s[i * 2 + 1]);
|
---|
| 647 | }
|
---|
| 648 |
|
---|
| 649 | wait_ms(PANCAKE_WAIT);
|
---|
| 650 | serial_write(serial[SerialNum], (const unsigned char *)PanSend, PanSend[1]);
|
---|
| 651 |
|
---|
| 652 | return mrb_nil_value(); /*æ»ãå¤ã¯ç¡ãã§ããã*/
|
---|
| 653 | }
|
---|
| 654 |
|
---|
| 655 | /******************************************************/
|
---|
| 656 | /* ã©ã¤ãã©ãªãå®ç¾©ãã¾ã*/
|
---|
| 657 | /******************************************************/
|
---|
| 658 | void pancake_Init(mrb_state *mrb)
|
---|
| 659 | {
|
---|
| 660 | PanSend[0] = 0x80;
|
---|
| 661 |
|
---|
| 662 | struct RClass *pancakeModule = mrb_define_module(mrb, "PanCake");
|
---|
| 663 | mrb_define_module_function(mrb, pancakeModule, "serial", mrb_pancake_Serial, MRB_ARGS_REQ(1));
|
---|
| 664 | mrb_define_module_function(mrb, pancakeModule, "clear", mrb_pancake_Clear, MRB_ARGS_REQ(1));
|
---|
| 665 | mrb_define_module_function(mrb, pancakeModule, "line", mrb_pancake_Line, MRB_ARGS_REQ(5));
|
---|
| 666 | mrb_define_module_function(mrb, pancakeModule, "circle", mrb_pancake_Circle, MRB_ARGS_REQ(4));
|
---|
| 667 | mrb_define_module_function(mrb, pancakeModule, "stamp", mrb_pancake_Stamp, MRB_ARGS_REQ(4));
|
---|
| 668 | mrb_define_module_function(mrb, pancakeModule, "stamp1", mrb_pancake_Stamp1, MRB_ARGS_REQ(4));
|
---|
| 669 | mrb_define_module_function(mrb, pancakeModule, "image", mrb_pancake_Image, MRB_ARGS_REQ(1));
|
---|
| 670 | mrb_define_module_function(mrb, pancakeModule, "video", mrb_pancake_Video, MRB_ARGS_REQ(1));
|
---|
| 671 | mrb_define_module_function(mrb, pancakeModule, "sound", mrb_pancake_Sound, MRB_ARGS_REQ(8));
|
---|
| 672 | mrb_define_module_function(mrb, pancakeModule, "sound1", mrb_pancake_Sound1, MRB_ARGS_REQ(3));
|
---|
| 673 | mrb_define_module_function(mrb, pancakeModule, "reset", mrb_pancake_Reset, MRB_ARGS_NONE());
|
---|
| 674 | mrb_define_module_function(mrb, pancakeModule, "out", mrb_pancake_Out, MRB_ARGS_REQ(1));
|
---|
| 675 |
|
---|
| 676 | struct RClass *spriteModule = mrb_define_module(mrb, "Sprite");
|
---|
| 677 | mrb_define_module_function(mrb, spriteModule, "start", mrb_pancake_Start, MRB_ARGS_REQ(1));
|
---|
| 678 | mrb_define_module_function(mrb, spriteModule, "create", mrb_pancake_Create, MRB_ARGS_REQ(2));
|
---|
| 679 | mrb_define_module_function(mrb, spriteModule, "move", mrb_pancake_Move, MRB_ARGS_REQ(3));
|
---|
| 680 | mrb_define_module_function(mrb, spriteModule, "flip", mrb_pancake_Flip, MRB_ARGS_REQ(2));
|
---|
| 681 | mrb_define_module_function(mrb, spriteModule, "rotate", mrb_pancake_Rotate, MRB_ARGS_REQ(2));
|
---|
| 682 | mrb_define_module_function(mrb, spriteModule, "user", mrb_pancake_User, MRB_ARGS_REQ(3));
|
---|
| 683 |
|
---|
| 684 | struct RClass *musicModule = mrb_define_module(mrb, "Music");
|
---|
| 685 | mrb_define_module_function(mrb, musicModule, "score", mrb_pancake_Score, MRB_ARGS_REQ(4));
|
---|
| 686 | mrb_define_module_function(mrb, musicModule, "play", mrb_pancake_Play, MRB_ARGS_REQ(1));
|
---|
| 687 | }
|
---|