june / Viznut.

|:push: :: $x| :: push $x |:push:| |:set: :: $name :data: $value| :: set $name $value |:set: :: $name| :error: stack underflow |:get: :: $name| :: get $name |:: push $n| :data: $n |:: duplicate :data: $n| :data: $n :data: $n |:: duplicate| :error: stack underflow |:: drop :data: $n| |:: drop| :error: stack underflow |:: swap :swap: $x :data: $y| :data: $y :data: $x |:: swap :swap: $x| :error: stack underflow |:: swap? :data: $x| :swap: $x |:compare: :@math: $x| :data: $x |:compare: $x :data: $y| :compare: :@math: compare $y $x |:: greater :data: less | :data: false |:: greater :data: equal | :data: false |:: greater :data: greater| :data: true |:: greater? :data: $x| :compare: $x |:: abs :@math: less| ::(# -1 *) |:: abs :@math: $x| |:: abs? :data: $x?| :@math: compare $x 0 |:: math $op :@math: $n| :data: $n |:: math $op? :@math: $op $x :data: $y| :@math: $op $y $x |:: math $op :@math: $op $x| :error: stack underflow |:: math $op? :data: $x| :@math: $op $x |:: math $op| :error: stack underflow |:: print :data: $x| :@stdio: print $x |:: print| :error: stack underflow |:reset variables:? :checked variables: $x $y| :variables: $x $y |:reset variables:| |:: set $x $y :variables: $x $| :variables: $x $y :reset variables: |:: set $x $y? :variables: $v $| :checked variables: $v $ :reset variables: |:: set $x $y| :variables: $x $y |:: get $x :variables: $x $y?| :data: $y :reset variables: |:: get $x :variables: $v $| :checked variables: $v $ :reset variables: |:: get $x| :error: $x not found |:: set | :set: |:: get | :get: |:: add | :: math add |:: subtract| :: math subtract |:: multiply| :: math multiply |:: divide | :: math divide |:: modulo | :: math modulo |:: and | :: math and |:: dup | :: duplicate |:: +| :: add |:: -| :: subtract |:: *| :: multiply |:: /| :: divide |:: %| :: modulo |:: &| :: and |:: >| :: greater |:: #| :push:

|:: 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

|: Default handlers. :| |:: update| |:: handle input| |:: draw| |:: draw FPS| :@graphics: draw-fps |:: clear the screen :screen color: $r $g $b?| :@graphics: clear-screen $r $g $b |:: clear the screen| :@graphics: clear-screen 0 0 0 |:: display| :@graphics: display |:: poll for input| :@input: poll-input :@input: get-mouse-position :@input: check-mouse-button 0 :@input: check-mouse-button 2 |:@input: mouse-button-pressed 0| :left mouse: pressed |:@input: mouse-button-pressed 1| :middle mouse: pressed |:@input: mouse-button-pressed 2| :right mouse: pressed |:@input: mouse-button-released $x| |:@input: mouse-position $x $y| :mouse position: $x $y |:@signal: quit| :quit: |:left mouse: $x| |:middle mouse: $x| |:right mouse: $x| |:mouse position: $x $y| |:: check if $key is pressed| ::check if $key was pressed |:: check if $key was pressed :@input: key-pressed $key| :key pressed: $key |:: check if $key was pressed :@input: key-released $key| :key released: $key |:: check if $key was pressed?| :@input: check-key $key |:key pressed: $key| |:key released: $key| |:: start :screen resolution: $x $y?| :@graphics: set-resolution $x $y ::main loop |:: main loop :quit:| |:: main loop| ::poll for input ::handle input ::update ::draw ::display ::main loop |::|:: start