require 'plot ~user/animate/anim.ijs'
coclass 'pplotwire'
coextend 'jgl2 panim'

create=: create_panim_ f.

setup=: 3 : 0
  setup_panim_ f. ''
  TITLE=: 'Plot Wire'
  MIN=: 0
  MAX=: 40
  p=: conew 'jzplot'
  PForm__p=: 'f'
  PFormhwnd__p=: HWND
  PId__p=: 'g'

)

step=: 3 : 0
  step_panim_ f. y.
  x=. (MAX%~MAX-STEP*2)*| steps _8 8 30
  d=. % + 0: = ]
  x=. (sin d ]) (+/&.*:)/~x

  pd__p 'reset'
  pd__p 'boxed 0'
  pd__p 'type wire'
  pd__p 'backcolor darkgray'
  pd__p 'bandcolor white'
  pd__p 'viewpoint 2.5 3 0.75'
  pd__p x
  isi_show__p 0
)

f_g_size=: 3 : 0
  step STEP
)

0 : 0 NB. =========================================================
a=: '' conew 'pplotwire'
)