/* 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)