Plotting to isigraph has been somewhat simplified.
I've made some modifications to your test script so that it should work
in j802. Please report back.

NB. ==============================
NB. isitest1.ijs


require 'plot trig numeric'


isitest1_win =: 0 : 0

pc isitest1;

pn isigraph test;

bin h g;

minwh 320 240;

cc gisi1 isigraph;

minwh 320 240;

cc gisi2 isigraph;

)


isitest1_run =: 3 : 0

wd isitest1_win

isi1 =: ('isitest1';'gisi1') conew 'jzplot'

isi2 =: ('isitest1';'gisi2') conew 'jzplot'

pd__isi1 sin steps 0 3 100

pd__isi2 cos steps 0 3 100

wd 'pshow'

)


isitest1_close =: 3 : 0

wd 'pclose'

destroy__isi1''

destroy__isi2''

)


isitest1_run''


On Sun, Jul 13, 2014 at 11:38 PM, Martin Saurer <[email protected]>
wrote:

> Hello all,
>
>
>
> When I run the following script, everything works great in J801.
>
> In J802, the graphics (isigraphs) are empty.
>
>
>
> Is there any documentation for J802 to plot to isigraph client controls in
> a
> form?
>
>
>
> Many thanks in advance.
>
>
>
> Martin
>
>
>
>
>
>
>
> NB. isitest1.ijs
>
>
>
> require 'plot trig numeric' NB. gl2'
>
>
>
> NB. coinsert 'jgl2'
>
>
>
> isitest1_win =: 0 : 0
>
>    pc isitest1 nosize;
>
>    pn isigraph test;
>
>    bin h g;
>
>    minwh 320 240;
>
>    cc isi1 isigraph;
>
>    minwh 320 240;
>
>    cc isi2 isigraph;
>
>    pcenter;
>
>    pshow;
>
> )
>
>
>
> isitest1_run =: 3 : 0
>
>    wd 'reset'
>
>    wd isitest1_win
>
>
>
>    isi1            =: conew 'jzplot'
>
>    PForm__isi1     =: 'isitest1'
>
>    PFormhwnd__isi1 =: wd 'qhwndp'
>
>    PId__isi1       =: 'isi1'
>
>    PIdhwnd__isi1   =: wd 'qhwndc isi1'
>
>
>
>    isi2            =: conew 'jzplot'
>
>    PForm__isi2     =: 'isitest1'
>
>    PFormhwnd__isi2 =: wd 'qhwndp'
>
>    PId__isi2       =: 'isi2'
>
>    PIdhwnd__isi2   =: wd 'qhwndc isi2'
>
> )
>
>
>
> isitest1_close =: 3 : 0
>
>    wd 'pclose'
>
> )
>
>
>
> isitest1_isi1_paint =: 3 : 0
>
> NB.   glclear__isi1''
>
>    pd__isi1 'reset'
>
>    pd__isi1 sin steps 0 3 100
>
>    pd__isi1 'show'
>
> NB.   glpaint__isi1''
>
> )
>
>
>
> isitest1_isi2_paint =: 3 : 0
>
> NB.   glclear__isi2''
>
>    pd__isi2 'reset'
>
>    pd__isi2 cos steps 0 3 100
>
>    pd__isi2 'show'
>
> NB.   glpaint__isi2''
>
> )
>
>
>
> isitest1_run''
>
>
>
>
>
>
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to