I have made a bit of progress since my last e-mail with trying to develop an
interactive plot using the Form Editor but am stalled on a domain error.
According to the Window Controls in the User on-line documentation, 'set id
a b c d' should allow me to set the left, middle and right positions of the
scrollbar as well as the step size in pixels. I should then be able to
retrieve the position of the scrollbar slider with wd 'q'. At least this is
how I am interpreting it. I'm new to all this so I could have it wrong on a
number of levels.

 

My script is below. The domain error occurs with the set parameter in the
GRAPH script. I can't see where the error is.

 

Any help would be greatly appreciated

 

Bob

 

----------------------------------------------------------------------------
----------------------------------------------------------------------------
------------------------------------------------

 

GRAPH          =: 0 : 0

pc graph;pn "Graph Generator";

menupop "File";

menu new "&New" "" "" "";

menu open "&Open" "" "" "";

menusep;

menu exit "&Exit" "" "" "";

menupopz;

xywh 12 3 44 12;cc ok button;cn "OK";

xywh 265 2 44 12;cc cancel button;cn "Cancel";

xywh 23 256 50 10;cc values static ss_center;

xywh 21 23 281 221;cc chart isigraph ws_border;

xywh 54 255 177 11;cc aparm scrollbar;

set aparm 100 150 200 5

pas 20 20;pcenter;

rem form end;

)

 

graph_setup =: 3 : 0

wd GRAPH

charthandle =: wd 'qhwndc chart'

require 'gl2'

coinsert 'jgl2'

wd 'pshow;'

)

 

graph_close=: 3 : 0

wd'pclose'

)

 

graph_cancel_button=: 3 : 0

graph_close''

)

 

graph_ok_button=: 3 : 0

wdinfo 'OK button pressed'

)

 

graph_chart_char=: 3 : 0

glsel charthandle

glclear''

glrgb 255 0 0

glpen 2, PS_DASH

gllines mat%10

glpaint''

)

 

graph_aparm_button =: 3 : 0

a =: ". wd 'q' 

wd 'set values *','A = ',": a+0.25

b=:       0.00033

ssb=: ((i. 20)*500)%2

rec=: a*ssb*^-b*ssb

mat=: ,ssb,.rec

graph_chart_char''

)

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to