home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / _pd_tools_addp.pdrx next >
Encoding:
Text File  |  1994-01-25  |  942 b   |  37 lines
  1. /*
  2. This genie converts curve points to corner points. Click on the points you want to convert, then on a blank place to stop.
  3.  
  4. Written by Don Cox, Jan. '94. Copyright. Not Public Domain.
  5. */
  6.  
  7. trace n
  8.  
  9. call pdm_AutoUpdate(0)
  10.  
  11. do i = 1 to 200  /* safety limit */
  12.     clickpos = pdm_ClickOnPoint("  Click on the Points to be changed...")
  13.     if clickpos = "0 0" then exit_msg()
  14.  
  15.     object  = word(clickpos, 1)
  16.     point  = word(clickpos, 2)
  17.     pointinfo = pdm_GetPoint(object,point)
  18.     newradius = 0
  19.     if word(pointinfo,3)=0 & word(pointinfo,4)=0 & word(pointinfo,5)=0 & word(pointinfo,6)=0 then newradius = 1.0
  20.     call pdm_SmoothPoint(object, point, newradius)
  21.     call pdm_UpdateScreen(1)
  22.  
  23.     end
  24.  
  25. exit_msg()
  26.  
  27. /* +++++++++++++++++++++++++++++++++  +++++++++++++++++++++++++++++++ */
  28.  
  29. exit_msg: procedure expose units
  30. do
  31.  parse arg message
  32.  
  33.  if message ~= '' then call pdm_Inform(1,message,)
  34.  call pdm_AutoUpdate(1)
  35.  exit
  36. end
  37.