|:break: :break:| :: break

|| :current room: test 
   :screen resolution: 64 64

|:: draw current room :current room: $room?|
    :tile location: 0 0
    :: get tiles for $room
    :: draw room

|:: draw room :room data: ($1 $2 $3 $4 $5 $6 $7 $8)|
    :: draw sprite $1 :: next tile column
    :: draw sprite $2 :: next tile column
    :: draw sprite $3 :: next tile column
    :: draw sprite $4 :: next tile column
    :: draw sprite $5 :: next tile column
    :: draw sprite $6 :: next tile column
    :: draw sprite $7 :: next tile column
    :: draw sprite $8 :: next tile row
    :: draw room
|:: draw room :tile location: $x $y|

|:: draw sprite $1 :tile location: $x $y?|
    :pixel location: $x $y
    :: get sprite 1 for $1
    :: draw sprite

|:: draw sprite :sprite data: ($1 $2 $3 $4 $5 $6 $7 $8)|
    :: plot $1 :: next pixel column
    :: plot $2 :: next pixel column
    :: plot $3 :: next pixel column
    :: plot $4 :: next pixel column
    :: plot $5 :: next pixel column
    :: plot $6 :: next pixel column
    :: plot $7 :: next pixel column
    :: plot $8 :: next pixel row
    :: draw sprite
|:: draw sprite :pixel location: $x $y|

|:: plot . :pixel location: $x $y?|
    :@graphics: set-pixel $x $y 0 0 0

|:: plot # :pixel location: $x $y?|
    :@graphics: set-pixel $x $y 255 255 255


|:: next pixel column :@math: $x :pixel location: $_ $y|
    :pixel location: $x $y

|:: next pixel column? :pixel location: $x $y?|
    :@math: add $x 1

|:: next pixel row :@math: $y :pixel location: $_x $_y :tile location: $x $_?|
    :pixel location: $x $y

|:: next pixel row? :pixel location: $x $y?|
    :@math: add $y 1


|:: next tile column :@math: $x :tile location: $_ $y|
    :tile location: $x $y

|:: next tile column? :tile location: $x $y?|
    :@math: add $x 8

|:: next tile row :@math: $y :tile location: $x $_|
    :tile location: 0 $y

|:: next tile row? :tile location: $x $y?|
    :@math: add $y 8


|::draw|
    :: clear the screen
    :: draw current room

|:: get sprite 1 for .|
    :sprite data: (
        . . . . . . . .
        . . . . . . . .
        . . . . . . . .
        . . . . . . . .
        . . . . . . . .
        . . . . . . . .
        . . . . . . . .
        . . . . . . . .
    )

|:: get sprite 1 for p| 
    :sprite data: (
        . # . # # # # .
        . # # # # # . .
        . . . . . . . .
        . . # # # # . .
        . # . # # . # .
        . . # . . # . .
        . . # . . # . .
    )

|:: get sprite 1 for c|
    :sprite data: (
        . . . . . . . .
        . . . . . . . .
        . . . . # . # .
        . . . . # # # .
        # . . . # # # .
        # . # # # # . .
        . # # # # # . .
        . . # # . # . .
    )

|:: get sprite 1 for w|
    :sprite data: (
        # # # # # # # #
        # # . . . . # #
        # . # # # # . #
        # . # . . # . #
        # . # . . # . #
        # . # # # # . #
        # # . . . . # #
        # # # # # # # #
    )


|:: get tiles for test|
    :room data: (
        w w w w w w w w
        w . . . . . . w
        w . . . . . . w
        w . c . . p . w
        w . . . . . . w
        w . . . . . . w
        w . . . . . . w
        w w w w w w w w
    )