## Total Horizontal Pixels = 1450 = 0x5AA
## Total Vertical Lines = 745 = 0x2E9
## Active Horizontal Pixels = 1280 = 0x500 
## Active Vertical Lines = 720 = 0x2D0
## Horizontal Back Porch = 120 = 0x78
## Vertical Back Porch = 15 = 0x0F
## Horizontal Sync = 40 = 0x28
## Vertical Sync = 5 = 0x05
## Horizontal Front Porch = 10 = 0x0A  
## Vertical Front Porch = 5 = 0x05
## Horizontal Sync Polarity = Positive
## Vertical Sync Polarity = Positive
## Bits per pixel = 24 = 0x18
## Pixel Clock = 64.86 MHz 

## Pixel clock speed is set by M/N divider and set to be close to the required timings

serAddr = 0x18

board.WriteI2C(serAddr,0x66,0x03) # N = 37 (0x25)
board.WriteI2C(serAddr,0x67,0x25)

board.WriteI2C(serAddr,0x65,0x1A) # M = 3 (0x03)
board.WriteI2C(serAddr,0x67,0x03)

board.WriteI2C(serAddr,0x66,0x07) # 8 LSB active horizontal (1280 = 0x500)
board.WriteI2C(serAddr,0x67,0x00)

board.WriteI2C(serAddr,0x66,0x08) # 4 LSB active vertical and 4 MSB active horizontal
board.WriteI2C(serAddr,0x67,0x05)

board.WriteI2C(serAddr,0x66,0x09) # 8 MSB active vertical (720 = 0x2D0)
board.WriteI2C(serAddr,0x67,0x2D)

board.WriteI2C(serAddr,0x66,0x04) # 8 LSB total horizontal (1450 = 0x5AA)
board.WriteI2C(serAddr,0x67,0xAA)

board.WriteI2C(serAddr,0x66,0x05) # 4 LSB total vertical and 4 MSB total horizontal
board.WriteI2C(serAddr,0x67,0x95)

board.WriteI2C(serAddr,0x66,0x06) # 8 MSB total vertical (745 = 0x2E9)
board.WriteI2C(serAddr,0x67,0x2E)

board.WriteI2C(serAddr,0x66,0x0C) # horizontal back porch (120 = 0x78)
board.WriteI2C(serAddr,0x67,0x78)

board.WriteI2C(serAddr,0x66,0x0D) # vertical back porch (15 = 0x0F)
board.WriteI2C(serAddr,0x67,0x0F)

board.WriteI2C(serAddr,0x66,0x0A) # horizontal sync width (40 = 0x28)
board.WriteI2C(serAddr,0x67,0x28)

board.WriteI2C(serAddr,0x66,0x0B) # vertical sync width (5 = 0x05)
board.WriteI2C(serAddr,0x67,0x05)

board.WriteI2C(serAddr,0x66,0x0E) # horizontal and vertical sync polarity
board.WriteI2C(serAddr,0x67,0x00)  # Both positive polarity

board.WriteI2C(Des_addr,0x65,0x04) # internal timing, internal clock
board.WriteI2C(Des_addr,0x64,0x05) # enable patgen

# end of script