stm32test: lcd.c annotate

annotate lcd.c @ 6:2b92d9632999

Add LCD app note.

author	Daniel O'Connor <darius@dons.net.au>
date	Sat, 14 Jan 2012 11:42:24 +1030
parents	efa2c22266e3
children	9404b9869c27

rev	line source
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	1 /*
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	2 * Example code (I think)
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	3 * ~/projects/STM32Strive/奋斗STM32开发板例程/奋斗STM32开发板例程/奋斗STM32开发板MINI/STM32奋斗版ucOS II V2.86 uCGUI 3.9 DEMO-V2/STM32奋斗版ucOS II V2.86 uCGUI 3.9 DEMO
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	4 *
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	5 * Schematics
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	6 * Main board ~/Downloads/Strive\ Mini\ STM32\ Schematic.pdf
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	7 * LCD board ~/Downloads/Strive Mini LCD STM32 Schematic.pdf
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	8 * MCU reference manual
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	9 * ~/Downloads/CD00171190.pdf
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	10 * MCU Data sheet (pinout)
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	11 * ~/Downloads/CD00191185.pdf
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	12 * LCD data sheet
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	13 *
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	14 */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	15 /* LCD board MCU
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	16 1 VCC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	17 2 TC_SCK PA5/SPI1_SCK
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	18 3 GND
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	19 4 TC_CS PB7/SPI1_CS3
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	20 5 RST PE1 FSMC_NBL1? (unlikely)
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	21 6 TC_DIN PA7/SPI1_MOSI
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	22 7 nOE PD4/FSMC_nOE
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	23 8 TC_DOUT PA6/SPI1_MISO
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	24 9 nWR PD5/FSMC_nWE
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	25 10 TC_INT PB6
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	26 11 CS PD7/FSMC_NE1/FSMC_NCE2
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	27 12 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	28 13 RS PD11/FSMC_A16
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	29 14 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	30 15 D7 PE10/FSMC_D7
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	31 16 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	32 17 D6 PE9/FSMC_D6
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	33 18 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	34 19 D3 PD1/FSMC_D3
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	35 20 D13 PD8/FSMC_D13
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	36 21 D5 PE8/FSMC_D5
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	37 22 D12 PE15/FSMC_D12
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	38 23 D4 PE7/FSMC_D4
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	39 24 GND
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	40 25 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	41 26 D11 PE14/FSMC_D11
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	42 27 D2 PD0/FSMC_D2
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	43 28 D10 PE13/FSMC_D10
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	44 29 D1 PD15/FSMC_D1
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	45 30 D9 PE12/FSMC_D9
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	46 31 D0 PD14/FSMC_D0
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	47 32 D14 PD9/FSMC_D9
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	48 33 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	49 34 D8 PE11/FSMC_D8
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	50 35 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	51 36 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	52 37 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	53 38 LCD_PWM PD13/TIM4_CH2
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	54 39 NC
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	55 40 D15 PD10/FSMC_D15
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	56 */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	57
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	58 #include <stdio.h>
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	59 #include "stm32f10x.h"
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	60 #include "lcd.h"
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	61
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	62 #define Bank1_LCD_C ((uint32_t)0x60000000) /* Register Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	63 #define Bank1_LCD_D ((uint32_t)0x60020000) /* Data Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	64
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	65 void
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	66 LCD_WR_Reg(uint16_t index, uint16_t val) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	67 (__IO uint16_t )(Bank1_LCD_C) = index;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	68 (__IO uint16_t )(Bank1_LCD_D) = val;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	69 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	70
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	71 uint16_t
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	72 LCD_RD_Reg(uint16_t index) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	73 (__IO uint16_t )(Bank1_LCD_C) = index;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	74 return((__IO uint16_t )(Bank1_LCD_D));
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	75 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	76
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	77 uint16_t
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	78 LCD_RD_Data(int first) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	79 uint16_t a = 0;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	80 if (first)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	81 a = (__IO uint16_t ) (Bank1_LCD_D); /* Dummy */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	82 a = (__IO uint16_t ) (Bank1_LCD_D); /* Read */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	83
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	84 return (a);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	85 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	86
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	87 void
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	88 LCD_WR_Data(uint16_t val) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	89 (__IO uint16_t )(Bank1_LCD_D) = val;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	90 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	91
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	92 /* Callers imply this is in milliseconds but that seems unlikely */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	93 void
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	94 Delay(__IO uint32_t nCount) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	95 for(; nCount != 0; nCount--)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	96 ;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	97 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	98
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	99 uint8_t
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	100 SPI_WriteByte(uint8_t out) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	101 uint8_t in = 0;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	102
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	103 /* Wait until the transmit buffer is empty */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	104 while (SPI_I2S_GetFlagStatus(SPI1,SPI_I2S_FLAG_TXE) == RESET)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	105 ;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	106
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	107 /* Send the byte */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	108 SPI_I2S_SendData(SPI1, out);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	109
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	110 /* Wait until a data is received */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	111 while (SPI_I2S_GetFlagStatus(SPI1,SPI_I2S_FLAG_RXNE) == RESET)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	112 ;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	113
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	114 /* Get the received data */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	115 in = SPI_I2S_ReceiveData(SPI1);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	116
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	117 /* Return the shifted data */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	118 return (in);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	119 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	120
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	121 #define TP_SELECT() GPIO_ResetBits(GPIOB, GPIO_Pin_7)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	122 #define TP_DESELECT() GPIO_SetBits(GPIOB, GPIO_Pin_7)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	123 uint16_t
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	124 TPRead(uint8_t type) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	125 uint16_t x = 0;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	126
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	127 /* Select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	128 TP_SELECT();
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	129
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	130 /* Do conversion */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	131 Delay(10);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	132 SPI_WriteByte(type);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	133
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	134 /* Read result */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	135 Delay(10);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	136 x = SPI_WriteByte(0x00);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	137 x <<= 8;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	138 x \|= SPI_WriteByte(0x00);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	139 Delay(10);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	140
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	141 /* De-select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	142 TP_DESELECT();
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	143
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	144 /* Right justify 12 bit result */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	145 x = x >> 3;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	146 return (x);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	147 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	148
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	149 #define FL_SELECT() GPIO_ResetBits(GPIOA, GPIO_Pin_4)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	150 #define FL_DESELECT() GPIO_SetBits(GPIOA, GPIO_Pin_4)
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	151
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	152 #define FL_READ 0x03
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	153 #define FL_HSREAD 0x0b
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	154 #define FL_32KERASE 0x52
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	155 #define FL_64KERASE 0xd8
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	156 #define FL_CHIPERASE 0x60
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	157 #define FL_BYTEPROG 0x02
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	158 #define FL_AAIWP 0xad
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	159 #define FL_RDSR 0x05
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	160 #define FL_EWSR 0x50
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	161 #define FL_WRSR 0x01
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	162 #define FL_WREN 0x06
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	163 #define FL_WRDI 0x04
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	164 #define FL_RDID 0x90
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	165 #define FL_JEDECID 0x9f
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	166 #define FL_EBSY 0x70
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	167 #define FL_DBSY 0x80
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	168
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	169 uint16_t
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	170 FlashReadID(void) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	171 uint8_t fac, dev;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	172
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	173 FL_SELECT(); /* Select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	174
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	175 SPI_WriteByte(FL_RDID); /* Send command */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	176 SPI_WriteByte(0x00); /* Send address cycles (ID data starts at 0) */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	177 SPI_WriteByte(0x00);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	178 SPI_WriteByte(0x00);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	179 fac = SPI_WriteByte(0x00); /* Read ID */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	180 dev = SPI_WriteByte(0x00);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	181
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	182 FL_DESELECT(); /* De-select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	183
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	184 return fac << 8 \| dev;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	185 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	186
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	187 uint8_t
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	188 FlashReadStatus(void) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	189 uint8_t status;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	190
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	191 FL_SELECT(); /* Select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	192
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	193 SPI_WriteByte(FL_RDSR); /* Send command */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	194 SPI_WriteByte(0x00); /* Send dummy byte for address cycle */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	195 status = SPI_WriteByte(0x00); /* Read status */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	196
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	197 FL_DESELECT(); /* De-select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	198
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	199 return status;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	200 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	201
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	202 void
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	203 FlashWriteStatus(uint8_t status) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	204 /* Enable status write */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	205 FL_SELECT(); /* Select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	206 SPI_WriteByte(FL_EWSR); /* Send command */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	207 SPI_WriteByte(0x00); /* Send data byte */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	208 FL_DESELECT();
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	209
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	210 /* Actually write status */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	211 FL_SELECT(); /* Re-select device for new command */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	212 SPI_WriteByte(FL_WRSR); /* Send command */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	213 SPI_WriteByte(status); /* Send data byte */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	214 FL_DESELECT(); /* De-select device */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	215 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	216
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	217 void
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	218 LCD_init(void) {
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	219 GPIO_InitTypeDef GPIO_InitStructure;
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	220 SPI_InitTypeDef SPI_InitStructure;
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	221 FSMC_NORSRAMInitTypeDef FSMC_NORSRAMInitStructure;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	222 FSMC_NORSRAMTimingInitTypeDef p;
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	223 TIM_TimeBaseInitTypeDef TIM_TimeBaseStructure;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	224 uint16_t id;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	225
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	226 /* Enable FSMC clock */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	227 RCC_AHBPeriphClockCmd(RCC_AHBPeriph_FSMC, ENABLE);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	228
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	229 /* Enable GPIOD clock */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	230 RCC_APB2PeriphClockCmd(RCC_APB2Periph_GPIOD, ENABLE);
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	231
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	232 /* Enable alternate function IO clock */
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	233 RCC_APB2PeriphClockCmd(RCC_APB2Periph_AFIO, ENABLE);
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	234
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	235 /* Configures LCD Control lines (FSMC Pins) in alternate function Push-Pull mode.
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	236 *
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	237 * PD0(D2), PD1(D3), PD4(NOE), PD5(NWE), PD7(NE1/CS), PD8(D13), PD9(D14),
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	238 * PD10(D15), PD11(A16/RS) PD14(D0), PD15(D1)
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	239 */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	240 GPIO_InitStructure.GPIO_Pin = (GPIO_Pin_0 \| GPIO_Pin_1 \| GPIO_Pin_4 \| GPIO_Pin_5 \| GPIO_Pin_7 \|
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	241 GPIO_Pin_8 \| GPIO_Pin_9 \| GPIO_Pin_10 \| GPIO_Pin_11 \| GPIO_Pin_14 \| GPIO_Pin_15);
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	242 GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	243 GPIO_InitStructure.GPIO_Mode = GPIO_Mode_AF_PP;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	244 GPIO_Init(GPIOD, &GPIO_InitStructure);
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	245
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	246 /* PE7(D4), PE8(D5), PE9(D6), PE10(D7), PE11(D8), PE12(D9), PE13(D10),
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	247 * PE14(D11), PE15(D12)
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	248 */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	249 GPIO_InitStructure.GPIO_Pin = GPIO_Pin_7 \| GPIO_Pin_8 \| GPIO_Pin_9 \| GPIO_Pin_10 \|
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	250 GPIO_Pin_11 \| GPIO_Pin_12 \| GPIO_Pin_13 \| GPIO_Pin_14 \| GPIO_Pin_15;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	251 GPIO_Init(GPIOE, &GPIO_InitStructure);
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	252
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	253 /* Configure backlight control (PD13/FSMC_A18 remapped to TIM4_CH2) */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	254 /* Enable TIM4 clock */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	255 RCC_APB1PeriphClockCmd(RCC_APB1Periph_TIM4, ENABLE);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	256
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	257 /* Enable timer function
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	258 * Note source clock is SYSCLK / 2 = 36MHz
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	259 */
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	260 GPIO_InitStructure.GPIO_Pin = GPIO_Pin_13;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	261 GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	262 GPIO_InitStructure.GPIO_Mode = GPIO_Mode_AF_PP;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	263 GPIO_Init(GPIOD, &GPIO_InitStructure);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	264
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	265 /* Remap TIM4_CH2 to PD13 */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	266 GPIO_PinRemapConfig(GPIO_Remap_TIM4, ENABLE);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	267
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	268 /* Reset TIM4 */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	269 TIM_DeInit(TIM4);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	270
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	271 /* Time Base configuration */
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	272 TIM_TimeBaseStructure.TIM_Period = 999;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	273 TIM_TimeBaseStructure.TIM_Prescaler = 0;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	274 TIM_TimeBaseStructure.TIM_ClockDivision = 0;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	275 TIM_TimeBaseStructure.TIM_CounterMode = TIM_CounterMode_Down;
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	276
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	277 TIM_TimeBaseInit(TIM4, &TIM_TimeBaseStructure);
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	278
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	279 /* Init to full brightness */
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	280 lcd_setpwm(1000);
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	281
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	282 /* Enable timer */
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	283 TIM_OC2PreloadConfig(TIM4, TIM_OCPreload_Enable);
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	284 TIM_ARRPreloadConfig(TIM4, ENABLE);
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	285 TIM_Cmd(TIM4, ENABLE);
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	286
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	287 /* Configure reset pin (PE1) as GPIO out PP */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	288 GPIO_InitStructure.GPIO_Pin = GPIO_Pin_1;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	289 GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	290 GPIO_InitStructure.GPIO_Mode = GPIO_Mode_Out_PP;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	291 GPIO_Init(GPIOE, &GPIO_InitStructure);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	292
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	293 /* Configures the Parallel interface (FSMC) for LCD (Parallel mode) */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	294 /* FSMC_Bank1_NORSRAM4 timing configuration */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	295 p.FSMC_AddressSetupTime = 1;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	296 p.FSMC_AddressHoldTime = 0;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	297 p.FSMC_DataSetupTime = 2;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	298 p.FSMC_BusTurnAroundDuration = 0;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	299 p.FSMC_CLKDivision = 0;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	300 p.FSMC_DataLatency = 0;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	301 p.FSMC_AccessMode = FSMC_AccessMode_A;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	302
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	303 /* FSMC_Bank1_NORSRAM4 configured as follows:
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	304 - Data/Address MUX = Disable
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	305 - Memory Type = SRAM
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	306 - Data Width = 16bit
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	307 - Write Operation = Enable
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	308 - Extended Mode = Disable
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	309 - Asynchronous Wait = Disable */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	310 FSMC_NORSRAMInitStructure.FSMC_Bank = FSMC_Bank1_NORSRAM4;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	311 FSMC_NORSRAMInitStructure.FSMC_DataAddressMux = FSMC_DataAddressMux_Disable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	312 FSMC_NORSRAMInitStructure.FSMC_MemoryType = FSMC_MemoryType_SRAM;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	313 FSMC_NORSRAMInitStructure.FSMC_MemoryDataWidth = FSMC_MemoryDataWidth_16b;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	314 FSMC_NORSRAMInitStructure.FSMC_BurstAccessMode = FSMC_BurstAccessMode_Disable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	315 FSMC_NORSRAMInitStructure.FSMC_AsynchronousWait = FSMC_AsynchronousWait_Disable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	316 FSMC_NORSRAMInitStructure.FSMC_WaitSignalPolarity = FSMC_WaitSignalPolarity_Low;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	317 FSMC_NORSRAMInitStructure.FSMC_WrapMode = FSMC_WrapMode_Disable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	318 FSMC_NORSRAMInitStructure.FSMC_WaitSignalActive = FSMC_WaitSignalActive_BeforeWaitState;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	319 FSMC_NORSRAMInitStructure.FSMC_WriteOperation = FSMC_WriteOperation_Enable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	320 FSMC_NORSRAMInitStructure.FSMC_WaitSignal = FSMC_WaitSignal_Disable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	321 FSMC_NORSRAMInitStructure.FSMC_ExtendedMode = FSMC_ExtendedMode_Disable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	322 FSMC_NORSRAMInitStructure.FSMC_WriteBurst = FSMC_WriteBurst_Disable;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	323 FSMC_NORSRAMInitStructure.FSMC_ReadWriteTimingStruct = &p;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	324 FSMC_NORSRAMInitStructure.FSMC_WriteTimingStruct = &p;
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	325
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	326 FSMC_NORSRAMInit(&FSMC_NORSRAMInitStructure);
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	327
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	328 /* Enable FSMC_Bank1_NORSRAM4 */
74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	329 FSMC_NORSRAMCmd(FSMC_Bank1_NORSRAM4, ENABLE);
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	330
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	331 /* Initialise LCD panel */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	332
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	333 /* Pull reset pin low */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	334 GPIO_ResetBits(GPIOE, GPIO_Pin_1);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	335 Delay(0xafff);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	336 GPIO_SetBits(GPIOE, GPIO_Pin_1);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	337 Delay(0xafff);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	338
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	339 id = LCD_RD_Reg(0x00);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	340 if (id != 0x9325) {
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	341 printf("LCD ID doesn't match, expected 0x9325 got 0x%x\r\n", id);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	342 return;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	343 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	344
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	345 LCD_WR_Reg(0x00e3, 0x3008); /* Set internal timing */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	346 LCD_WR_Reg(0x00e7, 0x0012); /* Set internal timing */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	347 LCD_WR_Reg(0x00ef, 0x1231); /* Set internal timing */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	348 LCD_WR_Reg(0x0000, 0x0001); /* Start Oscillation */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	349 LCD_WR_Reg(0x0001, 0x0100); /* set SS and SM bit */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	350 LCD_WR_Reg(0x0002, 0x0700); /* set 1 line inversion */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	351
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	352 LCD_WR_Reg(0x0003, 0x1030); /* set GRAM write direction and BGR = 0, 262K colours, 1 transfers/pixel. */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	353 LCD_WR_Reg(0x0004, 0x0000); /* Resize register */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	354 LCD_WR_Reg(0x0008, 0x0202); /* set the back porch and front porch */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	355 LCD_WR_Reg(0x0009, 0x0000); /* set non-display area refresh cycle ISC[3:0] */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	356 LCD_WR_Reg(0x000a, 0x0000); /* FMARK function */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	357 LCD_WR_Reg(0x000c, 0x0000); /* RGB interface setting */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	358 LCD_WR_Reg(0x000d, 0x0000); /* Frame marker Position */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	359 LCD_WR_Reg(0x000f, 0x0000); /* RGB interface polarity */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	360
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	361 /* Power On sequence */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	362 LCD_WR_Reg(0x0010, 0x0000); /* SAP, BT[3:0], AP, DSTB, SLP, STB */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	363 LCD_WR_Reg(0x0011, 0x0007); /* DC1[2:0], DC0[2:0], VC[2:0] */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	364 LCD_WR_Reg(0x0012, 0x0000); /* VREG1OUT voltage */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	365 LCD_WR_Reg(0x0013, 0x0000); /* VDV[4:0] for VCOM amplitude */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	366 Delay(200); /* Dis-charge capacitor power voltage */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	367 LCD_WR_Reg(0x0010, 0x1690); /* SAP, BT[3:0], AP, DSTB, SLP, STB */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	368 LCD_WR_Reg(0x0011, 0x0227); /* R11h = 0x0221 at VCI = 3.3V, DC1[2:0], DC0[2:0], VC[2:0] */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	369 Delay(50); /* Delay 50ms */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	370 LCD_WR_Reg(0x0012, 0x001c); /* External reference voltage= Vci; */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	371 Delay(50); /* Delay 50ms */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	372 LCD_WR_Reg(0x0013, 0x1800); /* R13 = 1200 when R12 = 009D; VDV[4:0] for VCOM amplitude */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	373 LCD_WR_Reg(0x0029, 0x001c); /* R29 = 000C when R12 = 009D; VCM[5:0] for VCOMH */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	374 LCD_WR_Reg(0x002b, 0x000d); /* Frame Rate = 91Hz */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	375 Delay(50); /* Delay 50ms */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	376 LCD_WR_Reg(0x0020, 0x0000); /* GRAM horizontal Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	377 LCD_WR_Reg(0x0021, 0x0000); /* GRAM Vertical Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	378
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	379 /* Adjust the Gamma Curve */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	380 LCD_WR_Reg(0x0030, 0x0007);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	381 LCD_WR_Reg(0x0031, 0x0302);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	382 LCD_WR_Reg(0x0032, 0x0105);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	383 LCD_WR_Reg(0x0035, 0x0206);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	384 LCD_WR_Reg(0x0036, 0x0808);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	385 LCD_WR_Reg(0x0037, 0x0206);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	386 LCD_WR_Reg(0x0038, 0x0504);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	387 LCD_WR_Reg(0x0039, 0x0007);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	388 LCD_WR_Reg(0x003c, 0x0105);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	389 LCD_WR_Reg(0x003d, 0x0808);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	390
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	391 /* Set GRAM area */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	392 LCD_WR_Reg(0x0050, 0x0000); /* Horizontal GRAM Start Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	393 LCD_WR_Reg(0x0051, 0x00ef); /* Horizontal GRAM End Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	394 LCD_WR_Reg(0x0052, 0x0000); /* Vertical GRAM Start Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	395 LCD_WR_Reg(0x0053, 0x013f); /* Vertical GRAM Start Address */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	396 LCD_WR_Reg(0x0060, 0xa700); /* Gate Scan Line */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	397 LCD_WR_Reg(0x0061, 0x0001); /* NDL,VLE, REV */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	398 LCD_WR_Reg(0x006a, 0x0000); /* set scrolling line */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	399
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	400 /* Partial Display Control */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	401 LCD_WR_Reg(0x0080, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	402 LCD_WR_Reg(0x0081, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	403 LCD_WR_Reg(0x0082, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	404 LCD_WR_Reg(0x0083, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	405 LCD_WR_Reg(0x0084, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	406 LCD_WR_Reg(0x0085, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	407
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	408 /* Panel Control */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	409 LCD_WR_Reg(0x0090, 0x0010);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	410 LCD_WR_Reg(0x0092, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	411 LCD_WR_Reg(0x0093, 0x0003);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	412 LCD_WR_Reg(0x0095, 0x0110);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	413 LCD_WR_Reg(0x0097, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	414 LCD_WR_Reg(0x0098, 0x0000);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	415 LCD_WR_Reg(0x0007, 0x0133); /* 262K colour and display ON */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	416
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	417 /* Fill panel with white */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	418 LCD_WR_Reg(0x20, 0);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	419 LCD_WR_Reg(0x21, 0x013f);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	420 (__IO uint16_t )(Bank1_LCD_C) = 34;
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	421 for (uint32_t i = 0; i < 320 * 240; i++) {
4 2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	422 LCD_WR_Data(0xffff);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	423 }
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	424
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	425 /* Configure touch screen controller
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	426 *
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	427 * Connected to SPI1 which is shared with the AT45DB161D.
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	428 *
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	429 * The touch screen is selected with PB7.
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	430 * The flash chip is selected with PA4.
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	431 */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	432
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	433 /* Enable SPI1 clock */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	434 RCC_APB2PeriphClockCmd(RCC_APB2Periph_SPI1, ENABLE);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	435
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	436 /* Configure MOSI, MISO and SCLK as alternate function PP */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	437 GPIO_InitStructure.GPIO_Pin = GPIO_Pin_5 \| GPIO_Pin_6 \| GPIO_Pin_7;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	438 GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	439 GPIO_InitStructure.GPIO_Mode = GPIO_Mode_AF_PP;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	440 GPIO_Init(GPIOA, &GPIO_InitStructure);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	441
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	442 /* Configure flash chip select pin (PA4) as GPIO out PP */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	443 GPIO_InitStructure.GPIO_Pin = GPIO_Pin_4;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	444 GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	445 GPIO_InitStructure.GPIO_Mode = GPIO_Mode_Out_PP;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	446 GPIO_Init(GPIOA, &GPIO_InitStructure);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	447
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	448 /* Configure touch chip select pin (PB7) as GPIO out PP */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	449 GPIO_InitStructure.GPIO_Pin = GPIO_Pin_7;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	450 GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	451 GPIO_InitStructure.GPIO_Mode = GPIO_Mode_Out_PP;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	452 GPIO_Init(GPIOB, &GPIO_InitStructure);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	453
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	454 /* De-select touch & flash */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	455 GPIO_SetBits(GPIOA, GPIO_Pin_4);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	456 GPIO_SetBits(GPIOB, GPIO_Pin_7);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	457
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	458 /* SPI1 Config */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	459 SPI_InitStructure.SPI_Direction = SPI_Direction_2Lines_FullDuplex;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	460 SPI_InitStructure.SPI_Mode = SPI_Mode_Master;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	461 SPI_InitStructure.SPI_DataSize = SPI_DataSize_8b;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	462 SPI_InitStructure.SPI_CPOL = SPI_CPOL_Low;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	463 SPI_InitStructure.SPI_CPHA = SPI_CPHA_1Edge;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	464 SPI_InitStructure.SPI_NSS = SPI_NSS_Soft;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	465 SPI_InitStructure.SPI_BaudRatePrescaler = SPI_BaudRatePrescaler_64;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	466 SPI_InitStructure.SPI_FirstBit = SPI_FirstBit_MSB;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	467 SPI_InitStructure.SPI_CRCPolynomial = 7;
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	468 SPI_Init(SPI1, &SPI_InitStructure);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	469
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	470 /* SPI1 enable */
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	471 SPI_Cmd(SPI1, ENABLE);
2c87e30c982d Add LCD init, touch screen writing etc.. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	472
3 74e9b3baac1e Jumbo commit to make things work. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	473 }
5 efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	474
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	475 void
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	476 lcd_setpwm(uint16_t val) {
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	477 TIM_OCInitTypeDef TIM_OCInitStructure;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	478
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	479 /* Channel 2 configuration in PWM mode */
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	480 TIM_OCInitStructure.TIM_OCMode = TIM_OCMode_PWM1;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	481 TIM_OCInitStructure.TIM_OutputState = TIM_OutputState_Enable;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	482 TIM_OCInitStructure.TIM_Pulse = val;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	483 TIM_OCInitStructure.TIM_OCPolarity = TIM_OCPolarity_High;
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	484
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	485 TIM_OC2Init(TIM4, &TIM_OCInitStructure);
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	486
efa2c22266e3 PWM control LED backlight. Daniel O'Connor <darius@dons.net.au> parents: 4 diff changeset	487 }

Mercurial > ~darius > hgwebdir.cgi > stm32test

annotate lcd.c @ 6:2b92d9632999