main.cpp

00001 // AD-12864-SPI test program
00002 // About AD-12864-SPI, see http://www.aitendo.co.jp/product/1622.
00003 
00004 // Pin allocation
00005 // 1 p21 #CS1 with 10k ohm pull-up
00006 // 2 p22 #RESET with 10k ohm pull-up
00007 // 3 p23 A0 ... 0:command 1:data
00008 // 4 p13 SCK
00009 // 5 p11 MOSI
00010 // 6     Vdd
00011 // 7     Vss
00012 // 8 NC  LED_A 
00013 
00014 #include "mbed.h"
00015 
00016 DigitalOut cs(p21);
00017 DigitalOut rst(p22);
00018 DigitalOut a0(p23);
00019 SPI spi(p11, p12, p13); // mosi, miso, sclk
00020 
00021 void regwrite(unsigned char c){
00022     cs = a0 = 0;
00023     spi.write(c);
00024     cs = 1;
00025 }
00026 
00027 void datawrite(unsigned char c){
00028     cs = 0;
00029     a0 = 1;
00030     spi.write(c);
00031     cs = 1;
00032 }
00033 
00034 // set position (x, 8*y)
00035 void locate(int x, int y){
00036     regwrite(0xb0 | (y & 0x0f)); // Page Address Set (see 2.4.3)
00037     regwrite(0x10 | (x >> 4 & 0x0f)); // Column Address Set (see 2.4.4)
00038     regwrite(x & 0x0f);
00039 }
00040 
00041 void cls(void){
00042     int x, y;
00043     for(y = 0; y < 8; y++){
00044         locate(0, y);
00045         for(x = 0; x < 128; x++) datawrite(0x00);
00046     }
00047 }
00048 
00049 void plot(int x, int y){
00050     locate(x, y >> 3);
00051     datawrite(1 << (y & 7));
00052 }
00053 
00054 void init(){
00055     spi.format(8,0); // nazo
00056     spi.frequency(10000000); // modify later
00057     
00058     // reset
00059     wait_ms(200);
00060     rst = 0;
00061     wait_ms(200);
00062     rst = 1;
00063 
00064     // initialize sequence
00065     regwrite(0xaf);    // display on (see 2.4.1)
00066     regwrite(0x2f);    // power control set (see 2.4.16)
00067     regwrite(0x81);    // set electronic volume mode (see 2.4.18)
00068 //    regwrite(0x1f);    // electronic volume data 00-3f
00069     regwrite(0x00);    // electronic volume data 00-3f
00070     regwrite(0x27);    // V5 Volatge Regulator Internal Resister Ratio Set (see 2.4.17)
00071     regwrite(0xa2);    // LCD Bias Set ... 1/9 bias (see 2.4.11)
00072     regwrite(0xc8);    // Common Output Mode Select ... Reverse (see 2.4.15)
00073     regwrite(0xa0);    // ADC Select ... Normal (see 2.4.8)
00074     regwrite(0xa4);    // Display All Points ON/OFF ... normal (see 2.4.10)
00075     regwrite(0xa6);    // Display Normal/Reverse ... normal (see 2.4.9)
00076     regwrite(0xac);    // Static Indicator ... off (see 2.4.19)
00077     regwrite(0x00);    // off
00078     regwrite(0x40);    // Display Strat Line Set ... 0 (see 2.4.2)
00079     regwrite(0xe0);    // Write Mode Set
00080 }
00081 
00082 // miku1.bmp 75x64
00083 const unsigned char miku1[75*8] = {
00084     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x64,0x08,0xf0,0x80,0x20,0xc8,0x90,0x28,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x40,0x60,0x50,0xa0,0x20,0x40,0xa0,0x00,0xe0,0x00,0x20,0xc0,0x00,0x80,0xc0,0xa0,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00085     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x06,0x08,0x17,0x2a,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0xd8,0x3e,0xc5,0xba,0x21,0xab,0x04,0x00,0x03,0x3a,0x44,0xfb,0x00,0x07,0x08,0x75,0x83,0x56,0xad,0x1a,0xe4,0x89,0x22,0x8c,0x30,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00086     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x44,0xe0,0xe0,0xe0,0xe0,0xf0,0xcc,0xd1,0xbf,0xc0,0x3f,0xc0,0x03,0x00,0x82,0x10,0x10,0x10,0x00,0xf0,0x01,0x02,0x01,0x04,0x03,0x40,0xdd,0x32,0xf4,0x3f,0x3f,0x1c,0xe2,0x0c,0xf1,0x06,0xd8,0x20,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00087     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x07,0xdf,0x3f,0x5f,0xbf,0xbf,0xbf,0xbf,0x3f,0xff,0xbf,0x3f,0x6f,0x0a,0xc2,0x74,0x94,0x74,0xc8,0xef,0x10,0x7c,0x94,0x0c,0x43,0x04,0xc3,0x01,0x00,0x00,0x00,0x00,0xdb,0x22,0x94,0x63,0x8c,0x31,0xc6,0x18,0xe0,0x00,0x00,0x00,0x00,0x00,
00088     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x4a,0x94,0x61,0x9e,0x61,0x9e,0x62,0x9c,0xe3,0xbc,0xcb,0x18,0xd6,0xa9,0xd6,0xa1,0xbe,0x49,0x92,0x0c,0xd1,0x2e,0xd1,0xff,0xff,0xff,0xff,0xfe,0xe0,0x80,0x00,0x00,0xff,0x20,0xca,0x15,0x4a,0xb0,0x45,0x12,0xed,0x12,0xe8,0x00,0x00,0x00,
00089     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x52,0xbc,0x02,0xf5,0x00,0xff,0x00,0xff,0x00,0xff,0x04,0x5b,0xf7,0x1f,0x2f,0x5f,0x5f,0x7f,0xbe,0xbd,0xba,0x3c,0x7f,0x3c,0x1f,0xff,0xbf,0xff,0x3f,0xbf,0x3f,0x3f,0xee,0x2f,0xc8,0x32,0x84,0x29,0x54,0x81,0x7e,0x81,0x7c,0x83,0x7c,0xab,0x40,0x00,
00090     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x16,0x48,0xa3,0x5c,0xa3,0x4c,0xb3,0x4c,0x33,0x0c,0x0b,0x00,0x00,0x01,0xff,0xff,0xff,0xff,0xf4,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x01,0x00,0x03,0x3e,0xe0,0x0d,0xd0,0x25,0xda,0x25,0xda,0x25,0xda,0xa5,0x1a,0x01,0x00,
00091     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x01,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0f,0x1f,0x1f,0x0f,0x04,0x1f,0x1f,0x1f,0x1f,0x0f,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x3f,0x28,0x17,0x08,0x07,0x02,0x00,0x00,0x00,0x00,
00092 };
00093 
00094 // miku2.bmp 75x64
00095 const unsigned char miku2[75*8] = {
00096     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x40,0x60,0x50,0xa0,0x20,0x40,0xa0,0x00,0xe0,0x00,0x20,0xc0,0x00,0x80,0xc0,0xa0,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00097     0x00,0x00,0x00,0x00,0x80,0x00,0x80,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0xd8,0x3e,0xc5,0xba,0x21,0xab,0x04,0x00,0x03,0x3a,0x44,0xfb,0x00,0x07,0x08,0x75,0x83,0x56,0xad,0x1a,0xe4,0x89,0x22,0x8c,0x30,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00098     0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x34,0x41,0x15,0x2a,0x51,0x0e,0x30,0x0c,0x10,0x28,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x00,0x20,0x00,0x40,0xf0,0xf8,0xf8,0xfc,0xfc,0xfc,0xfc,0xf1,0xff,0xc0,0x3f,0xc0,0x03,0x00,0x82,0x10,0x10,0x10,0x00,0xf0,0x01,0x02,0x01,0x04,0x03,0x40,0xdd,0x32,0xf4,0x3f,0x3f,0x1c,0xe2,0x0c,0xf1,0x06,0xd8,0x20,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00099     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x83,0x33,0x47,0x97,0x6f,0x97,0x6f,0x8f,0x5f,0xbf,0x0f,0x27,0x02,0xc6,0x70,0x94,0x74,0xc8,0xef,0x10,0x7c,0x94,0x0c,0x43,0x04,0xc3,0x01,0x00,0x00,0x00,0x00,0xdb,0x22,0x94,0x63,0x8c,0x31,0xc6,0x18,0xe0,0x00,0x00,0x00,0x00,0x00,
00100     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x4a,0x95,0x60,0x9f,0x60,0x9f,0x60,0x9f,0xe0,0xbf,0xca,0x18,0xd6,0xa9,0xd6,0xa1,0xbe,0x49,0x92,0x0c,0xd1,0x2e,0xd1,0xff,0xff,0xff,0xff,0xfe,0xe0,0x80,0x00,0x00,0xff,0x20,0xca,0x15,0x4a,0xb0,0x45,0x12,0xed,0x12,0xe8,0x00,0x00,0x00,
00101     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x52,0xbc,0x02,0xf5,0x00,0xff,0x00,0xff,0x00,0xff,0x04,0x5b,0xf7,0x1f,0x2f,0x5f,0x5f,0x7f,0xbe,0xbd,0xba,0x3c,0x7f,0x3c,0x1f,0xff,0xbf,0xff,0x3f,0xbf,0x3f,0x3f,0xee,0x2f,0xc8,0x32,0x84,0x29,0x54,0x81,0x7e,0x81,0x7c,0x83,0x7c,0xab,0x40,0x00,
00102     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x16,0x48,0xa3,0x5c,0xa3,0x4c,0xb3,0x4c,0x33,0x0c,0x0b,0x00,0x00,0x01,0xff,0xff,0xff,0xff,0xf4,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x01,0x00,0x03,0x3e,0xe0,0x0d,0xd0,0x25,0xda,0x25,0xda,0x25,0xda,0xa5,0x1a,0x01,0x00,
00103     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x01,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0f,0x1f,0x1f,0x0f,0x04,0x1f,0x1f,0x1f,0x1f,0x0f,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x3f,0x28,0x17,0x08,0x07,0x02,0x00,0x00,0x00,0x00,
00104 };
00105 
00106 // miku3.bmp 75x64
00107 const unsigned char miku3[75*8] = {
00108     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x40,0x60,0x50,0xa0,0x20,0x40,0xa0,0x00,0xe0,0x00,0x20,0xc0,0x00,0x80,0xc0,0xa0,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00109     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0xd8,0x3e,0xc5,0xba,0x21,0xab,0x04,0x00,0x03,0x3a,0x44,0xfb,0x00,0x07,0x08,0x75,0x83,0x56,0xad,0x1a,0xe4,0x89,0x22,0x8c,0x30,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00110     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x30,0xcc,0x11,0x7f,0xc0,0x3f,0xc0,0x03,0x00,0x82,0x10,0x10,0x10,0x00,0xf0,0x01,0x02,0x01,0x04,0x03,0x40,0xdd,0x32,0xf4,0x3f,0x3f,0x1c,0xe2,0x0c,0xf1,0x06,0xd8,0x20,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00111     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xc0,0xe8,0xc2,0xdd,0xe0,0xdf,0xe0,0xdf,0xe0,0xff,0xa1,0x03,0x82,0x42,0xf4,0x24,0x74,0xc8,0x2f,0xd0,0x3c,0x94,0x0c,0x43,0x04,0xc3,0x01,0x00,0x00,0x00,0x00,0xdb,0x22,0x94,0x63,0x8c,0x31,0xc6,0x18,0xe0,0x00,0x00,0x00,0x00,0x00,
00112     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x25,0x9f,0x7f,0x7f,0xff,0x7f,0xbf,0x3f,0xcf,0xff,0x37,0xcb,0x1d,0xd3,0xac,0xd3,0xac,0xb1,0x4f,0x90,0x0d,0xd0,0x2f,0xd0,0xff,0xff,0xff,0xff,0xfe,0xe0,0x80,0x00,0x00,0xff,0x20,0xca,0x15,0x4a,0xb0,0x45,0x12,0xed,0x12,0xe8,0x00,0x00,0x00,
00113     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x00,0xc0,0x20,0xc0,0x20,0xa0,0x40,0x90,0x70,0x00,0x68,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0xbb,0x44,0x89,0x32,0xcd,0x32,0xcd,0x32,0xcd,0x36,0x4b,0xf7,0x1f,0x2f,0x5f,0x5f,0x7f,0xbe,0xbd,0xba,0x3c,0x7f,0x3c,0x1f,0xff,0xbf,0xff,0x3f,0xbf,0x3f,0x3f,0xee,0x2f,0xc8,0x32,0x84,0x29,0x54,0x81,0x7e,0x81,0x7c,0x83,0x7c,0xab,0x40,0x00,
00114     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x00,0x02,0x01,0x04,0x08,0x03,0x04,0x02,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0e,0x51,0xa6,0x58,0xa3,0x4c,0xb3,0x4c,0x33,0x0c,0x0b,0x00,0x00,0x01,0xff,0xff,0xff,0xff,0xf4,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x01,0x00,0x03,0x3e,0xe0,0x0d,0xd0,0x25,0xda,0x25,0xda,0x25,0xda,0xa5,0x1a,0x01,0x00,
00115     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x01,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0f,0x1f,0x1f,0x0f,0x04,0x1f,0x1f,0x1f,0x1f,0x0f,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x3f,0x28,0x17,0x08,0x07,0x02,0x00,0x00,0x00,0x00,
00116 };
00117 
00118 // miku4.bmp 75x64
00119 const unsigned char miku4[75*8] = {
00120     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x40,0x60,0x50,0xa0,0x20,0x40,0xa0,0x00,0xe0,0x00,0x20,0xc0,0x00,0x80,0xc0,0xa0,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00121     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0xd8,0x3e,0xc5,0xba,0x21,0xab,0x04,0x00,0x03,0x3a,0x44,0xfb,0x00,0x07,0x08,0x75,0x83,0x56,0xad,0x1a,0xe4,0x89,0x22,0x8c,0x30,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00122     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x30,0xcc,0x11,0x7f,0xc0,0x3f,0xc0,0x03,0x00,0x82,0x10,0x10,0x10,0x00,0xf0,0x01,0x02,0x01,0x04,0x03,0x40,0xdd,0x32,0xf4,0x3f,0x3f,0x1c,0xe2,0x0c,0xf1,0x06,0xd8,0x20,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00123     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0xc0,0xe0,0xf8,0xe2,0xfd,0xe0,0xff,0xe0,0xff,0xe0,0xff,0xe1,0x83,0x22,0xc2,0x64,0x94,0x74,0xc8,0xef,0x10,0x7c,0x94,0x0c,0x43,0x04,0xc3,0x01,0x00,0x00,0x00,0x00,0xdb,0x22,0x94,0x63,0x8c,0x31,0xc6,0x18,0xe0,0x00,0x00,0x00,0x00,0x00,
00124     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x80,0x40,0x00,0xc0,0x00,0xe0,0x00,0x40,0x00,0x00,0x00,0x02,0x00,0x00,0x02,0x00,0x00,0xa1,0x4f,0x1f,0xdf,0x3f,0xdf,0x3f,0xcf,0x2f,0xf7,0xcf,0x9b,0x2b,0xd3,0xac,0xd3,0xac,0xb1,0x4e,0x91,0x0c,0xd1,0x2e,0xd1,0xff,0xff,0xff,0xff,0xfe,0xe0,0x80,0x00,0x00,0xff,0x20,0xca,0x15,0x4a,0xb0,0x45,0x12,0xed,0x12,0xe8,0x00,0x00,0x00,
00125     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x23,0xd0,0x0a,0xd5,0x32,0x05,0x0c,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0xb8,0x47,0x88,0x33,0xcc,0x33,0xc4,0x3d,0xc3,0x3c,0x47,0xf7,0x1f,0x2f,0x5f,0x5f,0x7f,0xbe,0xbd,0xba,0x3c,0x7f,0x3c,0x1f,0xff,0xbf,0xff,0x3f,0xbf,0x3f,0x3f,0xee,0x2f,0xc8,0x32,0x84,0x29,0x54,0x81,0x7e,0x81,0x7c,0x83,0x7c,0xab,0x40,0x00,
00126     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0e,0x51,0xa6,0x58,0xa3,0x4c,0xb3,0x4c,0x33,0x0c,0x0b,0x00,0x00,0x01,0xff,0xff,0xff,0xff,0xf4,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x01,0x00,0x03,0x3e,0xe0,0x0d,0xd0,0x25,0xda,0x25,0xda,0x25,0xda,0xa5,0x1a,0x01,0x00,
00127     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x01,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0f,0x1f,0x1f,0x0f,0x04,0x1f,0x1f,0x1f,0x1f,0x0f,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x3f,0x28,0x17,0x08,0x07,0x02,0x00,0x00,0x00,0x00,
00128 };
00129 
00130 // miku5.bmp 75x64
00131 const unsigned char miku5[75*8] = {
00132     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x40,0x60,0x50,0xa0,0x20,0x40,0xa0,0x00,0xe0,0x00,0x20,0xc0,0x00,0x80,0xc0,0xa0,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00133     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0xd8,0x3e,0xc5,0xba,0x21,0xab,0x04,0x00,0x03,0x3a,0x44,0xfb,0x00,0x07,0x08,0x75,0x83,0x56,0xad,0x1a,0xe4,0x89,0x22,0x8c,0x30,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00134     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x30,0xcc,0x11,0x7f,0xc0,0x3f,0xc0,0x03,0x00,0x82,0x10,0x10,0x10,0x00,0xf0,0x01,0x02,0x01,0x04,0x03,0x40,0xdd,0x32,0xf4,0x3f,0x3f,0x1c,0xe2,0x0c,0xf1,0x06,0xd8,0x20,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00135     0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x40,0x20,0x80,0x60,0x80,0x60,0x80,0x60,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x20,0x00,0x10,0x20,0x00,0x50,0xf0,0xf8,0xf8,0xfa,0xfd,0xf0,0xff,0xf0,0xff,0xf0,0xef,0xe1,0xa3,0x82,0x42,0xf4,0x24,0x74,0xc8,0x2f,0xd0,0x3c,0x94,0x0c,0x43,0x04,0xc3,0x01,0x00,0x00,0x00,0x00,0xdb,0x22,0x94,0x63,0x8c,0x31,0xc6,0x18,0xe0,0x00,0x00,0x00,0x00,0x00,
00136     0x00,0x00,0x00,0x0c,0x10,0x04,0x0a,0x15,0x08,0x07,0x00,0x02,0x01,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x21,0xcf,0x17,0x6f,0x9f,0x67,0x9f,0x67,0x9b,0xeb,0xb3,0xcf,0x19,0xd3,0xac,0xd3,0xac,0xb1,0x4f,0x90,0x0d,0xd0,0x2f,0xd0,0xff,0xff,0xff,0xff,0xfe,0xe0,0x80,0x00,0x00,0xff,0x20,0xca,0x15,0x4a,0xb0,0x45,0x12,0xed,0x12,0xe8,0x00,0x00,0x00,
00137     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0xb9,0x46,0x11,0xcc,0x33,0xcc,0x33,0xcc,0x33,0x4c,0x57,0xf7,0x1f,0x2f,0x5f,0x5f,0x7f,0xbe,0xbd,0xba,0x3c,0x7f,0x3c,0x1f,0xff,0xbf,0xff,0x3f,0xbf,0x3f,0x3f,0xee,0x2f,0xc8,0x32,0x84,0x29,0x54,0x81,0x7e,0x81,0x7c,0x83,0x7c,0xab,0x40,0x00,
00138     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0e,0x51,0xa6,0x58,0xa7,0x50,0xaf,0x50,0x2d,0x13,0x0c,0x03,0x00,0x00,0xff,0xff,0xff,0xff,0xf4,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x01,0x00,0x03,0x3e,0xe0,0x0d,0xd0,0x25,0xda,0x25,0xda,0x25,0xda,0xa5,0x1a,0x01,0x00,
00139     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x01,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0f,0x1f,0x1f,0x0f,0x04,0x1f,0x1f,0x1f,0x1f,0x0f,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x3f,0x28,0x17,0x08,0x07,0x02,0x00,0x00,0x00,0x00,
00140 };
00141 
00142 // miku6.bmp 75x64
00143 const unsigned char miku6[75*8] = {
00144     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x40,0x60,0x50,0xa0,0x20,0x40,0xa0,0x00,0xe0,0x00,0x20,0xc0,0x00,0x80,0xc0,0xa0,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00145     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0a,0x00,0x3e,0x00,0x34,0x28,0x43,0x3c,0x41,0xac,0x50,0xa0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0xd8,0x3e,0xc5,0xba,0x21,0xab,0x04,0x00,0x03,0x3a,0x44,0xfb,0x00,0x07,0x08,0x75,0x83,0x56,0xad,0x1a,0xe4,0x89,0x22,0x8c,0x30,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00146     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x40,0x80,0xc0,0xc0,0xc0,0xf0,0x8c,0xd1,0x3f,0xc0,0x3f,0xc0,0x03,0x00,0x82,0x10,0x10,0x10,0x00,0xf0,0x01,0x02,0x01,0x04,0x03,0x40,0xdd,0x32,0xf4,0x3f,0x3f,0x1c,0xe2,0x0c,0xf1,0x06,0xd8,0x20,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
00147     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x3f,0xff,0x3f,0xff,0x3f,0xff,0x3f,0x7f,0x7f,0xff,0x3d,0x6b,0x0a,0xc2,0x74,0x94,0x74,0xc8,0xef,0x10,0x7c,0x94,0x0c,0x43,0x04,0xc3,0x01,0x00,0x00,0x00,0x00,0xdb,0x22,0x94,0x63,0x8c,0x31,0xc6,0x18,0xe0,0x00,0x00,0x00,0x00,0x00,
00148     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x8a,0x35,0xc0,0x3f,0xc0,0x3f,0x40,0xdd,0xf3,0x34,0xcf,0x18,0xf2,0x8d,0xea,0x91,0x7e,0x09,0xd2,0x0c,0xd1,0x2e,0xd1,0xff,0xff,0xff,0xff,0xfe,0xe0,0x80,0x00,0x00,0xff,0x20,0xca,0x15,0x4a,0xb0,0x45,0x12,0xed,0x12,0xe8,0x00,0x00,0x00,
00149     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x52,0xbc,0x02,0xf5,0x00,0xff,0x00,0xff,0x00,0xff,0x04,0x5b,0xf7,0x1f,0x2f,0x5f,0x5f,0x7f,0xbf,0xbe,0xb8,0x3d,0x7e,0x3c,0x1f,0xff,0xbf,0xff,0x3f,0xbf,0x3f,0x3f,0xee,0x2f,0xc8,0x32,0x84,0x29,0x54,0x81,0x7e,0x81,0x7c,0x83,0x7c,0xab,0x40,0x00,
00150     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x16,0x48,0xa3,0x5c,0xa3,0x4c,0xb3,0x4c,0x33,0x0c,0x0b,0x00,0x00,0x01,0xff,0xff,0xff,0xff,0xf4,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x01,0x00,0x03,0x3e,0xe0,0x0d,0xd0,0x25,0xda,0x25,0xda,0x25,0xda,0xa5,0x1a,0x01,0x00,
00151     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x01,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0f,0x1f,0x1f,0x0f,0x04,0x1f,0x1f,0x1f,0x1f,0x0f,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x3f,0x28,0x17,0x08,0x07,0x02,0x00,0x00,0x00,0x00,
00152 };
00153 
00154 const unsigned char *miku[6] = { miku1, miku2, miku3, miku4, miku5, miku6 };
00155 
00156 void drawmiku(int pic){
00157     int x, y;
00158     const unsigned char *p = miku[pic];
00159 
00160     for(y = 0; y < 8; y++){
00161         locate(53, y);
00162         for(x = 0; x < 75; x++) datawrite(*p++);
00163     }
00164 }
00165 
00166 
00167 int main() {
00168     int pic;
00169 
00170     init();
00171     cls();
00172 
00173     pic = 0;
00174     while(1) {
00175         drawmiku(pic);
00176         if(++pic == 6) pic = 0;
00177 
00178         wait_ms(100);
00179     }
00180 }