/* CMD: Clay Init
*/
call addlib("LWModelerARexx.port",0)
signal on error
signal on syntax
call addlib("rexxmathlib.library",0,-30,0)
call addlib("rexxsupport.library",0,-30,0)
call main
exit
syntax:
error:
t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
if (mxx_add) then call remlib(mxx)
exit
MAIN:
call random(,,time('s'))
syscode = "Clay Init"
claynam = "ENV:clay.tmp"
n = xfrm_begin()
if (n = 0) then return
if (~open(state, claynam, 'W')) then break
call writeln state, n
call meter_begin(n, syscode, "Reading Points")
do i=1 to n
xyz.i = xfrm_getpos(i)
call writeln state, xyz.i
call meter_step()
end i
call meter_end()
call xfrm_end()
call close(state)
               (
geocities.com/g_fyffe)