/*
@Node Header
@Next Macro

Code:       solvebar.rexx
Author:     Russell Leighton
Revision:   16 Feb 1994

Comments:

This  script  is used by ami2d.rexx to setup the button window for solution
operations.   It  is only required by ami2d.rexx and should not be executed
as  a  standalone script.  It does, however, serve as an example script for
rexxbar.

@Node Header
@Node Macro
*/

options results

address command
if ~show('ports',"RXB_AMI2D") then do
    'run ami2d:bin/rexxbar -hRXB_AMI2D -pAMI2D'
    'waitforport RXB_AMI2D'
end
else address rxb_ami2d 'close'

address rxb_main 'open'
parse var result ix iy iw ih
ix = -iw
iy = ih
ih = -200

address rxb_ami2d

'button(1,equ2d,ami2d:macros/solve/equ2d)'
'button(2,pbnd,"plot bound")'

'button(4,rem2d,ami2d:macros/solve/rem2d)'
'button(5,opt2d,ami2d:macros/solve/opt2d)'
'button(7,lnsol,ami2d:macros/solve/solve)'
'button(8,nlsol,ami2d:macros/solve/nlsolve)'
'button(9,pdef,"plot deform scale")'
'button(10,fdef,"fill deform scale")'

'text(12,"scale:")'
'string(13,1.0,"set scale %s")'
'open('ix','iy','iw','ih',AMI2D,solve,"ami2d:rexx/movebar")'
'text(12,"scale:")'

exit