ReC98/th05/music/piano.inc

36 lines
864 B
PHP

PIANO_X = 384
PIANO_Y = 64
PIANO_H = 15
PIANO_KEY_W = 4
PIANO_BLACK_H = 9
PIANO_BLACK_PRESSED_H = 8
PIANO_PADDING_BOTTOM = 3
PIANO_H_PADDED = (PIANO_H + PIANO_PADDING_BOTTOM)
PIANO_OCTAVES = 8
PIANO_OCTAVE_W = (7 * PIANO_KEY_W)
PIANO_VRAM_W = ((PIANO_OCTAVES * PIANO_OCTAVE_W) / 8)
piano_notes_t struc
fm db 5 dup(?)
db 3 dup(?)
piano_notes_t ends
PIANO_LABEL_DIST_X = 32
PIANO_LABEL_DIST_Y = 4
PIANO_LABEL_X = PIANO_X - PIANO_LABEL_DIST_X
PIANO_LABEL_Y = PIANO_Y + PIANO_LABEL_DIST_Y
piano_label_puts macro row:req, chr1:req, chr2:req, chr3:req
piano_label_putc 0, row, chr1
piano_label_putc 1, row, chr2
piano_label_putc 2, row, chr3
endm
piano_label_putc macro col:req, row:req, chr:req
mov al, chr
mov di, ((PIANO_LABEL_Y + (row * PIANO_H_PADDED)) * ROW_SIZE) + ((PIANO_LABEL_X + (col * PIANO_LABEL_FONT_W)) / 8)
call piano_label_put_raw
endm