home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / LightWave.lha / Lightwave / Toaster / Arexx_Examples / lwm / Points.lwm < prev    next >
Encoding:
Text File  |  1995-04-26  |  668 b   |  34 lines
  1. /* CMD: Enter Points
  2.  * Enter x y z coords, make points */
  3. /* By Arnie Cachelin © 1992 NewTek Inc. */
  4.  
  5. libadd = addlib("LWModelerARexx.port",0)
  6. signal on error
  7. signal on syntax
  8.  
  9. call req_begin "Create Point"
  10. id_pt = req_addcontrol("Point",'V',1)
  11. call req_setval id_pt, 0, 0
  12.  
  13. points = 0
  14. do forever
  15.   if (~req_post()) then do
  16.     leave
  17.   end
  18.   call add_begin
  19.   call add_point req_getval(id_pt)
  20.   call add_end
  21.   points = points+1
  22. end
  23. call req_end
  24. if (points ~= 0) then call notify(1,'Created 'points' points.')
  25. exit
  26.  
  27. syntax:
  28. error:
  29.   call end_all
  30.     t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
  31.   if (libadd) then call remlib("LWModelerARexx.port")
  32.     exit
  33.  
  34.