|:: next pixel :screen resolution: $x $y? :pixel: $x $y|
    :pixel: 0 0
    :finished frame:
|:: next pixel :screen resolution: $x $ry? :pixel: $x $py|
    :pixel: 0 $py
    :: next row
|:: next pixel :pixel: $x $y :@math: $n|
    :pixel: $n $y
|:: next pixel? :pixel: $x $y?|
    :@math: add $x 1

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

||:pixel: 0 0
|:: plot :data: true :pixel: $x $y?|
    :@graphics: set-pixel $x $y 255 255 255
|:: plot :data: false :pixel: $x $y?|
    :@graphics: set-pixel $x $y 0 0 0
|:: plot :pixel: $x $y?|
    :: viznut $x $y
    :: plot

|:: draw a frame :finished frame:|
|:: draw a frame|
    :: plot :: next pixel
    :: draw a frame

|:: draw|
    :: clear the screen
    :: draw a frame
    :: draw FPS

|:: viznut $x $y|::(
    # $x # $y + # $x # $y - &
    # 24 % abs # 9 >
)

|::|
:screen resolution: 64 64