feat(gfx): screen dressing (phase 7)

Chart gets a SEA CHART header with compass-rose tiles and parchment
margins flanking the grid; the title screen gets two gulls over the
horizon; port screens get a thin rule frame. New glyph tiles 134-136
(compass/gull/rule), mapped to the UI palette.

Author: splch

src/defs.inc

@@ -131,6 +131,11 @@ DEF TILE_SAND_GR25 EQU 131    ; sand 75 / grass 25     (e 154-155)
 DEF TILE_SAND_GR50 EQU 132    ; sand/grass 50/50       (e 156-157, 160-161)
 DEF TILE_GR_SAND25 EQU 133    ; grass 75 / sand 25     (e 158-159)
 
+; --- Screen-dressing glyphs (phase 7) ---
+DEF TILE_COMPASS   EQU 134    ; compass rose (chart header)
+DEF TILE_GULL      EQU 135    ; gull arcs (title screen)
+DEF TILE_FRAME     EQU 136    ; thin rule (port screen frame)
+
 ; --- Port towns (S4) ---
 ; In a port district, four buildings spawn at hashed spots: tavern,
 ; market, shipyard, harbor. Each opens the matching port screen.

src/main.asm

@@ -744,6 +744,10 @@ DrawTitleScreen::
     ; a lone ship on the horizon
     ld a, TILE_SHIP_S
     ld [$9800 + 13 * 32 + 9], a
+    ; gulls overhead
+    ld a, TILE_GULL
+    ld [$9800 + 2 * 32 + 3], a
+    ld [$9800 + 2 * 32 + 15], a
     ld hl, StrTitle
     ld de, $9800 + 4 * 32 + 3
     call PrintStr

src/port.asm

@@ -501,6 +501,21 @@ EnterPortFromShore::
 ; Full re-render of the port screen (LCD off).
 RenderPort:
     call DrawSeedScreen            ; clear tilemap
+    ; thin frame: a rule across the top and bottom rows
+    ld hl, $9800
+    ld b, 20
+.topRule
+    ld [hl], TILE_FRAME
+    inc hl
+    dec b
+    jr nz, .topRule
+    ld hl, $9800 + 17 * 32
+    ld b, 20
+.botRule
+    ld [hl], TILE_FRAME
+    inc hl
+    dec b
+    jr nz, .botRule
     ; port name, row 1
     ld de, $9800 + 1 * 32 + 3
     call PrintPortName

src/tiles.asm

@@ -55,6 +55,10 @@ LoadTiles::
     ld de, $8000 + 121 * 16
     ld bc, 4 * 16
     call CopyVRAM
+    ld hl, ScreenTiles
+    ld de, $8000 + 134 * 16
+    ld bc, 3 * 16
+    call CopyVRAM
     ; --- synthesize the transition tiles (Bayer-dither mixes) ---
     ld hl, TerrainTiles + 16         ; DEEP
     ld de, TerrainTiles + 32         ; SHALLOW
@@ -975,6 +979,36 @@ VariantTiles:
     dw `33333333
     dw `33333333
 
+; tiles 134-136: screen-dressing glyphs
+ScreenTiles:
+; 134 TILE_COMPASS — four-point star (white & ink on parchment)
+    dw `00030000
+    dw `00033000
+    dw `13030030
+    dw `13333331
+    dw `13030030
+    dw `00033000
+    dw `00030000
+    dw `00000000
+; 135 TILE_GULL — two soaring arcs
+    dw `00000000
+    dw `00000000
+    dw `00300300
+    dw `03033030
+    dw `00000000
+    dw `00000000
+    dw `00000000
+    dw `00000000
+; 136 TILE_FRAME — a single dark rule mid-tile
+    dw `00000000
+    dw `00000000
+    dw `33333333
+    dw `00000000
+    dw `00000000
+    dw `00000000
+    dw `00000000
+    dw `00000000
+
 HexFont:
 ; 3x5 pixel glyphs, top-left of the tile. 16 tiles: 0-9, A-F.
 ; NOTE: A-F exist twice — here (tiles 26-31, so hex nibbles print as

src/world.asm

@@ -1634,8 +1634,50 @@ ChartSeed:
 
 PUSHS "Chart strings", ROMX, BANK[3]
 StrCartDone: db "CHART COMPLETE! 500G", 0
+StrSeaChart: db "SEA CHART", 0
 POPS
 
+; Dress the chart: "SEA CHART" header with compass roses, and parchment
+; margins flanking the 16x16 grid. LCD off. clobbers a, b, d, e, h, l
+ChartFrame:
+    ld hl, StrSeaChart
+    ld de, $9800 + 5
+    call PrintStr
+    ld a, TILE_COMPASS
+    ld [$9800 + 3], a
+    ld [$9800 + 15], a
+    ; parchment margins: cols 0-1 and 18-19, rows 1-17
+    ld e, 1                          ; row
+.rowLoop
+    ld a, e
+    call MapRowAddr                  ; hl = row base
+    call .putSand                    ; col 0
+    inc hl
+    call .putSand                    ; col 1
+    ld a, l
+    add 16
+    ld l, a                          ; col 18
+    call .putSand
+    inc hl
+    call .putSand                    ; col 19
+    inc e
+    ld a, e
+    cp 18
+    jr nz, .rowLoop
+    ret
+.putSand
+    ld [hl], TILE_SAND
+    push hl
+    ld a, [wIsCGB]
+    cp $11
+    jr nz, .psNo
+    VBK1
+    ld [hl], 2                       ; sand palette
+    VBK0
+.psNo
+    pop hl
+    ret
+
 ; Clear all 40 OAM entries. LCD must be off.
 ClearOAM::
     ld hl, $FE00
@@ -1655,6 +1697,7 @@ EnterChart::
     call RenderChart
     call ChartMarker
     call ChartSeed
+    call ChartFrame
     call ChartBounty
     ld a, LCDC_ON | LCDC_BG_ON | LCDC_BLOCK01 | LCDC_OBJ_ON
     ldh [rLCDC], a