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
