paul@6 | 1 | #!/usr/bin/env python |
paul@6 | 2 | |
paul@6 | 3 | """ |
paul@6 | 4 | Acorn Electron ULA simulation controller. |
paul@6 | 5 | """ |
paul@6 | 6 | |
paul@6 | 7 | from ula import * |
paul@6 | 8 | import pygame |
paul@6 | 9 | |
paul@10 | 10 | def update_surface(surface_array, screen_array): |
paul@10 | 11 | surface_array[:] = screen_array |
paul@10 | 12 | |
paul@6 | 13 | def mainloop(): |
paul@6 | 14 | while 1: |
paul@6 | 15 | pygame.display.flip() |
paul@6 | 16 | event = pygame.event.wait() |
paul@6 | 17 | if event.type == pygame.KEYDOWN and event.key == pygame.K_ESCAPE: |
paul@6 | 18 | break |
paul@6 | 19 | |
paul@6 | 20 | if __name__ == "__main__": |
paul@6 | 21 | pygame.init() |
paul@6 | 22 | screen = pygame.display.set_mode((WIDTH, HEIGHT), 0) |
paul@6 | 23 | a = pygame.surfarray.pixels3d(screen) |
paul@6 | 24 | |
paul@11 | 25 | ula = get_ula() |
paul@10 | 26 | ula_screen = get_screen() |
paul@6 | 27 | |
paul@6 | 28 | # Test MODE 2. |
paul@6 | 29 | |
paul@6 | 30 | ula.set_mode(2) |
paul@6 | 31 | |
paul@11 | 32 | ula.fill(0x3000, 0x5800 - 320, encode((1, 6), 4)) |
paul@11 | 33 | ula.fill(0x5800 - 320, 0x8000, encode((2, 7), 4)) |
paul@10 | 34 | update(ula_screen, ula) |
paul@10 | 35 | update_surface(a, ula_screen) |
paul@6 | 36 | mainloop() |
paul@6 | 37 | |
paul@6 | 38 | ula.screen_start = 0x3000 + 2 |
paul@10 | 39 | update(ula_screen, ula) |
paul@10 | 40 | update_surface(a, ula_screen) |
paul@6 | 41 | mainloop() |
paul@6 | 42 | |
paul@6 | 43 | # Test MODE 6. |
paul@6 | 44 | |
paul@6 | 45 | ula.set_mode(6) |
paul@6 | 46 | |
paul@11 | 47 | ula.fill(0x6000, 0x6f00 + 160, encode((1, 0, 1, 1, 0, 0, 1, 1), 1)) |
paul@11 | 48 | ula.fill(0x6f00 + 160, 0x7f40, encode((1, 0, 1, 0, 1, 0, 1, 0), 1)) |
paul@10 | 49 | update(ula_screen, ula) |
paul@10 | 50 | update_surface(a, ula_screen) |
paul@6 | 51 | mainloop() |
paul@6 | 52 | |
paul@6 | 53 | ula.screen_start = 0x6f00 + 160 |
paul@10 | 54 | update(ula_screen, ula) |
paul@10 | 55 | update_surface(a, ula_screen) |
paul@6 | 56 | mainloop() |
paul@6 | 57 | |
paul@6 | 58 | # vim: tabstop=4 expandtab shiftwidth=4 |