DECLARE SUB GlyphDraw(shape%, ogn%)

DECLARE SUB DrawGridOverlay()



Const PIXEL_SIZE = 10

Const GLYPH_SIZE = 3 * PIXEL_SIZE

Const CELL_SIZE = GLYPH_SIZE + 15

Const GRID_WIDTH = 20

Const GRID_HEIGHT = 13

Const SCREEN_WIDTH = GRID_WIDTH * CELL_SIZE

Const SCREEN_HEIGHT = GRID_HEIGHT * CELL_SIZE



Dim glyphs(259) As Integer



Screen _NewImage(SCREEN_WIDTH, SCREEN_HEIGHT, 32)



' Fill background with blue

Line (0, 0)-(SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1), _RGB32(32, 32, 196), BF



' Generate 260 random glyphs (0 to 511)

Randomize Timer

For i = 0 To 259

    glyphs(i) = Int(Rnd * 512)

Next



' Draw each glyph at its OGN location

For ogn = 0 To 259

    GlyphDraw glyphs(ogn), ogn

Next



' Overlay grid lines

DrawGridOverlay



_PrintString (5, SCREEN_HEIGHT - 20), "Press any key to exit..."

Do: Loop Until InKey$ <> ""



Sub GlyphDraw (shape%, ogn%)

    Dim row%, col%, index%, x%, y%

    Dim baseX%, baseY%

    baseX = (ogn Mod GRID_WIDTH) * CELL_SIZE

    baseY = (ogn \ GRID_WIDTH) * CELL_SIZE



    For row = 0 To 2

        For col = 0 To 2

            index = row * 3 + col

            x = baseX + col * PIXEL_SIZE

            y = baseY + row * PIXEL_SIZE

            If (shape And (2 ^ index)) Then

                Line (x, y)-(x + PIXEL_SIZE - 1, y + PIXEL_SIZE - 1), _RGB32(76, 255, 0), BF

            Else

                Line (x, y)-(x + PIXEL_SIZE - 1, y + PIXEL_SIZE - 1), _RGB32(0, 96, 0), BF

            End If

        Next

    Next

End Sub



Sub DrawGridOverlay

    Dim gx%, gy%, x%, y%

    For gx = 0 To GRID_WIDTH - 1

        For gy = 0 To GRID_HEIGHT - 1

            x = gx * CELL_SIZE

            y = gy * CELL_SIZE

            For i = 1 To 2

                Line (x + i * PIXEL_SIZE, y)-(x + i * PIXEL_SIZE, y + GLYPH_SIZE - 1), _RGB32(128, 128, 128), BF

                Line (x, y + i * PIXEL_SIZE)-(x + GLYPH_SIZE - 1, y + i * PIXEL_SIZE), _RGB32(128, 128, 128), BF

            Next

        Next

    Next

End Sub