Skeleton code for mimicing TIC-80

J80.ijs

require 'trig viewmat'
coinsert 'jgl2'

cs =: (3#256) #: 16b1a1c2c 16b5d275d 16bb13e53 16bef7d57 16bffcd75 16ba7f070 16b38b764 16b257179 16b29366f 16b3b5dc9 16b41a6f6 16b73eff7 16bf4f4f4 16b94b0c2 16b566c86 16b333c57
wh =: 960 554

wd'reset'
wd 'pc w0;minwh ',":wh
wd 'cc g0 isidraw;'
wd 'pshow; pmove 40 40 0 0'
wd 'psel w0; ptop'

vmcc =: viewmatcc_jviewmat_
step =: render@update

center =: [:|@j./~0.5+i:

BC =: center 250

update =: {{
  B =: BC
}}

render =: {{ glpaint'' [ cs vmcc B;'g0' }}

w0_close =: {{ wd 'pclose' [ wd 'timer 0' }}
sys_timer_z_ =: step_base_
wd 'timer 10'