As said in previous message, please run a wd'qer' to retrieve wd error.
in this particular case, the style sw_showna was rejectedi, this is a bug
in gtkwd , in the mean time use no style for this pshow.
the glshow is absent in J6 and I don't what it is suppposed to do.
For J7, Please install addons demos/wd and study the code under the folder
~addons/demos/isigraph for drawing on isigraph.
For J6 that examples are already installed but located in a different
folder.
Птн, 03 Фев 2012, Linda Alvord писал(а):
> I don't know where I got this code or what it does but I can get you a wd1
> error.
>
>
>
> require 'gui/gtkwd'
>
> coinsert 'jgl2'
>
> require 'gl2'
>
>
>
>
>
> dwin=: 3 : 0
>
> 0 0 1 1 dwin y
>
> :
>
> 'a c b d'=.x
>
> SC=:1000&*@((-&(a,c))"1 %((b-a),d-c)"1)
>
> sz=.":<.-:WINSHAPE
>
> PN=:y
>
> z=.'pc p closeok;xywh 2 2 ',sz,';cc g isigraph;pas 0 0 '
>
> wd z,';pshow sw_showna;'
>
> )
>
>
>
> dfillcolor=: 3 : 0 NB. Start Fill Color
>
> if. _1 e.y do. glbrushnull ''
>
> else. glrgb y
>
> glbrush''
>
> end.
>
> )
>
>
>
> dpoly=: 3 : 0"1 2
>
> 0 0 0 dpoly y
>
> :
>
> y=.x:^:_1 SC 2{."1 y
>
> dfillcolor x
>
> glpolygon ,y
>
> glshow''
>
> )
>
>
>
> where=:(<1 0 0 1,.0 0 1 1),(<2 1 1 2,.0 0 1 1),<3 2 2 3,.0 0 1 1
>
> color=:(<0 0 0),(<128 0 0),<255 0 0
>
> WINSHAPE=:300 150
>
> _1 _1 4 2 dwin 'L'
>
> color dpoly each where
>
>
>
> However, since I have little recollection of it I'm not sure it ever worked.
>
>
>
> Linda
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
